lNet（FreePascal/Lazarus）：SendMessage後斷開

Question

我遇到問題。我正在使用名爲「Client」的TLTCPComponent。

代碼如下：

procedure TForm1.Create(Sender: TObject); 
begin 
    Client.Connect(ServerIP, Port); //ServerIP and Port are given... 
    Client.SendMessage('SomeText'); 
end; 

服務器應用程序獲得連接。然後它收到一個''字符串，並從客戶端收到斷開連接。

如果我嘗試以下操作：

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; 

一切正常。服務器從客戶端獲取連接。如果我用按鈕發送文本，連接保持打開狀態。

現在的問題是：爲什麼連接關閉，如果我打開後立即發送文本？

問候和感謝， S-人

Answer 1

的解決方案：SendMessage消息來的太快。它必須在OnConnect方法中調用。