Einzelnen Beitrag anzeigen

Hobbycoder

Registriert seit: 22. Feb 2017
928 Beiträge
 
#2

AW: Problem mit Exceptionbehandlung

  Alt 5. Jul 2021, 19:11
Ich hab's jetzt mal so versucht. Jetzt übergebe ich vor dem Connect das Item in einen String und lösche es aus der Liste. Trotzdem schein meine List zu wachsen.

Delphi-Quellcode:
    while not self.Terminated do
    begin
      if FMsgQueue.Count>0 then
      begin
        FTCPClient.Host:='127.0.0.1';
        FTCPClient.Port:=Self.FDestinationPort;
        MsgStr:=FMsgQueue[0];
        FMsgQueue.Delete(0);
        try
          FTCPClient.Connect;
          try
            if FTCPClient.Connected then
            begin
              FTCPClient.Socket.WriteLn(FMsgQueue[0]);
              DoError('No Error (QueueMsgCount: '+IntToStr(FMsgQueue.Count)+')');
            end;
          finally
            FTCPClient.Disconnect;
            //FMsgQueue.Delete(0);
          end;
        except
          on E: Exception do
          begin
            //if FMsgQueue.Count>0 then FMsgQueue.Delete(0);
            DoError(E.Message+' (QueueMsgCount: '+IntToStr(FMsgQueue.Count)+')');
          end;
        end;
      end;
      Sleep(50);
    end;
Code:
19:06:59,229: TCPClient: Socket-Fehler # 10061Verbindung abgelehnt. (QueueMsgCount: 6)
19:07:01,307: TCPClient: Socket-Fehler # 10061Verbindung abgelehnt. (QueueMsgCount: 8)
19:07:03,399: TCPClient: Socket-Fehler # 10061Verbindung abgelehnt. (QueueMsgCount: 10)
19:07:05,482: TCPClient: Socket-Fehler # 10061Verbindung abgelehnt. (QueueMsgCount: 15)
Gruß Hobbycoder
Alle sagten: "Das geht nicht.". Dann kam einer, der wusste das nicht, und hat's einfach gemacht.
  Mit Zitat antworten Zitat