易语言聊天室
最近刚接触易语言,写了一个简单的聊天室,试验成功,我第一次不通过QQ跟别人聊天。我想让聊天内容的字体大小和文字颜色都能任意改变,就写了下面的代码,客户端:.版本2.支持库...
最近刚接触易语言,写了一个简单的聊天室,试验成功,我第一次不通过QQ跟别人聊天。我想让聊天内容的字体大小和文字颜色都能任意改变,就写了下面的代码,
客户端:
.版本 2
.支持库 iext2
.程序集 窗口程序集1
.程序集变量 文本属性, 字符格式, , , ' 效果值:1、#粗体;2、#斜体;4、#下划线;8、#删除线;16、#禁止更改
.子程序 _按钮连接_被单击
' 连接服务器
.如果真 (客户1.连接 (编辑框地址.内容, 到数值 (编辑框端口.内容)) = 假 或 客户2.连接 (编辑框地址.内容, 到数值 (编辑框端口.内容) + 1) = 假)
信息框 (“连接失败”, 0, )
返回 ()
.如果真结束
按钮发送.禁止 = 假
按钮断开.禁止 = 假
按钮连接.禁止 = 真
超级编辑框1.获取焦点 ()
.子程序 __启动窗口_创建完毕
文本属性.效果 = 1
文本属性.字体名称 = “微软雅黑”
文本属性.字体大小 = 9
文本属性.文本颜色 = #黑色
.子程序 _按钮发送_被单击
.如果真 (客户1.发送数据 (超级编辑框1.内容) = 假)
信息框 (“发送失败”, 0, )
.如果真结束
编辑框信息.加入文本 (“我:” + 超级编辑框1.内容 + #换行符 + “-----------------------------------------------------------------” + #换行符)
超级编辑框1.内容 = “”
超级编辑框1.获取焦点 ()
.子程序 _客户1_数据到达
编辑框信息.加入文本 (“对方:” + 取字节集数据 (客户1.取回数据 (), #文本型, ) + #换行符 + “-----------------------------------------------------------------” + #换行符)
.子程序 _按钮断开_被单击
客户1.断开连接 ()
按钮连接.禁止 = 假
按钮断开.禁止 = 真
按钮发送.禁止 = 真
.子程序 _颜色选择器1_颜色被改变
文本属性.效果 = 1
文本属性.字体名称 = “微软雅黑”
文本属性.字体大小 = 到数值 (组合框1.现行选中项)
文本属性.文本颜色 = 颜色选择器1.颜色
客户2.发送数据 (文本属性)
超级编辑框1.置默认字符格式 (文本属性)
.子程序 _组合框1_列表项被选择
文本属性.效果 = 1
文本属性.字体名称 = “微软雅黑”
文本属性.字体大小 = 到数值 (组合框1.现行选中项)
文本属性.文本颜色 = 颜色选择器1.颜色
客户2.发送数据 (文本属性)
超级编辑框1.置默认字符格式 (文本属性)
服务端:
.版本 2
.支持库 iext2
.程序集 窗口程序集1
.程序集变量 文本属性, 字符格式
.程序集变量 文本属性2, 字符格式
.子程序 _服务器1_数据到达
编辑框1.起始选择位置 = 取文本长度 (到文本 (服务器1.取回数据 ()))
编辑框1.置选择区字符格式 (文本属性)
编辑框1.被选择文本 = “对方:” + 到文本 (服务器1.取回数据 ()) + #换行符 + “---------------------------------------------------------------” + #换行符
.子程序 _服务器1_客户进入
变量1 = 服务器1.取回客户 ()
信息框 (“连接成功!”, 0, )
.子程序 _服务器1_客户离开
信息框 (“断开连接!”, 0, )
.子程序 _按钮1_被单击
服务器1.发送数据 (变量1, 编辑框2.内容, )
编辑框1.起始选择位置 = 取文本长度 (编辑框2.内容)
编辑框1.置选择区字符格式 (文本属性2)
编辑框1.被选择文本 = “我:” + 到文本 (编辑框2.内容) + #换行符 + “---------------------------------------------------------------” + #换行符
编辑框2.内容 = “”
.子程序 _服务器2_数据到达
文本属性 = 服务器2.取回数据 ()
问题在服务端这儿,每次编译到最后一个子程序的时候都提示说“错误(10044): 不能将“字节集”数据转换到“字符格式”数据。”
到底怎么办?或者有什么完全新的方法?期待你的回答! 展开
客户端:
.版本 2
.支持库 iext2
.程序集 窗口程序集1
.程序集变量 文本属性, 字符格式, , , ' 效果值:1、#粗体;2、#斜体;4、#下划线;8、#删除线;16、#禁止更改
.子程序 _按钮连接_被单击
' 连接服务器
.如果真 (客户1.连接 (编辑框地址.内容, 到数值 (编辑框端口.内容)) = 假 或 客户2.连接 (编辑框地址.内容, 到数值 (编辑框端口.内容) + 1) = 假)
信息框 (“连接失败”, 0, )
返回 ()
.如果真结束
按钮发送.禁止 = 假
按钮断开.禁止 = 假
按钮连接.禁止 = 真
超级编辑框1.获取焦点 ()
.子程序 __启动窗口_创建完毕
文本属性.效果 = 1
文本属性.字体名称 = “微软雅黑”
文本属性.字体大小 = 9
文本属性.文本颜色 = #黑色
.子程序 _按钮发送_被单击
.如果真 (客户1.发送数据 (超级编辑框1.内容) = 假)
信息框 (“发送失败”, 0, )
.如果真结束
编辑框信息.加入文本 (“我:” + 超级编辑框1.内容 + #换行符 + “-----------------------------------------------------------------” + #换行符)
超级编辑框1.内容 = “”
超级编辑框1.获取焦点 ()
.子程序 _客户1_数据到达
编辑框信息.加入文本 (“对方:” + 取字节集数据 (客户1.取回数据 (), #文本型, ) + #换行符 + “-----------------------------------------------------------------” + #换行符)
.子程序 _按钮断开_被单击
客户1.断开连接 ()
按钮连接.禁止 = 假
按钮断开.禁止 = 真
按钮发送.禁止 = 真
.子程序 _颜色选择器1_颜色被改变
文本属性.效果 = 1
文本属性.字体名称 = “微软雅黑”
文本属性.字体大小 = 到数值 (组合框1.现行选中项)
文本属性.文本颜色 = 颜色选择器1.颜色
客户2.发送数据 (文本属性)
超级编辑框1.置默认字符格式 (文本属性)
.子程序 _组合框1_列表项被选择
文本属性.效果 = 1
文本属性.字体名称 = “微软雅黑”
文本属性.字体大小 = 到数值 (组合框1.现行选中项)
文本属性.文本颜色 = 颜色选择器1.颜色
客户2.发送数据 (文本属性)
超级编辑框1.置默认字符格式 (文本属性)
服务端:
.版本 2
.支持库 iext2
.程序集 窗口程序集1
.程序集变量 文本属性, 字符格式
.程序集变量 文本属性2, 字符格式
.子程序 _服务器1_数据到达
编辑框1.起始选择位置 = 取文本长度 (到文本 (服务器1.取回数据 ()))
编辑框1.置选择区字符格式 (文本属性)
编辑框1.被选择文本 = “对方:” + 到文本 (服务器1.取回数据 ()) + #换行符 + “---------------------------------------------------------------” + #换行符
.子程序 _服务器1_客户进入
变量1 = 服务器1.取回客户 ()
信息框 (“连接成功!”, 0, )
.子程序 _服务器1_客户离开
信息框 (“断开连接!”, 0, )
.子程序 _按钮1_被单击
服务器1.发送数据 (变量1, 编辑框2.内容, )
编辑框1.起始选择位置 = 取文本长度 (编辑框2.内容)
编辑框1.置选择区字符格式 (文本属性2)
编辑框1.被选择文本 = “我:” + 到文本 (编辑框2.内容) + #换行符 + “---------------------------------------------------------------” + #换行符
编辑框2.内容 = “”
.子程序 _服务器2_数据到达
文本属性 = 服务器2.取回数据 ()
问题在服务端这儿,每次编译到最后一个子程序的时候都提示说“错误(10044): 不能将“字节集”数据转换到“字符格式”数据。”
到底怎么办?或者有什么完全新的方法?期待你的回答! 展开
展开全部
最后一个子程序服务器取回的数据是字节集的...
跟其他无关,你只要改最后一个子程序就好了
文本属性=到字符格式(服务器1.取回数据)
跟其他无关,你只要改最后一个子程序就好了
文本属性=到字符格式(服务器1.取回数据)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
看到你的源码,真郁闷,第一眼就看到文本属性是字符格式而服务器2.取回数据是字节集,根本就不是一个类型你也是让他们相等?
追问
这我知道,所以我才问怎么把服务器2取回数据转成字符格式。我给你说说我的设想吧。我是想让服务器1对应客户1,复杂传输信息的文本内容。让服务器2对应客户2,负责传输信息的字符格式。再在超级编辑框编辑框把收到的信息的字符格式转过来。以此来达到聊天内容字体和颜色可变的目的。
追答
不能转换
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你发源代码出来??修改下视频语音呗,发送文件之类的!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询