* 接收到数据包
    PROCEDURE _RecvData
        LPARAMETERS _hSocket
        LOCAL szReadBuf, nDataLen
        szReadBuf = SPACE(32768)    && 32 * 1024
        nDataLen = recv(_hSocket, @szReadBuf, LEN(szReadBuf), 0)
        IF nDataLen > 0
            szReadBuf = LEFT(szReadBuf, nDataLen)
            this._OnRead(_hSocket, szReadBuf)
        ENDIF
        closesocket(_hSocket)
    ENDPROC

这里要加一个循环吗？

[此贴子已经被作者于2023-8-13 14:54编辑过]

“大了后后台 没了”什么意思

如果POST  超过23*1024 就接收不到

还有一个问题，服务器接收到数据，能不能知道对方的IP

定义的数据缓冲是23*1024，不够可以加足够大。
IP在包头，这里socket用的协议不处理包头。
socket(AF_INET, SOCK_RAW, IPPROTO_IP)，这个可以处理包头，现在不知还好不好使。

        stSockAddr = REPLICATE(0h00, 16)
        nSize      = LEN(stSockAddr)
        _hSocket = accept(_hSocket, @stSockAddr, @nSize)

stSockAddr这个有返回，怎么转化为字符中

0h00改用chr(0)

stSockAddr =REPLICATE(CHR(0), 16) 还是乱码


这样的编码如何转化为IP
0200FAEFC0A80B0E0000000000000

每次执行会变，是不是内存变量？

[此贴子已经被作者于2023-8-13 21:07编辑过]

sockaddr是结构体，使用不同的协议其含义不同。
参考：https://learn.

struct sockaddr {
        ushort  sa_family;
        char    sa_data[14];
};

struct sockaddr_in {
        short   sin_family;
        u_short sin_port;
        struct  in_addr sin_addr;
        char    sin_zero[8];
};


DECLARE LONG inet_ntoa IN "Ws2_32" LONG
 SYS(2600,inet_ntoa (CTOBIN(SUBSTR(stSockAddr,5,4), "4RS") ) ,16)

LEFT(szIP, AT(0h00, szIP)-1)

---------------------------------------------------------------------
    * 取IP地址
    * SYS(2600, lpIP地址, 4)返回 in_addr 结构指针
    nIP = CTOBIN(SYS(2600, lpIP地址, 4), "4RS")
    * 转换成“.”分隔字串（xxx.xxx.xxx.xxx）
    * inet_ntoa()返回IP字符串指针
    szIP = SYS(2600, inet_ntoa(nIP), 16)
*!*        ?sz域名,szIP
   
    szIP = LEFT(szIP, AT(0h00, szIP)-1)

    nlen = ALEN(aIP) + 1
    DIMENSION aIP(nlen)
    aIP[nlen] = szIP


还是用如下取法
Substr(lpBuffer,lnOffs,4))

  Asc(Substr(lcBuffer,1,1))+;
        Asc(Substr(lcBuffer,2,1))*256+;
        Asc(Substr(lcBuffer,3,1))*65536+;
        Asc(Substr(lcBuffer,4,1))*16777216

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

这样看看应该可以理解

*    struct in_addr {
*        in_addr_t s_addr;    [color=#808080]//32位无符号整数[/color]
*    }
DECLARE long strlen    IN msvcrt long
DECLARE long inet_addr IN ws2_32 string    && in_addr_t inet_addr(const char* cp)
DECLARE long inet_ntoa IN ws2_32 long      && char*     inet_ntoa(struct in_addr)
ip = "192.168.1.2"
sin_addr = inet_addr(ip)
p = inet_ntoa(sin_addr)
? SYS(2600,p,strlen(p))
? TRANSFORM(BITAND(sin_addr,0xFF))               +"."+;
  TRANSFORM(BITAND(BITRSHIFT(sin_addr,8), 0xFF)) +"."+;
  TRANSFORM(BITAND(BITRSHIFT(sin_addr,16),0xFF)) +"."+;
  TRANSFORM(BITAND(BITRSHIFT(sin_addr,24),0xFF))