GetAcceptExSockaddrs 返回垃圾！有谁知道为什么？

Question

[我已遵循使用 Winsock.pas 的建议，但它仍然会写入垃圾 - 尽管 sin_family 字段已更改为新的垃圾值。]

你好，我正在尝试在 Delphi 中编写一个快速/肮脏的 echoserver，但是我 请注意，GetAcceptExSockaddrs 似乎只写入前 4 个 我传递给它的结构的字节。

program TCPEcho;
{$APPTYPE CONSOLE}

uses Windows, SysUtils, Winsock;
type INT = SmallInt;

const
    BufDataSize = 8192;
    BufAddrSize = SizeOf (TSockAddrIn) + 16;
var
    WSAData : TWSAData;
    ListenSock, AcceptSock : TSocket;
    Addr, LocalAddr, RemoteAddr : TSockAddrIn;
    LocalAddrSize, RemoteAddrSize : Integer;
    Ov : OVERLAPPED;
    Buf : array[1..BufDataSize + BufAddrSize * 2] of Byte;
    BytesReceived : DWORD;
begin
    FillChar (WSAData, SizeOf (WSAData), 0);
    WSAStartup (2, WSAData);

    ListenSock := ValidSocketCheck ('Socket', Socket (AF_INET, SOCK_STREAM, IPPROTO_TCP));

    FillChar (Addr, SizeOf (Addr), 0);
    Addr.sin_family := AF_INET;
    Addr.sin_port := HToNS (1066);
    Addr.sin_addr.s_addr := HToNL (INADDR_ANY);
    SocketCheck ('bind', bind (ListenSock, Addr, SizeOf (Addr)));

    SocketCheck ('Listen', Listen (ListenSock, 3));


    FillChar (Ov, SizeOf (Ov), 0);
    Ov.hEvent := HandleCheck ('CreateEvent', CreateEvent (nil, False, False, nil));

    AcceptSock := ValidSocketCheck ('Socket', Socket (AF_INET, SOCK_STREAM, IPPROTO_TCP));
    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);

    if WaitForMultipleObjects (1, @Ov.hEvent, False, INFINITE) <> WAIT_OBJECT_0 then
        raise Exception.Create ('WFMO');


    GetAcceptExSockaddrs (@Buf, BufDataSize, BufAddrSize, BufAddrSize, LocalAddr, LocalAddrSize, RemoteAddr, RemoteAddrSize);
    WriteLn (RemoteAddr.sin_family);
end.

因此，如果我运行此程序，请使用 Telnet 连接到它（在同一台计算机上， 连接到 localhost），然后键入一个键，WaitForMultipleObjects 将解除阻止并且 GetAcceptExSockaddrs 将运行。 但结果却是垃圾！

RemoteAddr.sin_family = 51618
RemoteAddr.sin_port = 64 

其余的都是零。

什么给？ 提前致谢！

Answer 1

您使用的 Delphi 版本是什么？在任何情况下，不需要对 GetAcceptExSockaddrs 及其参数使用自己的类型定义，请使用 WinSock.pas 单元中的定义；它们至少与您的 unicode Delphi 版本的定义不同。

---

已更新

看起来 GetAcceptExSockaddrs 的定义是错误的。我记得旧的 Delphi 版本在这里包含一个错误。正确的原型（取自Delphi 2009 WinSock.pas）是

procedure GetAcceptExSockaddrs(lpOutputBuffer: Pointer;
  dwReceiveDataLength, dwLocalAddressLength, dwRemoteAddressLength: DWORD;
  var LocalSockaddr: PSockAddr; var LocalSockaddrLength: Integer;
  var RemoteSockaddr: PSockAddr; var RemoteSockaddrLength: Integer); stdcall;

注意LocalSockaddr 和RemoteSockaddr 不是指向结构体的指针，而是指向结构体指针的指针。

Answer 2

如果您使用 mingw 的 GetAcceptExSockaddrs 原型，也会发生同样的情况。它返回垃圾。

而是以与解析 AcceptEx 和 ConnectEx 相同的方式解析 GetAcceptExSockaddrs，即：

#define WSAID_GETACCEPTEXSOCKADDRS { 0xb5367df2,0xcbac,0x11cf,{0x95,0xca,0x00,0x80,0x5f,0x48,0xa1,0x92} }

GUID GuidGetAcceptSockAddrs = WSAID_GETACCEPTEXSOCKADDRS;
DWORD dwBytes;

if ( WSAIoctl( activeSock,
               SIO_GET_EXTENSION_FUNCTION_POINTER,
               &GuidGetAcceptSockAddrs,
               sizeof (GuidGetAcceptSockAddrs),
               &pfnGetAcceptSockAddrs,
               sizeof (pfnGetAcceptSockAddrs),
               &dwBytes,
               NULL,
               NULL ) == SOCKET_ERROR )
{
     ... error ...
}