数据库

本类阅读TOP10

·SQL语句导入导出大全
·SQL Server日期计算
·SQL语句导入导出大全
·SQL to Excel 的应用
·Oracle中password file的作用及说明
·MS SQLServer OLEDB分布式事务无法启动的一般解决方案
·sqlserver2000数据库置疑的解决方法
·一个比较实用的大数据量分页存储过程
·如何在正运行 SQL Server 7.0 的服务器之间传输登录和密码
·SQL中两台服务器间使用连接服务器

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
Powerbuilder中的内存操作大搜集

作者:未知 来源:月光软件站 加入时间:2005-5-13 月光软件站

       我们知道pb中不支持指针,但我们在使用WIN32 API和调用一些dll中的外部函数时候,经常会与其打些交道,所以这里将相关的一些技巧收集整理起来。

1、根据字符串地址得到字符串

完全通过pb自带的函数String就可以实现,函数的语法为String ( data, { format } ),当我们将变量

地址作为Data参数,字符串“Address”作为format参数,函数的返回值就是我们需要的字符串。这是种

未公开(呵呵,pb的帮助中找不到),但被广泛使用的方法。

例:string ls_tmp
    ls_tmp =string(hStrData,"Address")

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)

麻烦是麻烦点,不过终于知道你藏身在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)

搜集中......................WAITING..........................




相关文章

相关软件