e.Message 에 원하시는 에러내용이 나오지 않나봐요?

만일 그렇다면, 작업하시는 DB 종류의 레퍼런스를 참조하셔서 일일이 기술하셔야 할듯한데..;

두번째 질문은.. 아래 함수를 참고해 보세요..

오래전에 작성해둔 함수인데 특정사이트가 접속가능한지 알아내는 함수입니다.

WINSOCK 구동여부 먼저 확인하시구 하세요..

그럼~ 즐거운 프로그래밍 하시길~

function IsConnect(sConnectIp: string; iPort: LongInt) : string;
  procedure DoCloseSocket(var SocketId: TSocket);
  begin
    if SocketId <> INVALID_SOCKET then
      if WSAISBlocking then
        WSACancelBlockingCall;

    CloseSocket(SocketId);
    SocketId := INVALID_SOCKET;
  end;
var
  Address: DWord;
  Phe: PHostEnt;
  ConnectIn: TSockAddrIn;
  ConnectSkt: Tsocket;
  DelayTime: Longint;
begin
  Result := '';
  Screen.Cursor := crHourGlass;
  try
    Address := inet_addr(PChar(sConnectIp));
    if (Address = INADDR_NONE) then
    begin
      Phe := GetHostByName(PChar(sConnectIp));
      if Phe <> Nil then
        Address  := Longint(plongint(Phe^.h_addr_list^)^);
    end
    else
    begin
       Phe := GetHostByAddr(@Address, 4, PF_INET);
       if Phe = Nil then
         Address := INADDR_NONE;
    end;

    if Address = INADDR_NONE then
    begin
      Result := '서버를 알 수 없습니다.  IP가 정확한지 확인하세요.';
      Exit;
    end;

    with ConnectIn do
    begin
      FillChar(ConnectIn, SizeOf(ConnectIn), #0);
      sin_family          := PF_INET;
      sin_addr.s_addr     := Address;
      sin_port            := htons(iPort);
    end;

    Application.ProcessMessages;;
    ConnectSkt := socket(PF_INET, SOCK_STREAM, IPPROTO_TCP);
    if ConnectSkt = INVALID_SOCKET then
    begin
      Result := '네트워크 오류: 소켓핸들을 얻을 수 없습니다.';
      Exit;
    end;

    DelayTime := 1000;
    if SetSockOpt(ConnectSkt, SOL_SOCKET, SO_RCVTIMEO, @DelayTime, SizeOf(DelayTime)) <> 0 then
    begin
      Result := '네트워크 오류: 소켓의 옵션을 바꿀 수 없습니다.';
      DoCloseSocket(ConnectSkt);
      Exit;
    end;

    if Connect(ConnectSkt, ConnectIn, sizeof(ConnectIn)) <> 0 then
    begin
      Result := sConnectIp + ' 에 접속할 수 없습니다.';
      DoCloseSocket(ConnectSkt);
      Exit;
    end;

  Result := sConnectIp + ' 에 접속할 수 있습니다.';

  finally
    DoCloseSocket(ConnectSkt);
    Screen.Cursor := crDefault;
  end;
end;

e.message에서 나오는 거는 알아보기가 힘들어서, 제가 직접 메세지를 나타나게 하려고 하는데요.

e.message의 모든 에러를 제가 알아 낼수가 없잖아요. 제가 테스트로 몇번 에러 나온거를 가지고

직접 메세지를 출력할 수는 있지만, 그 외의 다른 제가 생각지 못했던 에러가 나오면,

델파이에서 e.message의 내용(알아보기 어렵더라구요.)이 바로 찍히니깐,

원하는 뜻대로 되지 않더라구요.


차라리 에러 코드를 출력하고, 나올 수 있는 모든 에러 정보를 가지고 있다면 수월할텐데..ㅎ


아무튼 감사합니다~ 소스 잘 활용 할께요~ㅎ