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

[Kamil]

Schreibe die Zeile Socket.SendText('TEST'); ins OnConnect Ereignis.

[Yheeky]

Hi! Das funktioniert leider nicht. Jemand eine andere Idee?

[Kamil]

Natürlich funktioniert das!
Du kannst die Sockets auch im blocking Modus verwenden, dann funktioniert auch der Code aus deinem ersten Beitrag (allerdings würde ich dann die Indy Komponenten nehmen).

[Yheeky]

Oh, sorry...hatte eine Stelle meiner IP falsch eingegeben
Danke für die Hilfe!

Gruß Yheeky