Sockets getpeername（）始终失败，错误代码为WSAENOTCONN_Sockets_Tcp_Network Programming

Sockets getpeername（）始终失败，错误代码为WSAENOTCONN

sockets tcp network-programming

Sockets getpeername（）始终失败，错误代码为WSAENOTCONN,sockets,tcp,network-programming,Sockets,Tcp,Network Programming,我正在尝试使用，以确保连接后可以获得对等信息它失败于： WSAENOTCON（10057）插座未连接不允许发送或接收数据的请求，因为套接字未连接，并且（使用sendto在数据报套接字上发送时）未提供地址基本流程是： WSAStartup socket（） connect（） getpeerinfo（）我做错了什么 program Project1; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, Winapi.W

我正在尝试使用，以确保连接后可以获得对等信息

它失败于：

WSAENOTCON

（10057）

插座未连接

不允许发送或接收数据的请求，因为套接字未连接，并且（使用sendto在数据报套接字上发送时）未提供地址

基本流程是：

```
WSAStartup
```
```
socket（）
```
```
connect（）
```
```
getpeerinfo（）
```

我做错了什么

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Winapi.Winsock2;

procedure Main;
var
    hSocket: TSocket;
    wsData: TWSAData;
    nodeName: string;
    serviceName: string;
    localAddressLength: Cardinal;
    localAddress: TSockAddr;
    remoteAddressLength: Cardinal;
    remoteAddress: TSockAddr;
    name: TSockAddr;
    nameLen: Integer;
    errorCode: Integer;
    bRes: Boolean;
begin
    WSAStartup($0202, {var}wsData);

    hSocket := socket(AF_INET, SOCK_STREAM, 0);

    nodeName := 'stackoverflow.com';
    serviceName := '80';

    bRes := WSAConnectByNameW(hSocket, PChar(nodeName), PChar(serviceName),
            {var}localAddressLength, {var}localAddress,
            {var}remoteAddressLength, {var}remoteAddress,
            nil, nil);
    if not bRes then
    begin
        errorCode := WSAGetLastError;
        RaiseLastOSError(errorCode);
    end;

    //If no error occurs, getpeername returns zero.
    //Otherwise, a value of SOCKET_ERROR is returned,
    //and a specific error code can be retrieved by calling WSAGetLastError.
    nameLen := sizeof(name);
    errorCode := getpeername(hSocket, {var}name, {var}nameLen);
    if errorCode <> 0 then
    begin
        errorCode := WSAGetLastError;
        RaiseLastOSError(errorCode);
    end;
end;

begin
    try
        Main;
    except
        on E: Exception do
            Writeln(E.ClassName, ': ', E.Message);
    end;
end.

程序项目1；
{$APPTYPE控制台}
{$R*.res}
使用
System.SysUtils，
Winapi.Winsock2；
主程序；
变量
hSocket:TSocket；
wsData:TWSAData；
nodeName：字符串；
serviceName:string；
localAddressLength：基数；
本地地址：TSockAddr；
remoteAddressLength：基数；
远程地址：TSockAddr；
名称：TSockAddr；
nameLen：整数；
错误代码：整数；
bRes：布尔型；
开始
WSAStartup（$0202，{var}wsData）；
hSocket:=套接字（AF\u INET，SOCK\u STREAM，0）；
nodeName:=“stackoverflow.com”；
服务名称：='80'；
bRes:=WSAConnectByNameW（hSocket、PChar（nodeName）、PChar（serviceName），
{var}localAddressLength，{var}localAddress，
{var}remoteAddressLength，{var}remoteAddress，
零,零),；
如果不是bRes，那么
开始
错误代码：=WSAGetLastError；
RAISELASTERROR（错误代码）；
结束；
//如果没有发生错误，getpeername将返回零。
//否则，将返回SOCKET_ERROR的值，
//并且可以通过调用WSAGetLastError检索特定的错误代码。
nameLen:=sizeof（名称）；
错误代码：=getpeername（hSocket，{var}name，{var}nameLen）；
如果错误代码为0，则
开始
错误代码：=WSAGetLastError；
RAISELASTERROR（错误代码）；
结束；
结束；
开始
尝试
主要的；
除了
关于E:Exception-do
Writeln（E.ClassName，“：”，E.Message）；
结束；
结束。

我们知道连接已连接，因为：

我们刚刚接通
我们没有检查插座是否连接

额外阅读

WSAConnectByName

套接字
s
在套接字上设置SO\u UPDATE\u CONNECT\u上下文之前，不会启用以前设置的属性或选项。

WSAConnectByNameW（）

getpeername（）

WSAENOTCONN

setsockopt（So\u UPDATE\u CONNECT\u CONTEXT）

ConnectEx

WSAConnectByList

和
WSAConnectByName

如果要在连接的套接字上使用
getpeername
、
getsockname
、
getsockopt
、
setsockopt
或
shutdown
功能，则应设置此选项。

bRes:=WSAConnectByNameW（hSocket、PChar（nodeName）、PChar（serviceName），
{var}localAddressLength，{var}localAddress，
{var}remoteAddressLength，{var}remoteAddress，
零,零),；
如果不是bRes，那么
开始
错误代码：=WSAGetLastError；
RAISELASTERROR（错误代码）；
结束；
//加上这个。。
错误代码：=setsockopt（hSocket，SOL_SOCKET，SO_UPDATE_CONNECT_CONTEXT，nil，0）；
如果错误代码为0，则
开始
错误代码：=WSAGetLastError；
RAISELASTERROR（错误代码）；
结束；
...

getpeername（）

WSAConnectByNameW（）

RemoteAddress

recv（）

WSAAsyncSelect

WSAConnectByName

Socket

connect

connectEx

WSAConnectByName

WSAConnectByList

connect（）

accept（）

ConnectEx（）

WSAConnectByList（）

WSAConnectByName（）

AcceptEx（）