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

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

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

    比如：

procedure Send();varmess:string;beginmess:='Hello World!';postmessage(WinHandle,WM_MESSAGE,Integer(PChar(Mess)),0);//Do Somethingend;

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

procedure Recieve(Var ms:TMessage);varmess:string;beginmess:=PChar(ms.WParam);end;

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

     如：Hello World!*&**

     那么，如何才能避免这种情况？

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

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

     然后将程序改动一下! 

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

     再来看接收端

procedure Recieve(Var ms:TMessage);varmess:string;PS:PString;beginPS:=PString(Mess.WParam);mess:=PS^;//Do SomethingDispose(PS);end;

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