ics의 ping 기능을 사용할려구 하는데요.

ping 콤포의 이벤트들이 다 어떻게 쓰이는지 모르겠어요.

dnslokkupdone이벤트에 대해 알구 싶은데요.

이게 무슨 기능을 하는지 좀 알려주세요..



p.s 그리구요. 넘 귀찮게해서 죄송한데 이왕이면 ics의 예제중에서 pingtest

가 있거든요. 근데 이게 내부에선 되는것 같은데 외부로 핑을 쏠때는 또 이게

안되거든요. 분명 시스템에서 타 업체로 핑을 쏘면 되는데 이 pingtest 프로그램가지고는 안됩니다. 소스 밑에 붙일께요. 좀 봐주세요..

답변해주시면 고맙겠습니다.. ^^procedure TForm1.pingbuttonClick(Sender: TObject);

begin

DisplayMemo.Clear;

DisplayMemo.Lines.Add('Resolving host ''' + HostEdit.Text + '''');

PingButton.Enabled := FALSE;

CancelButton.Enabled := TRUE;

Ping1.DnsLookup(HostEdit.Text);

end;



procedure TForm1.Ping1DnsLookupDone(Sender: TObject; Error: Word);

begin

CancelButton.Enabled := FALSE;

PingButton.Enabled := TRUE;



if Error <> 0 then begin

DisplayMemo.Lines.Add('Unknown Host ''' + HostEdit.Text + '''');

Exit;

end;



DisplayMemo.Lines.Add('Host ''' + HostEdit.Text + ''' is ' + Ping1.DnsResult);

Ping1.Address := Ping1.DnsResult;

Ping1.Ping;

end;



procedure TForm1.Ping1Display(Sender: TObject; Msg: String);

begin

DisplayMemo.Lines.Add(Msg);

end;



procedure TForm1.cancelbuttonClick(Sender: TObject);

begin

Ping1.CancelDnsLookup;

end;



procedure TForm1.Ping1EchoRequest(Sender: TObject);

begin

DisplayMemo.Lines.Add('Sending ' + IntToStr(Ping1.Size) + ' bytes to ' +

Ping1.HostName + ' (' + Ping1.HostIP + ')');

end;



procedure TForm1.Ping1EchoReply(Sender: TObject; Error: Integer);

begin

if Error = 0 then

edit1.text := '접속 확인하세요.'

{DisplayMemo.Lines.Add('Cannot ping host (' + Ping1.HostIP + ') : ' +

Ping1.ErrorString) }

else

edit1.text := '접속중입니다';

{ DisplayMemo.Lines.Add('Received ' + IntToStr(Ping1.Reply.DataSize) +

' bytes from ' + Ping1.HostIP +

' in ' + IntToStr(Ping1.Reply.RTT) + ' msecs');}

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

Ping1.DnsLookup(HostEdit.Text);

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

hostedit.text:= '11.11.11.1';

end;



끝까지 봐주셔서 감사해요 ^^