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

* fixes for demise of 6bone and sockets unit changes.

Browse Source 
git-svn-id: trunk@14956 -
This commit is contained in:
marco 2010-02-28 16:26:42 +00:00
parent 18cef789c6
commit 67e16c7472
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,16 +17,16 @@ var
begin begin
setlength(x, 100); setlength(x, 100);
setlength(x,resolvename6('www.6bone.net', x)); setlength(x,resolvename6('whatismyv6.com', x));
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;
sin6_port := shorthosttonet(80); sin6_port := shorthosttonet(80);
sin6_addr.u6_addr16 := x[0]; sin6_addr.u6_addr16 := x[0].u6_addr16;
end; end;
sock := socket(PF_INET6, SOCK_STREAM, 6 {TCP}); sock := fpsocket(PF_INET6, SOCK_STREAM, 6 {TCP});
if Connect(sock, dest, sizeof(dest)) then begin if fpConnect(sock, @dest, sizeof(dest))=0 then begin
sock2text(sock,t1,t2); sock2text(sock,t1,t2);
writeln(t2, 'GET / HTTP/1.0'); writeln(t2, 'GET / HTTP/1.0');
writeln(t2); writeln(t2);
@ -35,7 +35,7 @@ begin
writeln(s); writeln(s);
end; end;
end else begin end else begin
writeln('not connected: ',getlasterror, ': ', StrError(getlasterror)); writeln('not connected: ',socketerror, ': ', StrError(socketerror));
end; end;
closesocket(sock); closesocket(sock);
end. end.