易语言动态调用DLL插件例程

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

检查加载DLL (取运行目录 () ＋ “插件目录\”)

.子程序 检查加载DLL, 逻辑型
.参数 DLL所在目录, 文本型
.局部变量 寻找文件, 文本型
.局部变量 查询插件信息返回, 文本型
.局部变量 插件数, 整数型
.局部变量 取插件信息_记次, 整数型
.局部变量 分割, 文本型, , "0"
.局部变量 查询插件信息, 文本型
.局部变量 成员, 整数型

清除数组 (DLL路径)
清除数组 (DLL路径1)
清除数组 (DLL命令)
清除数组 (DLL名称)
清除数组 (DLL版本)
清除数组 (DLL作者)
清除数组 (DLL介绍)
清除数组 (DLL发布时间)
寻找文件 ＝ 寻找文件 (DLL所在目录 ＋ “*.dll”, )
.如果真 (删首尾空 (寻找文件) ≠ “”)
    加入成员 (DLL路径, DLL所在目录 ＋ 寻找文件)
.如果真结束
.判断循环首 (寻找文件 ≠ “”)
    寻找文件 ＝ 寻找文件 (, )
    .如果真 (删首尾空 (寻找文件) ≠ “”)
        加入成员 (DLL路径, DLL所在目录 ＋ 寻找文件)
    .如果真结束

.判断循环尾 ()
插件数 ＝ 取数组成员数 (DLL路径)
.计次循环首 (插件数, 取插件信息_记次)
    .如果真 (DLL命令调用转向 (DLL路径 [取插件信息_记次], “查询插件”) ≠ 假)
        查询插件信息返回 ＝ 查询插件信息 ()
        分割 ＝ 分割文本 (查询插件信息返回, #换行符, )
        成员 ＝ 取数组成员数 (分割)
        .如果真 (取整 (成员 ÷ 6) ＝ 1)
            加入成员 (DLL路径1, DLL路径 [取插件信息_记次])
            加入成员 (DLL名称, 分割 [1])
            加入成员 (DLL版本, 分割 [2])
            加入成员 (DLL作者, 分割 [3])
            加入成员 (DLL命令, 分割 [4])
            加入成员 (DLL介绍, 分割 [5])
            加入成员 (DLL发布时间, 分割 [6])
            到循环尾 ()
        .如果真结束
        .如果真 (取整 (成员 ÷ 6) ＝ 2)
            加入成员 (DLL路径1, DLL路径 [取插件信息_记次])
            加入成员 (DLL名称, 分割 [1])
            加入成员 (DLL版本, 分割 [2])
            加入成员 (DLL作者, 分割 [3])
            加入成员 (DLL命令, 分割 [4])
            加入成员 (DLL介绍, 分割 [5])
            加入成员 (DLL发布时间, 分割 [6])
            加入成员 (DLL路径1, DLL路径 [取插件信息_记次])
            加入成员 (DLL名称, 分割 [7])
            加入成员 (DLL版本, 分割 [8])
            加入成员 (DLL作者, 分割 [9])
            加入成员 (DLL命令, 分割 [10])
            加入成员 (DLL介绍, 分割 [11])
            加入成员 (DLL发布时间, 分割 [12])
            到循环尾 ()
        .如果真结束
        .如果真 (取整 (成员 ÷ 6) ＝ 3)
            加入成员 (DLL路径1, DLL路径 [取插件信息_记次])
            加入成员 (DLL名称, 分割 [1])
            加入成员 (DLL版本, 分割 [2])
            加入成员 (DLL作者, 分割 [3])
            加入成员 (DLL命令, 分割 [4])
            加入成员 (DLL介绍, 分割 [5])
            加入成员 (DLL发布时间, 分割 [6])
            加入成员 (DLL路径1, DLL路径 [取插件信息_记次])
            加入成员 (DLL名称, 分割 [7])
            加入成员 (DLL版本, 分割 [8])
            加入成员 (DLL作者, 分割 [9])
            加入成员 (DLL命令, 分割 [10])
            加入成员 (DLL介绍, 分割 [11])
            加入成员 (DLL发布时间, 分割 [12])
            加入成员 (DLL路径1, DLL路径 [取插件信息_记次])
            加入成员 (DLL名称, 分割 [13])
            加入成员 (DLL版本, 分割 [14])
            加入成员 (DLL作者, 分割 [15])
            加入成员 (DLL命令, 分割 [16])
            加入成员 (DLL介绍, 分割 [17])
            加入成员 (DLL发布时间, 分割 [18])
        .如果真结束

    .如果真结束

.计次循环尾 ()
.判断开始 (取数组成员数 (DLL命令) ≠ 0)
    调试输出 (“初始化成功---插件数:” ＋ 到文本 (取数组成员数 (DLL命令)) ＋ “------DLL文件共计:” ＋ 到文本 (取数组成员数 (DLL路径)))
    返回 (真)
.默认
    调试输出 (“初始化失败”)
    返回 (假)
.判断结束


.子程序 处理插件命令, 文本型
.参数 命令参数, 文本型
.参数 附带参数, 文本型
.参数 参数1, 文本型
.参数 参数2, 文本型
.参数 参数3, 文本型
.局部变量 成员, 整数型
.局部变量 局_记次, 整数型
.局部变量 命令, 文本型
.局部变量 结果, 文本型

成员 ＝ 取数组成员数 (DLL命令)
命令 ＝ 删首尾空 (取文本中间 (命令参数, 2, 取文本长度 (命令参数)))
.计次循环首 (成员, 局_记次)
    .如果真 (DLL命令 [局_记次] ＝ 删首尾空 (命令))
        .如果真 (DLL命令调用转向 (DLL路径1 [局_记次], 命令) ≠ 假)
            结果 ＝ 使用插件信息 (附带参数, 参数1, 参数2, 参数3)
            跳出循环 ()
        .如果真结束

    .如果真结束

.计次循环尾 ()
返回 (结果)

.子程序 _按钮1_被单击

调试输出 (处理插件命令 (“@” ＋ “测试1”, “嘻嘻”, “我是”, “测试”, “DLL”))

.子程序 _按钮2_被单击

调试输出 (处理插件命令 (“@” ＋ “测试2”, “嘻嘻”, “我是”, “测试”, “DLL”))

.子程序 _按钮3_被单击

调试输出 (处理插件命令 (“@” ＋ “测试3”, “嘻嘻”, “我是”, “测试”, “DLL”))

.子程序 _按钮4_被单击

调试输出 (处理插件命令 (“@” ＋ “测试4”, “嘻嘻”, “我是”, “测试”, “DLL”))

@戒卜掉思恋