Powerbuilder 10.5 使用Socket函数发送数据

今天想使用pb10来操作socket函数， 

 在这里写个测试代码，以作备用。

PowerBuilder10.5 测试代码：

 API函数声明 

FUNCTION Long WSAStartup ( Integer wVersionRequired, REF WSADATA lpWSAData) LIBRARY "ws2_32.dll" ALIAS FOR "WSAStartup;ansi"
FUNCTION Long WSACleanup( ) LIBRARY "ws2_32.dll"
FUNCTION Long bind ( Long s, REF sockaddr addr, Long namelen) LIBRARY "ws2_32.dll" ALIAS FOR "bind;ansi"
FUNCTION Long socket ( Long af, Long lType, Long protocol) LIBRARY "ws2_32.dll" ALIAS FOR "socket;ansi"
FUNCTION Long wsconnect ( Long s, REF SOCKADDR_IN name, Long namelen) LIBRARY "ws2_32.dll"  ALIAS FOR "connect;ansi"
FUNCTION Long wsrecv( Long s, ref String buf, Long lLen, Long flags) LIBRARY "ws2_32.dll" ALIAS FOR "recv;ansi"
FUNCTION Long closesocket ( Long s) LIBRARY "ws2_32.dll" ALIAS FOR "closesocket;ansi"
FUNCTION Long wssend ( Long s, String buf, Long lLen, Long flags) LIBRARY "ws2_32.dll" ALIAS FOR "send;ansi"
FUNCTION Integer htons ( Integer hostshort) LIBRARY "ws2_32.dll" LIBRARY "ws2_32.dll" ALIAS FOR "htons;ansi"
FUNCTION Long inet_addr (   String cp) LIBRARY "ws2_32.dll" ALIAS FOR "inet_addr;ansi"

PB测试代码

 wsadata ws 
 sockaddr addr
 
 
 if bStart = true then return 
 
 bStart = true 
 
 //初始socket
 WSAStartup(258,ws)
 ulong sockClient
 

sockClient=socket(2,1,0);// AF_INET ..tcp连接
    //初始化连接与端口号
SOCKADDR_IN addrSrv;
addrSrv.sin_addr.S_un.S_addr= inet_addr("127.0.0.1");//本机地址，服务器在本机开启
addrSrv.sin_family=2;
addrSrv.sin_port= htons(6000);// 设置端口号

//连接到服务器
wsconnect(sockClient, addrSrv,16);//连接服务器

//接收数据
string  recvBuf;
recvBuf = space(500)
WsRecv(sockClient,recvBuf,500,0);//接受数据
lb_1.additem(string(now(),'hh:mm:ss') + " " + string(recvbuf))

//发送数据
string data 
data =   string(now(),'hh:mm:ss') +" " + sle_1.text 
WsSend(sockClient,data,lena(data)   ,0);//发送数据
closesocket(sockClient);//关闭连接

//退出socket
WSACleanup();
	  
	  
bStart = false 

 VC++服务器端测试代码：

现成的源代码

Powerbuilder10.5调用socket-C++文档类资源-CSDN下载