josn 发表于 2022-4-6 19:09:11

易语言服务端发送的数据程序收不到。

先说明一下应用场景,公司有一些C#开发的软件,我想用易语言写一个辅助工具,用于自动发送指定的sn,公司软件截图和配置档,会连接指定的TCP server端口接收数据,但是这个是实物。

然后我想用易语言模拟一个,模块是服务器,以下是我的软件截图和代码


用网络调试助手,可以正常收我易语言发送的数据,但是公司软件收不到,然后用网络调试助手给公司的软件发,又可以收到的到,
以下是代码
.版本 2
.支持库 xplib
.支持库 spec

.程序集 窗口程序集_二维码上传窗口

.子程序 _服务器1_客户进入

XP风格 (2)


编辑框5.内容 = 到文本 (服务器1.取回客户 ())

列表框1.加入项目 (服务器1.取回客户 (), )


.子程序 _服务器1_客户离开

信息框 (服务器1.取回客户 () + “离开”, 0, , )




.子程序 _按钮1_被单击
.局部变量 分割出来的文本, 文本型, , "0"
.局部变量 记次
.局部变量 客户, 文本型

客户 = 服务器1.取回客户 ()
列表框1.加入项目 (到文本 (取现行时间 ()) + “执行” + “正在启动中”, )

分割出来的文本 = 分割文本 (编辑框3.内容, #换行符, )

.计次循环首 (取数组成员数 (分割出来的文本), 记次)
    延迟 (1000)
    编辑框4.内容 = 分割出来的文本 [记次] + “\r\n”
    列表框1.加入项目 (到文本 (取现行时间 ()) + 分割出来的文本 [记次], )
    .如果 (服务器1.发送数据 (编辑框5.内容, 编辑框4.内容, ) = 真)
      列表框1.加入项目 (到文本 (取现行时间 ()) + 分割出来的文本 [记次] + “上传成功”, )
    .否则
      列表框1.加入项目 (到文本 (取现行时间 ()) + 分割出来的文本 [记次] + “上传失败!请检查连接”, )
      返回 ()

    .如果结束

.计次循环尾 ()


本人是新手,没积分,可以有偿报答好心人。

josn 发表于 2022-4-6 19:11:25

wx,zfb,qqb都可以,感兴趣的话,可以提供公司软件用来测试。效果就是用网络调试助手设置为server端,公司软件可以正常接收,但是用我的易语言,公司软件就收不到,但是易语言可以取到客户,说明两者就是用tcp协议在通讯,并且协议是通了的。

3300625647 发表于 2022-4-14 12:08:48

什么东西

2636487438 发表于 2022-5-16 01:14:46

看上去很牛皮的样子呀
页: [1]
查看完整版本: 易语言服务端发送的数据程序收不到。