RS422 Datensenden unter Windows7

[samso]

Zitat von KodeZwerg:

Zitat:

Umgebung : Delphi7, Windows7

Ich las nirgends von wo uComPort her kommt, tut mir leid das war nur ins blaue geraten und ich bin auch schon wieder still.

Stimmt Du hast recht, ich hatte mich an der Version im Profil orientiert. Die Klasse ist trotzdem schauderhaft. SENDSTRING erwartet leider einen abschließendes 0-Byte. Also eher nicht brauchbar. Die Klassen könnte aber erweitert werden:

Delphi-Quellcode:

procedure TComport.SendBuffer(const Buffer; Len: Integer); // Einen Puffer senden.
var BytesWritten: DWord;
begin
  WriteFile(PortHandle, Buffer, Len, BytesWritten, NIL);
END;