ClientSocket -> INDY IdTCPClient1 로 수정 시 event 처리에 대하여 알고싶습니다.

[kanggilnam]

indy 로 바꿔서 해보려고 수정하고 있습니다.

아래의 코드는 ClientSocket 에서 Error 발생 처리하는 event 입니다.

indy client의 IdTCPClient1 에서 Error 발생 처리하는 event 가 있나요 ?

IdTCPClient1 에서 connect time 을 5초로 지정해서 그 사이에 연결이 안되면 물리적 문제로 판단하여 다음으로 스킵하려고 합니다.

이때 timeout error 가 발생해 메시지 박스가 나타납니다. 그것을 없애려고 합니다.

clientsocket 컴포넌트는 error 이벤트가 있어서   ErrorCode := 0 값주면 메시지 없이 처리됩니다.

 

procedure TfrmClient.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  ErrorCode := 0;
end;

 

 

 

[Miniuser]

try
  IdTCPClient.Connect;
except
  on E: Exception do 
  begin
    ShowMessage('CLIENT', 'CONNECTION ERROR! ' + E.Message);
  end;
end;

이런식으로 Try/Catch 문을 사용해보시겠어요?

[Miniuser]

또한 TidTCPServer와 TidTCPClient를 사용하는 간단한 예제 프로젝트가 있어 공유합니다.

참고해보시면 좋을 것 같습니다.

 

참고 사이트 : https://silverpeacock.wordpress.com/2017/07/30/delphi-client-server-indy-embarcadero-tcp-tiditcpserver-tidtcpclient-components/