mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-13 19:26:27 +02:00
55 lines
1.0 KiB
ObjectPascal
55 lines
1.0 KiB
ObjectPascal
program ip6test;
|
|
|
|
uses
|
|
sockets,
|
|
unix,
|
|
errors,
|
|
netdb,
|
|
baseunix;
|
|
|
|
var
|
|
dest: TInetSockAddr6;
|
|
sock: LongInt;
|
|
s: shortstring;
|
|
i: integer;
|
|
t1,t2:text;
|
|
x: array of thostaddr6;
|
|
hname : string;
|
|
|
|
Const
|
|
ip6hosttest = 'whatismyv6.com';
|
|
|
|
begin
|
|
hname:=ip6hosttest;
|
|
if paramcount>0 then
|
|
hname:=paramstr(1);
|
|
setlength(x, 100);
|
|
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);
|
|
with dest do begin
|
|
sin6_family := PF_INET6;
|
|
sin6_port := shorthosttonet(80);
|
|
sin6_addr.u6_addr16 := x[0].u6_addr16;
|
|
end;
|
|
sock := fpsocket(PF_INET6, SOCK_STREAM, 6 {TCP});
|
|
|
|
if fpConnect(sock, @dest, sizeof(dest))=0 then begin
|
|
sock2text(sock,t1,t2);
|
|
writeln(t2, 'GET / HTTP/1.0');
|
|
writeln(t2);
|
|
while not eof(t1) do begin
|
|
readln(t1, s);
|
|
writeln(s);
|
|
end;
|
|
end else begin
|
|
writeln('not connected: ',socketerror, ': ', StrError(socketerror));
|
|
end;
|
|
closesocket(sock);
|
|
end.
|