两个应用程序之间传递消息(200分)

ysl66 · 2001-06-19

试了两种方法都不成功： 1两个程序都定义了相同的消息const Mymessage = USER + $1000; 一个执行消息发送（postMessage() or sendMessage()）， 另一个执行接收消息(procedure get_message(var Message:TMessage) ;Message MyMessage

2使用两个程序在创建时调用RegisterWindowMessage()函数注册同一个消息 一个执行消息发送（postMessage() or sendMessage()）， 另一个执行接收消息 procedure TForm1.DefaultHandler(var Msg); begin   inherited DefaultHandler(Msg);   {if the user defined message was recieved...}   if (TMessage(Msg).Msg=UserMessage) then   begin         showmessage('1111111111111');   end; end; 是按照Window API帮助做的也不成功。

cnaoszh · 2001-06-19

使用dde

ysl66 · 2001-06-19

感谢cnaoszh的提示，但两个程序一个是用Delphi编写的，另一个是用PB编写的 所以只能使用都可以调用的Window API来实现.

白河愁 · 2001-06-19

用 WM_COPYDATA 吧.

坏蟑螂 · 2001-06-20

Like this , 我长期这么用，包你百发百中。 const   MY_MESSAGE = WM_USER + $xxxx; type   TfrmMain = class(TForm)     .......   private     procedure MyHandle(var Msg: TMessage); message MY_MESSAGE;     { Private declarations }   end; implimentation procedure TfrmMain.MyHandle(var Msg: TMessage); begin   ....... end;

ysl66 · 2001-06-20

谢谢坏蟑螂，你的方法在一个程序中确实百发百中，但在两个程序之间就不那末灵了。

ysl66 · 2001-06-20

谢谢坏蟑螂，你的方法在一个程序中确实百发百中，但在两个程序之间就不那末灵了。

坏蟑螂 · 2001-06-20

不可能！我就是在多个程序/进程之间用的！ 老兄，不要忘了先FindWindow()对方的窗口HANDLE！ 既然你截获消息的函数是定义在TfrmMain中的，发消息就应发往此窗口。

Yason · 2001-06-20

你是要实现进程间通讯吗？ 最好的办法是用Socket实现。

ysl66 · 2001-06-20

坏蟑螂 不好意思，我想看看你发消息的程序源码。谢谢！

坏蟑螂 · 2001-06-20

进程间通信用SOCKET确实不错，而且即使你以后打算将两个/多个进程分布到不同的计算机， 也不会有太大改动。但如果以后没有这种可能，还是用消息吧，毕竟代码量小点，是吗，YASON？ TO YS166： 可以这样写： 假设程序A的某个窗口的标题是“WINDOW A”， 程序B要向此窗口发消息，要先找到A 窗口。   MyHandle := FindWindow(0,'WINDOW A'); 如果程序A是用DELPHI写的，那么你知道其类名TfrmMain，还可以写作：   MyHandle := FindWindow('TfrmMain', 'WINDOW A'); 然后，发消息：   if (MyHandle>0)  //找到了！     SendMessage(MyHandle, MY_MESSAGE, xxx,xxx); 再在程序A中收消息，就是前述代码了。 Good Luck !

ysl66 · 2001-06-20

问题解决，感谢各位！

两个应用程序之间传递消息(200分)

ysl66

Unregistered / Unconfirmed

cnaoszh

Unregistered / Unconfirmed

ysl66

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

坏蟑螂

Unregistered / Unconfirmed

ysl66

Unregistered / Unconfirmed

ysl66

Unregistered / Unconfirmed

坏蟑螂

Unregistered / Unconfirmed

Yason

Unregistered / Unconfirmed

ysl66

Unregistered / Unconfirmed

坏蟑螂

Unregistered / Unconfirmed

ysl66

Unregistered / Unconfirmed

Similar threads