Com Port Programmierung

[himitsu]

Ein Byte ist 1 Byte groß und nicht 2

Delphi-Quellcode:

Function RecieveByte(COMHandle: THandle): Byte;
Var
  tmp: cardinal;
Begin
  ReadFile(COMHandle, Result, 1, tmp, Nil);
End;