Q&A

  • IdIPWatch Properties


아래쪽 UDP Server 질문 했었는데..

Phono 님께서 알려주신 방법대로 할려고 하다보니..

IdIPWatch1.IsOnline   <==  여기서 에러가 나길래 자세히 보니..

저의 놋북에 IdIPWatch Properties 를 보면
Properties
Active
historyEnabled
Historyfilename
MaxHistoryEntries
Name
Tag
Watchinterval

항목만 있는데..
http://www.indyproject.org 에 가보니
CurrentIP
IPHistoryList
IsOnline
OnStatusChanged
등 저의 놋북에서 안보이는 내용이 있던데..
indy 의 버전이 틀려서 그런가요?
게시판 보면 http://www.indyproject.org 에 나와있는 내용이 있는데..저의 놋북에서는 안보입니다..콤포넌트 설치를 잘못한건가요?

Indy 9.00.10 입니다.
1  COMMENTS
  • Profile
    구창민 2010.01.25 20:39
    인터넷이 활성화 되었는지 확인하시려면.. API 함수를 끌어쓰시면 됩니다..
    아래 코드를 테스트 해보세요.

    function IsOnline: Boolean;
    var
    dwConnectionTypes : DWORD;
    begin
    dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
    Result := InternetGetConnectedState(@dwConnectionTypes,0);
    end;

    procedure TForm1.Button2Click(Sender: TObject);
    begin
    if IsOnline then
    MessageBox(0, '붙었다', '확인', MB_OK)
    else
    MessageBox(0, '죽었다', '확인', MB_OK)
    end;