|
先描述问题,我写DLL文件的时候 用到的斩月 斩月_服务端客户端.e 这个是组件模块
发现问题 客户机连接服务器就自动结束 请大家帮我解决下
服务器源码
[e] .版本 2
.支持库 spec
.程序集 程序集1
.程序集变量 窗口, 窗口类
.程序集变量 标签, 标签类
.程序集变量 字体, 黑月字体
.程序集变量 服务器, 服务器
.子程序 _启动子程序, 整数型
子程序1 ()
_临时子程序 ()
返回 (0)
.子程序 _临时子程序
.子程序 子程序1
.局部变量 父句柄, 整数型
窗口.创建 (, “打印身份事件”, &处理事件, #窗口扩展_总在最前 + #窗口扩展_阴影边缘 + #窗口风格_禁止 + #窗口风格_对话框边框, , , , 300, 58)
.子程序 处理事件
标签.创建 (窗口.取窗口句柄 (), “”, , , , 385, 32)
标签.文本色 (#红色)
标签.背景色 (#黑色)
.如果真 (服务器.创建 (19003, 99))
调试输出 (“启动成功”)
.如果真结束
服务器.事件_数据到达 (&数据到达)
.子程序 数据到达
.参数 句柄, 整数型
.局部变量 临时, 字节集
.局部变量 数据, 客户数据
.局部变量 文本, 文本型
数据 = 服务端分解数据 (句柄)
数据.数据 = 临时
文本 = 到文本 (临时)
调试输出 (临时)
[/e]
客户机
[e]
.版本 2
.程序集 窗口程序集1
.程序集变量 客户端, 客户端
.子程序 _按钮1_被单击
.如果真 (客户端.连接 (“127.0.0.1”, 19003))
.如果真结束
调试输出 (客户端.发送数据 (到字节集 (编辑框1.内容)))
[/e]
|
求助知识:请将问题描述清楚,最好把你有问题的源码打包上传上来,这样更方便大家帮助你。 友情提醒:本版被采纳的主题可在 申请荣誉值 帖子申请荣誉值,获得 3点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。
|