728x90
안녕하세요, 일마레입니다.
일을 하다 보면 거래처에서 "작업이 안되는거 같아요",
"느려진거 같은데 확인 좀 해주세요" 등등의 연락을 받는다.
기능 혹은 물리적인 문제가 아니라면 대부분 네트워크 환경의 문제인데...
현장의 네트워크 상태를 일일히 확인하기에는 어려움이 있기에
PING 테스트통해 네트워크 연결 유무를 파악하고 로컬모드로 작업을 하고있다.
자 그럼 Ping 테스트 하는 방법을 알아봅시다.
function GetIntChk(addr: string): Boolean;
var
SZSQL : string;
IdicmpClient1 : TIdIcmpClient;
begin
IdicmpClient1:= TIdIcmpClient.Create(Nil);
try
{ addr은 각 통신사 및 포털 DNS를 사용
KT olleh (올레; 구 QOOK(쿡)), KT DNS
기본 DNS 서버 주소 - 168.126.63.1
보조 DNS 서버 주소 - 168.126.63.2
SK Broadband (브로드밴드), SK DNS
기본 DNS 서버 주소 - 210.220.163.82
보조 DNS 서버 주소 - 219.250.36.130
LG U+(유플러스; 구 XPEED 파워콤), LG DNS
기본 DNS 서버 주소 - 164.124.107.9
보조 DNS 서버 주소 - 203.248.242.2
Google Public (구글 퍼블릭)
기본 DNS 서버 주소 - 8.8.8.8
보조 DNS 서버 주소 - 8.8.4.4
}
IdicmpClient1.Host := addr;
try
IdicmpClient1.Ping();
Result := True;
except
begin
Result := False;
end;
end;
finally
IdicmpClient1.Free;
end;
end;
도움이 되었기를 바라며, 좋은 하루 보내세요 !
728x90
LIST
'델파이' 카테고리의 다른 글
델파이/delphi] 전화번호에 바 넣기 (0) | 2024.07.18 |
---|---|
델파이/delphi ] 프로그램 Log 삭제 방법 (0) | 2024.07.17 |
델파이/Delphi] 프로그램 로그(LOG) 생성 방법 (0) | 2024.07.12 |
델파이/Delphi] FTP에서 이미지 내려 받기 (0) | 2024.07.11 |
델파이/Delphi] TVirtualTable에 이미지 넣기 (0) | 2024.07.11 |