Seriellen Anschluss auslesen (RFID)

[s.h.a.r.k]

Wie das mit demAsync Pro geht kann ich dir leider nicht sagen - dazu musst du wir was suchen *lol* (soll keine Ironie, sondern wirklich ein Tipp sein)

Ansonsten kannst es ja auch mal so probieren - schau dir den Link hier mal an und dann lese die Daten mit dem folgenden Code aus (hab ich im forum gefunden)

Delphi-Quellcode:

Function RecieveByte(COMHandle: THandle): Byte;
Var
  tmp: cardinal;
  ByteToRead: Byte;
Begin
  ReadFile(COMHandle, BytetoRead, 2, tmp, Nil);
  Result := ByteToRead;
End;


// Beispiel-Verwendung...
Procedure TForm1.Timer1Timer(Sender: TObject);
Var tmp: integer;
Begin
  tmp := RecieveByte(com);
  If tmp <> 217 and 0 Then  // Nur um den "Müll" zu ignorieren...
    memo1.lines.add(inttostr(tmp));
End;