易语言源码修改 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
HttpServer	整数型
mServer	IHttpServer

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

变量名	类型	静态	数组	备注
temp	编辑框
key	文本型
val	文本型

temp ＝取事件组件 ()
key ＝ “b” ＋ temp.标记
val ＝ temp.内容
写入ini (key, val)

子程序名	返回值类型	公开	备注
start

变量名	类型	静态	数组	备注
port	整数型
str	文本型

HttpServer ＝ mServer.Create (假)
mServer.OnBody (&OnBody)
str ＝读出ini (“b2”, “90”)
port ＝到整数 (str)

如果 (取反 (mServer.Start (HttpServer, “0.0.0.0”, port)))

状态条1.置文本 (0, “端口占用,服务启动失败.”)

状态条1.置文本 (0, “服务启动成功”)

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

变量名	类型	静态	数组	备注
temp	编辑框
i	整数型
val	文本型
key	文本型

计次循环首 (2, i)

temp ＝取标记组件 (i)

key ＝ “b” ＋ temp.标记

val ＝读出ini (key, “”)

temp.内容＝ val

如果真 (i ＝ 2)

事件转移 (temp, 编辑框1)

如果真 (val ＝ “”)

temp.内容＝ “90”

计次循环尾 ()
start ()

子程序名	返回值类型	公开	备注
OnBody	整数型
参数名	类型	参考	可空	数组	备注
pSender	整数型
dwConnID	整数型
pData	整数型
iLength	整数型

变量名	类型	静态	数组	备注
str	文本型

str ＝编辑框1.内容
mServer.SendResponse (pSender, dwConnID, 200, , , 到字节集 (str))
返回 ( #HR_OK )

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

变量名	类型	静态	数组	备注
k	整数型

k ＝信息框 (“重启生效，是否马上重启？”, 36, “重启提示”, )

如果真 (k ＝ 5)

程序_重启 (, )
调试输出 (k)

子程序名	返回值类型	公开	备注
写入ini
参数名	类型	参考	可空	数组	备注
str	文本型
val	文本型

变量名	类型	静态	数组	备注
path	文本型

path ＝取运行目录 () ＋ “\config.ini”
写配置项 (path, “set”, str, 编码_BASE64编码 (到字节集 (val)))

子程序名	返回值类型	公开	备注
读出ini	文本型
参数名	类型	参考	可空	数组	备注
str	文本型
daufult	文本型

变量名	类型	静态	数组	备注
path	文本型
ret	文本型
str1	文本型

如果 (是否为空 (daufult))

str1 ＝ “”

str1 ＝ daufult
path ＝取运行目录 () ＋ “\config.ini”
ret ＝读配置项 (path, “set”, str, str1)

如果真 (ret ＝ str1)

返回 (ret)
ret ＝到文本 (编码_BASE64解码 (ret, ))
返回 (ret)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br />
.支持库 iext<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 HttpServer, 整数型<br />
.程序集变量 mServer, IHttpServer<br />
<br />
.子程序 _编辑框1_内容被改变<br />
.局部变量 temp, 编辑框<br />
.局部变量 key, 文本型<br />
.局部变量 val, 文本型<br />
<br />
temp ＝ 取事件组件 ()<br />
key ＝ “b” ＋ temp.标记<br />
val ＝ temp.内容<br />
写入ini (key, val)<br />
<br />
.子程序 start<br />
.局部变量 port, 整数型<br />
.局部变量 str, 文本型<br />
<br />
HttpServer ＝ mServer.Create (假)<br />
mServer.OnBody (&OnBody)<br />
str ＝ 读出ini (“b2”, “90”)<br />
port ＝ 到整数 (str)<br />
.如果 (取反 (mServer.Start (HttpServer, “0.0.0.0”, port)))<br />
    状态条1.置文本 (0, “端口占用,服务启动失败.”)<br />
.否则<br />
    状态条1.置文本 (0, “服务启动成功”)<br />
.如果结束<br />
<br />
<br />
.子程序 __启动窗口_创建完毕<br />
.局部变量 temp, 编辑框<br />
.局部变量 i, 整数型<br />
.局部变量 val, 文本型<br />
.局部变量 key, 文本型<br />
<br />
.计次循环首 (2, i)<br />
    temp ＝ 取标记组件 (i)<br />
    key ＝ “b” ＋ temp.标记<br />
    val ＝ 读出ini (key, “”)<br />
    temp.内容 ＝ val<br />
    .如果真 (i ＝ 2)<br />
        事件转移 (temp, 编辑框1)<br />
        .如果真 (val ＝ “”)<br />
            temp.内容 ＝ “90”<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
start ()<br />
<br />
.子程序 OnBody, 整数型<br />
.参数 pSender, 整数型<br />
.参数 dwConnID, 整数型<br />
.参数 pData, 整数型<br />
.参数 iLength, 整数型<br />
.局部变量 str, 文本型<br />
<br />
str ＝ 编辑框1.内容<br />
mServer.SendResponse (pSender, dwConnID, 200, , , 到字节集 (str))<br />
返回 (#HR_OK)<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 k, 整数型<br />
<br />
k ＝ 信息框 (“重启生效，是否马上重启？”, 36, “重启提示”, )<br />
.如果真 (k ＝ 5)<br />
    程序_重启 (, )<br />
.如果真结束<br />
调试输出 (k)<br />
<br />
.子程序 写入ini<br />
.参数 str, 文本型<br />
.参数 val, 文本型<br />
.局部变量 path, 文本型<br />
<br />
path ＝ 取运行目录 () ＋ “\config.ini”<br />
写配置项 (path, “set”, str, 编码_BASE64编码 (到字节集 (val)))<br />
<br />
<br />
.子程序 读出ini, 文本型<br />
.参数 str, 文本型<br />
.参数 daufult, 文本型, 可空<br />
.局部变量 path, 文本型<br />
.局部变量 ret, 文本型<br />
.局部变量 str1, 文本型<br />
<br />
.如果 (是否为空 (daufult))<br />
    str1 ＝ “”<br />
.否则<br />
    str1 ＝ daufult<br />
.如果结束<br />
path ＝ 取运行目录 () ＋ “\config.ini”<br />
ret ＝ 读配置项 (path, “set”, str, str1)<br />
.如果真 (ret ＝ str1)<br />
    返回 (ret)<br />
.如果真结束<br />
ret ＝ 到文本 (编码_BASE64解码 (ret, ))<br />
返回 (ret)