Hello, I'm trying to write a quick/dirty echoserver in Delphi, but I notice that GetAcceptExSockaddrs seems to be writing to only the first 4 bytes of the structure I pass it.

    USES SysUtils; 


    TYPE 
    BOOL = LongBool; 
    DWORD = Cardinal; 
    LPDWORD = ^DWORD; 
    short = SmallInt; 
    ushort = Word; 
    uint16 = Word; 
    uint = Cardinal; 
    ulong = Cardinal; 
    SOCKET = uint; 
    PVOID = Pointer; 
    _HANDLE = DWORD; 


    _in_addr = packed record 
            s_addr : ulong; 
    end; 

    _sockaddr_in = packed record 
            sin_family : short; 
            sin_port : uint16; 
            sin_addr : _in_addr; 
            sin_zero : array[0..7] of Char; 
    end; 
    P_sockaddr_in = ^_sockaddr_in; 

    _Overlapped = packed record 
            Internal : Int64; 
            Offset : Int64; 
            hEvent : _HANDLE; 
    end; 
    LP_Overlapped = ^_Overlapped; 


    IMPORTS 
    function _AcceptEx (sListenSocket, sAcceptSocket : SOCKET; lpOutputBuffer : PVOID; dwReceiveDataLength, dwLocalAddressLength, dwRemoteAddressLength : DWORD; lpdwBytesReceived : LPDWORD; lpOverlapped : LP_OVERLAPPED) : BOOL; stdcall; external MSWinsock name 'AcceptEx'; 

    procedure _GetAcceptExSockaddrs (lpOutputBuffer : PVOID; dwReceiveDataLength, dwLocalAddressLength, dwRemoteAddressLength : DWORD; LocalSockaddr : P_Sockaddr_in; LocalSockaddrLength : LPINT; RemoteSockaddr : P_Sockaddr_in; RemoteSockaddrLength : LPINT); stdcall; external MSWinsock name 'GetAcceptExSockaddrs'; 


    CONST 
    BufDataSize = 8192; 
    BufAddrSize = SizeOf (_sockaddr_in) + 16; 


    VAR 
    ListenSock, AcceptSock : SOCKET; 
    Addr, LocalAddr, RemoteAddr : _sockaddr_in; 
    LocalAddrSize, RemoteAddrSize : INT; 
    Buf : array[1..BufDataSize + BufAddrSize * 2] of Byte; 
    BytesReceived : DWORD; 
    Ov : _Overlapped; 

    BEGIN 
    //WSAStartup, create listen socket, bind to port 1066 on any interface, listen 
    //Create event for overlapped (autoreset, initally not signalled) 
    //Create accept socket 
    if _AcceptEx (ListenSock, AcceptSock, @Buf, BufDataSize, BufAddrSize, BufAddrSize, @BytesReceived, @Ov) then 
            WinCheck ('SetEvent', _SetEvent (Ov.hEvent)) 
    else 
            if GetLastError <> ERROR_IO_PENDING then 
                    WinCheck ('AcceptEx', GetLastError); 

    {do WaitForMultipleObjects} 

    _GetAcceptExSockaddrs (@Buf, BufDataSize, BufAddrSize, BufAddrSize, @LocalAddr, @LocalAddrSize, @RemoteAddr, @RemoteAddrSize); 

So if I run this, connect to it with Telnet (on same computer, connecting to localhost) and then type a key, WaitForMultipleObjects will unblock and GetAcceptExSockaddrs will run. But the result is garbage!

RemoteAddr.sin_family = -13894 
RemoteAddr.sin_port = 64 

and the rest is zeroes.

What gives? Thanks in advance!