• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册
描述文字

delphi传递字符串信息 WM_COPYDATA  转

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

delphi的消息机制里，我在一个窗口里通过发送消息（PostMessage）给另一个窗口，那怎么传递字符串信息呢？

delphi的消息机制里，我在一个窗口里通过发送消息（PostMessage）给另一个窗口，那怎么传递字符串信息呢？

必须使用sendMessage.
sendmessage会等待接受消息完成后才继续执行，这样你的str才会被另一个窗口可靠接收。postmessage传递完消息立即返回，这样接收窗口就不一定完全接收当时传递的str.尤其是在局部变量的情况。

而进程间的数据传递好像只有用wm_copydata消息，它可以跨进程拷贝内存。

 

 

 

 

使用WM_COPYDATA传递.

发送:  

Delphi(Pascal) code

procedureSendString(strMSG: string);
var
   Data: tagCOPYDATASTRUCT;  
   pBuf: PChar;
begin
 
GetMem(pBuf, Length(strMSG) +1);  
try    
     ZeroMemory(pBuf, Length(strMSG) +1);    
     StrPCopy(pBuf, strMSG);    
     Data.cbData:=Length(strMSG);    
      Data.dwData:=Length(strMSG);    
     Data.lpData:=pBuf;    
     SendMessage(hTargetWin, WM_COPYDATA, Integer(Self.Handle), Integer(@Data));  
finally   
     FreeMem(pBuf);  
end;
 
end;



接收:

Delphi(Pascal) code

procedureWMCopyData(varMSG: TMessage); message WM_COPYDATA;
 
procedureTForm1.WMCopyData(varMSG: TMessage);
var
   Data  : ^tagCOPYDATASTRUCT;  
   strMSG: string;beginData:=Pointer(Msg.lParam);  
    strMSG:=StrPas(Data.lpData);  
    ShowMessage(strMSG);
end;

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
记录一下升级Delphi的同时把APP升级到安卓11发布时间：2022-07-18
下一篇：
终于懂了：WM_PAINT与WM_ERASEBKGND（三种情况：用户操作，UpdateWindow，InvalidateR ...发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap