求易写易库正确返回通用型的方式

xiaole283

使用的是易写易库梦优勿扰版首先定义一个返回值为通用型的命令

  

命令_添加参数 (“内存指针”, #数据类型_整数型, “”, , )
命令_添加参数 (“类别”, #数据类型_整数型, “可空，默认3，内存块指针。0.包头，正常的包头为long的字节集 { 108, 111, 110, 103 } 1.结构版本号，本版本号是结构版本号，不是支持库版本号 2.成员数量 3.内存块指针 4.内存块大小 5.内存块已使用大小 6.增量大小 7.内存块当前读写位置”, 3, #参数_有默认值 )
命令_添加 (&结构体_取指针信息, “结构取指针信息”, “结构体_取指针信息”, “结构体_取指针信息”, “”, 2, , #数据类型_通用型, #级别_初级, , )

.版本 2<br /> <br /> 命令_添加参数 (“内存指针”, #数据类型_整数型, “”, , )<br /> 命令_添加参数 (“类别”, #数据类型_整数型, “可空，默认3，内存块指针。0.包头，正常的包头为long的字节集 { 108, 111, 110, 103 } 1.结构版本号，本版本号是结构版本号，不是支持库版本号 2.成员数量 3.内存块指针 4.内存块大小 5.内存块已使用大小 6.增量大小 7.内存块当前读写位置”, 3, #参数_有默认值)<br /> 命令_添加 (&结构体_取指针信息, “结构取指针信息”, “结构体_取指针信息”, “结构体_取指针信息”, “”, 2, , #数据类型_通用型, #级别_初级, , )

接着是这个命令的过程

  

子程序名	返回值类型	公开	备 注
结构体_取指针信息
参数名	类 型	参考	可空	数组	备 注
返回地址	整数型
参数数量	整数型
参数地址	整数型

变量名	类 型	静态	数组	备 注
参数信息	参数数据信息		0
内存指针	整数型
类别	整数型

取参数数据信息 (参数信息, 参数数量, 参数地址)
内存指针 ＝ 指针到整数1 (参数信息 [1].数据地址)
类别 ＝ 指针到整数1 (参数信息 [2].数据地址)
判断 (类别 ＝ 0)
返回字节集值 (返回地址, 指针到字节集 (内存指针, 4))
判断 (类别 ＝ 1)
返回整数型值 (返回地址, 汇编__读整数偏移 (内存指针, 4))

.版本 2<br /> <br /> .子程序 结构体_取指针信息, , 公开<br /> .参数 返回地址, 整数型<br /> .参数 参数数量, 整数型<br /> .参数 参数地址, 整数型<br /> .局部变量 参数信息, 参数数据信息, , "0"<br /> .局部变量 内存指针, 整数型<br /> .局部变量 类别, 整数型<br /> <br /> 取参数数据信息 (参数信息, 参数数量, 参数地址)<br /> 内存指针 ＝ 指针到整数1 (参数信息 [1].数据地址)<br /> 类别 ＝ 指针到整数1 (参数信息 [2].数据地址)<br /> .判断开始 (类别 ＝ 0)<br />     返回字节集值 (返回地址, 指针到字节集 (内存指针, 4))<br /> .判断 (类别 ＝ 1)<br />     返回整数型值 (返回地址, 汇编__读整数偏移 (内存指针, 4))

下面是调用这个支持库命令的代码

  

子程序名	返回值类型	公开	备 注
支持库命令测试

变量名	类 型	静态	数组	备 注
内存指针	整数型
i	整数型
返回	整数型

内存指针 ＝ 结构新建 (, )
返回 ＝ 结构取指针信息 (内存指针, 1)
调试输出 (返回)

i支持库列表	支持库注释
ljgt	(未知支持库)
spec	特殊功能支持库

.版本 2<br /> .支持库 ljgt<br /> .支持库 spec<br /> <br /> .子程序 支持库命令测试<br /> .局部变量 内存指针, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 返回, 整数型<br /> <br /> 内存指针 ＝ 结构新建 (, )<br /> 返回 ＝ 结构取指针信息 (内存指针, 1)<br /> 调试输出 (返回)

报错截图


虚心求教,如何在通用型返回的支持库命令中,正确返回对应的数据类型

承易

这些用到的支持库和模块 源码 啥的 能分享上来嘛

xiaole283

今天心血来潮又研究一下这个问题。翻阅易语言我吃了的易写易库模板源码，将相关关键命令写在下面1.添加命令及到支持库

  

' 4.--(1)特殊功能-- **模拟取字节集数据**
地址 ＝ 申请信息保存空间 (3, #SIZE_ARG_INFO )
生成参数信息 (地址, “字节集”, “”, , , #SDT_BIN, , )
生成参数信息 (地址, “欲取出数据的类型”, “数值同核心支持库。”, , , #SDT_INT, , )
生成参数信息 (地址, “起始位置”, “设置起始取出的位置。”, , , #SDT_INT, , #AS_DEFAULT_VALUE_IS_EMPTY )
生成命令信息 (m_pBeginCmdInfo, “模拟取字节集数据”, “GetBinData”, “模拟核心库的‘取字节集数据()’，演示返回通用型数据。”, #命令类别_特殊功能, , #_SDT_ALL, #LVL_SIMPLE, , , 地址)

.版本 2<br /> <br /> ' 4.--(1)特殊功能-- **模拟取字节集数据**<br /> 地址 ＝ 申请信息保存空间 (3, #SIZE_ARG_INFO)<br /> 生成参数信息 (地址, “字节集”, “”, , , #SDT_BIN, , )<br /> 生成参数信息 (地址, “欲取出数据的类型”, “数值同核心支持库。”, , , #SDT_INT, , )<br /> 生成参数信息 (地址, “起始位置”, “设置起始取出的位置。”, , , #SDT_INT, , #AS_DEFAULT_VALUE_IS_EMPTY)<br /> 生成命令信息 (m_pBeginCmdInfo, “模拟取字节集数据”, “GetBinData”, “模拟核心库的‘取字节集数据()’，演示返回通用型数据。”, #命令类别_特殊功能, , #_SDT_ALL, #LVL_SIMPLE, , , 地址)

其中#_SDT_ALL是为命令信息结构指定了返回类型。
下面是这个支持库命令的关键代码

  

子程序名	返回值类型	公开	备 注
test_GetBinData			4、模拟取字节集数据 (返回值：通用型)
参数名	类 型	参考	可空	数组	备 注
pRetData	整数型				返回值地址
nArgCount	整数型
pArgInf	整数型

变量名	类 型	静态	数组	备 注
字节集指针	整数型			参数1
欲取数据类型	整数型			参数2
起始位置	整数型			参数3
字节集	字节集
新指针	整数型
字节集长度	整数型
最大可取长度	整数型

' 通过这个子程序来给大家讲一下如何返回通用型数据
字节集指针 ＝ 指针到整数 (pArgInf)  ' 因为 GetArgAddr (pArgInf, 1) = pArgInf 所以就不用GetArgAddr了
欲取数据类型 ＝ 指针到整数 (GetArgAddr (pArgInf, 2))
起始位置 ＝ 指针到整数 (GetArgAddr (pArgInf, 3))
' 首先通过数据地址取得前三个参数值 前面说很多了 不再说了
如果真 (欲取数据类型 ＜ #字节型 或 欲取数据类型 ＞ #文本型 )  ' 判断第二个参数是否有效
NotifySys ( #NRS_RUNTIME_ERR, _取文本指针 (“‘欲取数据类型’参数超出范围！”), 0)  ' 显示运行时错误
返回 ()
' ！！！！↓下面这句是返回通用型数据的重点！！置返回数据类型，上面说过了pRetData也是MDATA_INF结构 保存了类型等信息
' 因此我们要设置返回的数据是什么类型！根据第二个参数来设置
SetDataType (pRetData, 多项选择 (欲取数据类型, #SDT_BYTE, #SDT_SHORT, #SDT_INT, #SDT_INT64, #SDT_FLOAT, #SDT_DOUBLE, #SDT_BOOL, #SDT_DATE_TIME, #SDT_SUB_PTR, #SDT_TEXT ))
' SetDataType是为大家省事写好的子程序 直接调用即可
' SetDataType的实际作用是：写内存整数_ (pRetData ＋ 8, 位或 (指针到整数 (pRetData ＋ 8), 数据类型))

.版本 2<br /> <br /> .子程序 test_GetBinData, , 公开, 4、模拟取字节集数据 (返回值：通用型)<br /> .参数 pRetData, 整数型, , 返回值地址<br /> .参数 nArgCount, 整数型<br /> .参数 pArgInf, 整数型<br /> .局部变量 字节集指针, 整数型, , , 参数1<br /> .局部变量 欲取数据类型, 整数型, , , 参数2<br /> .局部变量 起始位置, 整数型, , , 参数3<br /> .局部变量 字节集, 字节集<br /> .局部变量 新指针, 整数型<br /> .局部变量 字节集长度, 整数型<br /> .局部变量 最大可取长度, 整数型<br /> <br /> ' 通过这个子程序来给大家讲一下如何返回通用型数据<br /> 字节集指针 ＝ 指针到整数 (pArgInf)  ' 因为 GetArgAddr (pArgInf, 1) = pArgInf 所以就不用GetArgAddr了<br /> 欲取数据类型 ＝ 指针到整数 (GetArgAddr (pArgInf, 2))<br /> 起始位置 ＝ 指针到整数 (GetArgAddr (pArgInf, 3))<br /> ' 首先通过数据地址取得前三个参数值 前面说很多了 不再说了<br /> .如果真 (欲取数据类型 ＜ #字节型 或 欲取数据类型 ＞ #文本型)  ' 判断第二个参数是否有效<br />     NotifySys (#NRS_RUNTIME_ERR, _取文本指针 (“‘欲取数据类型’参数超出范围！”), 0)  ' 显示运行时错误<br />     返回 ()<br /> .如果真结束<br /> ' ！！！！↓下面这句是返回通用型数据的重点！！置返回数据类型，上面说过了pRetData也是MDATA_INF结构 保存了类型等信息<br /> ' 因此我们要设置返回的数据是什么类型！根据第二个参数来设置<br /> SetDataType (pRetData, 多项选择 (欲取数据类型, #SDT_BYTE, #SDT_SHORT, #SDT_INT, #SDT_INT64, #SDT_FLOAT, #SDT_DOUBLE, #SDT_BOOL, #SDT_DATE_TIME, #SDT_SUB_PTR, #SDT_TEXT))<br /> ' SetDataType是为大家省事写好的子程序 直接调用即可<br /> ' SetDataType的实际作用是：写内存整数_ (pRetData ＋ 8, 位或 (指针到整数 (pRetData ＋ 8), 数据类型))

pRetData是MDATA_INF数据类型，的结构如下

  

数据类型名	公开	备 注
MDATA_INF		大小:12 pArgInf中每个参数的结构如此所示
成员名	类 型	传址	数组	备 注
Data	长整数型			参数数据,基本类型为数据本身,非基本类型(包括文本型和字节集)为数据地址
m_dtDataType	整数型			参数类型

.版本 2<br /> <br /> .数据类型 MDATA_INF, , 大小:12 pArgInf中每个参数的结构如此所示<br />     .成员 Data, 长整数型, , , 参数数据,基本类型为数据本身,非基本类型(包括文本型和字节集)为数据地址<br />     .成员 m_dtDataType, 整数型, , , 参数类型

也就是说，pRetData的前8字节代表数据本身，后4代表数据类型。
易语言我吃了pRetData赋值文本型代码如下

  

子程序名	返回值类型	公开	备 注
返回文本型值
参数名	类 型	参考	可空	数组	备 注
pRetData	整数型
返回值	文本型
返回副本	逻辑型

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

如果 (返回副本)
Temp ＝ 返回值
置入代码 ({ 139, 69, 8, 255, 117, 252, 143, 0 })
置入代码 ({ 81, 139, 69, 8, 139, 77, 12, 81, 139, 9, 137, 8, 89, 139, 69, 252, 137, 1, 89, 89 })
置入代码 ({ 201, 194, 16, 0 })

.版本 2<br /> <br /> .子程序 返回文本型值<br /> .参数 pRetData, 整数型<br /> .参数 返回值, 文本型<br /> .参数 返回副本, 逻辑型, 可空<br /> .局部变量 Temp, 文本型<br /> <br /> .如果 (返回副本)<br />     Temp ＝ 返回值<br />     置入代码 ({ 139, 69, 8, 255, 117, 252, 143, 0 })<br /> .否则<br />     置入代码 ({ 81, 139, 69, 8, 139, 77, 12, 81, 139, 9, 137, 8, 89, 139, 69, 252, 137, 1, 89, 89 })<br /> .如果结束<br /> 置入代码 ({ 201, 194, 16, 0 })

梦优勿扰pRetData赋值文本型代码如下

  

子程序名	返回值类型	公开	备 注
返回文本型值
参数名	类 型	参考	可空	数组	备 注
返回值指针	整数型
返回值	文本型

' mov ecx, dword ptr [esp+0C]
' mov eax, dword ptr [ecx]
' test eax, eax
' je 0C
' mov edx, dword ptr [esp+08]
' mov dword ptr [edx], eax
' mov dword ptr [ecx], 00000000
置入代码 ({ 139, 76, 36, 12, 139, 1, 133, 192, 116, 12, 139, 84, 36, 8, 137, 2, 199, 1, 0, 0, 0, 0 })

.版本 2<br /> <br /> .子程序 返回文本型值<br /> .参数 返回值指针, 整数型<br /> .参数 返回值, 文本型<br /> <br /> ' mov ecx, dword ptr [esp+0C]<br /> ' mov eax, dword ptr [ecx]<br /> ' test eax, eax<br /> ' je 0C<br /> ' mov edx, dword ptr [esp+08]<br /> ' mov dword ptr [edx], eax<br /> ' mov dword ptr [ecx], 00000000<br /> 置入代码 ({ 139, 76, 36, 12, 139, 1, 133, 192, 116, 12, 139, 84, 36, 8, 137, 2, 199, 1, 0, 0, 0, 0 })

现在讲结果。
在支持命令创建的时候，如果指定了返回值为具体的数据类型，则会忽略支持库命令中pRetData指定的返回类型。如果指定的返回是通用型（#_SDT_ALL），则具体返回类型则交给pRetData的后4位。
测试中我输出了易语言我吃了以及梦优勿扰对pRetData的后4位，发现均为空（{0,0,0,0}）。
对返回pRetData进行再加工

  

返回文本型值 (返回地址, 返回文本)
返回类型 ＝ 位或 (指针到整数 (返回地址 ＋ 8), 参数信息 [1].数据类型)
写内存整数 (返回地址 ＋ 8, 返回类型)

.版本 2<br /> <br />     返回文本型值 (返回地址, 返回文本)<br />     返回类型 ＝ 位或 (指针到整数 (返回地址 ＋ 8), 参数信息 [1].数据类型)<br />     写内存整数 (返回地址 ＋ 8, 返回类型)

成功将通用型返回实现。
基于梦优勿扰支持库关键代码如下1.添加生成支持库命令

  

子程序名	返回值类型	公开	备 注
建立命令信息

命令_添加参数 (“参数”, #数据类型_通用型, “一个通用型参数”, , #参数_可空 )
命令_添加 (&返回通用型, “返回通用型”, “”, “”, “”, 1, , #数据类型_通用型, #级别_初级, , )
命令_生成当前索引 ()

.版本 2<br /> <br /> .子程序 建立命令信息<br /> <br /> 命令_添加参数 (“参数”, #数据类型_通用型, “一个通用型参数”, , #参数_可空)<br /> 命令_添加 (&返回通用型, “返回通用型”, “”, “”, “”, 1, , #数据类型_通用型, #级别_初级, , )<br /> 命令_生成当前索引 ()

2.添加命令

  

子程序名	返回值类型	公开	备 注
返回通用型
参数名	类 型	参考	可空	数组	备 注
返回地址	整数型
参数数量	整数型
参数地址	整数型

变量名	类 型	静态	数组	备 注
参数信息	参数数据信息		0
返回文本	文本型

取参数数据信息 (参数信息, 参数数量, 参数地址)
判断 (参数信息 [1].数据类型 ＝ #数据类型_文本型 )
返回文本 ＝ GetTextArg (参数信息 [1].数据地址)
返回文本型值 (返回地址, 返回文本)
' 再处理
' 将数据类型写入返回指针的后4位
返回类型 ＝ 位或 (指针到整数 (返回地址 ＋ 8), #数据类型_文本型 )
写内存整数 (返回地址 ＋ 8, 返回类型)

.版本 2<br /> <br /> .子程序 返回通用型, , 公开<br /> .参数 返回地址, 整数型<br /> .参数 参数数量, 整数型<br /> .参数 参数地址, 整数型<br /> .局部变量 参数信息, 参数数据信息, , "0"<br /> .局部变量 返回文本, 文本型<br /> <br /> 取参数数据信息 (参数信息, 参数数量, 参数地址)<br /> .判断开始 (参数信息 [1].数据类型 ＝ #数据类型_文本型)<br />     返回文本 ＝ GetTextArg (参数信息 [1].数据地址)<br />     返回文本型值 (返回地址, 返回文本)<br /> <br />     ' 再处理<br />     ' 将数据类型写入返回指针的后4位<br />     返回类型 ＝ 位或 (指针到整数 (返回地址 ＋ 8), #数据类型_文本型)<br />     写内存整数 (返回地址 ＋ 8, 返回类型)<br /> .默认

3.测试支持库代码

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

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

输出文本 ＝ 返回通用型 (“这里是输入的文本”)
信息框 (输出文本, 0, , )
返回 (0)  ' 可以根据您的需要返回任意数值

i支持库列表	支持库注释
tyx	(未知支持库)

.版本 2<br /> .支持库 tyx<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 输出文本, 文本型<br /> <br /> 输出文本 ＝ 返回通用型 (“这里是输入的文本”)<br /> 信息框 (输出文本, 0, , )<br /> 返回 (0)  ' 可以根据您的需要返回任意数值

运行结果如下


最后,在这里非常感谢两位前辈为我们做出的贡献!
为我们易语言玩家提供了如此便捷的支持库开发工具!