Ping в Delphi

[folkk]

Нужна ping программа работающая следующим образом:
в первый edit я пишу свой Ip а во второй edit Ip того кого хочу пинговать и после нажатия на button в memo отображается результат.
я не очень разбираюсь в delphi так что если можно по подробней опишите или дайте ссылочку на материал данного типа.
Заранее спасибо

[Stilet]

http://delphiworld.narod.ru/base/little_ping_app.html
http://yandex.ua/yandsearch?date=&te...=6223&lr=20554

[folkk]

а как вставить winsock и объявить структуру
извините за столь глупый вопрос но я этого не знаю (

[Alter]

Вот тут всё http://www.sources.ru/delphi/delphi_ping.shtml

[Stilet]

Вот попроще:http://www.programmersforum.ru/showthread.php?t=13760

[folkk]

а как вставить winsock и объявить структуру ((((?

[Stilet]

Используй IDIcmp - с ним попроще и поменьше кода будет...

[folkk]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Ping, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
RichEdit1: TRichEdit;
Ping1: TPing;
RichEdit2: TRichEdit;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
procedure Ping1DnsLookupDone(Sender: TObject; Error: Word);
procedure Ping1EchoReply(Sender, Icmp: TObject; Error: Integer);
procedure Ping1EchoRequest(Sender, Icmp: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Richedit1.lines.add('Поиск'+Edit1.t ext);
Richedit2.lines.add('Поиск'+Edit2.t ext);
ping1.size:=strtoint(edit2.text);
ping1.Dnslookup(edit1.text);
ping1.Dnslookup(edit2.text);
end;

procedure TForm1.Ping1DnsLookupDone(Sender: TObject; Error: Word);
begin
if error <> 0 then
begin
richedit1.Lines.Add('Хост не найден' + Edit1.Text) ;
richedit2.Lines.Add('Хост не найден' + Edit2.Text) ;
exit;
end;
richedit1.Lines.add('Хост' + Edit1.Text+ping1.DnsResult);
richedit2.Lines.add('Хост' + Edit2.Text+ping1.DnsResult);
ping1.address:=ping1.dnsresult;
ping1.Ping
end;

procedure TForm1.Ping1EchoReply(Sender, Icmp: TObject; Error: Integer);
begin
if error=0 then
richedit1.Lines.add('Не могу выполнить операцию ping: '+ Ping1.errorstring)
else
if error=0 then
richedit2.Lines.add('Не могу выполнить операцию ping: '+ Ping1.errorstring)
else
RichEdit1. Lines. Add ('Получено ' + IntToStr (Ping1 .Reply. DataSize) +
'байт от '+Ping1.HostIP+'за ' + IntToStr(Ping1.Reply.RTT)+
' миллисекунд');
RichEdit2. Lines. Add ('Получено ' + IntToStr (Ping1 .Reply. DataSize) +
'байт от '+Ping1.HostIP+'за ' + IntToStr(Ping1.Reply.RTT)+
' миллисекунд');

end;

procedure TForm1.Ping1EchoRequest(Sender, Icmp: TObject);
begin
richedit1.Lines.Add('Посылка'+intto str(ping1.size)+ 'байтов на' +ping1.HostName);
richedit2.Lines.Add('Посылка'+intto str(ping1.size)+ 'байтов на' +ping1.HostName);
end;

end.

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Alter]

folkk, как могли заметить у вас использован модуль Ping. А в Delphi нет такого, поэтому выложите сюда модуль Ping в архиве.