클라이언트 스레드 정상 종료하기

Question

Delphi 7 Indy9 폴링 클라이언트 문제를 해결하고 있습니다. 나는 waitforsingleobject으로 TEvent를 추가하려고 시도했고 우아하게 연결을 끊는 다른 많은 방법을 시도했다. readln에서 오류가 발생합니다. 일반적으로 오류는 'EIDConnection ... not connected'입니다. 나는 그것에 시계를 달았고 쓰레드는 끝났다. 'while'은 연결이 서버에서 msg를 수신 할 때까지 조건을 재평가하지 않으므로 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 주위를 제외하고 ...해볼 넣고에서 수행 할 수있는 방법이 있나요 .

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 무기한 대기를 발견 : 나는 당신이 설명하는 것과 비슷한 문제가 있고, 여기에 내가 무슨 짓을했는지 (이 예에서는, tcpserver는이 TIdTCPServer의 인스턴스) 캐리지 리턴. 그래서 쓰레드는 서버가 메시지를 보내거나 소켓이 연결 해제 될 때까지 (충돌을 일으킴) Readln에 앉는다. 델파이 컴파일러 코드에서 OnDisconnect에 설명문을 작성하여 try...except을 사용하여 오류를 잡았습니다. 그래서 나는 소켓을 분리하기 전에 청소하는 것을 조심할 필요가 있습니다. 클리너 클로즈 방법을 찾을 수있을 거라 생각 했어. 모든 도움에 감사드립니다.