Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Tcp-ip kullanarak kişi pingleme

procedure TForm1.Button1Click(Sender: TObject); var LocalName, LocalIp, RemoteIp, RemoteHost:string; begin LocalName := TCP1.LocalHostName; LocalIp := TCP1.LocalIP ; RemoteIp := TCP1.RemoteHostIP ; RemoteHost:= TCP1.RemoteHost ; 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;