Exception bei ServerSocket wird nicht abgefangen

Hallo,
ich benutze diesen Code um eine Verbindung herzustellen.
Wenn die Verbindung nicht hergestellt werden kann, soll eine Meldung ausgegeben werden, und einige Schaltflächen deaktiviert werden:

ClientSocket->Address = "192.168.178.21";
        Memo->Lines->Add("Bitte warten, die Verbindung wird hergestellt");
                Memo->Lines->Add("Verbindung hergestellt");
                button_connect->Visible = false;
                button_send->Enabled = true;
                Form1->ActiveControl = edit_send;
                Timer_welcometext->Enabled = true;
        try {
                ClientSocket->Active = true;
        } catch(...) {
                Application->MessageBox("Die Verbindung konnte nicht aufgebaut werden.\nMöglicherweise ist der PC nicht an", "Fehler beim Verbindungsaufbau");
                button_connect->Visible = true;
                button_send->Enabled = false;
                Form1->ActiveControl = edit_send;
                Timer_welcometext->Enabled = false;
        }

Jansen

Ja und, was passiert stattdessen?

Genereller Hinweis: Beim Start aus der IDE heraus wird vor dem Abfangen standardmässig trotzdem die Fehlermeldung angezeigt; hast du dein Programm mal aus dem Explorer gestartet?

Nichts ;), da keine Exception ausgelöst wird. Siehe TClientSocket::OnError().

Grüße Joe_M.

statdessen bekomme ich immer eine Fehlermeldung "Ansynchronus Socket error"

Das mit OnError teste ich mal

Cool geht

vielen Dank.