不同窗口间相互通讯的一个简单例子

kissyou1621

  看到论坛有人求问窗口相互直接通讯的问题，他想到用服务端与客户Duan，但程序多开，服务端与客户Duan都存在同一个程序上，不同的服务端就需要开不同的端口，达不到要求，包括用HP_socket也是一样的。于是想到一个简单的例子，用编辑框相互直接投递文本的方法，达到不同窗口间相互通讯的目的。也做一个小记录。



1.建立一个编辑框，外部程序向这个编辑框发送命令，达到接收消息的目的。
2.消息结构，发送消息窗口句柄|消息编号|消息内容 ，这样三个数据。  
   2.1:发送消息窗口句柄（用于回复消息时回复给谁）
   2.2:消息编号（每一次投递消息，都是不一样的编号，防止相同消息正文，不处理数据）
3.接收到消息，根据发送的窗口句柄去回复消息，达到相互通讯的目的。
4.你还可以加其他的消息结构，比如发送回复消息的时候，把接收到的消息编号，也反馈回去，达到多窗口同时被接收到消息，用编号唯一性，让消息列队不错乱。


如果需要发送字节集图片之类的，可以把消息正文进行一次BASE64编码，接收后再还原。


例子窗口展示:



源码: 窗口通讯例子.e (965.92 KB, 下载次数: 30, 售价: 1 枚 精币)

2026-4-16 17:50 上传

点击文件名下载附件


代码:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

编辑框_自身窗口句柄.内容 ＝ 到文本 (_启动窗口.取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_编辑框_接收消息编辑框_内容被改变

变量名	类 型	静态	数组	备 注
局_分割_数组	文本型		0
局_发送消息程序句柄	整数型
局_收到的正文	文本型
局_err	文本型
局_消息编号	双精度小数型

' 这里是接收消息
局_分割_数组 ＝ 分割文本 (编辑框_接收消息编辑框.内容, “|”, )
' 自己组这个消息结构
如果真 (取数组成员数 (局_分割_数组) ≠ 3)
' 消息结构不对
返回 ()

局_发送消息程序句柄 ＝ 到数值 (局_分割_数组 [1])  ' 用于回复时，知道是哪个程序发来的
局_消息编号 ＝ 到数值 (局_分割_数组 [2])  ' 不同的消息编号，防止发送的内容相同，无反应
局_收到的正文 ＝ 局_分割_数组 [3]  ' 消息的正文内容
局_收到的正文 ＝ 文本_替换 (局_收到的正文, , , , “
”, #换行符, , , , , , , , )  ' 还原换行
编辑框_日志.加入文本 (“接收到新消息:” ＋ 局_收到的正文 ＋ #换行符 )  ' 这里是正常接收到命令进行处理。

子程序名	返回值类型	公开	备 注
功能_发送消息	逻辑型
参数名	类 型	参考	可空	数组	备 注
参数_接收消息程序句柄	整数型
参数_需要发送的内容	文本型
返回_err	文本型

变量名	类 型	静态	数组	备 注
局_接收消息编辑框句柄	整数型
局_投递的消息	文本型

局_接收消息编辑框句柄 ＝ 功能_取接收消息编辑框句柄 (参数_接收消息程序句柄)
如果真 (局_接收消息编辑框句柄 ＝ 0)
返回_err ＝ “无法获取消息编辑框句柄”
返回 (假)  ' 没有获取到投递消息的编辑框句柄

' 窗口句柄|消息编号|正文内容
局_投递的消息 ＝ 到文本 (_启动窗口.取窗口句柄 ()) ＋ “|” ＋ 文本_取随机数字 (15, ) ＋ “|” ＋ 参数_需要发送的内容  ' 这里你自己整理消息结构
外部编辑框_置内容 (局_接收消息编辑框句柄, 局_投递的消息)
程序_延时 (500, )
如果 (外部编辑框_取内容 (局_接收消息编辑框句柄) ＝ 局_投递的消息)
返回 (真)
返回_err ＝ “无法投递消息”
返回 (假)

子程序名	返回值类型	公开	备 注
功能_取接收消息编辑框句柄	整数型
参数名	类 型	参考	可空	数组	备 注
参数_接收消息程序句柄	整数型

变量名	类 型	静态	数组	备 注
局_句柄	整数型

局_句柄 ＝ 窗口_取句柄 (参数_接收消息程序句柄, , “Button”, 字符 (0))
如果真 (局_句柄 ＝ 0)
返回 (0)
局_句柄 ＝ 窗口_取句柄 (局_句柄, , “Edit”, 字符 (0))
如果真 (局_句柄 ＝ 0)
返回 (0)
返回 (局_句柄)

子程序名	返回值类型	公开	备 注
_按钮_发送_被单击

变量名	类 型	静态	数组	备 注
局_err	文本型
局_需要发送的内容	文本型
局_发送窗口句柄	双精度小数型

如果真 (编辑框_发送窗口句柄.内容 ＝ “”)
信息框 (“请填写需要发送消息的窗口句柄”, 0, , )
返回 ()

如果真 (编辑框_发送内容.内容 ＝ “”)
信息框 (“请填写需要发送消息的内容”, 0, , )
返回 ()

局_发送窗口句柄 ＝ 到数值 (删全部空 (编辑框_发送窗口句柄.内容))
局_需要发送的内容 ＝ 文本_替换 (编辑框_发送内容.内容, , , , #换行符, “
”, , , , , , , , )  ' 处理下换行
如果 (功能_发送消息 (局_发送窗口句柄, 局_需要发送的内容, 局_err) ＝ 真)
编辑框_日志.加入文本 (“发送成功” ＋ #换行符 )

编辑框_日志.加入文本 (“发送失败” ＋ 局_err ＋ #换行符 )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 编辑框_自身窗口句柄.内容 ＝ 到文本 (_启动窗口.取窗口句柄 ())<br /> <br /> <br /> <br /> .子程序 _编辑框_接收消息编辑框_内容被改变<br /> .局部变量 局_分割_数组, 文本型, , "0"<br /> .局部变量 局_发送消息程序句柄, 整数型<br /> .局部变量 局_收到的正文, 文本型<br /> .局部变量 局_err, 文本型<br /> .局部变量 局_消息编号, 双精度小数型<br /> <br /> ' 这里是接收消息<br /> 局_分割_数组 ＝ 分割文本 (编辑框_接收消息编辑框.内容, “|”, )<br /> ' 自己组这个消息结构<br /> .如果真 (取数组成员数 (局_分割_数组) ≠ 3)<br />     ' 消息结构不对<br />     返回 ()<br /> <br /> <br /> .如果真结束<br /> <br /> <br /> 局_发送消息程序句柄 ＝ 到数值 (局_分割_数组 [1])  ' 用于回复时，知道是哪个程序发来的<br /> 局_消息编号 ＝ 到数值 (局_分割_数组 [2])  ' 不同的消息编号，防止发送的内容相同，无反应<br /> 局_收到的正文 ＝ 局_分割_数组 [3]  ' 消息的正文内容<br /> <br /> 局_收到的正文 ＝ 文本_替换 (局_收到的正文, , , , “<br /> ”, #换行符, , , , , , , , )  ' 还原换行<br /> <br /> 编辑框_日志.加入文本 (“接收到新消息:” ＋ 局_收到的正文 ＋ #换行符)  ' 这里是正常接收到命令进行处理。<br /> <br /> <br /> <br /> <br /> <br /> .子程序 功能_发送消息, 逻辑型<br /> .参数 参数_接收消息程序句柄, 整数型<br /> .参数 参数_需要发送的内容, 文本型<br /> .参数 返回_err, 文本型, 参考<br /> .局部变量 局_接收消息编辑框句柄, 整数型<br /> .局部变量 局_投递的消息, 文本型<br /> <br /> 局_接收消息编辑框句柄 ＝ 功能_取接收消息编辑框句柄 (参数_接收消息程序句柄)<br /> .如果真 (局_接收消息编辑框句柄 ＝ 0)<br />     返回_err ＝ “无法获取消息编辑框句柄”<br />     返回 (假)  ' 没有获取到投递消息的编辑框句柄<br /> .如果真结束<br /> <br /> <br /> ' 窗口句柄|消息编号|正文内容<br /> <br /> 局_投递的消息 ＝ 到文本 (_启动窗口.取窗口句柄 ()) ＋ “|” ＋ 文本_取随机数字 (15, ) ＋ “|” ＋ 参数_需要发送的内容  ' 这里你自己整理消息结构<br /> <br /> 外部编辑框_置内容 (局_接收消息编辑框句柄, 局_投递的消息)<br /> 程序_延时 (500, )<br /> .如果 (外部编辑框_取内容 (局_接收消息编辑框句柄) ＝ 局_投递的消息)<br />     返回 (真)<br /> .否则<br />     返回_err ＝ “无法投递消息”<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> <br /> <br /> <br /> .子程序 功能_取接收消息编辑框句柄, 整数型<br /> .参数 参数_接收消息程序句柄, 整数型<br /> .局部变量 局_句柄, 整数型<br /> <br /> 局_句柄 ＝ 窗口_取句柄 (参数_接收消息程序句柄, , “Button”, 字符 (0))<br /> .如果真 (局_句柄 ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> 局_句柄 ＝ 窗口_取句柄 (局_句柄, , “Edit”, 字符 (0))<br /> .如果真 (局_句柄 ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> 返回 (局_句柄)<br /> <br /> .子程序 _按钮_发送_被单击<br /> .局部变量 局_err, 文本型<br /> .局部变量 局_需要发送的内容, 文本型<br /> .局部变量 局_发送窗口句柄, 双精度小数型<br /> <br /> .如果真 (编辑框_发送窗口句柄.内容 ＝ “”)<br />     信息框 (“请填写需要发送消息的窗口句柄”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果真 (编辑框_发送内容.内容 ＝ “”)<br />     信息框 (“请填写需要发送消息的内容”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> 局_发送窗口句柄 ＝ 到数值 (删全部空 (编辑框_发送窗口句柄.内容))<br /> 局_需要发送的内容 ＝ 文本_替换 (编辑框_发送内容.内容, , , , #换行符, “<br /> ”, , , , , , , , )  ' 处理下换行<br /> <br /> .如果 (功能_发送消息 (局_发送窗口句柄, 局_需要发送的内容, 局_err) ＝ 真)<br />     编辑框_日志.加入文本 (“发送成功” ＋ #换行符)<br /> <br /> .否则<br />     编辑框_日志.加入文本 (“发送失败” ＋ 局_err ＋ #换行符)<br /> .如果结束

liuweiwei

不错不错

水草兄弟

命名管道也可以啊

张澈

感谢分享，很给力！~

胖子葛格

感谢大神分享~！

year1970

感谢分享

wjswzj0

感谢分享，很给力！~

1184798949

感谢分享

ljx111

感谢分享

烽火云天

感谢分享   没有理解什么样的情况才需要这样的应用场景  这个要求有点奇葩哈哈