lNet unter Freepascal/Lazarus: Disconnect nach SendMessage

[Yhorcal]

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

[Yhorcal]

Die Lösung:

Das SendMessage kommt zu schnell. Es sollte besser bei OnConnect aufgerufen werden.

[JamesTKirk]

Zur Erklärung: Connect muss ja erst die Verbindung zum Client aufbauen. Dafür trägt sich der LCL-Teil von lNet in die Nachrichtenbehandlung der LCL ein (im nicht-LCL Fall müsste man CallAction aufrufen). Bevor du nun also etwas verschicken kannst, muss ersteinmal wieder die Nachrichtenbehandlung ne Chance bekommen zu laufen, sprich dein OnCreate -Handler muss verlassen werden; alternativ könntest du auch mal einen Aufruf von Application.ProcessMessages zwischen Connect und SendMessage ausprobieren, wobei OnConnect auf jeden Fall der saubere Weg ist, da du so sicher sein kannst, dass die Verbindung wirklich zustande kam.

Gruß,
Sven