Serielle Schnittstelle ansprechen ...

[erich.wanker]

Hallo Leute,

ich hab ein kleinen Problem ;-)

ich will mit einer Relaiskarte kommunizieren .. https://www.conrad.at/de/relaiskarte...dc-197730.html

Handbuch: http://www.produktinfo.conrad.com/da...e_en_fr_nl.pdf

Folgende Unit habe ich gefunden: http://www.delphipraxis.net/115140-t...nsprechen.html



Ich würde nun gerne die Karte initialisieren und wie im Handbuch beschrieben

Byte 1 -> Befehl 3
Byte 2 -> Adresse Karte 1
Byte 3 -> Daten 164
Byte 4 -> Checksumme

an die Karte schicken (Relais K8, Relais K6 und Relais K3 einschalten) - Binär 10100100

Aber irgendwie schaff ichs nicht ..




die unit "com" hab ich in meinem Project USES eingebunden ..

onButtonClick:
var
myCOM:TCOM;
begin

mycom:=TCOM.Create(self);
if (myCOM.TestComPortAvailable(1)) = TRUE then showmessage('Karte 1 gefunden') else showmessage('Karte NICHT gefunden!');


da kommt immer "Karte 1 gefunden" .. weiter komme ich nicht


Vielen Dank für Hinweise

LiGrü
Erich

[Der schöne Günther]

Cool, ich glaube die Relais-Karte von Conrad habe ich auch 8-)

Was ist jetzt genau dein Problem? Du möchtest jetzt ein paar Bytes über die Leitung bringen, findest aber nichts in dem Code von "Arnold Müller"? Der scheint seinem "TCom" nur ein Send für "Char" und "PChar" gegeben zu haben.

Ich persönlich finde vorgefertigte Quellcodes für serielle Kommunikation übertrieben. Es ist nie wirklich das was man jetzt gerade braucht und aufwändig ist es ehrlich gesagt auch nicht selbst zu machen. CreateFile(..) um einmal ein Handle auf den Port zu bekommen, und fortan mit WriteFile(..) schreiben und ReadFile(..) lesen.

[4dk2]

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;

[ConnorMcLeod]

Wäre auch meine Wahl.

[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:

Delphi-Quellcode:

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:

Zitat von 4dk2 (Beitrag 1357101)

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;