高手请进:这个程序间通信如何实现? ( 积分: 100 )

Delphi中代码:<br>&nbsp;&nbsp;public<br>&nbsp;&nbsp;&nbsp;m_data:array[0..49]&nbsp;of&nbsp;byte;//要把这个数组的内容传给其它进程使用.<br>...<br>&nbsp;&nbsp;sendmessage(mvchandle,WM_DELPHI_MESSAGE,wParam,lParam);<br>[red]请问如何将lParam&nbsp;与m_data数组联系起来.[/red]<br><br>&nbsp;&nbsp;<br><br><br>vc中是这样处理的:<br>//处理WM_DELPHI_MESSAGE消息<br>onmessagebuf(WPARAM&nbsp;wParam,LPARAM&nbsp;lParam)<br>{<br> CString&nbsp;str;<br> int&nbsp;len=(int)wParam;<br> UCHAR&nbsp;buff[50];<br> memset(buff,0,50);<br> memcpy(buff,(UCHAR*)lParam,50);&nbsp;//处理正常<br>....<br>}

最好用&nbsp;WM_COPYDATA

利用WM_COPYDATA消息&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;使用该消息涉及一个TcopyDataStruct结构类型的指针。该结构中有三个成员：<br>&nbsp;&nbsp;dwData&nbsp;是一个32位的附加参数<br>&nbsp;&nbsp;cbData&nbsp;表示要传递的数据区的大小<br>&nbsp;&nbsp;lpData&nbsp;表示要传递的数据区的指针<br>举个例子。该例子由两个程序构成，分别为SendData和GetData。<br>&nbsp;&nbsp;&nbsp;&nbsp;SendData程序向GetData程序发送消息，并传递edit1中的字符串；GetData在收到消息<br>后，把SendData发送的字符串接受下来，并显示在相应的edit1中。<br><br>SendData程序：&nbsp;<br><br>…………<br>var<br><br>Form1:&nbsp;TForm1;<br><br>implementation<br><br>{$R&nbsp;*.DFM}<br><br>procedure&nbsp;TForm1.Button1Click(Sender:&nbsp;TObject);<br>var<br>&nbsp;&nbsp;ds:&nbsp;TCopyDataStruct;<br>&nbsp;&nbsp;hd:&nbsp;THandle;<br>begin<br>&nbsp;&nbsp;ds.cbData&nbsp;:=&nbsp;Length&nbsp;(Edit1.Text)&nbsp;+&nbsp;1;<br>&nbsp;&nbsp;GetMem&nbsp;(ds.lpData,&nbsp;ds.cbData&nbsp;&nbsp;//为传递的数据区分配内存<br>&nbsp;&nbsp;StrCopy&nbsp;(ds.lpData,&nbsp;PChar&nbsp;(Edit1.Text));<br>&nbsp;&nbsp;Hd&nbsp;:=&nbsp;FindWindow&nbsp;(nil,&nbsp;'Form2');&nbsp;//&nbsp;获得接受窗口的句柄<br>&nbsp;&nbsp;if&nbsp;Hd&nbsp;&amp;lt;&amp;gt;&nbsp;0&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;SendMessage&nbsp;(Hd,&nbsp;WM_COPYDATA,&nbsp;Handle,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cardinal(@ds))&nbsp;//&nbsp;发送WM_COPYDATA消息<br>&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;ShowMessage&nbsp;('目标窗口没找到！');<br>&nbsp;&nbsp;&nbsp;&nbsp;FreeMem&nbsp;(ds.lpData);&nbsp;//释放资源<br>end;<br><br>GetData程序：&nbsp;<br>&nbsp;&nbsp;<br>…………<br>TForm2&nbsp;=&nbsp;class(TForm)<br>Edit1:&nbsp;TEdit;<br><br>private<br>&nbsp;&nbsp;{&nbsp;Private&nbsp;declarations&nbsp;}<br><br>public<br>&nbsp;&nbsp;procedure&nbsp;Mymessage(var&nbsp;t:TWmCopyData);message&nbsp;WM_COPYDATA;<br>&nbsp;&nbsp;{&nbsp;Public&nbsp;declarations&nbsp;}<br>end;<br><br>var<br>&nbsp;&nbsp;Form2:&nbsp;TForm2;<br><br>implementation<br><br>procedure&nbsp;TForm2.Mymessage(var&nbsp;t:TWmCopyData);<br>begin<br>&nbsp;&nbsp;Edit1.text:=StrPas(t.CopyDataStruct^.lpData);//接受数据并显示。<br>end;

如果数据量比较大，WM_COPYDATA方法可能资源消耗比较严重的

顶！！！！