배재민 wrote:

> 클라이언트 소켓에서 서버소켓으로 연결을 할 경우

> 서버 프로그램(서버 소켓)이 실행되어있지 않을 경우

> 계속(5초에 한번씩) 재 연결 시도를 하려고 합니다.

>

> 그런데 서버가 실행되어 있지 않은 상태에서

> 연결을 시도할 경우 Error창이 뜸니다.

> 이 Error창이 뜨지 않도록 하는 방법이 있습니까 ? (급함)

>

>

>

>

>

>



Try..Except..End 절을 이용하시면 됩니다.

예를 들어서

Try

소켓 연결부분 코딩

Except

begin

소켓연결 재시도..

end;

End;

> Try..Except..End 절을 이용하시면 됩니다.

> 예를 들어서

> Try

> 소켓 연결부분 코딩

> Except

> begin

> 소켓연결 재시도..

> end;

> End;

>

>



물론 이방법도 해 보았는데

되질 않더군요..

배재민 wrote:

>

> > Try..Except..End 절을 이용하시면 됩니다.

> > 예를 들어서

> > Try

> > 소켓 연결부분 코딩

> > Except

> > begin

> > 소켓연결 재시도..

> > end;

> > End;

> >

> >

>

> 물론 이방법도 해 보았는데

> 되질 않더군요..

>

>



배재민님 안녕하세요? 구창민입니다.

일전에 사용했던 간단한 에러처리 루틴을 사용자가 작성하는 방법입니다.

보시고 응용하시어 도움되시기 바랍니다.



procedure TForm1.FormCreate(Sender: TObject);

begin

application.OnException := Changminerror;

end;



procedure TForm1.ChangminError(Sender:TObject; EE:Exception);

var changmin_msg : string;

begin

changmin_msg := EE.message; //에러 메세지를 스트링에 담아본다.

//이 루틴이 가동되었다는 것은 에러가 났다는 이야기.

//원하는 처리문장을 작성한다...

end;



이런 방법으로 작성해두면 에러는 나타나지 않지만 에러가 났을때의

처리루틴을 먼저 작성해두어야 합니다.

예를 들면 Socket으로 Connection을 할때 몇초간 대기하는 루틴을 작성하고

ServerSocket이 Listen상태가 아니거나 네트웍 오류로 응답이 없다면

에러가 났다는 이야기이니, 그때 처리루틴을 기동하면 되겠네요..

그리고, Make된 exe화일을 실행해서 테스트 하세요.

컴파일시에 실행하면, 델파이가 먼저 예외를 가로채서 보여주니까요.

그럼..