Hi,
ich habe ein Problem. Ich habe eine TLTCPComponent komponente, "Client" genannt.
Folgender Code:
Code:
procedure TForm1.Create(Sender: TObject);
begin
Client.Connect(ServerIP, Port); //ServerIP and Port are given...
Client.SendMessage('SomeText');
end;
Der Server bestätigt die Verbindung nach dem Connect. Danach sollte er den Text "SomeText" erhalten. Er hält allerdings einen Leerstring und dann einen Disconnect vom Client.
Wenn ich folgendes schreibe:
Code:
procedure TForm1.Create(Sender: TObject);
begin
Client.Connect(ServerIP, Port); //ServerIP and Port are given...
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Client.SendMessage('SomeText');
end;
Geht es. Mit dem Formularaufbau wird der Client connected. Dann kann ich die SendMessage per Button ausführen und alles ist ok - richtiger Text gesendet und weiterhin offene Verbindung.
Meine Frage: Warum gehen die beiden Befehle nicht direkt hintereinander, aber wenn ich den einen als ButtonClick auslagere, funktioniert es?
Gruß und Dank,
Yhorcal