-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
27. Jul 2023
Die Idee/Anforderung von Andreas hat mich inspiriert und ich habe die Library jetzt so erweitert, dass der "Scroll-Modus" direkt aktiviert werden kann.
Console.Window(100,50);
Console.Buffer(180,1500);
// Use WriteConsole for System.Write
Console.Modes.AlternateWriteProc := awConsole;
For Zeile := 1 To 200 Do
Begin
-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
25. Jul 2023
Hallo Andreas,
der ursprüngliche Zweck der Library ist/war eine MsDos-Anwendung die mit TurboPascal programmiert wurde unter Windows laufen zu lassen. Eine Dos-Anwendung war, soweit ich mich erinnere, immer auf eine Bestimmte Größe fixiert, meist (80 x 25) oder auch mal (40 x 25, 80 x 43, u.s.w.). Da gab es auch keinen Scrollbalken. Insofern ist die Library primär auf feste Fenstergrößen...
-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
16. Jul 2023
Gerne! :)
-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
16. Jul 2023
Klar habe ich eine Idee. Ich hatte bei einem früheren Update IFDEF's vergessen, oder anders gesagt, ich hatte keine Zeit/Lust meine VM-Ware mit Delphi XE6 zu starten und die Änderungen für die älteren Compiler zu testen. :oops: Das habe ich jetzt nachgeholt und es sollte wieder mit XE5 / XE6 laufen.
-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
14. Jul 2023
Hallo Andreas,
ja, vielen Dank! Du hast Recht, da haben 2 Free's gefehlt. Ich habe das gefixt und auf GitHub aktualisiert.
-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
30. Jun 2023
Hallo Andreas,
Vielen Dank! :-D
Da war ich ja schon auf der richtigen Spur, dass da eine andere crt.pas im Spiel ist. Ich habe deinen Vorschlag
-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
29. Jun 2023
Hallo Andreas,
irgendwie macht das keinen Sinn. Wenn Du sagst
der Compiler aber dann die "Var Console" nicht findet, die in der Crt.pas in Zeile 78 deklariert ist, dann würde ich vermuten, dass bei Dir irgendwas mit den Pfaden nicht stimmt. Im Projekt ist der Suchpfad auf das Parent-Directory ".." eingestellt. Also oberhalb von \Demo. Wenn Du an den Pfaden nichts geändert hast, sollte er...
-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
28. Jun 2023
Hallo Andreas,
bitte schau noch einmal ob sich Demo01 wirklich immer noch kompilieren lässt.
Ich würde vermuten, da hat sich bei Dir irgendwo im Quellcode ein oder mehrere Zeichen eingeschlichen, die da nicht sein sollten. Wenn sich Demo01 kompilieren lässt, warum sollte sich die Ply.Console.Pas (die bei Demo01 auch benötigt wird) dann bei Demo02 nicht mehr kompilieren lassen? :gruebel:
...
-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
28. Jun 2023
Wenn ich das Programm als Terminal starte, dann habe ich in der Prozessliste eine "WindowsTerminal.exe", eine "conhost.exe" und die "Demo01_Minimal_Console_App.exe".
Wenn ich das Programm als Konsolenhost starte, dann habe ich in der Prozessliste eine "conhost.exe" und die "Demo01_Minimal_Console_App.exe".
-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
28. Jun 2023
Liefert bei Terminal schon ein gültiges Handle, sogar das gleiche wie bei Konsolenhost. Siehe Ply.Console.Pas Zeile 3839
ConHandleStdOut := GetStdHandle(STD_OUTPUT_HANDLE);
Zum Beispiel die Demo01 (Minimal_Console_App) läuft auch auf einem Terminal. Aber wenn es dann an die erweiterten Funktionen, wie z.B. manipulieren des Font, Änderung der Größe des Konsolenfensters, u.s.w. geht,...
-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
28. Jun 2023
Ich habe gestern mein altes Delphi XE6 ausgegraben (installiert) und den Code überarbeitet. An den RecordHelpern liegt es bei XE6 nicht, die gab es da auch schon. Da muss es irgendeine Änderung mit den "class operator" gegeben habe. Ich habe jetzt eine Compilerweiche ($IFDEF) zwischen Delphi XE8 und Delphi 10 eingebaut, sodass der Code mit XE6 (und hoffentlich auch XE5) kompiliert werden kann....
-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
27. Jun 2023
Das habe ich mir schon gedacht, dass es an dem RecordHelper liegt. Kann mir jemand sagen, ab welcher Delphi-Version diese eingeführt wurden, oder wo ich diese Information finde? Dann würde ich mal versuchen ein paar $ifdef's für ältere Delphi-Versionen einzubauen.
-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
27. Jun 2023
Bis eben hatte ich das Windows-Terminal noch gar nicht installiert, also wurde bei mir automatisch der Windows-Konsolenhost verwendet. Unter dem Windows-Terminal läuft mein Code nicht sauber. Sobald das Windows-Terminal installiert ist, kann man unter "Datenschutz und Sicherheit > Für Entwickler > Terminal" einstellen, ob "Windows-Konsolenhost" oder "Windows-Terminal" verwendet werden soll. Wählt...
-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
27. Jun 2023
Kann ich Dir leider nicht sagen / habe ich noch nicht getestet.
Mit der aktuellen Delphi 11 CE sollte es auf jeden Fall funktionieren.
Könnte das vielleicht daran liegen, dass es ein "Helper record" ist? Ich bin mir nicht sicher ob es "Helper Records" in XE5 schon gab oder wenn ja ob es bei XE5 dann in Verbindung mit Klassenoperatoren zu dieser Fehlermeldung kommt?
Du kannst mal...
-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
26. Jun 2023
@himitsu:
Wie kommst Du zu der Annahme, dass ich das nicht gemacht habe? Denkst Du ich habe den Delphi-Code einfach so geschrieben ohne in die MSDN zu schauen? :pale:
Ich gehe nicht davon aus, dass die API in den nächsten Jahre streben wird, Microsoft im übrigen auch nicht.
Es geht/ging mir ja auch nicht darum, mit der Bibliothek dem neusten Trend von Mircrosoft hinterher zu laufen.
...
-
Forum: Win32/Win64 API (native code)
Delphi
by arcticwolf,
26. Jun 2023
Vielleicht kennen noch einige von Euch die Problematik, dass die gute alte crt.pas von Borland irgendwann in den neueren Delphi-Versionen einfach nicht mehr da war. Ich hatte diese Herausforderung vor etlichen Jahren zu meistern. Dazu kam dann noch die Thematik, dass die ERP-Software (Warenwirtschaft) für die ich als Programmierer verantwortlich war/bin, bis Mitte der 2010er-Jahre gleichzeitig...
