Pinging ::1 times out
also pinging link-local and site-local addresses with and without the
scope_id fails also.
Sorry for the delay in response.
was away for Christmas and New year.
Here is my code that I'm using:
var
Item: TListItem;
Pinger: TPingSend;
PingNum: Integer;
PingTot: Integer;
begin
ListView1.Clear;
Pinger := TPingSend.Create;
try
PingTot := 4;
for PingNum := 1 to PingTot do begin
Application.ProcessMessages;
Pinger.Timeout := 2000;
Pinger.PacketSize := 56;
Pinger.TargetHost := Edit1.Text;
if Pinger.Ping(Edit1.Text) then begin
// Ping was successful
ListView1.Items.BeginUpdate;
Item := ListView1.Items.Add;
Item.Caption := IntToStr(PingNum);
Item.SubItems.Add(Pinger.ReplyFrom);
Item.SubItems.Add(IntToStr(Pinger.PacketSize)+' bytes');
Item.SubItems.Add(IntToStr(Pinger.PingTime)+' ms');
ListView1.Items.EndUpdate;
end
else begin
// Ping failed / timed out.
ListView1.Items.BeginUpdate;
Item := ListView1.Items.Add;
Item.Caption := IntToStr(PingNum);
Item.SubItems.Add(Edit1.Text);
Item.SubItems.Add(IntToStr(Pinger.PacketSize)+' bytes');
Item.SubItems.Add('Timeout');
ListView1.Items.EndUpdate;
end;
Application.ProcessMessages;
end;
finally
Pinger.Free;
end;
----- Original Message -----
From: "Lukas Gebauer" <[EMAIL PROTECTED]>
To: "Ararat Synapse" <[email protected]>
Sent: Tuesday, December 26, 2006 8:23 AM
Subject: Re: [Synalist] TPingSend with IPv6
>> I was under the assumption that (almost) all synapse functions are
>> transparently IPv4 *and* IPv6 capable.
>>
>> However, TPingSend seems to work perfectly using IPv4 addresses, but not
>> IPv6?
>
> It should work with IPv6 too, if I not made somethink broken in latest
> release. (I can verify it at work next year... ;-)
>
>> Is there something special I need to do to ping IPv6 addresses?
>
> As first test you can try to ping to IPv6 localhost by:
>
> ping.ping('::1');
>
> ('ping', is created tpingsend instance)
> Working this?
>
> For some addresses you must specify 'scope_id' too. (Scope Id= Iinterface
> number for link-local addresses, or SITE id for site-local addresses)
>
> So, it can be like (but you must use your address and correct interface
> number):
> ping.ping('FE80::0250:daff:fe67:e7ea%4');
>
>
> --
> Lukas Gebauer.
>
> E-mail: [EMAIL PROTECTED]
> WEB: http://www.ararat.cz/synapse - Synapse Delphi and Kylix TCP/IP
> Library
>
>
>
> -------------------------------------------------------------------------
> Take Surveys. Earn Cash. Influence the Future of IT
> Join SourceForge.net's Techsay panel and you'll get the chance to share
> your
> opinions on IT & business topics through brief surveys - and earn cash
> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
> _______________________________________________
> synalist-public mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/synalist-public
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
