通过消息跨进程发送与接收 TCopyDataStruct 数据 - 回复 "skymesh"
2010-03-15 18:24
811 查看
问题来源: http://www.cnblogs.com/del/archive/2009/10/09/1579614.html#1779614
这几天家有病人, 几天没上网了; 看到这个问题我会, 顺便回复了.
发送代码:
接收代码:
该代码已在 Delphi 2010 下测试过了.
发现 skymesh 朋友对消息操作不是太熟, 顺便告知个小技巧(其实博客中可能早提到过):
在 TForm1 = class(TForm) ... end; 中执行 Ctrl+空格;
然后输入: wm...(譬如本例输入 wmcopyd 即可) 后回车;
接着执行 Ctrl+Shift+C, 会自动完成上面大部分的消息代码.
这几天家有病人, 几天没上网了; 看到这个问题我会, 顺便回复了.
发送代码:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var h: HWND; Size: Integer; CopyDataStruct: TCopyDataStruct; begin h := FindWindow(nil, '接收窗口'); { 按标题查找目标窗口 } if h > 0 then begin Size := ByteLength(Edit1.Text) + 2; { 多出的两个字节用于后面的 #0 } CopyDataStruct.lpData := PChar(Edit1.Text + #0); { 要发送的字符串, #0 表示 PChar 结束} CopyDataStruct.dwData := WM_COPYDATA; { 指定消息类型 } CopyDataStruct.cbData := Size; { 指定要发送的数据的大小 } SendMessage(h, WM_COPYDATA, 0, Integer(@CopyDataStruct)); { 发送 } end; end; end.
接收代码:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); private protected procedure WMCopyData(var Message: TWMCopyData); message WM_COPYDATA; public end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Caption := '接收窗口'; end; procedure TForm1.WMCopyData(var Message: TWMCopyData); begin Memo1.Lines.Add(PChar(Message.CopyDataStruct.lpData)); end; end.
该代码已在 Delphi 2010 下测试过了.
发现 skymesh 朋友对消息操作不是太熟, 顺便告知个小技巧(其实博客中可能早提到过):
在 TForm1 = class(TForm) ... end; 中执行 Ctrl+空格;
然后输入: wm...(譬如本例输入 wmcopyd 即可) 后回车;
接着执行 Ctrl+Shift+C, 会自动完成上面大部分的消息代码.
相关文章推荐
- 通过消息跨进程发送与接收 TCopyDataStruct 数据 - 回复 "skymesh"
- 微信通过openID发送消息/后台post、get提交并接收数据
- 微信通过openID发送消息/后台post、get提交并接收数据 C# .NET 配置404,500等错误信息 连接字符串
- 使用WM_COPYDATA跨进程发送数据
- VC/MFC 不同进程间的消息通信与数据(字符串)发送
- 跨进程发送消息数据
- 通过python下的socket实现组播数据的发送和接收
- Multipart/form-data POST文件上传详解 理论 简单的HTTP POST 大家通过HTTP向服务器发送POST请求提交数据,都是通过form表单提交的,代码如下: <form me
- 进程之间如何通过消息队列传输大量数据
- 进程间传递消息(发送和接收系统消息)
- 关于 微信发送被动回复音乐消息 用户接收不到的问题
- flask获取表单以enctype="multipart/form-data"格式发送的数据
- 跨进程发送消息数据(发送WM_COPYDATA消息,够简单的)
- 如何用ace_message_block发送和接收struct结构的数据
- 多进程并发编程----进程间传递文件描述符基础~发送接收附属数据结构体介绍
- 通过异步方式发送和接收数据(tcp异步收发数据)
- MQ JMS发送消息并接收客户端回复
- 通过UDP发送和接收数据包
- C#通过API获取接收数据窗体控件句柄,并向该句柄发送文本信息
- MFC 不同进程间的消息通信与数据(字符串)发送