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

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

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

Der Fehler tritt auf, wenn das Programm gestartet wird.

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

cs->Active = true;

weg!