易语言套接字WEB服务器源码

系统结构:ERecv,HTTP协议处理,取请求信息,返回文档类型,WSAStartup,socket,htons,inet_addr,bind,listen,accept,recv,WSACleanup,send,CreateThread,closesocket,lstrlen,getpeername,inet_ntoa,ntohs,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ ERecv
           |  |
           |  |------ HTTP协议处理
           |  |
           |  |------ 取请求信息
           |  |
           |  |------ 返回文档类型
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   WSAStartup
           |  |
           |  |---[dll]------   socket
           |  |
           |  |---[dll]------   htons
           |  |
           |  |---[dll]------   inet_addr
           |  |
           |  |---[dll]------   bind
           |  |
           |  |---[dll]------   listen
           |  |
           |  |---[dll]------   accept
           |  |
           |  |---[dll]------   recv
           |  |
           |  |---[dll]------   WSACleanup
           |  |
           |  |---[dll]------   send
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   closesocket
           |  |
           |  |---[dll]------   lstrlen
           |  |
           |  |---[dll]------   getpeername
           |  |
           |  |---[dll]------   inet_ntoa
           |  |
           |  |---[dll]------   ntohs

调用的DLL命令:

.DLL命令 WSAStartup, 整数型, "ws2_32", "WSAStartup"
    .参数 wVersionRequested, 短整数型
    .参数 lpWSAData, 套接字信息

.DLL命令 socket, 整数型, "ws2_32", "socket"
    .参数 af, 整数型
    .参数 type, 整数型
    .参数 protocol, 整数型

.DLL命令 htons, 短整数型, "ws2_32", "htons"
    .参数 hostshort, 短整数型

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

.DLL命令 bind, 整数型, "ws2_32.dll", "bind", , 绑定一个地址和端口
    .参数 套接字描述符, 整数型
    .参数 地址结构, 套接字地址, 传址, 地址信息
    .参数 结构大小, 整数型, , 地址信息长度(长度16

.DLL命令 listen, 整数型, "ws2_32", "listen"
    .参数 s, 整数型
    .参数 backlog, 整数型

.DLL命令 accept, 整数型, "ws2_32.dll", "accept", , 等待用户进入并接受连接
    .参数 s, 整数型, , 套接字描述符
    .参数 addr, 套接字地址, 传址, 地址信息
    .参数 addrlen, 整数型, 传址, 地址信息长度（长度为16）

.DLL命令 recv, 整数型, "ws2_32.dll", "recv", , 接收字节集数据(TCP，当数据这次未接收完时返回剩余字节数)
    .参数 网络通讯标识符, 整数型, , s
    .参数 缓冲区, 字节集, 传址, buf数据(提供变量)
    .参数 缓冲区长度, 整数型, , lLen
    .参数 标志, 整数型, , flags

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

.DLL命令 send, 整数型, "ws2_32.dll", "send", , 发送数据_(TCP，当这次发送数据未发送完时返回剩余字节数)
    .参数 网络通讯标识符, 整数型, , s
    .参数 缓冲区, 字节集, 传址, buf
    .参数 缓冲区长度, 整数型, , lLen
    .参数 标志, 整数型, , flags

.DLL命令 CreateThread, 整数型, "kernel32", "CreateThread"
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型

.DLL命令 closesocket, 整数型, "ws2_32", "closesocket"
    .参数 s, 整数型

.DLL命令 lstrlen, 整数型, "kernel32", "lstrlenA"
    .参数 lpString, 文本型

.DLL命令 getpeername, 整数型, "ws2_32.dll", "getpeername", , 获取远端信息（已连接对方IP和端口）。成功返回0
    .参数 s, 整数型, , 句柄
    .参数 name, 套接字地址, 传址, 地址信息
    .参数 namelen, 整数型, 传址, name长度,Sockaddr_in长度为16

.DLL命令 inet_ntoa, 整数型, "ws2_32.dll", "inet_ntoa", , 将整数格式IP地址转换为点数格式（返回值是内存地址指针）
    .参数 网络地址, 整数型, , lIn欲转换整数格式IP地址

.DLL命令 ntohs, 短整数型, "ws2_32.dll", "ntohs", , 转换为端口号-网络转换到本机
    .参数 十六位网络端口, 短整数型, , netshort欲转换值