Hallo,
ich benutze die SERIALNG-Komponente zur Kommunikation mit einem RS485-V24-Konverter zur Steuerung einer Gefahrenmeldeanlage. Klappt soweit auch ganz gut.
Allerdings habe ich ein Problem. Mit folgender Prozedur schalte ich die Kommunikation der COM1 ein+aus:
Delphi-Quellcode:
procedure TForm1.Kommunikation(status:integer);
begin
if status = 0 then begin //Kommunikation ausschalten
timer_send.enabled := false;
serialportng1.Active := false;
if Treeview1.Items.Count > 0 then Treeview1.items.clear;
panel1.Caption := 'Kommunikation abgeschaltet.';
cooltrayicon1.IconIndex := 2;
imconn.visible := false;
imnotconn.visible := true;
end;
if status = 1 then begin //Kommunikation einschalten
serialportng1.Active := true;
serialportng1.CommPort := device;
serialportng1.StopBits := 1;
serialportng1.DataBits := 8;
serialportng1.ParityType := 1;
serialportng1.BaudRate := baudrate;
sendesperre := false;
sendezaehler := 0;
imconn.visible := true;
imnotconn.visible := false;
timer_send.enabled := true;
panel1.Caption := 'Kommunikation wird aufgebaut.';
end;
end;
Ich sende dann eine Abfrage an das angeschlossene Gerät mit
Delphi-Quellcode:
....
sendstr := c;
SendDataSize := Length(SendStr);
SerialPortNG1.SendString(sendstr);
if Befehl <> '01' then panel1.caption := 'Befehl gesendet um '+Timetostr(now)
else panel1.caption := 'Abfrage gesendet um '+Timetostr(now);
inc(sendezaehler);
end else panel1.caption := 'Senden ist zur Zeit nicht möglich';
if sendezaehler > 5 then begin
kommunikation(0);
showmessage('Kommunikationsfehler!'+chr(13)+'Die EMZ antwortet nicht!');
end;
daraufhin schickt das angeschlsosene Gerät seinen Status zurück (anstehende Meldungen usw. als hex-kette).
das ganze klappt eigentlich wunderbar. Allerdings, wenn ich die Exe-Datei auf einen anderen Rechner kopiere und das Programm dort ausführe, sendet er "scheinbar" auch die Abfrage (erkenne ich an den LEDs zu TX/RX), allerdings antwortet das Gerät nicht.
Wenn ich aber zunächst mit der SerialNGAdvDemo die gleichen Daten sende, erhalte ich eine Antwort.
Und jetzt kommts: Beende ich nun das DEMO-Programm und starte mein Programm, funktioniert alles wunderbar. Daher kann ich auch eine Fehlfunktion des Devices ausschließen.
Die Datenübertragung erfolgt bei 600Bd, 8Bit, 1 Stoppbit, odd Parity und ohne Handshake.
Es wäre nun natürlich wirklich super, wenn das ganze auch ohne vorher die Demo auszuführen funktionieren würde
Hat da jemand eine Idee, woran das liegen kann??
MfG
Sebastian