*ups*
das war mein Fehler. Habe den Code aus meinem Projekt herauskopiert und so weit wie möglich bearbeitet. Muss da wohl eine Stelle übersehen haben. Tut mir leid.
Korrekterweise muss das dann so heißen:
Delphi-Quellcode:
var
COMPort :
String;
...
COMPort := '
COM1';
{ COM-Ports beginnen bei COM1, COM2, COM3 etc... }
while (ComHandle <= 0)
and (i < 10)
do begin
ComHandle := CreateFile(pchar(COMPort), GENERIC_READ
or GENERIC_WRITE,
0,
nil, OPEN_EXISTING, 0, 0);
inc(i);
end;
Ich hoffe ihr könnt mir nochmals verzeihen
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)