欢迎光临
我们一直在努力

vb“变态”用法之有用技术和没用指针_visualbasic教程

建站超值云服务器,限时71元/月

BillMcCarthy在那篇《ModifyaVarialbesPointer》里用SafeArray实现多进程的数组共享内存,他考虑了数组变量的类型,因此可以兼容大部分数值类型的数组,是一个非常不错的东西。我这里不讲它实现的具体方法,只是想和大家一起看看SafeArray还能做什么。

  修改SafeArray结构的pvData指针却是一个非常有用的技术,通过修改pvData,就能够通过数组直接访问指定的内存。

  和上一篇文章包装字串指针类一样,通过修改pvData,我们也可以包装一些普通数值类型变量的指针类。

  我在指针的第一篇文章里说过,要想实现C语言里*这个取指针所指变量值功能,必须要用CopyMemory。实际上,我说错了,我们完全可以实现和C里一样的指针,如下:

->//C语言
LongL;
Long*pL=&L;
*pL=12;
printf(“L=d*pL=d”,l,*pl);
VB里
DimpLAsNewpLong,LAsLong
pL.AttachL
也可以pL.Ptr=VarPtr(L)
pL=12
Debug.Print”L=”;L;”*pL=”;pL->

  结果都能够通过修改pL指针,达到修改变量L的目的。

  上面VB代码里的pLong就是一个包装好的Long型变量的指针类,下面看看如何来实现它:

->OptionExplicit
********************************************************
pLong.cls
包装一个Long型指针的类
作者:熊超ID:AdamBear2002年3月18日
http://www.csdn.net/Author/AdamBear
你可以自由使用本类模块,不过请保留本声明
********************************************************

PrivateDeclareSubCopyMemoryLib”kernel32″Alias”RtlMoveMemory”(DestinationAsAny,SourceAsAny,ByValLengthAsLong)

Privatem_Arr(0)AsLong

缺省属性
PublicPropertyGetData()AsLong
Data=m_Arr(0)
EndProperty

PublicPropertyLetData(ByValValueAsLong)
m_Arr(0)=Value
EndProperty

PublicSubAttach(TargetAsLong)
Ptr=VarPtr(Target)
EndSub

PublicPropertyLetPtr(ByValTargetAsLong)
DimpSAAsLong

得到SafeArray结构指针pSA
CopyMemorypSA,ByValVarPtrArray(m_Arr),4
这个指针偏移12个字节后就是pvData指针
CopyMemoryByVal(pSA 12),Target,4

EndProperty

PublicPropertyGetPtr()AsLong
Ptr=m_SA.pvData
EndProperty

PrivateSubClass_Terminate()
CopyMemoryByValVarPtrArray(m_Arr),0&,4
EndSub->

  要将它改成Byte的指针类,只需要将上面的代码中m_Arr数组的类型,Data属性和Attach方法中的参数类型改为Byte型即可。

  当我们这样做出pLong、pByte、pInteger后,我们就能够玩点和C里一样的花样了。

->SubMain()
DimpBAsNewpByte,BAsByte
DimpIAsNewpInteger,IAsInteger
DimpLAsNewpLong,LAsLong

用Attach方法将经过类型检查,直接用Ptr属性则可以绕过类型检查
pB.AttachB
pI.AttachI
pL.AttachL

试试指针
B=1
Debug.Print”B=”;B;”*pB=”;pB

pB=1
Debug.Print”B=”;B;”*pB=”;pB

I=1000
Debug.Print”I=”;I;”*pI=”;pI

pI=2000
Debug.Print”I=”;I;”*pI=”;pI

L=40000
Debug.Print”L=”;L;”*pL=”;pL

pL=60000
Debug.Print”L=”;L;”*pL=”;pL

试试C里的类型转换
用Integer指针访问Long型变量
pI.Ptr=VarPtr(L)
Debug.Print”*pI=”;pI

EndSub->

  搞出这几种普通数值类型的指针类有什么用?基本上没有什么大用。不过是证明一种方法的可行性,和演示技术。这种技术还有什么用,需要的时候还会再谈。->

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » vb“变态”用法之有用技术和没用指针_visualbasic教程
分享到: 更多 (0)