真想不到之六:有用的技术和没用的指针

原创 2002年03月27日 08:50:00

我的文章可见:
http://www.csdn.net/Author/AdamBear

               真想不到之六:有用的技术和没用的指针
关键字:VB、SafeArray、数值类型指针
难度:中级
参考文章:
1、2000年7月VBPJ Black Belt专栏文章《Modify a Varialbe's Pointer》
   作者:Bill McCarthy

引言:
    这真的是指针专题的最后一篇了(当然,以后肯定还会提到指针)。主要是来谈谈Bill McCarthy的文章《Modify a Varialbe's Pointer》的精华。关于这篇文章的东西,在我的《VB指针葵花宝典之SafeArray》里曾谈到过,但那篇文章实际上没有写出SafeArray的精华,用SafeArray最妙的地方在于可以将一个变量建在指定的内存处,就象上一篇文章给出的那个字串类一样。

正文:  
    Bill McCarthy在那篇《Modify a Varialbe's Pointer》里用SafeArray实现多进程的数组共享内存,他考虑了数组变量的类型,因此可以兼容大部分数值类型的数组,是一个非常不错的东西。我这里不讲它实现的具体方法,只是想和大家一起看看SafeArray还能做什么。
    修改SafeArray结构的pvData指针却是一个非常有用的技术,通过修改pvData,就能够通过数组直接访问指定的内存。
    和上一篇文章包装字串指针类一样,通过修改pvData,我们也可以包装一些普通数值类型变量的指针类。
    我在指针的第一篇文章里说过,要想实现C语言里'*'这个取指针所指变量值功能,必须要用CopyMemory。实际上,我说错了,我们完全可以实现和C里一样的指针,如下:
//C语言
    Long L;
    Long* pL = &L;
    *pL = 12;
    printf("L = %d  *pL = %d", l, *pl);

'VB里
     Dim pL As New pLong, L As Long
     pL.Attach L
     '也可以 pL.Ptr = VarPtr(L)
     pL = 12
     Debug.Print "L ="; L; "  *pL ="; pL
  
    结果都能够通过修改pL指针,达到修改变量L的目的。
    上面VB代码里的pLong就是一个包装好的Long型变量的指针类,下面看看如何来实现它:

    Option Explicit
    '********************************************************
    'pLong.cls
    '包装一个Long型指针的类
    '作者: 熊超         ID: AdamBear        2002年3月18日
    'http://www.csdn.net/Author/AdamBear
    '    你可以自由使用本类模块,不过请保留本声明
    '********************************************************
   
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
   
    Private m_Arr(0) As Long
   
   
    '缺省属性
    Public Property Get Data() As Long
        Data = m_Arr(0)
    End Property
   
    Public Property Let Data(ByVal Value As Long)
        m_Arr(0) = Value
    End Property
   
    Public Sub Attach(Target As Long)
        Ptr = VarPtr(Target)
    End Sub
   
    Public Property Let Ptr(ByVal Target As Long)
        Dim pSA As Long
       
        '得到SafeArray结构指针pSA
        CopyMemory pSA, ByVal VarPtrArray(m_Arr), 4
        '这个指针偏移12个字节后就是pvData指针
        CopyMemory ByVal (pSA + 12), Target, 4
       
    End Property
   
    Public Property Get Ptr() As Long
        Ptr = m_SA.pvData
    End Property
   
   
    Private Sub Class_Terminate()
        CopyMemory ByVal VarPtrArray(m_Arr), 0&, 4
    End Sub

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

    当我们这样做出pLong、pByte、pInteger后,我们就能够玩点和C里一样的花样了。
    Sub Main()
        Dim pB As New pByte, B As Byte
        Dim pI As New pInteger, I As Integer
        Dim pL As New pLong, L As Long
   
        '用Attach方法将经过类型检查,直接用Ptr属性则可以绕过类型检查
        pB.Attach B
        pI.Attach I
        pL.Attach L
       
        '试试指针
        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
       
    End Sub
 
    搞出这几种普通数值类型的指针类有什么用?基本上没有什么大用。不过是证明一种方法的可行性,和演示技术。这种技术还有什么用,需要的时候还会再谈。

后记:
    本文的东西,可见CSDN共享软件上的《内存共享和指针》,
    指针的专题就到这儿了,下一篇准备开始着手写VB和COM的一个系列文章,其间我准备翻译一下《VB Design Patterns》,这是一本不错的书。

版权声明:本文为博主原创文章,未经博主允许不得转载。

Unity3D引擎之渲染技术系列一

笔者介绍:姜雪伟,IT公司技术合伙人,IT高级讲师,CSDN社区专家,特邀编辑,畅销书作者,国家专利发明人;已出版书籍:《手把手教你架构3D游戏引擎》电子工业出版社和《Unity3D实战核心技术详解》...
  • jxw167
  • jxw167
  • 2017年04月02日 10:57
  • 3813

编程中最没用的东西是源代码,最有用的东西是算法和数据结构

重要的不是你用什么开发,而是你在开发什么。 程序=算法+数据结构 过程=对象+属性+方法+事件 程序员的秘诀是:编程、编程、再编程。 编程的秘诀是:思索、思索、再思索。 ...
  • Anzhongliu
  • Anzhongliu
  • 2016年11月28日 00:42
  • 776

【JAVA秒会技术之秒杀面试官】JavaEE常见面试题(一)

个人结合诸多资料,总结的一些JavaEE常见面试题,主要针对初/中级程序员。想要word完整版下载的,评论里留言留下你的邮箱!...
  • qq296398300
  • qq296398300
  • 2016年12月08日 11:02
  • 1365

有用没用的文字

禅宗里有段名言: 说我们在修炼禅宗之前,山脉就是山脉,河流就是河流。 我们在修炼禅宗的时候,山脉不再是山脉,河流不再是河流。 等我们修炼完禅宗后,山脉又复为山脉,河流复为河流。 这就像以前哲学...
  • yaohuiye
  • yaohuiye
  • 2012年11月17日 11:04
  • 314

SDUT2121数据结构实验之链表六:有序链表的建立

#include using namespace std; struct node { int data; struct node *next; }*head,*p,*q; void ...
  • nar666
  • nar666
  • 2016年07月23日 11:20
  • 161

真想不到之五:高效字串指针类

我的文章可见:http://www.csdn.net/Author/AdamBear               真想不到之五:高效字串指针类关键字:VB、HCAK、字串指针、BSTR、效率、内存共享...
  • AdamBear
  • AdamBear
  • 2002年03月27日 08:50
  • 3476

QQ、新浪、微信使用友盟第三方登录需注意(5.0之前)

1、先说测试的时候:QQ和微信必须使用正式的包,不能使用debug环境的如果不使用正式的包会出现如下情况:1)微信:点击没有反应,不执行onComplete(我测试时是这样的,具体啥原因我也不知道,又...
  • hello_1s
  • hello_1s
  • 2016年07月29日 15:38
  • 1187

Blender真是不错的东西

上个礼拜拿到了一本 .原来一直想学一下这个3d开发工具中最牛的开源,一直没什么时间就放了下来...拿到这本之后欣喜之下翻了起来..Blender的强大就不多说了..绝对算得上水准.对于我这个玩过 ma...
  • spiritring
  • spiritring
  • 2011年07月18日 08:53
  • 5891

SDUT3362数据结构实验之图论六:村村通公路

#include #include #include #include using namespace std; struct node { int u,v,w; bool opera...
  • nar666
  • nar666
  • 2016年08月01日 09:44
  • 826

数据结构实验之图论六:村村通公路 sdut oj (3362)

prim算法
  • rain_snowing
  • rain_snowing
  • 2016年08月18日 09:28
  • 962
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:真想不到之六:有用的技术和没用的指针
举报原因:
原因补充:

(最多只允许输入30个字)