Hallo,
ich habe folgenden code:
Code:
procedure Tfmain.SpeedButton1Click(Sender: TObject);
begin
if not ClientSocket.Active then begin
ClientSocket.Open;
ListBox1.Lines.Add(DateTimeToStr(now)+': '+'Anforderung an Server gesendet');
clientsocket.Socket.SendText(edt_user.Text+','+edt_password.Text);
end
else begin
ListBox1.Lines.Add(DateTimeToStr(now)+': '+'Anforderung an Server gesendet');
clientsocket.Socket.SendText(edt_user.Text+','+edt_password.Text);
end;
end;
Ich habe das Problem, das dass aller erste Mal der Text nie beim Server ankommt, d.h der text der direkt nach dem Open gesendet wird, danach klappt diese Funktion. Füge ich das Open z.B im Formcreate ein, klappt es einwandfrei.
Ich kann die Verbindung aber erst dann aufbauen und muss dann auch direkt den String senden. Wie bekomme ich das hin?
Auch ein eingebautetes Sleep hat nicht geholfen
Irgendwelche Ideen oder Lösungen?
Dank und Gruss
lkz633