Probleme mit Exceptionhandling

Reply to Probleme mit Exceptionhandling on Sat, 02 Jun 2007 16:30:42 GMT

Tobi3000 — Sat, 02 Jun 2007 16:30:42 GMT

Ich nutze Indy 9.
Ich habe einen TCPServer und einen TCPClient.
Vom Server aus disconnecte ich den Client.
Beim Client kommt dann die Exception "Connection Closed Gracefully".
Hat einer eine Idee wie ich das Abfangen kann?
Mit try und catch kann ich nichts anfangen, da die Exception vom Client kommt.

Reply to Probleme mit Exceptionhandling on Sat, 02 Jun 2007 16:52:20 GMT

Rostfrei** — Sat, 02 Jun 2007 16:52:20 GMT

Zu beachten ist, dass im Builder grundsätzlich alle Fehler angezeigt werden. Mit try/catch kann man diese nicht unterdrücken. Starte die Anwendung mal direkt, also nicht aus dem Builder heraus. Dann sollte es funktionieren.

Reply to Probleme mit Exceptionhandling on Sat, 02 Jun 2007 16:55:50 GMT

Tobi3000 — Sat, 02 Jun 2007 16:55:50 GMT

Tut mir leid, ich habe vergessen zu sagen, dass ich es außerhalb der IDE gestartet habe.

Das Problem kommt also immer.

Reply to Probleme mit Exceptionhandling on Sat, 02 Jun 2007 17:02:04 GMT

Rostfrei** — Sat, 02 Jun 2007 17:02:04 GMT

// Edit

Poste mal relevanten Code. Normalerweise sollte es funktionieren.

Reply to Probleme mit Exceptionhandling on Sat, 02 Jun 2007 17:08:33 GMT

Tobi3000 — Sat, 02 Jun 2007 17:08:33 GMT

Ich les mir grad den relevanten Code durch und merke, dass da wirklich was nicht stimmt.

Ich habe da heute Mittag was rausgestrichen, was ich später wieder einfädeln wollte und ich habs vergessen.

Muss den Code nochmal überarbeiten, der ist doch recht kompliziert.

Reply to Probleme mit Exceptionhandling on Sat, 02 Jun 2007 17:57:17 GMT

Tobi3000 — Sat, 02 Jun 2007 17:57:17 GMT

OK, Ich hab jetzt alles eingefädelt.

Die Exception kommt allerdings immernoch.

Hier ist der Code:

Der Code soll so etwas wie ein Serverneustart sein.

void __fastcall TClientList::Reset(void)
{
  TClientChannel* ActChannel = ChStart;

  while(ActChannel->GetNachfolger())
  {
    ActChannel = ActChannel->GetNachfolger();
    ActChannel->GetVorgaenger()->Reset();
    delete ActChannel->GetVorgaenger();
  }

  ActChannel->Reset();
  delete ActChannel;

  ChStart = 0;
  ChEnde = 0;

  Server->TCPServer->Active = false;
  Server->TCPServer->Active = true;
}

Der Code aus dem Channel:

void __fastcall TClientChannel::Reset(void)
{
  TClient* ActClient = Start;
  while(ActClient)
  {
    ActClient->Reset();
    ActClient = ActClient->GetNachfolger();
  }
}

Und dann der von den Einzelnen Clients:

void __fastcall TClient::Reset(void)
{
  Client->Data = 0;  //TIdPeerThread* Client;
  Client->Connection->DisconnectSocket();
  Client = 0;
}

In den TClientChannel-Destruktoren werden entsprechend die TClient Objekte gelöscht, wo die Threadadressen gespeichert waren.

Reply to Probleme mit Exceptionhandling on Sat, 02 Jun 2007 18:05:43 GMT

Rostfrei** — Sat, 02 Jun 2007 18:05:43 GMT

Ja und wo ist Deine try/catch - Kapselung? Alternativ kannst Du es auch mit dem Event OnException der ApplicationEvents-Komponente probieren.

Reply to Probleme mit Exceptionhandling on Sat, 02 Jun 2007 18:16:44 GMT

Tobi3000 — Sat, 02 Jun 2007 18:16:44 GMT

Genau aus diesem Grund hab ich diesen Thread ja eröffnet.

Das ist der Code auf der Seite des Servers.
Die Exception kommt allerdings vom Client.

Wo soll ich jetzt beim Client eine Try/Catch hinsetzen um das abzufangen?

Die Sache mit dem OnException werd ich mir gleich mal angucken.

Reply to Probleme mit Exceptionhandling on Sat, 02 Jun 2007 18:53:46 GMT

Tobi3000 — Sat, 02 Jun 2007 18:53:46 GMT

Alles klar!

Ich habe das jetzt so gelöst, wie es in der Hilfe geschrieben steht.

void __fastcall TClient::AppException(TObject *Sender,Exception *E)
{
  if(!E->Message.Pos("Connection Closed Gracefully"))
  {
    Application->ShowException(E);
    Application->Terminate();
  }
}

Application->OnException = AppException;

Jetzt funktioniert es.

Danke für die Hilfe.