728x90
반응형
네트워크(인터넷) 연결 유무 (물리적)
네트워크의 연결 유무 체크하는 함수 입니다.
좀 더 자세한 내용은 MSDN등을 참조하시면 나옵니다.
Windows Me 버전 이상, Explorer 5.0 이상이 있어야 한다는 군요...
또한 아시겠지만 sensapi.dll 도...
const
NETWORK_ALIVE_LAN = $1;
NETWORK_ALIVE_WAN = $2;
NETWORK_ALIVE_AOL = $4;
function IsNetworkAlive(var lpdwFlags: DWORD): HRESULT; stdcall; external 'SENSAPI.DLL';
.
.
.
.
var
dRet : DWORD;
begin
if IsNetworkAlive(dRet) = 0 then
ShowMessage('연결된 네트워크가 없습니다.')
else
begin
if (dRet and NETWORK_ALIVE_LAN) <> 0 then
ShowMessage('LAN 연결');
if (dRet and NETWORK_ALIVE_WAN) <> 0 then
ShowMessage('WAN 연결');
if (dRet and NETWORL_ALIVE_AOL) <> 0 then
ShowMessage('AOL 네트워크 연결');
end;
728x90
반응형
'Delphi Tip > 인터넷' 카테고리의 다른 글
indy idhttp 이용해서 파일 업로드 (0) | 2021.11.19 |
---|---|
웹페이지 FillInForm (0) | 2021.11.18 |
웹브라저를 통한 사이트HTML 옵션문 추가방법 (0) | 2021.11.17 |
Delphi WebBrowser (0) | 2021.11.16 |
IdHTTP 이용하여 파일 다운로드 (0) | 2021.11.12 |
댓글