paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ip6test errorhandling fix + parameters. (trying to reproduce mantis 4867)

Browse Source 
git-svn-id: trunk@14957 -
This commit is contained in:
marco 2010-02-28 16:38:45 +00:00
parent 67e16c7472
commit 1f1e7578c9
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/fcl-net/examples/ip6test.pp
View File

@ -14,10 +14,23 @@ var
i: integer; i: integer;
t1,t2:text; t1,t2:text;
x: array of thostaddr6; x: array of thostaddr6;
hname : string;
Const
ip6hosttest = 'whatismyv6.com';
begin begin
hname:=ip6hosttest;
if paramcount>0 then
hname:=paramstr(1);
setlength(x, 100); setlength(x, 100);
setlength(x,resolvename6('whatismyv6.com', x)); i:=resolvename6(hname, x);
if i=-1 then
begin
writeln('Domain not found, ',hname);
halt;
end;
setlength(x,i);
if length(x) = 0 then halt(2); if length(x) = 0 then halt(2);
with dest do begin with dest do begin
sin6_family := PF_INET6; sin6_family := PF_INET6;