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

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

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



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

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

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

델파이4를 사용하신다면 앵커속성을 사용해 보시죠.



왕초 께서 말씀하시기를...

> 런타임에 폼의 크기를 조절하면 버튼의 위치는 제자리에 있습니다..

> 그래서 폼을 좀 작게 하면 버튼이 안보여지죠....

> 폼의 크기에 따라 버튼의 위치도 폼의 크기에 맞게 조절 되게 하고 싶습니다.

> 어떻게 해야 할지?

배재민 wrote:

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

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

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

>

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

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

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

>

>

>

>

>

>



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

예를 들어서

Try

소켓 연결부분 코딩

Except

begin

소켓연결 재시도..

end;

End;

왕초 께서 말씀하시기를...

> 런타임에 폼의 크기를 조절하면 버튼의 위치는 제자리에 있습니다..

> 그래서 폼을 좀 작게 하면 버튼이 안보여지죠....

> 폼의 크기에 따라 버튼의 위치도 폼의 크기에 맞게 조절 되게 하고 싶습니다.

> 어떻게 해야 할지?



글쎄요.. 해보진 않아서 잘 모르겠는데 아마 전역으로 폼이 리사이즈 하기 전의 width와 height를 가지는 변수를 하나 선언하시고 Resize 이벤트나 WM_SIZE 메시지를 잡아서 변한 비율만큼 버튼의 left와 height를 이동시켜 주시면 될꺼 같은데요..

> 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화일을 실행해서 테스트 하세요.

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

그럼..