Daten von einem Port/Datei lesen (CreateFile, ReadFile)

[c113plpbr]

Ich will euch ein kleines Beispiel zum lesen, und schreiben von/auf den COM-Port (sollte auch für den LPT gehen) geben. Alternativ kann man damit auch Dateien lesen bzw. schreiben.

Hier einen Code Schnipsel, der zum Lesen so funktionieren sollte:

Delphi-Quellcode:

var
  hCommFile : THandle;
  TimeoutBuffer : PCOMMTIMEOUTS;
  NumberOfBytesRead : dword;
  Buffer : array[0..255] of char;

// Gibt das Handle zum Port bzw. der Datei zurück
hCommFile := CreateFile(PChar('COM1'),
                        GENERIC_READ, //Hier evtl. einen anderen Parameter setzen
                        0,
                        nil,
                        OPEN_EXISTING,
                        FILE_ATTRIBUTE_NORMAL,
                        0);

if(hCommFile = INVALID_HANDLE_VALUE)then
  // Fehler; Kein gültiges Handle!

  // Wenn man vom ComPort liest sollte man auch diese Zeilen benutzen.
  // Wenn man darauf schreibt, sollt man auch noch WriteTotalTimeoutMultiplier und WriteTotalTimeoutConstant setzen
  GetMem(TimeoutBuffer, sizeof(COMMTIMEOUTS));

GetCommTimeouts(hCommFile, TimeoutBuffer^);
TimeoutBuffer.ReadIntervalTimeout        := 100;
TimeoutBuffer.ReadTotalTimeoutMultiplier := 100;
TimeoutBuffer.ReadTotalTimeoutConstant   := 100;
SetCommTimeouts(hCommFile, TimeoutBuffer^);

FreeMem(TimeoutBuffer, sizeof(COMMTIMEOUTS));

// Schließlich lesen wir vom Port bzw. der Datei
FillChar(Buffer, sizeof(Buffer), #0);
ReadFile(hCommFile, Buffer, sizeof(Buffer), NumberOfBytesRead, nil);

// Das Handle zum Port bzw. der Datei wieder schließen, 
// und sie somit wieder für andere Programme zugänglich machen.
CloseHandle(hCommFile);

Da das Programm so lange 'hängt' bis entweder das Timeout eintritt, oder ein Signal reinkommt, hab ich das in meinen Programmen mit threads laufen lassen.
Im Anhang ein Beispiel.