DECLARE LONG  setsockopt IN "Ws2_32" long s ,long level,long optname ,long optval ,long optlen  &&"wsock32.dll"
DECLARE LONG  getsockopt IN "Ws2_32" long s ,long level,long optname ,long @optval ,long optlen&&"wsock32.dll"
#define  SOL_SOCKET  65535
#define SO_REUSEADDR 0x0004

setsockopt(Thisform.tcpClient.OBJECT.SocketHandle, SOL_SOCKET, SO_REUSEADDR, 1, 1)

C语言使用如下
*!*        int on = 1;
*!*        setsockopt(listenfd, SOL_SOCKET, SO_REUSEADDR, &on, sizeof(on));



为了解决Address in use C:\Windows\SysWOW64\mswinsck.ocx

[此贴子已经被作者于2023-8-28 09:32编辑过]

char*类型 在VFP中怎么写？

//C++代码 dll.h
#ifndef LIB_H
#define LIB_H
extern "C" _declspec(dllexport) char* enciphering(char *ch,int &key);
extern "C" _declspec(dllexport) char* deciphering(char *ch,int &key);
#endif

 
//C++代码 Sercret.cpp
#include <iostream>
#include "dll.h"
using namespace std;
char* enciphering(char *ch,int &key)
{
    char *str=new char[100];
    int i=0,x;
    bool decide=true;
    while(ch[i])
    {
        if(ch[i]>='a'&&ch[i]<='z')
        {
            x = ch[i] + i + key + 1;
            while(decide)
            {
                if(x>'z')
                    x-=26;
                else
                    decide=false;
            }
            decide=true;
            str[i]=x;
        }
        else
            str[i]=ch[i];
        i++;
    }
    return str;
}
char* deciphering(char *ch,int &key)
{
    char *str=new char[100];
    int i=0,x;
    bool decide=true;
    while(ch[i])
    {
        if(ch[i]>='a'&&ch[i]<='z')
        {
            x=ch[i]-i-1-key;
            while(decide)
            {
                if(x<'a')
                    x+=26;
                else
                    decide=false;
            }
            decide=true;
            str[i]=x;
        }
        else
str[i]=ch[i];
        i++;
    }
    return str;
}

 

//编译后dll被VFP调用
Declare String enciphering in s_sercret.dll String @, Integer @
Declare String deciphering in s_sercret.dll String @, Integer @

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


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


这样写？

是不是UDP协议无效果？
optval= REPLICATE(0h00,4)
setsockopt( this.obJECT.SocketHandle, SOL_SOCKET, SO_REUSEADDR, bintoc(1,"4rs")  , 4)
?getsockopt(this.obJECT.SocketHandle, SOL_SOCKET, SO_REUSEADDR,@optval, 4),optval

返回-1

#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编辑过]

WSAGetLastError() 返回0

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

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 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