[twsocket] TWSocket and IPv6 and getaddrinfo

[asvetov]

Hello all!

I investigate a little in IPv6 and make first steps. First thing on my roadmap 
is getaddrinfo. Can somebody look at code below and tell me whats wrong? 
It wotks on Windows XP, but not on Windows 2008. I always get 11001.


Thanks for any help & best Regards, Alexander Svetov

        ...
        
   in6_addr = record
      s6_addr : array[0..15] of u_char;
   end;
   TInAddr6 = in6_addr;

   sockaddr_in6 = record
      sin6_family: short;
      sin6_port: u_short;
      sin6_flowinfo: u_long;
      sin6_addr: TInAddr6;
      sin6_scope_id: u_long;
   end;
   TSockAddrIn6 = sockaddr_in6;

        // see http://msdn.microsoft.com/en-us/library/ms737530(VS.85).aspx
        // for information about getaddrinfo
        
   PAddrInfo = ^TAddrInfo;
        TAddrInfo = record
        ai_flags: integer;
      ai_family: integer;
      ai_socktype: integer;
      ai_protocol: integer;
      ai_addrlen: integer;
      ai_canonname: PChar;
      ai_addr: PSockAddr;
      ai_next: PAddrInfo;
   end;


        function getaddrinfo(const NodeName, ServName: PChar; const Hints: 
PAddrInfo; var Addrinfo: PAddrInfo): integer; stdcall; external 'ws2_32.dll';
   procedure freeaddrinfo(ai: PAddrInfo); stdcall; external 'ws2_32.dll';
        function connect6(s: TSocket; const name: sockaddr_in6; namelen: 
Integer): integer; stdcall; external 'ws2_32.dll' name 'connect';

        ...

var
   S: TSocket;
   SData: TWSAData;
   RetVal: integer;
   Hints: TAddrInfo;
   Addr: PAddrInfo;
   IP4Addr: TSockAddrIn;
   IP6Addr: TSockAddrIn6;
const
   hostname = 'localhost';
begin
   WSAStartup($0202, SData);

   ZeroMemory(@Hints, sizeof(Hints));
   Hints.ai_family := AF_UNSPEC;
   Hints.ai_socktype := SOCK_STREAM;
   Hints.ai_protocol := IPPROTO_TCP;
   // Hints.ai_flags := AI_NUMERICHOST; // if we want to convert IP to sockaddr.

   RetVal := GetAddrInfo(hostname, '80', @Hints, Addr);
   if Retval = 0 then // success
   begin
        if (Addr <> nil) then  Move(Addr^.ai_addr^, IP6Addr, Addr^.ai_addrlen);
   end
   else
   begin
      showmessage(inttostr(RetVal) + '  ' + SysErrorMessage(Retval));
   end;

   freeaddrinfo(addr);

   S := Socket(AF_INET, SOCK_STREAM, IPPROTO_IP);

   RetVal := connect6(S, IP6Addr, SizeOf(TSockAddrIn6));
   if Retval = 0 then // success
   begin
      showmessage('connect');
   end
   else
   begin
      showmessage(inttostr(RetVal) + '  ' + SysErrorMessage(Retval));
   end;

   CloseSocket(S);

   WSACleanUp;
end;
-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be