如何在不同的程序间通信！不是用sendmessage, postmessage.....(100分)

luojun · 1999-11-24

如何在不同的程序间通信！不是用sendmessage, postmessage..... 比如传送string

Hexi · 1999-11-24

<a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=142451" target="_blank">这里看我的回答</a>可以实现不同进程间的通讯， 使用全局原子"Atom".

Hexi · 1999-11-24

在dpr文件中： var   hMutex : Thandle;   WaitResult : word;   Mf : DWORD;   S:String; begin      hMutex := createMutex(nil,false,pchar(utCommon.SysName));      WaitResult := WaitForSingleObject(hMutex,10);      if ( waitResult = WAIT_TIMEOUT ) then      begin           S:=ParamStr(1);//实际上是您所双击的文件名（含路径）           Mf:=FindWindow('TMainForm', ‘主窗口的Caption');           if (Mf<>0) and (GlobalFindAtom(PChar(S))=0) then           begin                SendMessage(Mf, WM_User+1, GlobalAddAtom(PChar(S)), Length(S)+1);//发送Atom句柄                WaitForSingleObject(hMutex,10);           end;           SetForegroundWindow (Mf);      end      else      begin           Application.Initialize;           Application.CreateForm(TMainForm, MainForm);           Application.Run;           ReleaseMutex(hMutex);       end;       CloseHandle(hMutex); // close the mutex handle end. 主窗口： procedure TMainForm.WndProc(var Message: TMessage); begin      if Message.Msg=WM_User+1 then      begin           FillChar(OpenFileName, Sizeof(OpenFileName),0);           GlobalGetAtomName(Message.WParam, @OpenFileName, Message.LParam);//读取其他进程发来的Atom中的字符串           Show;           WindowState := wsMaximized;           Application.BringToFront;           OpenTest(OpenFileName);  //打开一个子窗口显示文件           GlobalDeleteAtom(Message.WParam);      end      else          Inherited WndProc(Message); end;

menxin · 1999-11-24

简单的方法,在注册表中建立临时的string.

DreamTiger · 1999-11-24

发送sString：(FMessage是自定义的一个跟别的不重复的字符串）   FMesID:=RegisterWindowMessage(PChar(FMessage));   BSMRecipients := BSM_APPLICATIONS;   repeat     iResult := BroadCastSystemMessage(BSF_IGNORECURRENTTASK or BSF_POSTMESSAGE,@BSMRecipients, FMesID, -1, 0);   until(iResult <> -1);//start post   for i:=1 to length(ParamStr(1)) do     repeat       iResult := BroadCastSystemMessage(BSF_IGNORECURRENTTASK or BSF_POSTMESSAGE,@BSMRecipients, FMesID, 1, ord(sString));     until (iResult <> -1);   repeat     iResult := BroadCastSystemMessage(BSF_IGNORECURRENTTASK or BSF_POSTMESSAGE,@BSMRecipients, FMesID, -1, 0);   until (iResult <> -1);//stop post 接收sString:全局变量bReceiveFlag初始化为false; procedure TMainForm.WndProc(var M: TMessage); begin   if (M.Msg=FMesID) then //our message has arrived   begin     case M.WParam of     -1:       begin       bReceiveFlag := not bReceiveFlag;         if(not bReceiveFlag) then//after receive the paramstr(1)         begin           if(Assigned(FReceiveParam)) then FReceiveParam(Self);             { if main form is minimized, normalize it }             { set focus to application }           if IsIconic(Application.Handle) then           begin             Application.MainForm.WindowState := wsNormal;             Application.Restore;           end;           SetForegroundWindow(Application.MainForm.Handle);              if Text <> '' then           begin             if Title='' then FTitle:=Application.Title;             Application.MessageBox(PChar(FText),PChar(FTitle),MB_OK);           end;         end         else FParam := '';//ready to receive paramstr(1)       end;       1: FParam := FParam + chr(M.LParam);//receiving paramstr(1)     end;   end   else //it's not our message-let app to process it     Inherited WndProc(Message); end;

cAkk · 1999-11-24

看你的信息量有多大了,大的话还可以用WM_COPYDATA消息,map file等.

DreamTiger · 1999-11-24

我对WM_COPYDATA有个疑问，如果两个程序都在截获WM_COPYDATA消息， 是不是就冲突了？ map file怎么用？

mikecool · 1999-11-24

可以用内存文件 这样可以多个程序公用一块内存区域 具体做法在机械工业出版社出版的高级编程里面讲过，用来传递数据还是相当不错 就是比较复杂，但是对数据没有什么限制呀 只能给个思路了，我一时找不到那份资料了，抱歉抱歉

amo · 1999-11-24

我这正好有个例子：   RPtValue     =record //             x,y:double;              Pt_id:integer;              pt_value:single;              pt_state:integer; //             pt_unit:string[10];   end; procedure TForm1.Button1Click(Sender: TObject); var   hMap:THandle;   data,d:^RPtValue;   i:integer; begin   hMap:=CreateFileMapping(-1,nil,PAGE_READONLY,0,1024,'SHARE_MEMORY');   if hMap=NULL then exit;   data:=Mapviewoffile(hMap,FILE_MAP_READ,0,0,0);   d:=data;   for i:=0 to 25 do   begin     memo1.Lines.Add(inttostr(d^.Pt_id)+':'+floattostr(d^.pt_value)+':'+inttostr(d^.pt_state));     inc(d);   end; end; procedure TForm1.Button2Click(Sender: TObject); var   hFile:THandle;   hMapping:THandle;   data,d:^integer;   i:integer; begin   hMapping:=CreateFileMapping(-1,nil,PAGE_READWRITE ,0,1024,pchar('SHARE_MEMORY'));   data:=MapViewOfFile(hMapping,FILE_MAP_WRITE,0,0,0);     d:=data;   for i:=0 to 25 do   begin     d^:=ord('a')+i;     inc(d);   end; end;

cytown · 1999-11-25

DreamTiger · 1999-11-25

amao: 我用你的例子，下面这句出现编译错误： hMap:=CreateFileMapping(-1,nil,PAGE_READONLY,0,1024,'SHARE_MEMORY'); 错误信息： 26. Constant expression violates subrange bounds 我看了帮助，把-1改成0xFFFFFFFF，出错变为: 36. Not enough actual parameters 改成0就好了。我不知道这是怎么回事。 另外如果先运行Button1.Click，再运行Button2.Click就出错。 把PAGE_READONLY改成PAGE_READWRITE就可以了。

DreamTiger · 1999-11-25

我还有个疑问：用CreateFileMapping创建的共享区， 是否需要释放？如何释放？ 另外，我觉得用 hMap:=OpenFileMapping(FILE_MAP_READ,false,'SHARE_MEMORY'); if hMap=0 then exit; 来读取数据可能更好一些。

柳五公子 · 1999-11-25

Delphi的demos目录下有一个IpcDemos程序，写的极好，你可以看看，绝对受益非浅！ --别说你怕累！

amo · 1999-11-25

呵呵， 不好意思， 咋天太急了， 忘了说明了， button2.click是创建memfile, button1.click是读memfile的内容。 第一个参数表示内存共享文件的一个句柄， -1就是0xffffffff, 不过delphi中十六进制的数是这样表示的：$ffffffff.

DreamTiger · 1999-11-25

我看了CreateFileMapping的说明，也看了看IpcDemos，里面都没有提到 CreateFileMapping对应的释放过程，是不是就不需要释放？另外，能不 能在程序中动态调整它的大小？

luojun · 1999-11-25

cakk的答案写起来最简单

如何在不同的程序间通信！不是用sendmessage, postmessage.....(100分)

luojun

Unregistered / Unconfirmed

Hexi

Unregistered / Unconfirmed

Hexi

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

mikecool

Unregistered / Unconfirmed

amo

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

柳五公子

Unregistered / Unconfirmed

amo

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

luojun

Unregistered / Unconfirmed

Similar threads