Registriert seit: 4. Sep 2007
176 Beiträge
|
AW: Serielle Schnittstelle ansprechen ...
23. Dez 2016, 10:20
ich würde die Cport Lib empfehlen:
https://sourceforge.net/projects/comport
Damit kann man ALLES machen
Delphi-Quellcode:
var sDaten:string;
begin
ComPort1.Port:='COM1';
ComPort1.Open;
sDaten:=#3#1#164;
ComPort1.WriteStr(sDaten +checksumme(sDaten){gibt da x unterschiedliche Möglichkeiten...});
....
procedure TForm2.ComPort1RxChar(Sender: TObject; Count: Integer);
var sRX:string;
begin
//daten empfangen:
if count>0 then
begin
ComPort1.ReadStr(sRX,Count);
end;
end;
|