IPC进程C/S模式即时通讯,非共享组件内存读写支持任意数据

易语言 2020-07-06 20:08:58

数据到达2_ = 作业事件_数据到达
断开连接_ = 作业事件_断开连接
CALLBCK2 = SetWindowLong (作业对象.取窗口句柄 (), -4, 到整数 (&消息处理_客户))
.判断开始 (客户名称 = “”)
客户名称_ = “IPC_Client_” + 到文本 (作业对象.取窗口句柄 ())
.默认
客户名称_ = “IPC_Client_” + 客户名称
.判断结束
写注册项 (3, “Software\kirinoIPC\IPC_Server_” + 服务名称 + “\IPC_Client_” + 到文本 (作业对象.取窗口句柄 ()), 客户名称_)
客户作业句柄 = 作业对象.取窗口句柄 ()
SendMessage (服务标识, IPC_Client.Client.Connect, GetCurrentProcessId (), 作业对象.取窗口句柄 ())
推迟调用子程序 (1500, &客户_周期通讯, , , )
返回 (CALLBCK2 < 0)