新年好 易语言 sizeof 函数实现

帅气与大侠

年末了，今年又学习到了不少新知识， 跟大家分享下易语言 sizeof 实现方法。

日常开发中，经常要调用某些 api 函数，拷贝来拷贝去，其中不免会遇到要填写某个数据类型的结构尺寸
看 api 文档别的语言是通过 sizeof(var) 去统计某些结构体的尺寸，但是咱易语言没有。


最早我是拿手指头一个一个数的，经常手指头不够用。
后来学到了用 LocalSize () 函数，将参数类型改为具体的数据类型去计算
每次遇到新数据类型结构就要新定义一个DLL，也很麻烦！
刚好近期消化了不少关于内存的知识，就尝试下看看，调试观察了各种各样的数据类型，大致是了解清楚了存储机制，把 sizeif 的功能搞出来了。
不过有点小瑕疵，就是参数无法弄成通用型的，要额外：取指针地址（变量）传入。
强制取通用型测试会异常，有大佬会弄的可以试试弄成通用型变量。

完整源码下载： sizeof.zip (384.42 KB, 下载次数: 142)

2023-12-30 21:22 上传

点击文件名下载附件
源码预览：

  

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

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

变量名	类 型	静态	数组	备 注
IP_ADAPTER_INFO	IP_ADAPTER_INFO
测试数据类型	测试数据类型
多层嵌套数据结构	多层嵌套数据结构

调试输出 (sizeof (取指针地址 (IP_ADAPTER_INFO)))
调试输出 (sizeof (取指针地址 (多层嵌套数据结构)), LocalSize_多层嵌套数据结构 (多层嵌套数据结构))
调试输出 (sizeof (取指针地址 (测试数据类型)))
调试输出 (sizeof ( #字节型 ), sizeof ( #短整数型 ), sizeof ( #整数型 ), sizeof ( #长整数型 ), sizeof ( #小数型 ), sizeof ( #双精度小数型 ), sizeof ( #逻辑型 ), sizeof ( #日期时间型 ), sizeof ( #子程序指针型 ))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
sizeof	整数型		取数据结构的大小尺寸，失败返回0
参数名	类 型	参考	可空	数组	备 注
param	整数型				取指针地址（数据结构），不支持数组

变量名	类 型	静态	数组	备 注
pAddr	整数型
size	整数型
len	整数型
I	整数型
ptr	整数型

如果真 (param ＞ 0 且 param ＜ 10)
返回 (取数据类型尺寸 (param))

pAddr ＝ param
len ＝ __getPtrLen (pAddr)
变量循环首 (0, len, 4, I)  ' 易语言数据结构是4字节对齐的，每4个字节一组循环
ptr ＝ __get (pAddr, I)  ' 取索引组整数，该整数可能是指针地址，也有可能是纯数值
判断 (指针_是否有效 (ptr) ＝ 真)  ' 指针是否有效可以区分一个整数是指针还是数值，分配内存的时候应该什么地方有记录
ptr ＝ __getRedirArrPtr (ptr)  ' 有可能是数组指针，就要进行重定向+8偏移
size ＝ size ＋ sizeof (ptr)  ' 传入新指针地址，递归累计大小
size ＝ size ＋ 4

变量循环尾 ()
' 下面 size - 4 作用解释
' sizeof()时，第一层的指针地址比如是{1,0,0,0,2,0,0,0,3,0,0,0},4字节对齐，表示这个数据结构有N个成员
' 成员的地址指向{1,0,0,0}或{2,0,0,0},这一层的大小是不统计进去的
' 只统计最终指向的数据实际长度
' 由于是递归，无论指针地址嵌套多少层，每递归一次就-4就完美了
如果真 (size ≠ 0)
size ＝ size － 4
返回 (size)

子程序名	返回值类型	公开	备 注
__getPtrLen	整数型		取指针长度，找到8个连续的171时返回，如不明此函数用途请勿调用，避免异常！！！
参数名	类 型	参考	可空	数组	备 注
pointer	整数型

变量名	类 型	静态	数组	备 注
pAddr	整数型
byte	字节型
count	整数型

pAddr ＝ pointer
循环判断首 ()
byte ＝ __get_byte (pAddr, 0)
判断 (byte ＝ 171)
count ＝ count ＋ 1
count ＝ 0

pAddr ＝ pAddr ＋ 1
循环判断尾 (count ＜ 7)
返回 (pAddr － pointer － count ＋ 1)

子程序名	返回值类型	公开	备 注
__getRedirArrPtr	整数型		数组指针重定向，如果指针地址指向的是数组起始地址{1,0,0,0,x,x,x,x}则对该指针地址进行+8重定向，否则返回源指针地址。
参数名	类 型	参考	可空	数组	备 注
pAddr	整数型

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

如果真 (__get_byte (pAddr, 0) ＝ 1)
offset ＝ __get (pAddr, 4)  ' 取数组成员数
如果真 (__get (pAddr ＋ 8, offset) ＝ -1414812757 且 __get (pAddr ＋ 12, offset) ＝ -1414812757)
' 取成员数量后面是否是8个连续的171，是的话就是数组了，返回+8。
' -1414812757=取字节集数据 ({ 171，171，171，171 }, #整数型, )
返回 (pAddr ＋ 8)

返回 (pAddr)

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

.版本 2<br /> .支持库 spec<br /> .支持库 shellEx<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 IP_ADAPTER_INFO, IP_ADAPTER_INFO<br /> .局部变量 测试数据类型, 测试数据类型<br /> .局部变量 多层嵌套数据结构, 多层嵌套数据结构<br /> <br /> <br /> <br /> 调试输出 (sizeof (取指针地址 (IP_ADAPTER_INFO)))<br /> 调试输出 (sizeof (取指针地址 (多层嵌套数据结构)), LocalSize_多层嵌套数据结构 (多层嵌套数据结构))<br /> 调试输出 (sizeof (取指针地址 (测试数据类型)))<br /> 调试输出 (sizeof (#字节型), sizeof (#短整数型), sizeof (#整数型), sizeof (#长整数型), sizeof (#小数型), sizeof (#双精度小数型), sizeof (#逻辑型), sizeof (#日期时间型), sizeof (#子程序指针型))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 sizeof, 整数型, , 取数据结构的大小尺寸，失败返回0<br /> .参数 param, 整数型, , 取指针地址（数据结构），不支持数组<br /> .局部变量 pAddr, 整数型<br /> .局部变量 size, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 I, 整数型<br /> .局部变量 ptr, 整数型<br /> <br /> .如果真 (param ＞ 0 且 param ＜ 10)<br />     返回 (取数据类型尺寸 (param))<br /> .如果真结束<br /> <br /> pAddr ＝ param<br /> len ＝ __getPtrLen (pAddr)<br /> .变量循环首 (0, len, 4, I)  ' 易语言数据结构是4字节对齐的，每4个字节一组循环<br />     ptr ＝ __get (pAddr, I)  ' 取索引组整数，该整数可能是指针地址，也有可能是纯数值<br />     .判断开始 (指针_是否有效 (ptr) ＝ 真)  ' 指针是否有效可以区分一个整数是指针还是数值，分配内存的时候应该什么地方有记录<br />         ptr ＝ __getRedirArrPtr (ptr)  ' 有可能是数组指针，就要进行重定向+8偏移<br />         size ＝ size ＋ sizeof (ptr)  ' 传入新指针地址，递归累计大小<br />     .默认<br />         size ＝ size ＋ 4<br />     .判断结束<br /> <br /> .变量循环尾 ()<br /> ' 下面 size - 4 作用解释<br /> ' sizeof()时，第一层的指针地址比如是{1,0,0,0,2,0,0,0,3,0,0,0},4字节对齐，表示这个数据结构有N个成员<br /> ' 成员的地址指向{1,0,0,0}或{2,0,0,0},这一层的大小是不统计进去的<br /> ' 只统计最终指向的数据实际长度<br /> ' 由于是递归，无论指针地址嵌套多少层，每递归一次就-4就完美了<br /> .如果真 (size ≠ 0)<br />     size ＝ size － 4<br /> .如果真结束<br /> 返回 (size)<br /> <br /> .子程序 __getPtrLen, 整数型, , 取指针长度，找到8个连续的171时返回，如不明此函数用途请勿调用，避免异常！！！<br /> .参数 pointer, 整数型<br /> .局部变量 pAddr, 整数型<br /> .局部变量 byte, 字节型<br /> .局部变量 count, 整数型<br /> <br /> pAddr ＝ pointer<br /> .循环判断首 ()<br />     byte ＝ __get_byte (pAddr, 0)<br />     .判断开始 (byte ＝ 171)<br />         count ＝ count ＋ 1<br />     .默认<br />         count ＝ 0<br />     .判断结束<br /> <br />     pAddr ＝ pAddr ＋ 1<br /> .循环判断尾 (count ＜ 7)<br /> 返回 (pAddr － pointer － count ＋ 1)<br /> <br /> .子程序 __getRedirArrPtr, 整数型, , 数组指针重定向，如果指针地址指向的是数组起始地址{1,0,0,0,x,x,x,x}则对该指针地址进行+8重定向，否则返回源指针地址。<br /> .参数 pAddr, 整数型<br /> .局部变量 offset, 整数型<br /> <br /> .如果真 (__get_byte (pAddr, 0) ＝ 1)<br />     offset ＝ __get (pAddr, 4)  ' 取数组成员数<br />     .如果真 (__get (pAddr ＋ 8, offset) ＝ -1414812757 且 __get (pAddr ＋ 12, offset) ＝ -1414812757)<br />         ' 取成员数量后面是否是8个连续的171，是的话就是数组了，返回+8。<br />         ' -1414812757=取字节集数据 ({ 171，171，171，171 }, #整数型, )<br />         返回 (pAddr ＋ 8)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (pAddr)

帅气与大侠

提示：找不到通用型变量 需要到精易模块源码里找取指针_通用型()，复制下里面的通用型就可以了

  

子程序名	返回值类型	公开	备 注
sizeof	整数型		取数据结构的尺寸大小
参数名	类 型	参考	可空	数组	备 注
变量	通用型				数据结构变量，不能是数组，且数据结构未赋值

变量名	类 型	静态	数组	备 注
pAddr	整数型
I	整数型
char	字节型
count	整数型
len	整数型
ptr	整数型
size	整数型

pAddr ＝ __get (取指针_通用型 (变量), 0)
如果真 (pAddr ＞ 0 且 pAddr ＜ 10)
返回 (取数据类型尺寸 (pAddr))

循环判断首 ()
char ＝ __get_byte (pAddr, I)
判断 (char ＝ 171)
count ＝ count ＋ 1
count ＝ 0

I ＝ I ＋ 1
循环判断尾 (count ＜ 7)
len ＝ I － count ＋ 1
变量循环首 (0, len, 4, I)
ptr ＝ __get (pAddr, I)
判断 (指针_是否有效 (ptr) ＝ 真)
如果真 (__get (ptr, 0) ＝ 1)  ' 如果开头是{1,0,0,0},可能是数组
ptr ＝ ptr ＋ 8

size ＝ size ＋ sizeof (ptr)
size ＝ size ＋ 4

变量循环尾 ()
如果真 (size ≠ 0)
size ＝ size － 4
返回 (size)

.版本 2<br /> <br /> .子程序 sizeof, 整数型, 公开, 取数据结构的尺寸大小<br /> .参数 变量, 通用型, 参考, 数据结构变量，不能是数组，且数据结构未赋值<br /> .局部变量 pAddr, 整数型<br /> .局部变量 I, 整数型<br /> .局部变量 char, 字节型<br /> .局部变量 count, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 ptr, 整数型<br /> .局部变量 size, 整数型<br /> <br /> pAddr ＝ __get (取指针_通用型 (变量), 0)<br /> .如果真 (pAddr ＞ 0 且 pAddr ＜ 10)<br />     返回 (取数据类型尺寸 (pAddr))<br /> .如果真结束<br /> <br /> .循环判断首 ()<br />     char ＝ __get_byte (pAddr, I)<br />     .判断开始 (char ＝ 171)<br />         count ＝ count ＋ 1<br />     .默认<br />         count ＝ 0<br />     .判断结束<br /> <br />     I ＝ I ＋ 1<br /> .循环判断尾 (count ＜ 7)<br /> len ＝ I － count ＋ 1<br /> <br /> .变量循环首 (0, len, 4, I)<br />     ptr ＝ __get (pAddr, I)<br />     .判断开始 (指针_是否有效 (ptr) ＝ 真)<br />         .如果真 (__get (ptr, 0) ＝ 1)  ' 如果开头是{1,0,0,0},可能是数组<br />             ptr ＝ ptr ＋ 8<br />         .如果真结束<br /> <br />         size ＝ size ＋ sizeof (ptr)<br />     .默认<br />         size ＝ size ＋ 4<br />     .判断结束<br /> <br /> .变量循环尾 ()<br /> .如果真 (size ≠ 0)<br />     size ＝ size － 4<br /> .如果真结束<br /> 返回 (size)

yanliubing

感谢大神分享~学习学习

道无涯i

牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛牛

fenxiangzhe

666666666666666666666666666666666666666

今时以至遂渐开

        感谢分享，很给力！~

1355301564

更新分享啊啊

loverose

看看效果66666666

lexuan

感谢大神分享~！

Aimun

感谢分享，很给力！~

Aimun

        感谢分享，很给力！~

wangjie12

支持开源~！感谢分享