pb 调用dll时关于指针参数处理

声明dll调用时如果有参数是 指针类型时   定义时需要在相应类型前面加上ref 表示传递的地址而不内容

ref +简单类型 

复杂类型 会自动将其地址复制一份进行传递

对简单类型参数是否被ref修饰的区别在于：被修饰了的参数将以地址方式传值；未被修饰的参数将以拷贝方式传值。

对复杂类型参数是否被ref修饰的区别是相似的。由于复杂类型参数都以地址方式传值，因而不被修饰时参数传递的是拷贝的地址；被修饰时参数传递的是真实地址。

下表说明了参数类型和ref 的关系。

值得注意的是：结构的成员变量如果是复杂类型的话，虽不能在结构声明中加ref，但它们将以真实地址方式传值。此外，结构本身也是复杂类型。因此对结构变量的操作要小心，防止无意中的更改。

  2、得到pb中某个字符串变量的地址   

  这次，单纯依靠pb自身是行不通了，需要请来Win   Api函数帮忙了：   

  主人公：Function   long   lstrcpy(ref   string   Destination,   ref   string   Source)   library   "kernel32.dll"   

  原型：   

  The   lstrcpy   function   copies   a   string   to   a   buffer.     

  LPTSTR   lstrcpy(   

          LPTSTR   lpString1,   //   address   of   buffer     

          LPCTSTR   lpString2     //   address   of   string   to   copy     

        );     

  Return   Values：If   the   function   succeeds,   the   return   value   is   a   pointer   to   the   buffer.   

  看我怎么大显身手：   

  定义实例变量：String   is_dst   

      string   ls_src   

      long   ll_address   

      ls_src=   "test   me"   

      ls_dst   =space(255)         

      ll_address=lstrcpy(ls_dst,ls_src)   //将ls_src的内容复制到ls_dst，并返回ls_dst的存储地址   

  麻烦是麻烦点，不过终于知道你藏身在ll_address那里了。   

  3、在内存堆上分配空间，并存储变量内容   

  这里需要LocalAlloc，LocalFree，CopyMemory三个Api函数，其中LocalAlloc，LocalFree用来申请、释放内存块，CopyMemory用来复制内存块。   

  这里着重说明一下CopyMemory函数，有三个参数           

  PVOID   Destination,   //   address   of   move   destination     

  CONST   VOID   *Source,   //   address   of   block   to   move     

  DWORD   Length     //   size,   in   bytes,   of   block   to   move       

  前两个参数均是指针类型，因此我们可以根据需要在声明中将其定义为long或者ref   ***的形式，反正都是指变量的地址，根据需要定义喽！   

  例：   

  现在某个Api用到的某个结构中有一个long成员，用来存储另外一个结构Menuitemdata的地址，以备将来所需。   

  结构menuitemdata   如下：   

  type   menuitemdata   from   structure   

                    unsignedlong     hmenu   

                    integer     level   

  end   type   

  好了，看看怎么解决这个问题的。   

  相关外部函数声明：   

  Function   long   LocalAlloc(long   Flags,   long   Bytes)   library   "kernel32.dll"   

  Function   long   LocalFree(long   MemHandle)   library   "kernel32.dll"   

  SUBROUTINE   CopyMemory(long   pDesc,   ref   menuitemdata   pSrc,ulong   size)   LIBRARY   "kernel32"   ALIAS   FOR   "RtlMoveMemory"     

  SUBROUTINE   CopyMemory(ref   menuitemdata   pDesc,   long   pSrc,ulong   size)   LIBRARY   "kernel32"   ALIAS   FOR   "RtlMoveMemory"   

  实例变量：long   il_menuDataPointer     

                      menuitemdata   lpmenuitemdata     

  //下面代码将lpmenuitemdata   的内容复制到内存块il_menuDataPointer中     

  lpmenuitemdata.hmenu   =   12345   

  lpmenuitemdata.level   =   1   

  il_menuDataPointer=   LocalAlloc(0,6)   //6=sizeof(menuitemdata)   

  CopyMemory(il_menuDataPointer,lpmenuitemdata,6)   

  //那么，如果再从内存块中取出来呢？？   

  CopyMemory(lpmenuitemdata,il_menuDataPointer,6)//很简单吧！   

  //现在，我不需要   il_menuDataPointer这块内存了   

  LocalFree(il_menuDataPointer)