易语言WEB开发教程7 模块化开发-扩展支持库中的类

 扩展类函数的初始化和销毁函数与易语言的类相同 所有类函数首参数为类指针

.版本 2
.支持库 webcgi

.子程序 LibInit, , 公开
.参数 功能指针
.参数 运行模式
.局部变量 类别, 整数型

注册易库 (功能指针, 运行模式, “MyClass.dll”, “20190921”, 真)
类别 ＝ 1
置类别名 (类别, “我的类”, 1, )
置库命令 (0, &_初始化, “_初始化”, “当基于本类的对象被创建后，此方法会被自动调用”, 0, 0)
置库命令 (0, &_销毁, “_销毁”, “当基于本类的对象被销毁前，此方法会被自动调用”, 0, 0)
置库命令 (-2147483644, &看看类运行了多久, “看看类运行了多久”, “”, 0, 0)

.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用
.参数 类指针, , , 类访问成员变量数据指针

类初始化 (类指针)
写类变量 (类指针, “启动时间”, 取启动时间 ())

.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用
.参数 类指针, , , 类访问成员变量数据指针

类销毁 (类指针)

.子程序 看看类运行了多久, 文本型
.参数 类指针
.局部变量 多久, 整数型

多久 ＝ 取启动时间 () － 读类变量 (类指针, “启动时间”)
返回 (到文本 (多久))

编译后如图

很轻易的将一个易语言函数集封装成了支持库中的类  特别注意 在扩展类函数中 不能使用全局变量 如果要用 必调用读类变量和写类变量两个函数来实现