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;

[4dk2]

haste denn das richtige kabel? war das dabei?
haste die richtige baudrate/stopbits/parität/flussteuerung usw eingestellt?

[4dk2]

und ich sehe grade das du wahrscheinlich bei dem hinzufügend er prüfsumme:
chr(checksum(sDaten))); machen musst.
+ inttostr(123) schickt 3 bytes,
+ chr(123) schickt 1 byte (zeichen 123)

[markus5766h]

... sollte zwischen Daten und Checksum nicht ein Trennzeichen (',' oder '*') sein ?

... o.k., Handbuch gelesen --> ohne Trennzeichen

[p80286]

Zitat von 4dk2:

haste denn das richtige kabel? war das dabei?
haste die richtige baudrate/stopbits/parität/flussteuerung usw eingestellt?

Das kann man nicht groß genug schreiben.

Gruß
K-H

[erich.wanker]

PERFEKT !!!!

Vielen Dank ..

Funktioniert super .. Ich hab die karte als "1" angesprochen .. richtig ist die "0"

Code:

begin
                          mainform.ComPort1.Port:='COM1';
                          mainform.ComPort1.Open;
                          mainform.ComPort1.Connected:=true;
                          sDaten:=#3#0#164;
                          mainform.ComPort1.WriteStr(sDaten + chr(checksum(sDaten)));
                       end;