易语言TCP通讯类源码

系统结构:启动,异步选择,停止,发送数据,取回客户,取客户IP,取回数据,断开客户,Tcp服务器窗口消息处理,Tcp客户端窗口消息处理,Call,连接,异步选择,断开连接,发送数据,取回数据,WSAStartup,WSACleanup,socket,closesocket,htons,inet_addr,bind,listen,WSAAsyncSelect,SetWindowLong,CallWindowProc,accept,getpeername,inet_ntoa,recv,send,connect,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======Tcp服务器类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 启动
           |  |
           |  |------ 异步选择
           |  |
           |  |------ 停止
           |  |
           |  |------ 发送数据
           |  |
           |  |------ 取回客户
           |  |
           |  |------ 取客户IP
           |  |
           |  |------ 取回数据
           |  |
           |  |------ 断开客户
           |  |
           |  |
======窗口消息程序集
           |  |
           |  |------ Tcp服务器窗口消息处理
           |  |
           |  |------ Tcp客户端窗口消息处理
           |  |
           |  |------ _Call
           |  |
           |  |------ Call
           |  |
           |  |
======Tcp客户端类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 连接
           |  |
           |  |------ 异步选择
           |  |
           |  |------ 断开连接
           |  |
           |  |------ 发送数据
           |  |
           |  |------ 取回数据
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   WSAStartup
           |  |
           |  |---[dll]------   WSACleanup
           |  |
           |  |---[dll]------   socket
           |  |
           |  |---[dll]------   closesocket
           |  |
           |  |---[dll]------   htons
           |  |
           |  |---[dll]------   inet_addr
           |  |
           |  |---[dll]------   bind
           |  |
           |  |---[dll]------   listen
           |  |
           |  |---[dll]------   WSAAsyncSelect
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   accept
           |  |
           |  |---[dll]------   getpeername
           |  |
           |  |---[dll]------   inet_ntoa
           |  |
           |  |---[dll]------   recv
           |  |
           |  |---[dll]------   send
           |  |
           |  |---[dll]------   connect

调用的DLL命令:

.DLL命令 WSAStartup, 整数型, "ws2_32.dll", "WSAStartup"
    .参数 wVersionRequired, 整数型, , 必需版本
    .参数 lpWSADtata, WSADtataType, , 服务信息

.DLL命令 WSACleanup, 整数型, "ws2_32.dll", "WSACleanup"

.DLL命令 socket, 整数型, "ws2_32.dll", "socket", , 创建套接字
    .参数 af, 整数型
    .参数 lType, 整数型
    .参数 protocol, 整数型

.DLL命令 closesocket, 整数型, "ws2_32.dll", "closesocket", , 销毁套接字
    .参数 s, 整数型

.DLL命令 htons, 短整数型, "ws2_32.dll", "htons", , 转换为network 排列方式的数目
    .参数 hostshort, 短整数型

.DLL命令 inet_addr, 整数型, "ws2_32.dll", "inet_addr", , 点数格式转换为整数格式IP地址-到网络地址_
    .参数 cp, 文本型, 传址

.DLL命令 bind, 整数型, "ws2_32.dll", "bind", , 绑定一个地址和端口
    .参数 s, 整数型
    .参数 name, sockaddr, 传址
    .参数 namelen, 整数型

.DLL命令 listen, 整数型, "ws2_32.dll", "listen", , 监听
    .参数 sockfd, 整数型
    .参数 backlog, 整数型

.DLL命令 WSAAsyncSelect, 整数型, "ws2_32.dll", "WSAAsyncSelect"
    .参数 s, 整数型
    .参数 hWnd, 整数型, , 窗口句柄
    .参数 wMsg, 整数型, , 消息值
    .参数 lEvent, 整数型, , 事件

.DLL命令 SetWindowLong, 整数型, "user32.dll", "SetWindowLongA"
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 CallWindowProc, 整数型, "user32.dll", "CallWindowProcA"
    .参数 lpPrevWndFunc, 整数型
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 accept, 整数型, "ws2_32.dll", "accept"
    .参数 s, 整数型
    .参数 addr, sockaddr, 传址
    .参数 addrlen, 整数型, 传址

.DLL命令 getpeername, 整数型, "ws2_32.dll", "getpeername"
    .参数 s, 整数型
    .参数 name, sockaddr, 传址
    .参数 namelen, 整数型, 传址

.DLL命令 inet_ntoa, 整数型, "ws2_32.dll", "inet_ntoa"
    .参数 in, 整数型

.DLL命令 recv, 整数型, "ws2_32.dll", "recv"
    .参数 s, 整数型
    .参数 buf, 字节集, 传址
    .参数 lLen, 整数型
    .参数 flags, 整数型

.DLL命令 send, 整数型, "ws2_32.dll", "send"
    .参数 s, 整数型
    .参数 buf, 字节集, 传址
    .参数 lLen, 整数型
    .参数 flags, 整数型

.DLL命令 connect, 整数型, "ws2_32.dll", "connect"
    .参数 s, 整数型
    .参数 addr, sockaddr
    .参数 namelen, 整数型, , 16