procedure TForm1.Connect_Server;
begin
Try
DB_Server.Connected := False;
DB_Server.Connected := True;
Panel.Color := clSkyBlue;
Except
Panel.Color := clRed;
End;
end;
타이머로 위 Connect_Server 프로시져로 서버접속을 계속 확인하는 구문입니다.
서버 미접속 일정 시간동안은 에러메시지를 발생하지 않고 판넬색만 변경합니다.
하지만 일정시간이 지나면 서버접속에러를 뿌리고 당근 프로그램은 멈춥니다.
제가 원하는건 접속을 했던안했던간에 에러메시지를 뿌리지 않고 계속 프로그램을
돌리게끔 하고싶습니다.
어떻게 하면 될까요? 답변부탁드립니다.
또한 Socket 으로 연결하는건지..TDatabase 를 연결하는건지..