新年好 易语言 sizeof 函数实现

帅气与大侠

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

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


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

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

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)

tmwmr12

感谢分享，很给力！~感谢分享，很给力！~感谢分享，很给力！~感谢分享，很给力！~感谢分享，很给力！~

五花牛

感谢分享，很给力！~

pshq123

666666666666666666666666

wkn20051123

感谢大神分享~！

ip68682

收藏了  记录下标识下

hbqjb

谢谢楼主分享！

a22558577

感谢大神分享~！

qq420345437

新技能，加持

zhao1907

看上去好像不错

a623539929

谢谢分享！