aLoNe.Adams.K

独孤圣人的技术小站

解决PostMessage发送字符串造成数据错乱问题

以前一直使用PostMessage来发送字符串数据到主界面,由于字符串是临时变量,而PostMessage是异步发送,有时候由于主界面接收到数据的时候,系统已经将字符串占用的内存释放了,造成获取的字符串可能出现乱码的现象!

经过分析,主要是由于PostMessage是异步操作造成的。因为TMessage中的WParam是数值型,所以我们发送消息就只能发送字符串的起始地址,然后在接收端通过起始地址获得这个字符串的值。但是这样做会有一个隐形的问题,就是在栈上分配的内存,会在当前作用域结束后释放掉。

比如:

procedure Send();
var
mess:string;
begin
mess:='Hello World!';
postmessage(WinHandle,WM_MESSAGE,Integer(PChar(Mess)),0);
//Do Something
end;

这里,我们发送了字符串起始地址的值到指定句柄中,然后这样接收

procedure Recieve(Var ms:TMessage);
var
mess:string;
begin
mess:=PChar(ms.WParam);
end;

这时候就可以获得接收到的字符串。可是由于PostMessage是异步,不等待Revieve处理完后就反悔了,继续往下面执行。仔细查看Send函数,你会发现postmessage执行完后,该过程就结束,那么这个局部变量mess就会被回收,它所占用的内存空间里面的值可能会被其他数据占用,从而导致在Revcieve的时候,你接收到的值不正确。

如:Hello World!*&**

那么,如何才能避免这种情况?

首先,我们应该手动申请一段内存空间,在堆上申请的内存需要自己手动释放。

我们使用New方法来申请内存,使用Dispose来释放申请的内存。

然后将程序改动一下!

procedure Send();
var
mess:string;
ps:PString;
begin
New(ps)
mess:='Hello World!';
ps^:=mess;
postmessage(WinHandle,WM_MESSAGE,Integer(ps),0);
end;

再来看接收端

procedure Recieve(Var ms:TMessage);
var
mess:string;
PS:PString;
begin
PS:=PString(Mess.WParam);
mess:=PS^;
//Do Something
Dispose(PS);
end;

这样,就不会造成由于内存空间释放而产生乱码了!

点赞

发表评论

电子邮件地址不会被公开。 必填项已用*标注