Hallo @ all!
Zur Zeit versuche ich meinen ersten Versuch mit Client/Server-Progrsmmierung zu erweitern. Bis jetzt habe ich 2 Projekte erstellt Client und Server. Verbindung und Austausch der Informationen zwischen Server und Client funktioneren. Allerdings beim Abbau der Verbindung habe ich ein Problem und zwar nach dem Aufruf der Funktion IdTCPClient->Disconnect() bleibt die Verbindung bestehen (siehe Unten).
Beim Kilcken auf Button "DISCONNECT" (auf dem Client) wir folgender Code aufgerufen:
Any help?
Viele Grüße
Markus
Zur Zeit versuche ich meinen ersten Versuch mit Client/Server-Progrsmmierung zu erweitern. Bis jetzt habe ich 2 Projekte erstellt Client und Server. Verbindung und Austausch der Informationen zwischen Server und Client funktioneren. Allerdings beim Abbau der Verbindung habe ich ein Problem und zwar nach dem Aufruf der Funktion IdTCPClient->Disconnect() bleibt die Verbindung bestehen (siehe Unten).
Beim Kilcken auf Button "DISCONNECT" (auf dem Client) wir folgender Code aufgerufen:
Code:
void __fastcall TForm1::btnDisconnectClick(TObject *Sender)
{
bool MyConnection; <- Lokale Variable (zum Testen)
MyConnection = IdTCPClient->Connected(); <- MyConnection ist "true"
Timer1->Enabled = false; <- zusaetzliche Aktion (hier keine Bedeutung)
if (IdTCPClient->Connected()) <- Abfrage: Ist der Client noch verbunden? Wenn ja (true), dann Verbindung trennen.
{
IdTCPClient->Disconnect(); <- Hier wird OnDisconnected Evetn ausgelöst und IdTCPClientDisconnected aufgerufen
}
MyConnection = IdTCPClient->Connected(); <- Hier ist MyConnection IMMER NOCH "true" ?????
}
void __fastcall TForm1::IdTCPClientDisconnected(TObject *Sender)
{
StatusBar1->SimpleText = "Disconnected";
}
Viele Grüße
Markus
Comment