高分悬赏：如何将自定义数据类型作为DLL参数

V雪落有声V

现在需要：
将一个自定义的数据类型：包括整数，文本，字节集

  

数据类型名	公开	备 注
新的数据类型
成员名	类 型	传址	数组	备 注
a	整数型
b	整数型
文本	文本型
字节集	字节集
c	整数型

.版本 2<br /> <br /> .数据类型 新的数据类型<br />     .成员 a, 整数型<br />     .成员 b, 整数型<br />     .成员 文本, 文本型<br />     .成员 字节集, 字节集<br />     .成员 c, 整数型

作为DLL的参数传入一个自己写的DLL文件当中。
但是易语言DLL文件本身不支持自定义数据类型作为参数。

错误(10063): 被取地址的子程序“子程序1”的参数 1 必须是基本数据类型，且不能为字节集。

问，该如何将参数传递进入DLL？
要求：为了方便以后的管理和扩展，禁止将数据类型拆开，将每个成员都当做参数传递。
如下：

  

子程序名	返回值类型	公开	备 注
子程序1			禁止这样
参数名	类 型	参考	可空	数组	备 注
a	整数型				禁止这样
b	整数型				禁止这样
文本	文本型				禁止这样
字节集	字节集				禁止这样
c	整数型				禁止这样

.版本 2<br /> <br /> .子程序 子程序1, , 公开, 禁止这样<br /> .参数 a, 整数型, , 禁止这样<br /> .参数 b, 整数型, , 禁止这样<br /> .参数 文本, 文本型, , 禁止这样<br /> .参数 字节集, 字节集, , 禁止这样<br /> .参数 c, 整数型, , 禁止这样

HugBear

修改一下

  

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

变量名	类 型	静态	数组	备 注
数据	数据类型1

复制到类型 (数据, 指针, 取类型字节数 (数据))
信息框 (到文本 (数据.整数型), 0, )
信息框 (数据.文本型, 0, )
信息框 (到文本 (取指针数据_字节集 (数据.字节集)), 0, )
信息框 (到文本 (数据.小数型), 0, )
信息框 (到文本 (数据.长整数), 0, )
信息框 (到文本 (数据.双精度小数型), 0, )
' 不在需要使用了 释放字节集的内存
释放指针内存 (数据.字节集)
清空内存块 (数据, 取类型字节数 (数据))

子程序名	返回值类型	公开	备 注
释放指针内存
参数名	类 型	参考	可空	数组	备 注
指针	整数型

如果真 (IsBadReadPtr (指针, 4) ＝ 0)
GlobalFree (指针)

子程序名	返回值类型	公开	备 注
取指针数据_字节集	字节集
参数名	类 型	参考	可空	数组	备 注
指针	整数型

变量名	类 型	静态	数组	备 注
Bin	字节集
size	整数型

检查 (指针 ＞ 0)
如果真 (IsBadReadPtr (指针, 4) ＝ 0)
size ＝ 取字节集数据 (指针到字节集 (指针, 4), 3, )
Bin ＝ 指针到字节集 (指针 ＋ 4, size)
返回 (Bin)

.版本 2<br /> <br /> .子程序 TEST, , 公开<br /> .参数 指针, 整数型<br /> .局部变量 数据, 数据类型1<br /> <br /> 复制到类型 (数据, 指针, 取类型字节数 (数据))<br /> 信息框 (到文本 (数据.整数型), 0, )<br /> 信息框 (数据.文本型, 0, )<br /> 信息框 (到文本 (取指针数据_字节集 (数据.字节集)), 0, )<br /> 信息框 (到文本 (数据.小数型), 0, )<br /> 信息框 (到文本 (数据.长整数), 0, )<br /> 信息框 (到文本 (数据.双精度小数型), 0, )<br /> ' 不在需要使用了 释放字节集的内存<br /> 释放指针内存 (数据.字节集)<br /> 清空内存块 (数据, 取类型字节数 (数据))<br /> <br /> .子程序 释放指针内存<br /> .参数 指针, 整数型<br /> <br /> .如果真 (IsBadReadPtr (指针, 4) ＝ 0)<br />     GlobalFree (指针)<br /> .如果真结束<br /> <br /> <br /> .子程序 取指针数据_字节集, 字节集<br /> .参数 指针, 整数型<br /> .局部变量 Bin, 字节集<br /> .局部变量 size, 整数型<br /> <br /> 检查 (指针 ＞ 0)<br /> .如果真 (IsBadReadPtr (指针, 4) ＝ 0)<br />     size ＝ 取字节集数据 (指针到字节集 (指针, 4), 3, )<br />     Bin ＝ 指针到字节集 (指针 ＋ 4, size)<br /> .如果真结束<br /> 返回 (Bin)

大表舅

大神的问题只有@じMarcusジ

じMarcusジ

我也没办法，这个我试了，我也遇到这个问题，不好意思，帮不到你~

剩下我de孩子气

http://www.5a5x.com/06/201107/07173817.html

HugBear

传递指针 拷贝内存

ZBZJM

111帮不到你

HugBear

  

窗口程序集名	保 留	保 留	备 注
集_测试

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

变量名	类 型	静态	数组	备 注
自定义	数据类型1

自定义.整数型 ＝ 1
自定义.文本型 ＝ “asff”
自定义.字节集 ＝ 取变量指针_字节集 (到字节集 (“测试字节集”))
' 字节集在自定义数据类型中 直接拷贝不知道为什么不行..因此就用这个方法代替
' 需要注意的是 字节集 在DLL 中 被 取指针数据_字节集取出之后 就会把内存释放掉,因此 如果需要多次使用
' 还需要自己在做一些处理.比如专门有一个函数来释放.当不在需要的时候 在调用释放
自定义.小数型 ＝ 1.1
自定义.长整数 ＝ 1231241
自定义.双精度小数型 ＝ 123.22365
TEST (自定义)
' 重新赋值字节集
自定义.字节集 ＝ 取变量指针_字节集 (到字节集 (“测试字节集2”))
TEST_指针 (取变量指针_数据类型 (自定义))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
取变量指针_数据类型	整数型		变量指针
参数名	类 型	参考	可空	数组	备 注
变量	数据类型1

置入代码 ({ 139, 69, 8, 139, 0, 139, 229, 93, 194, 4, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
取指针数据_字节集	字节集
参数名	类 型	参考	可空	数组	备 注
指针	整数型

变量名	类 型	静态	数组	备 注
Bin	字节集
size	整数型

检查 (指针 ＞ 0)
如果真 (IsBadReadPtr (指针, 4) ＝ 0)
size ＝ 取字节集数据 (指针到字节集 (指针, 4), 3, )
Bin ＝ 指针到字节集 (指针 ＋ 4, size)
GlobalFree (指针)
返回 (Bin)

子程序名	返回值类型	公开	备 注
取变量指针_字节集	整数型		变量指针
参数名	类 型	参考	可空	数组	备 注
变量	字节集

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

size ＝ 取字节集长度 (变量)
buffer ＝ GlobalAlloc ( #GMEM_ZEROINIT, size ＋ 4)
检查 (buffer ＞ 0)
写到内存 (size, buffer, 4)
写到内存 (变量, buffer ＋ 4, size)
返回 (buffer)

.版本 2<br /> <br /> .程序集 集_测试<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 自定义, 数据类型1<br /> <br /> 自定义.整数型 ＝ 1<br /> 自定义.文本型 ＝ “asff”<br /> 自定义.字节集 ＝ 取变量指针_字节集 (到字节集 (“测试字节集”))<br /> ' 字节集在自定义数据类型中 直接拷贝不知道为什么不行..因此就用这个方法代替<br /> ' 需要注意的是 字节集 在DLL 中 被 取指针数据_字节集取出之后 就会把内存释放掉,因此 如果需要多次使用<br /> ' 还需要自己在做一些处理.比如专门有一个函数来释放.当不在需要的时候 在调用释放<br /> 自定义.小数型 ＝ 1.1<br /> 自定义.长整数 ＝ 1231241<br /> 自定义.双精度小数型 ＝ 123.22365<br /> TEST (自定义)<br /> <br /> ' 重新赋值字节集<br /> 自定义.字节集 ＝ 取变量指针_字节集 (到字节集 (“测试字节集2”))<br /> <br /> TEST_指针 (取变量指针_数据类型 (自定义))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 取变量指针_数据类型, 整数型, , 变量指针<br /> .参数 变量, 数据类型1, 参考<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 139, 229, 93, 194, 4, 0 })<br /> 返回 (0)<br /> <br /> .子程序 取指针数据_字节集, 字节集<br /> .参数 指针, 整数型<br /> .局部变量 Bin, 字节集<br /> .局部变量 size, 整数型<br /> <br /> 检查 (指针 ＞ 0)<br /> .如果真 (IsBadReadPtr (指针, 4) ＝ 0)<br />     size ＝ 取字节集数据 (指针到字节集 (指针, 4), 3, )<br />     Bin ＝ 指针到字节集 (指针 ＋ 4, size)<br />     GlobalFree (指针)<br /> .如果真结束<br /> 返回 (Bin)<br /> <br /> .子程序 取变量指针_字节集, 整数型, , 变量指针<br /> .参数 变量, 字节集<br /> .局部变量 buffer, 整数型<br /> .局部变量 size, 整数型<br /> <br /> size ＝ 取字节集长度 (变量)<br /> buffer ＝ GlobalAlloc (#GMEM_ZEROINIT, size ＋ 4)<br /> 检查 (buffer ＞ 0)<br /> 写到内存 (size, buffer, 4)<br /> 写到内存 (变量, buffer ＋ 4, size)<br /> 返回 (buffer)