Ich hab das eben mal so probiert wie divBy0 es beschrieben hat. Ab und an mal funktioniert es richtig , aber manchmal kommt auch gar nix zurück.
Habe eben mal als Ausgabe wenn der String emfangen wurde eine Showmessage eingefügt. Aber mal wird es angezeigt mal nicht.
Muss ich vielleicht den Buffer löschen damit nicht zuviel Unsinn drinnen steht , und wie könnte ich diesen löschen oder woran könnte dies liegen?
Delphi-Quellcode:
procedure TForm1.ComDataPacket1Packet(Sender: TObject; const Str: string);
begin
if Str ='Kurzschluss1 gestartet' then
begin
// Code für Kurzschluss2 gestartet
showmessage('Kurzschluss1 gestartet !!!!!!!!!!!!!!!!!!!!!!!!!!!!!');
end
else if Str ='Kurzschluss1 bestanden' then
begin
showmessage('Kurzschluss1 bestanden 8746759837684376')
end
end;
BEim ersten mal funktioniert der Empfang und die Ausgabe.Starte ich es noch einmal kommt nix mehr.
Es scheint wohl so das irgendwie Leerzeichen oder sowas noch im Buffer sind ,die dann dazu führen das der String nicht komplett ist...Deswegen wird er auch manchmal nicht erkannt.
Aber wie ich das löse , keine Ahnung.