Coding: Delphi PING PONG по-русски

Xakep, номер #036, стр. 036-061-3

RichEdit1.Lines.Add('Хост ''' + Edit1.Text + ''' - ' + Ping1.DnsResult);

//Устанавливаем свойство Address компонента Ping в

//адрес, найденный в базе DNS

Ping1.Address := Ping1.DnsResult;

//Запускаем Ping

Ping1.Ping;

end;

ЛИСТИНГ 3

procedure TPingForm.Ping1EchoReply(Sender, Icmp: TObject; Error: Integer);

begin

if Error = 0 then

RichEdit1.Lines.Add('Не могу выполнить операцию ping: '+Ping1.ErrorString)

else

RichEdit1.Lines.Add('Получено ' + IntToStr(Ping1.Reply.DataSize)+

' байт от '+Ping1.HostIP+' за ' + IntToStr(Ping1.Reply.RTT)+

' милисекунд');

end;

ЛИСТИНГ 4

procedure TPingForm.Ping1EchoRequest(Sender, Icmp: TObject);

begin

RichEdit1.Lines.Add('Посылка ' + IntToStr(Ping1.Size) +

' байтов на ' + Ping1.HostName);

end;