易语言如何连接服务器?
版本 2
支持库 mysql
子程序 _按钮1_被单击
局部变量 b, 整数型
局部变量 取查询值, 整数型
局部变量 MySQL语句, 文本型
局部变量 记录数量, 整数型
局部变量 i, 整数型
局部变量 姓名, 文本型
b = 连接MySql (“12026”, “root”, “123445”, “user”, 3306)
输出调试文本 (b)
MySQL语句 = “select from user_table”
执行SQL语句 (b, MySQL语句)
取查询值 = 取记录集 (b)
记录数量 = 取记录集行数 (取查询值)
输出调试文本 (记录数量)
计次循环首 (记录数量, i)
读字段值 (取查询值, “username”, 姓名)
如果 (姓名 = “admin”)
信息框 (“已找到”, 0, , )
跳出循环 ()
否则
如果结束
' //输出调试文本 (姓名)
到下一行 (取查询值)
计次循环尾 ()
-来源于网络
呵呵,建议你买一本《信息技术九年级上易语言版》,
客户端(如下代码):
版本
2
程序集
窗口程序集1
子程序
_按钮1_被单击
如果
(客户1连接
(“127001”,
8888))
否则
信息框
(“连接失败”,
0,
)
如果结束
子程序
_按钮2_被单击
客户1发送数据
(发送编辑框内容)
子程序
_客户1_数据到达
接收编辑框内容
=
到文本
(客户1取回数据
())
子程序
__启动窗口_创建完毕
服务器(如下代码):
版本
2
程序集
窗口程序集1
子程序
_服务器1_客户进入
列表框1加入项目
(服务器1取回客户
(),
)
子程序
_服务器1_数据到达
接收编辑框内容
=
到文本
(服务器1取回数据
())
子程序
_按钮2_被单击
服务器1发送数据
(列表框1取项目文本
(列表框1现行选中项),
发送编辑框内容,
)
你这个是动态IP,要得到稳定的连接参数,你就要用到动态域名(国内比较有名的是花生壳,具体怎么弄参照花生壳的相关方法)。
另外,你的端口要避开80 、8080、21 、22、2121 之类常用服务端口,以免端口被运营商屏蔽或被其它软件占用。
0条评论