#define  SOL_SOCKET  65535  && 1也没用
#define SO_REUSEADDR   0x0004
#define SO_SNDBUF       7
#define SO_RCVBUF       8

optval= REPLICATE(0h00,4)
?setsockopt( this.obJECT.SocketHandle, SOL_SOCKET, SO_REUSEADDR ,bintoc(1,"4rs")  , 4) &&
? this.obJECT.SocketHandle,WSAGetLastError()
?getsockopt(this.obJECT.SocketHandle, SOL_SOCKET, SO_REUSEADDR,@optval, 4),optval
?WSAGetLastError()
?getsockopt(this.obJECT.SocketHandle,SOL_SOCKET,SO_RCVBUF,@optval,4),optval

返回：
0
1376,0
-1
0
-1

[此贴子已经被作者于2023-9-1 15:01编辑过]

if getsockopt(this.obJECT.SocketHandle, SOL_SOCKET, SO_REUSEADDR,@optval, 4) == -1
    ? WSAGetLastError()
endif

WSAGetLastError() 返回0

可能不只是get.....的问题，往前找是不是也有异常的地方。

DECLARE LONG WSAGetLastError IN "Ws2_32"
DECLARE LONG  setsockopt IN "Ws2_32"  s long,level long,optname long ,optval long,optlen long
DECLARE LONG  getsockopt IN "Ws2_32" long s ,long level,long optname ,string @optval ,long optlen

#define SOL_SOCKET 1
#define SO_REUSEADDR 0x0004
 
#define SO_SNDBUF       7
#define SO_RCVBUF       8

Thisform.tcpServer.LocalPort = 1001
Thisform.tcpServer.Listen

optval= REPLICATE(0h00,4)


iok=getsockopt(this.obJECT.SocketHandle, SOL_SOCKET, SO_REUSEADDR,@optval, 4)
?iok,"ok"
if iok== -1
    MESSAGEBOX( WSAGetLastError() )
endif

getsockopt声明是不是有问题？
原型：
int getsockopt(
  [in]      SOCKET s,
  [in]      int    level,
  [in]      int    optname,
  [out]     char   *optval,
  [in, out] int    *optlen
);
注意：optlen 是in/out（输入/输出）的int*（整型指针）类型

optlen=4
optval= REPLICATE(0h00,4)
?setsockopt( this.obJECT.SocketHandle, SOL_SOCKET, SO_REUSEADDR ,bintoc(1,"4rs")  , @optlen) &&
? this.obJECT.SocketHandle,WSAGetLastError()
?getsockopt(this.obJECT.SocketHandle, SOL_SOCKET, SO_REUSEADDR,@optval, @optlen),optval,WSAGetLastError()

这句子可以
-----------------

但下面的设置接收缓存不行，是不是UDP不能设置
optval= 0h00200000
optlen=LEN(optval)
?setsockopt(this.obJECT.SocketHandle,SOL_SOCKET,SO_RCVBUF,@optval,@optlen)
?getsockopt(this.obJECT.SocketHandle,SOL_SOCKET,SO_RCVBUF,@optval,@optlen),optval

不清楚 DECLARE - DLL 具体情况
要注意的是：不同的参数类型 DECLARE - DLL 声明也不同

DECLARE LONG  setsockopt IN "Ws2_32" long s ,long level,long optname ,string @optval ,long @optlen  &&"wsock32.dll"
DECLARE LONG  getsockopt IN "Ws2_32" long s ,long level,long optname ,string @optval ,long @optlen&&"wsock32.dll"
DECLARE LONG WSAGetLastError IN "Ws2_32"

#define  SOL_SOCKET  65535

#define SO_SNDBUF       7
#define SO_RCVBUF       8

optval=  0h00200000
optlen= len(optval)
?setsockopt(this.obJECT.SocketHandle,SOL_SOCKET,SO_RCVBUF,@optval,@optlen)
?getsockopt(this.obJECT.SocketHandle,SOL_SOCKET,SO_RCVBUF,@optval,@optlen),optval

DECLARE LONG  setsockopt IN "Ws2_32" long s ,long level,long optname ,string @optval ,long optlen
DECLARE LONG  getsockopt IN "Ws2_32" long s ,long level,long optname ,string @optval ,long @optlen

setsockopt(this.obJECT.SocketHandle,SOL_SOCKET,SO_RCVBUF,@optval,optlen)
getsockopt(this.obJECT.SocketHandle,SOL_SOCKET,SO_RCVBUF,@optval,@optlen)