Einzelnen Beitrag anzeigen

4dk2

Registriert seit: 4. Sep 2007
176 Beiträge
 
#3

AW: Serielle Schnittstelle ansprechen ...

  Alt 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;
  Mit Zitat antworten Zitat