Comport-Exception abfangen und verbindung schließen

[delphifant]

Hallo zusammen,
seit geraumer Zeit erfreue iich mich über die Komponete TComPort. Sie funktioniert eigentlich richtig gut nur bei einer Exception
geht sich richtig ab.Ich bin jetzt schon länger auf der suche nach einer Möglichkeit eine TComport-Excetion sauber abzufangen und meine Verbindung sauber zu schließen. Es handelt sich um Exception die ausgelöst wird im Falle bei dem Abbruch der Kommunikation (z.B. Kabel ziehen).

Vielleicht hatte bei euch auch jemand das Problem und könnte mir einen Tip geben.

Im voraus Danke

[nuclearping]

Was hast du bisher versucht? try-except-end-Blöcke? Was für eine Exception kommt genau?

[divBy0]

try-except funktioniert doch bestens dabei.

Welche Exception bekommst du denn? Bei mir kam noch nie ein Fehler beim Kabelziehen.

[Chemiker]

Hallo delphifant,

Zitat von divBy0:

Bei mir kam noch nie ein Fehler beim Kabelziehen.

Das kann ich bestätigen, in meinem Programm lassen ich einen Trigger mitlaufen, damit das Programm mitbekommt, wenn keine Daten übertragen werden.

Bis bald Chemiker

[divBy0]

Zeig mal deinen Code, wo die Exception auftritt bitte.

[delphifant]

Hallo erstmal danke für eure schnelle Reaktion...

Es Handelt sich hier um das ständige abfragen von Messwerten einer Elektronik...

Delphi-Quellcode:

//++++++++++++++++++++++++++++++++++
//Sender der Message an über Comport
//++++++++++++++++++++++++++++++++++
function  TForm1.SendMessagetoCOM(const FTCMessage: String; const interval: word ; var ErrorMsg: String; bSetRich: Boolean): boolean;
var
 iDelay   : word;
 i        : integer;
 MyChar   : Char;
 wfmo,
 LoopMax : word;
begin
 result:= false;
 if ComPort.Connected then
 begin
   
   //MPCComData ist eine globaler Variable (Record)
   MPCComData.text     := '';
   iDelay              := COM_DELAY;   //Const
   wfmo                := 0;
   LoopMax             := COM_LOOP_RECIEVED;

   MPCComData.bRecieved:=    True;
  
  
   // Sender der Chars (mit einer Delay) wegen hoher Bautrate 921600
   for I := 1 to length(FTCMessage) do
   begin
       MyChar:= FTCMessage[i];
       ComPort.WriteStr(MyChar);
       delay( iDelay);
   end;

  i        := 0;
  ErrorMsg := '';

  // Schleife wird durchlaufen und bei Event oder nach Durchlauf von Loop beendet...
  // Rückantwort verarbeiten...
  repeat
    wfmo := WaitForMultipleObjects(length(EventRecieveds), @EventRecieveds, False, interval );

    Application.ProcessMessages;                         //Nur bei Hautthread benötigt...
    inc(i);
    if Application.Terminated then i:=LoopMax;          // oder Thread.terminated
  until (wfmo <> WAIT_TIMEOUT) or ( i = LoopMax);

   MPCComData.bRecieved:=    false;

   if wfmo=0 then
   begin
     if bSetRich then
      RiCOMText.Lines.Add(MPCComData.text);
     result:= true;
   end;

    case wfmo of
      WAIT_OBJECT_0 + 0: ErrorMsg := rsEventRecieved;
      WAIT_OBJECT_0 + 1: ErrorMsg := rsEventCustomer;
      WAIT_OBJECT_0 + 2: ErrorMsg := Format(rsEventSignaled, [WAIT_OBJECT_0 + 3]);
      WAIT_TIMEOUT:   ErrorMsg:= rsTimeOut;
    else
     ErrorMsg:= 'Error';
    end;

    if i= LoopMax then
     ErrorMsg:= 'Loop to end';
 end;
end;

//++++++++++++++++++++++++++++++++++
// Empfangen der Daten
//++++++++++++++++++++++++++++++++++
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
  i  : integer;
   rxBuffer: String ;
begin
  ComPort.ReadStr(Str, Count);

  if MPCComData.bRecieved then
  begin
    for i := 1 to length(str) do
    begin
      if (str[i] = #10) or (str[i] = #13) then
      begin
        MPCComData.text             := rxbuffer;
        MPCComData.bRecieved        := false;
        SetEvent(EventRecieveds[0]);
        break;
      end
      else
        rxbuffer:=rxbuffer+str[i];
    end;
  end;
end;

Wegen der hohen Bautrate ist kein Software-Handshake möglich... also muß ich immer auf eine Antwort warten, damit ich auch eine Steuerung über meine Software ermöglich kann...

Gruß

Delpifant

[delphifant]

Ich habe noch eines vergessen...

Die Exception werden zu einen eigenen Exception-Handler weitergleitet...wo sie auch ankommen.

Delphi-Quellcode:

procedure TForm1.HandleOnException(Sender: TObject; E: Exception);
begin
 
  if (E is EComPort) then
  begin
    //-> Hier wird die Exception hingeleitet 
    // Jedoch fand ich noch keinen Weg meine Exception 
    // sauber zu verarbeiten
    
     MessageDlg(E.Message, mtError, [mbOk], 0);
  end
  else begin
    screen.Cursor:=crDefault;
    MessageDlg(E.Message, mtError, [mbOk], 0);
  end;
end;

Ok, das noch (es ist eine EComPort-Exception)

P.S. die Sache mit dem Trigger hört sich interessant an

Zitat:

in meinem Programm lassen ich einen Trigger mitlaufen

Vielleicht könnte das schon helfen...könnte hier ein kleine Hilfe gebrauchen

[Chemiker]

Hallo delphifant,

da war ich auf den falschen Dampfer. Ich benutze eine andere Komponente ist auch kostenlos, vielleicht lohnt es sich diese mal anzusehen.

TurboPower Async Prof.

Bis bald Chemiker

[delphifant]

Die TComport-Komponente hat viele gute Seiten...wenn ich jedoch nicht eine Möglichkeit finde das Problem zu lösen werde ich mich wohl nach Alternativen umschauen müssen. Ich habe auch die Komponente

Zitat:

Turbo Power Asynnc Prof

angeschaut...aber die TComport hat es mir angetan. Jedoch finde ich die Idee mit dem Triggern immer noch nicht die schlechteste

[messie]

Du hast meiner Meinung nach noch keine Antwort auf die Verwendung von try...except-Blöcken gegeben. Ich verarbeite meine Exceptions von TComport damit und das funktioniert gut.

Deine Art, Daten zu empfangen, passt nicht gut zur hohen Baudrate. Ich habe das in einer Anwendung mit hoher Datenrate über einen Timer gelöst, der dann den Buffer einsammelt und sortiert.

Grüße, Messie