TClientSocket - Probleme bei SendText

[butch]

Also,
als erstes sag ich gleich das ich nicht die Komponente TClientSocket benutze. Also schoen mit codebsp alles versehen
Als erstes mache ich:

Delphi-Quellcode:

 
var
       Socket: TClientSocket;

dann

Delphi-Quellcode:

procedure TForm1.connect();
begin
  Socket := TClientSocket.Create(Form1);
  Socket.Port := 5555;
  Socket.Address := '192.168.0.5';
  Socket.Open;
  Socket.Socket.SendText('0001');
  Socket.Close;
end;

wenn ich nun die Procedure aufrufe ( was per buttonklick geschieht) sagt mir mein testserver beim 1. Klick das er connectet (schickt aber nichts) beim 2. klick connectet er dann nicht mal mehr
Das 1. GROSSE Problem ist das er nichts sendet. Das er beim 2. Klick nciht connectet kann ich mir auch nicht erklaeren *g*

Hoffe ihr koennt mir helfen.

\\Robert

[cheatzs]

Hi,
bin mir nicht sicher aber versuch mal dem Socket ein bissel Zeit zum initialisieren zu geben, also das schicken der Nachricht auf einen 2. Button legen und den dann danach zu drücken, so 2 sek später.
Ich hatte schonmal das selbe Problem als ich direkt im OnCreate Ereignis des Forms den SOcket sowohl öffnen als auch ne Nachricht schicken wollte.
Als ich die Nachricht dann später geschickt hab gings.

[butch]

Ich sehe gerade man kann mit Socket.OnConnect was machen, aber wie? ich versteh das net ganz was in der Hilfe steht,
da ich Delphi auch nur so nebenbei neben einer anderen Sprache mache. Wuerde mich ueber ein Bsp freuen