ClientSocket - Port öffnen und im Anschluss Text senden

[Yheeky]

Hi!

Also ich bin gerade am Werkeln einer Funktion. Es geht quasi um eine Art Chatfunktion. Ich arbeite mit den Komponenten TClientSocket und TServerSocket. Jetzt gibt es nur ein Problem: Da ich vor dem Senden der Nachricht abfragen muss, ob derjenige überhaupt noch online ist, muss ich die IP auslesen und die Client-Komponente auf "Active=True" schalten. Der Text soll direkt im Anschluss gesendet werden, was aber nicht funktioniert:

Code:

frmMain.ClientSocket1.Active := True;
frmMain.ClientSocket1.Socket.SendText('TEST');

Beim Betätigen des Buttons tut sich beim ersten Mal nichts, beim 2.Mal jedoch passiert alles wie gewünscht. Meine Vermutung: Der zeitliche Abstand zwischen Active := True und SendText ist zu gering. Es geht aber nicht anders. Kennt jemand ne Möglichkeit, wie ich mein Problem weg bekomme?

Gruß Yheeky