델파이

델파이/Delphi] PING 테스트

il-ma-re 2024. 7. 15. 10:34
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