Tes IP Pc On or Off Mengunakan Delphi 7

Tes  IP PC On or Off  Mengunakan Delphi 7

Apakah kalian ingin tahu cara mengetahui komputer  lain dalam lan sedang menyala atau tidak ?, untuk itu kalian bisa memanfaat kan fasilitas ping pada cmd windows, sedang kan untuk mengetahui apakah pc itu hidup atau mati  pada delphi 7 kalian bisa mengunkan icmp  fasilitas yang disediakan oleh "indy client" berikut adalah caranya :

ilmu ini saya comot dari sini https://stackoverflow.com/questions/38083856/indy-tidicmpclient-how-to-detect-a-timeout

• pada aplikasi kali ini saratnya yakni ip komputer yang akan di periksa sudah di ketahui

buat tampilan aplikasi seperti dibawah :

untuk coding nya lihat dibawa ini hanya masuk di button click saja,

procedure TForm1.Button1Click(Sender: TObject);
begin
   IdIcmpClient1.Host:= '10.10.1.5';  //<--- ip computer yang di periksa
   idICMPClient1.Ping();
      if IdIcmpClient1.ReplyStatus.ReplyStatusType = rsErrorUnreachable then
         begin
         showmessage('Komputer dengan ip '+IdIcmpClient1.Host +' Mati');
         end
      else
      if IdIcmpClient1.ReplyStatus.ReplyStatusType = rsTimeout then
          begin
          showmessage('Komputer dengan ip '+IdIcmpClient1.Host +' Mati1');
          end
      else
      if IdIcmpClient1.ReplyStatus.BytesReceived <> 0 then
          begin
          showmessage('Komputer dengan ip  '+IdIcmpClient1.Host +'  Hidup');
          end
end;

berikut juga saya sertakan ReplyStatuTypenya

type
  TReplyStatusTypes = (rsEcho,
    rsError, rsTimeOut, rsErrorUnreachable,
    rsErrorTTLExceeded,rsErrorPacketTooBig,
    rsErrorParameter,
    rsErrorDatagramConversion,
    rsErrorSecurityFailure,
    rsSourceQuench,
    rsRedirect,
    rsTimeStamp,
    rsInfoRequest,
    rsAddressMaskRequest,
    rsTraceRoute,
    rsMobileHostReg,
    rsMobileHostRedir,
    rsIPv6WhereAreYou,
    rsIPv6IAmHere,
    rsSKIP);

SHARE

Author

Hi, Its me Hafeez. A webdesigner, blogspot developer and UI/UX Designer. I am a certified Themeforest top Author and Front-End Developer. I'am business speaker, marketer, Blogger and Javascript Programmer.

• 
• 
• 
• 
•