Asynchron Error bei TServerSocket & TClientSocket

[shaftie]

Ich bekomme bei folgendem Code ständig einen Asynchron. Error:

Server:

void __fastcall Tf1::FormCreate(TObject *Sender)
{
AnsiString zeit = " [" + Now().TimeString() + " ] ";
try {
s1->Port = 88;
sm1->Lines->Add(zeit + "Serverport festgelegt...");
}
catch(...) {
sm1->Lines->Add(zeit + "Konnte Port nicht festlegen...");
}
try {
s1->Active = true;
s1->Open();
sm1->Lines->Add(zeit + "Server gestartet...");
}
catch(...) {
sm1->Lines->Add(zeit + "Konnte Server nicht starten...");
try {
s1->Close();
s1->Active = true;
s1->Open();
sm1->Lines->Add(zeit + "Server wurde neu gestartet...");
}
catch(...) {
sm1->Lines->Add(zeit + "Server konnte nicht neu gestartet werden...");
}
}
}

Client

l2->Caption = "Vorbereiten der Verbindung...";
cs->Close(); //falls ein solcher server noch läuft...
cs->Active = false;
l2->Caption = "Laden...";
try {
cs->Port = 88;
}
catch(...) {
l2->Caption = "Error...";
}
try {
cs->Host = "127.0.0.1";
//cs->Address = "localhost";
}
catch (...) {
l2->Caption = "Error...";
}
try {
cs->Active = true;
cs->Open();
}
catch (...)
{
l2->Caption = "Error:...";
}

Was stimmt da nicht?

Viele Grüße

shaftie

[Code-Formatierer]

Auf welcher Seite tritt der Fehler auf, und in welcher Zeile?

Und hast du schon mal was von Einrückungen gehört? Wer soll sich so eine Codewüste denn durchlesen!?

[shaftie_guest.]

Der Fehler tritt auf, wenn das Programm gestartet wird. Einen Compiler- Fehler gibt es nicht.

Entschuldige bitte, ich werde beim nächsten Mal darauf achten, den Code besser zu formatieren.

[nirsaja]

shaftie_guest. schrieb:

Der Fehler tritt auf, wenn das Programm gestartet wird.

Es sind doch eindeutig zweit Teile, Server und Client! Welcher stürzt denn nun ab?

[shaftie]

Der Client

[nirsaja]

Lass das

cs->Active = true;

weg!

[shaftie]

Danke... Aber es ändert nichts, außer dass die Meldung nun ca. 2sek nach dem Programmstart kommt statt direkt am Anfang...