【EVTCP】轻量级网络通信库，支持32&64位，全语言调用

udp

ETCP的内存溢出问题解决了吗？BBTCP都没解决。

大刀

谢谢优化

893431707

放在TX服务器报错，获取不到句柄。LoadLibrary 加载模块为0希望优化下。

  

子程序名	返回值类型	公开	备 注
EVTCP_动态加载	逻辑型		从文件加载指定DLL
参数名	类 型	参考	可空	数组	备 注
参_文件路径	文本型				默认为 取运行目录() + "\EVTCP32.dll"

变量名	类 型	静态	数组	备 注
局_返回结果	逻辑型

' 判断是否已经加载过
如果真 (全_是否加载)
返回 (真)

' 参数校验
如果真 (是否为空 (参_文件路径) 或 参_文件路径 ＝ “”)
参_文件路径 ＝ 取运行目录 () ＋ “\EVTCP32.dll”

' 校验文件是否存在
如果真 (文件是否存在 (参_文件路径) ＝ 假)
返回 (假)

' 加载模块
全_模块句柄 ＝ LoadLibrary (参_文件路径)
如果真 (全_模块句柄 ＝ 0)
返回 (假)

.版本 2<br /> <br /> .子程序 EVTCP_动态加载, 逻辑型, 公开, 从文件加载指定DLL<br /> .参数 参_文件路径, 文本型, 可空, 默认为 取运行目录() + "\EVTCP32.dll"<br /> .局部变量 局_返回结果, 逻辑型<br /> <br /> ' 判断是否已经加载过<br /> .如果真 (全_是否加载)<br />     返回 (真)<br /> .如果真结束<br /> <br /> ' 参数校验<br /> .如果真 (是否为空 (参_文件路径) 或 参_文件路径 ＝ “”)<br />     参_文件路径 ＝ 取运行目录 () ＋ “\EVTCP32.dll”<br /> .如果真结束<br /> <br /> ' 校验文件是否存在<br /> .如果真 (文件是否存在 (参_文件路径) ＝ 假)<br />     返回 (假)<br /> .如果真结束<br /> <br /> ' 加载模块<br /> 全_模块句柄 ＝ LoadLibrary (参_文件路径)<br /> .如果真 (全_模块句柄 ＝ 0)<br />     返回 (假)

黑血EX

6666666666666666666

893431707

放在本地运行可以，放在TX服务器上就报错说dll加载失败

zzlboy

加油坚持下去

AT2013143206

感谢分享，很给力！~

真IKUN

ggnb!~               

1043603367

先收入仓库吃灰。

welkin

感谢分享