クライアントスレッドを正常に閉じる

Question

Delphi 7 Indy9ポーリングクライアントのトラブルシューティングを行っています。私はwaitforsingleobjectのTEventを追加しようとしました。エラーはreadlnで発生します。エラーは通常 'EIDConnection ... not connected'です。私はそれに時計を入れて、スレッドが終了します。接続がサーバーからmsgを受け取るまで、 'while'は条件を再評価しないので、msgを受け取るまではreadlnにグラインドします。時にはそれは正常に切断されますが、ほとんどの場合クラッシュします。これを行うにまたは私はちょうど私があなたが切断イベントを処理するためのいくつかのコードを追加する必要があると思う

procedure TReadingThread.Execute; 
begin 
    while not Terminated and FConn.Connected do 
    begin 
     // read msg from server 
     Msg := FConn.ReadLn; 
     Synchronize(ReceiveLine); 
    end; 
end; 

Answer 1

事前に...おかげでreadlnの周りを除いて...試みる入れて、続けていくん方法はあります。私は（この例では、tcpserverのはTIdTCPServerのインスタンスである）あなたが記述するものと同様の問題があったが、ここで私がやったことだ：

procedure TformRemoteControlWnd.tcpServerDisconnect(AContext: TIdContext); 
    (* 
    Connection is disconnected. Be careful, because this also gets called when 
    the app is shutting down while a connection is active, in which case 
    tcpServer may be gone already. 
    *) 
    begin 
     if not Application.Terminated and Assigned(tcpServer) then 
     begin 
     sbarStatus.SimpleText := 'TCP/IP Disconnected'; 
     tcpServer.Tag := 0; // used to prevent rentrancy 
     end; 

     // shut down connection to stop thread from calling OnExecute event 
     try 
     AContext.Connection.Disconnect; 
     except 
     Sleep(0); 
     end; 
    end; 

Answer 2

私は答えを見つけたことが受信するまで... Readlnは無期限に待機しますキャリッジリターン。サーバーがメッセージを送信するか、ソケットが切断される（クラッシュの原因となる）まで、スレッドはReadlnに座ります。 Delphiコンパイラコードでは、OnDisconnectには、try...exceptを使用してエラーをトラップするコメントが書き込まれています。だから、私はちょうどソケットを切断する前にきれいに注意する必要があります。私はもっ​​ときれいなクローズ方法を見つけることができたと思った。すべての助けに感謝します。