delphi ip kullanrak pingleme

TCP/IP Protokolünü Kullanarak Pingleme :
Delphi 3 ile TCP/IP kontrolünü kullanmak için Internet sekmesinden
TCP/IP kontrolünü ve Standart sekmesinden de Button kontrolünü Form'unuza ekleyin.
Daha Sonra Button1Click procedürüne şu komut dizisini yazın:



procedure TForm1.Button1Click(Sender: TObject);
var
LocalName, LocalIp, RemoteIp, RemoteHost:string;

begin

{Değişkenlerimize TCP1 Kontrolünden Datalar Aktarılıyor}

LocalName := TCP1.LocalHostName;
LocalIp := TCP1.LocalIP ;
RemoteIp := TCP1.RemoteHostIP ;
RemoteHost:= TCP1.RemoteHost ;

{Sıra Geldi Kullanıcıya Aktarmaya}

Canvas.TextOut(20,20,'Local Name : '+LocalName);
Canvas.TextOut(20,50,'Local Ip : '+LocalIp);
Canvas.TextOut(20,80,'Remote Ip : '+RemoteIp);
Canvas.TextOut(20,120,'Remote Host :'+RemoteHost);
end;

kolay gelsın simdiden...