易语言数据报类模块源码

系统结构:数据报_数据到达,广播发送,单一发送,接收函数,Call,创建,关闭,发送数据,取回数据,取远程地址,取远程端口,套接字_启动服务_,套接字_创建_,套接字_卸载服务_,套接字_设置选项_,套接字_端口到网络_,套接字_绑定_,套接字_关闭_,启动线程_,申请内存_,释放内存_,套接字_接收From,指针到整数_,套接字_网络到端口_,套接字_网络到IP_,套接字_发送To_,套接字_IP到网络_,内存清零_,

======窗口程序集1
           |  |
           |  |------ _单选框_单一_被单击
           |  |
           |  |------ _单选框_广播_被单击
           |  |
           |  |------ _按钮_创建_被单击
           |  |
           |  |------ 数据报_数据到达
           |  |
           |  |------ _按钮_关闭_被单击
           |  |
           |  |------ _编辑框_发送_按下某键
           |  |
           |  |------ _按钮_发送_被单击
           |  |
           |  |------ 广播发送
           |  |
           |  |------ 单一发送
  ======程序集
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 接收函数
           |  |
           |  |------ Call
           |  |
           |  |
======数据报类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建
           |  |
           |  |------ 关闭
           |  |
           |  |------ 发送数据
           |  |
           |  |------ 取回数据
           |  |
           |  |------ 取远程地址
           |  |
           |  |------ 取远程端口
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   套接字_启动服务_
           |  |
           |  |---[dll]------   套接字_创建_
           |  |
           |  |---[dll]------   套接字_卸载服务_
           |  |
           |  |---[dll]------   套接字_设置选项_
           |  |
           |  |---[dll]------   套接字_端口到网络_
           |  |
           |  |---[dll]------   套接字_绑定_
           |  |
           |  |---[dll]------   套接字_关闭_
           |  |
           |  |---[dll]------   启动线程_
           |  |
           |  |---[dll]------   申请内存_
           |  |
           |  |---[dll]------   释放内存_
           |  |
           |  |---[dll]------   套接字_接收From
           |  |
           |  |---[dll]------   指针到整数_
           |  |
           |  |---[dll]------   套接字_网络到端口_
           |  |
           |  |---[dll]------   套接字_网络到IP_
           |  |
           |  |---[dll]------   套接字_发送To_
           |  |
           |  |---[dll]------   套接字_IP到网络_
           |  |
           |  |---[dll]------   内存清零_

调用的DLL命令:

.DLL命令 套接字_启动服务_, 整数型, "ws2_32.dll", "WSAStartup", , 在一个进程中初始化Ws2_32.dll的使用。如果成功则返回零
    .参数 必需版本, 整数型, , wVersionRequired
    .参数 网络通讯数据结构, 套接字信息_, 传址, 【套接字信息_】lpWSAData

.DLL命令 套接字_创建_, 整数型, "ws2_32.dll", "socket", , 创建一个套接口
    .参数 地址, 整数型, , af一个地址描述。目前仅支持PF_INET格式，也就是说ARPAInternet地址格式。
    .参数 类型, 整数型, , lType新套接口的类型描述
    .参数 协议, 整数型, , protocol套接口所用的协议。如调用者不想指定，可用0

.DLL命令 套接字_卸载服务_, 整数型, "ws2_32.dll", "WSACleanup", , 返回0操作成功

.DLL命令 套接字_设置选项_, 整数型, "ws2_32.dll", "setsockopt", , 设置套接口的选项
    .参数 套接字, 整数型
    .参数 级别, 整数型
    .参数 操作名称, 整数型
    .参数 操作结构, 逻辑型, 传址
    .参数 操作结构长度, 整数型

.DLL命令 套接字_端口到网络_, 短整数型, "ws2_32.dll", "htons", , 将主机的无符号短整形数转换成网络字节顺序
    .参数 端口号, 短整数型, , hostshort主机字节顺序表达的16位数

.DLL命令 套接字_绑定_, 整数型, "ws2_32.dll", "bind", , 将一本地地址与一套接口捆绑
    .参数 s, 整数型, , 标识一未捆绑套接口的描述字
    .参数 name, 套接字地址_, , 【套接字地址_】赋予套接口的地址
    .参数 namelen, 整数型, , name名字的长度

.DLL命令 套接字_关闭_, 整数型, "ws2_32.dll", "closesocket", , 返回0成功
    .参数 套接字, 整数型, , 一个套接口的描述字

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

.DLL命令 申请内存_, 整数型, "kernel32.dll", "GlobalAlloc", , 成功返回内存指针或内存对象句柄，
    .参数 标志, 整数型, , wFlags，参数值为0：分配固定内存,返回内存指针。参数值为2：分配可移动内存,返回内存对象句柄,可使用函数GlobalLock转换为一个指针。参数值为64：分配固定内存并初始化为0。参数值为66：分配可移动内存并初始化为0
    .参数 字节, 整数型, , dwBytes，申请字节数，如果此参数为0且标志为2，则返回内存对象句柄。

.DLL命令 释放内存_, 整数型, "kernel32.dll", "GlobalFree", , 成功返回0
    .参数 内存句柄, 整数型

.DLL命令 套接字_接收From, 整数型, "ws2_32.dll", "recvfrom"
    .参数 m_hSocket, 整数型, , 套接字句柄
    .参数 lpBuf, 整数型, , 接收缓冲区指针
    .参数 nBufLen, 整数型, , 缓冲区长度
    .参数 nFlags, 整数型, , 0
    .参数 lpSockAddr, 套接字地址_, , 客户地址信息
    .参数 nSockAddrLen, 整数型, 传址, 地址长度，16

.DLL命令 指针到整数_, 整数型, "kernel32.dll", "RtlMoveMemory"
    .参数 数据, 整数型, 传址, lpvDest
    .参数 要读取数据的指针, 整数型, , lpvSource
    .参数 尺寸, 整数型, , 4

.DLL命令 套接字_网络到端口_, 短整数型, "ws2_32.dll", "ntohs", , 将一个无符号短整形数从网络字节顺序转换为主机字节顺序
    .参数 十六位网络命令, 短整数型, , netshort一个以网络字节顺序表达的16位数

.DLL命令 套接字_网络到IP_, 文本型, "ws2_32.dll", "inet_ntoa"
    .参数 IP地址, 整数型, , lIn欲转换整数格式IP地址

.DLL命令 套接字_发送To_, 整数型, "ws2_32.dll", "sendto"
    .参数 m_hSocket, 整数型, , 套接字句柄
    .参数 lpBuf, 字节集, , 要发送的数据
    .参数 nBufLen, 整数型, , 缓冲区长度
    .参数 nFlags, 整数型, , 0
    .参数 lpSockAddr, 套接字地址_, , 套发送的套接字地址
    .参数 nSockAddrLen, 整数型, , 套接字地址长度16

.DLL命令 套接字_IP到网络_, 整数型, "ws2_32.dll", "inet_addr", , inet_addr点数格式转换为整数格式IP地址
    .参数 IP地址, 文本型, , cp将一个点间隔地址转换成一个in_addr

.DLL命令 内存清零_, , "kernel32.dll", "RtlZeroMemory", , ZeroMemory
    .参数 内存地址, 整数型, , Destination
    .参数 长度, 整数型, , Length