Powerbuilder 使用Socket函数发送数据

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

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

PowerBuilder 测试代码：

 

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