Serielle Schnittstelle ansprechen ...

[erich.wanker]

Hi ..

Hab mir die Componente installiert ..

Leider passiert auf der Platine nix ??? ... ist es wegen meiner checksum oder wegen der Bytes die ich übertragen soll ???


Hab:

Delphi-Quellcode:

function checksum(s:String):Integer;
var sum,i:Integer;
begin
sum := 0;
  for i := 1 to length(s) do
    begin
    inc(sum, ord(s[i]));
    end;
result:= sum;
end;


procedure ....
var sDaten:string;
begin

  ComPort1.Port:='COM1';
  ComPort1.Open;
  sDaten:=#3#1#164;
  ComPort1.WriteStr(sDaten + inttostr(checksum(sDaten)));

end;


procedure TMainForm.ComPort1RxChar(Sender: TObject; Count: Integer);
var sRX:string;
begin
  if count>0 then
  begin
    ComPort1.ReadStr(sRX,Count);
  end;
  showmessage(sRX);
end;