特急:请问如何用sendmessage在两个应用程序间通讯？(300分示例代码)(300分)

gztiger · 2003-04-24

有自己写的两个应用程序，app1.exe及app2.exe,如何在app2.exe中发一消息至app1.exe？ 望能给出发消息及接消息的示例代码。

yy2001 · 2003-04-24

实在没有时间帮你作，可参见下帖及处理WM_COPYDATA消息 http://www.delfan.com/language/delphi/self/wmcopy.html 有源程序

xianjun · 2003-04-24

请看我在下面两帖中的回复，有空多在站内搜索一下吧。 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1216872 http://www.delphibbs.com/delphibbs/dispq.asp?lid=547734

LeeChange · 2003-04-24

发送端 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);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var   H: THandle;   CopyDataStruct: TCopyDataStruct; begin   h:=FindWindow(nil, 'App1');   if h<>0 then   begin     CopyDataStruct.cbData:=Length(Edit1.Text)+1;     CopyDataStruct.lpData:=PChar(Edit1.Text);     SendMessage(h, WM_CopyData, 0, LParam(@CopyDataSTruct))   end end; end. 接受端: unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   private     { Private declarations }     procedure WMCopyData(var Msg: TWMCopyData); message WM_CopyData;   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin   Caption:='App1' end; procedure TForm1.WMCopyData(var Msg: TWMCopyData); var   s: string; begin   s:=StrPas(PChar(Msg.CopyDataStruct^.lpData));   ShowMessage(s) end; end.

zhrrqy · 2003-04-24

//发送端 function tform1.IsAlermAndVioce(sMsg:string):integer; var BgnAt,EndAt,i,Index:integer;     BoxTno,Boxno:string;     Opt,PerID,Postno:integer;     RecTime:TDateTime;     rc:integer;     ds: TCopyDataStruct;     hd: THandle; begin   Index:=0;   for i:=1 to Length(sMsg) do   begin     case sMsg of       '[':BgnAt:=i;       ']':       begin         EndAt:=i;         Inc(Index);         case Index of           //交接箱弹编号           2:BoxTno:=copy(sMsg,BgnAt+1,EndAt-BgnAt-1);           //交接箱编号           3:Boxno:=copy(sMsg,BgnAt+1,EndAt-BgnAt-1);           //操作对象           4:Opt:=strtoInt(copy(sMsg,BgnAt+1,EndAt-BgnAt-1));           //员工工序号           5:           begin             try               PerID:=strtoInt(copy(sMsg,BgnAt+1,EndAt-BgnAt-1));             except               PerID:=0;             end;           end;           //命令时间           6:           begin             try               RecTime:=StrtoDatetime(copy(sMsg,BgnAt+1,EndAt-BgnAt-1));             except             end;           end;           //局号           9ostno:=strtoInt(copy(sMsg,BgnAt+1,EndAt-BgnAt-1));         end;       end;     end;   end;   if (BoxTno='8004') or (BoxTno='8005') or (BoxTno='8006') then   begin     {showMessage('Postno='+Inttostr(Postno)+#13+                 ';BoxTno='+BoxTno+#13+                 ';PerID='+Inttostr(PerID)); }     StoredProc1.ParamByName('@Pno').asInteger:=Postno;     StoredProc1.ParamByName('@Lno').asstring:=BoxTno;     StoredProc1.ParamByName('@HID').asInteger:=PerID;     StoredProc1.ParamByName('@CHDT').asDateTime:=RecTime;     try       StoredProc1.ExecProc;       result:=StoredProc1.ParamByName('@RC').asInteger;     except       result:=0;     end;   end else   begin     result:=-1;     if (Opt=3) or (Opt=4) then     begin       ds.cbData := Length (sMsg) + 1;       GetMem (ds.lpData, ds.cbData ); //为传递的数据区分配内存       StrCopy (ds.lpData, PChar (sMsg));       Hd := FindWindow (nil, '语音报警'); // 获得接受窗口的句柄       if Hd <> 0 then       begin         SendMessage (Hd, WM_COPYDATA, Handle,Cardinal(@ds)); // 发送WM_COPYDATA消息         Result:=22;       end       else Result:=21;       FreeMem (ds.lpData); //释放资源     end;   end; end; //接收端 type   PAlermRec=^TAlermRec;   TAlermRec=record     Boxno:string;     Postno:Integer;     Station:string;     AlermTime:TDatetime;   end; ... procedure TvioceMain.GetAlermMessage(var t:TWmCopyData); var InfoSta:Integer;    AlermRecAlermRec; begin   New(AlermRec);   RecieveStr:=StrPas(t.CopyDataStruct^.lpData);   InfoSta:=SetAlermMessage(RecieveStr,AlermRec);   lstMessage.Items.Add(Format('[%d]局交接箱[%s]在',[AlermRec^.Postno,AlermRec^.Boxno])+     FormatDatetime('yyyy"年"mm"月"dd"日" hh:mm:ss',AlermRec^.AlermTime)+     Format('出现[%s]',[AlermRec^.Station]));   case InfoSta of    -1:SetlstMessageLine(1);     0,1,2:     begin       SetlstMessageLine(2);       case QueryExecSQL(Format(SQL_PerTelStr,[AlermRec^.Postno,AlermRec^.Boxno])) of        -1:SetlstMessageLine(3);         0:begin             if GetWavFiles(AlermRec^.Boxno,AlermRec^.station)<>-1 then exit;             CurlstIndex:=0;             CurDialTimes:=0;             Dialtel;           end;       end;     end;   end;   Dispose(AlermRec); end;

wbtvc · 2003-04-24

摘自：Delphi之未经证实的葵花宝典version 2.7 用Delphi实现程序间的数据传递 在实际应用中，我们经常需要多个程序相互配合来完成某些特定功能。例如两个应用 程序间的同步、互斥；应用程序在起第二份实例时的参数自动传递…。要实现这些功 能，就必须能实现程序间的数据传递。 有些特殊的高级技术可在不同的程序间传递数据，如剪贴板、动态数据交换以及OLE 自动化，但有条件限制并且相对较复杂。这里，我介绍三种有效的底层技术，希望对 编程爱好者有所帮助。 利用WM_COPYDATA消息 　 使用该消息涉及一个TcopyDataStruct结构类型的指针。该结构中有三个成员： dwData 是一个32位的附加参数 cbData 表示要传递的数据区的大小 lpData 表示要传递的数据区的指针 下面举个例子。该例子由两个程序构成，分别为SendData和GetData。 SendData程序向GetData程序发送消息，并传递edit1中的字符串；GetData在收到 消息后，把SendData发送的字符串接受下来，并显示在相应的edit1中。 SendData程序： …… var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var ds: TCopyDataStruct; hd: THandle; begin ds.cbData := Length (Edit1.Text) + 1; GetMem (ds.lpData, ds.cbData ); //为传递的数据区分配内存 StrCopy (ds.lpData, PChar (Edit1.Text)); Hd := FindWindow (nil, 'Form2'); // 获得接受窗口的句柄 if Hd <> 0 then SendMessage (Hd, WM_COPYDATA, Handle, Cardinal(@ds)) // 发送WM_COPYDATA消息 else ShowMessage ('目标窗口没找到！'); FreeMem (ds.lpData); //释放资源 end; GetData程序： 　 TForm2 = class(TForm) Edit1: TEdit; private { Private declarations } public procedure Mymessage(var t:TWmCopyData);message WM_COPYDATA; { Public declarations } end; var Form2: TForm2; implementation procedure TForm2.Mymessage(var t:TWmCopyData); begin Edit1.text:=StrPas(t.CopyDataStruct^.lpData);//接受数据并显示。 end; 使用这种方法是WIN32应用程序进行交互的最简单的方法。 使用全局原子 Win32系统中，为了实现信息共享，系统维护了一张全局原子表。每个原子中存放了一 些共享数据。关于对原子的操作，有一组专门的API函数： GlobalAddAtom 在表中增加全局原子 GlobalDeleteAtom 在表中删除全局原子 GlobalFindAtom 在表中搜索全局原子 GlobalGetAtomName 从表中获取全局原子 笔者用这种方法实现了避免程序二次启动，但把第二次启动所带的参数传到第一个实 例中以进行相应的处理的程序。基本处理如下： 在工程文件中： program Pvdde; uses Forms,shellapi,Windows,dialogs,dde in 'dde.pas' {Form1}; {$R *.RES} begin if GlobalFindAtom(PChar('PDDE_IS_RUNNING')) = 0 then //避免二次启动 begin K:=GlobalAddAtom(PChar('PDDE_IS_RUNNING')); Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end else begin //传递二次启动时的参数到第一个实例 H := FindWindow(PChar('TForm1'), PChar('资料保密严禁外传')); if ParamCount > 0 then begin L := GlobalAddAtom(PChar(ParamStr(1))); if H<>0 then SendMessage(H, WM_MYMESSAGE, 0, L); { 传递原子句柄 } GlobalDeleteAtom(L); { 使用后释放 } end; Application.Terminate; end; end. 在相应的窗口单元dde.pas增加对自定义消息WM_MYMESSAGE的处理： procedure TForm1.MyMessage(var T:TMessage); {对 WM_MYMESSAGE消息进行处理 } var P:Array [0..255] of char; begin GlobalGetAtomName(T.LParam, P,255); { 接受数据到p数组中 } 。。。 end; 使用存储映象文件 　 这种方法相对较复杂一些。 当Win95与Winows Nt向内存中装载文件时，使用了特殊的全局内存区。在该区域内， 应用程序的虚拟内存地址和文件中的相应位置一一对应。由于所有进程共享了一个用 于存储映象文件的全局内存区域，因而当两个进程装载相同模块（应用程序或DLL文 件）时，它们实际可以在内存中共享其执行代码。 笔者通过调用一个带有特殊参数的CreateFileMapping函数，来间接达到程序间共享 内存的目的。下面简要解释一下该函数。 HANDLE CreateFileMapping( HANDLE hFile, //文件句柄 LPSECURITY_ATTRIBUTES lpFileMappingAttributes, // 可选安全属性 DWORD flProtect, // 映象文件保护方式 DWORD dwMaximumSizeHigh, // 映象文件区域的底值 DWORD dwMaximumSizeLow, // 映象文件区域的顶值 LPCTSTR lpName // 映象文件的名字 ); 如果hFile是0xFFFFFFFF，在调用程序中必须指定dwMaximumSizeHigh 和 dwMaximumSizeLow参数的值以确定映象文件的大小。通过这样的参数指定，该函数 就创建了一个由操作系统页文件支持的特殊逻辑映象文件，而不是由实际操作系统 的文件支持的逻辑映象文件。这个逻辑映象文件可以通过复制、继承或者按名字来 达到共享。至于其它参数的详细说明，请参看在线帮助。 在建立了映象文件之后，我们可以通过调用另外一个API函数MapViewOfFile来访问 它的内存，该函数会返回一个指向共享内存块的特定指针。 LPVOID MapViewOfFile( HANDLE hFileMappingObject, // 映象文件句柄 DWORD dwDesiredAccess, // 访问方式 DWORD dwFileOffsetHigh, // 映象文件区域的底值 DWORD dwFileOffsetLow, // 映象文件区域的顶值 DWORD dwNumberOfBytesToMap // 映射字节数 ); 如果 dwNumberOfBytesToMap 是0，映射整个文件。 以下举例说明： private hMapFile: THandle; MapFilePointer: Pointer; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin hMapFile := CreateFileMapping ( $FFFFFFFF, // 特殊内存映射句柄 nil, page_ReadWrite, 0,10000, 'DdhDemoMappedFile'); // 文件名 if hMapFile <> 0 then MapFilePointer := MapViewOfFile ( hMapFile, // 上面映象文件的句柄 File_Map_All_Access, 0, 0, 0) // 访问整个映象文件 else ShowMessage ('hMapFile = 0'); if MapFilePointer = nil then ShowMessage ('MapFilePointer = nil'); end; 　 procedure TForm1.BtnWriteClick(Sender: TObject); begin StrCopy (PChar (MapFilePointer), PChar (EditWrite.Text));//把内容写入共享内存 end; 　 procedure TForm1.BtnReadClick(Sender: TObject); var S: string; begin S := PChar (MapFilePointer);//从共享内存读出内容 EditRead.Text := S; end; 用这种方法，不但可以在不同的程序之间共享数据，还可以在同一程序的不同实例间 共享数据。为了及时通知其它进程共享数据的变化，可以自定义一条用户消息，通过 发消息来实现，这里不再赘述。 利用以上三种方法均可以有效地实现数据传递、共享，所有的例子程序均在 Delphi 3.0,4.0下调试通过。如需源码，写信至wj_email@yahoo.com索

gztiger · 2003-04-24

特急:请问如何用sendmessage在两个应用程序间通讯？(300分示例代码)(300分)

gztiger

Unregistered / Unconfirmed

yy2001

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

LeeChange

Unregistered / Unconfirmed

zhrrqy

Unregistered / Unconfirmed

wbtvc

Unregistered / Unconfirmed

gztiger

Unregistered / Unconfirmed

Similar threads