아래쪽 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 입니다.
아래 코드를 테스트 해보세요.
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;