Real Name	:	Nesrin Uluca
Subject	:	TCP/IP Protokolünü Kullanarak Pingleme
Description	:	Delphi ile TCP/IP kontrolünü kullanmak istiyorsanız Internet sekmesinden TCP/IP kontrolünü ve Standart sekmesinden ise Button kontrolünü Formunuza ekleyin ve 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;
Rating	:	2.00 (out of 5)

Visitor Voting Booth

:

ExcellentVery GoodGoodFairPoor