不同进程之间如何通过DLL共享数据，望高手相助 (100分)

happyxhl · 2003-11-13

DLL代码如下： library Conn; uses   SysUtils,   Classes,   ShareMem,   Windows,   Dialogs,   DBTables; var   hMem:THandle;   pMem

Char; function GetGlobalMem:THandle;export; begin   Result := hMem; end; procedure OpenSharedData; begin   size := SizeOf(TGlobalDLLData);   hMem := GlobalAlloc(gmem_MOVEABLE and gmem_DDEShare,100);   if hMem = 0 then     MessageDlg('Could not allocate memory',mtWarning,[mbOK],0)   else     showmessage('Init OK!'); end; procedure CloseSharedData; begin   CloseHandle(hMem); end; procedure DLLEntryPoint(dwReason

Word); begin   case dwReason Of     DLL_PROCESS_ATTACH:OpenSharedData;     DLL_PROCESS_DETACH:begin showmessage('DETACH……');CloseSharedData;end;   end; end; exports   GetGlobalMem; begin   //通过DLLProc变量建立一个入口/出口函数   showmessage('Loading');   DllProc := @DLLEntryPoint;   DLLEntryPoint(DLL_PROCESS_ATTACH); end. 写DLL共享数据的代码如下： function GetGlobalMem: THandle; far; external DllName; procedure TfrmMain.FormActivate(Sender: TObject); Var   hMem:THandle;   pMem

Char; begin   hMem := GetGlobalMem;   if hMem <> 0 then   Begin     pMem := GlobalLock(hMem);     if pMem <> nil then     Begin       StrPCopy(pMem,'测试数据');       GlobalUnLock(hMem);     End     Else       MessageDlg('Couldnot Lock memory block',mtWarning,[mbOK],0);   End; end; 其它程序读共享数据的代码如下： function GetGlobalMem: THandle; far; external DllName; procedure TForm1.Button1Click(Sender: TObject); var   hMem: THandle;   pMem: PChar; begin   hMem := GetGlobalMem; {获得全局内存块的句柄}   if hMem <> 0 then   begin     pMem := GlobalLock(hMem); {加锁全局内存块}     if pMem <> nil then     begin       Edit1.Text := StrPas(pMem);       GlobalUnlock(hMem); {解锁全局内存块}     end     else       MessageDlg('Couldnot Lock memory block',mtWarning,[mbOK],0);   end; end; 但每次都传不了数据，出现乱码。而且程序运行时没问题，但一退出就会出错： 0x002962ce指令引用的"0x013509cc"内存。该内存不能为"read"。 不知道错误错在哪里，各位在用DLL共享数据时用什么方法的？

Paladin_yf · 2003-11-13

win32下DLL已不能共享数据了，每个进程中它们有独立的拷贝 可以用文件映射

carefreehorse · 2003-11-13

unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; const   WM_DATA = WM_USER + 1024; type   PShareMem = ^TShareMem;   TShareMem = record     Data: array[0..255] of char;   end;   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   PShare: PShareMem; implementation {$R *.DFM} var   HMapping: THandle;   HMapMutex: THandle; const   MAPFILESIZE = 1000;   REQUEST_TIMEOUT = 1000; procedure OpenMap; begin    {创建一个文件映射内核对象}   HMapping := CreateFileMapping(     $FFFFFFFF,     nil,     PAGE_READWRITE,     0,     SizeOf(TShareMem),                  {这个文件映射对象的名字用于与其他进程共享该对象,}    pchar('Map Name')     );   if (hMapping = 0) then   begin     ShowMessage('不能创建内存映射文件');     Application.Terminate;     exit;   end;    {将文件数据映射到进程的地址空间}    {当创建了一个文件映射对象之后,仍然必须让系统为文件的数据保留     一个地址空间区域,并将文件的数据作为映射到该区域的物理存储器进行提交。     }   PShare := PShareMem(MapViewOfFile(HMapping, FILE_MAP_ALL_ACCESS, 0, 0, 0));   if PShare = nil then   begin     CloseHandle(HMapping);     ShowMessage('Can''t View Memory Map');     Application.Terminate;     exit;   end;   {既然我们通过pvFile得到了映象视图的起始地址,那么可以对视图做一些操作了} end; procedure CloseMap; begin   if PShare <> nil then     {从进程的地址空间中撤销文件数据的映象}     UnMapViewOfFile(PShare);   if HMapping <> 0 then     CloseHandle(HMapping); end; function LockMap: Boolean; begin   Result := true;    {创建互斥对象}   HMapMutex := CreateMutex(nil, false,     pchar('MY MUTEX NAME GOES HERE'));   if HMapMutex = 0 then   begin     ShowMessage('不能创建互斥对象');     Result := false;   end else begin     if WaitForSingleObject(HMapMutex, REQUEST_TIMEOUT)       = WAIT_FAILED then     begin       ShowMessage('不能对互斥对象加锁!');       Result := false;     end   end end; procedure UnlockMap; begin    {关闭文件映射对象和文件对象}   ReleaseMutex(HMapMutex);   CloseHandle(HMapMutex); end; procedure TForm1.Button1Click(Sender: TObject); var   str: pchar; begin   str := pchar('简单的共享内存的例子');   CopyMemory(@(pShare^.data), Str, Length(str));   {发送消息表明有数据}   PostMessage(FindWindow(nil, 'MyForm'), WM_DATA, 1, 1) end; procedure TForm1.FormDestroy(Sender: TObject); begin   UnlockMap;   CloseMap; end; procedure TForm1.FormCreate(Sender: TObject); begin   OpenMap;   LockMap; end; end. unit Unit2; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; const   WM_DATA = WM_USER + 1024; type   PShareMem = ^TShareMem;   TShareMem = record     Data: array[0..255] of char;   end;   TMyForm = class(TForm)     Memo1: TMemo;     Button1: TButton;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     procedure getShareInfo(var Msg: TMessage); message WM_DATA; {处理WM_DATA}   end; var   MyForm: TMyForm;   PShare: PShareMem;   MapHandle: THandle; implementation {$R *.DFM} procedure TMyForm.getShareInfo(var Msg: TMessage); {处理WM_DATA} begin   if msg.LParam=1 then {是我们设定的消息参数}     Memo1.Text := PShare^.Data; end; procedure TMyForm.FormCreate(Sender: TObject); begin   MapHandle := OpenFileMapping(FILE_MAP_WRITE, {获取完全访问映射文件}     False, {不可继承的}     pchar('Map Name')); {映射文件名字}   if MapHandle = 0 then   begin     ShowMessage('不能定位内存映射文件块!');     Halt;   end;   PShare := PShareMem(MapViewOfFile(MapHandle, FILE_MAP_ALL_ACCESS, 0, 0, 0));   if PShare = nil then   begin     CloseHandle(MapHandle);     ShowMessage('Can''t View Memory Map');     Application.Terminate;     exit;   end;   FillChar(PShare^, SizeOf(TShareMem), 0); end; procedure TMyForm.Button1Click(Sender: TObject); begin   CloseHandle(MapHandle);   close; end; end.

桦树皮 · 2003-11-13

楼上的代码有点小bug，跨进程发送自定义消息最好用registerwindowmessage函数保证两个应用程序之前使用一致的消息编号。我把楼上的程序加上了这两句 unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls; const  WM_DATA = WM_USER + 1024; type  PShareMem = ^TShareMem;  TShareMem = record    Data: array[0..255] of char;  end;  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);    procedure FormDestroy(Sender: TObject);    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1;  PShare: PShareMem; implementation {$R *.DFM} var  HMapping: THandle;  HMapMutex: THandle; const  MAPFILESIZE = 1000;  REQUEST_TIMEOUT = 1000; procedure OpenMap; begin   {创建一个文件映射内核对象}  HMapping := CreateFileMapping(    $FFFFFFFF,    nil,    PAGE_READWRITE,    0,    SizeOf(TShareMem),                 {这个文件映射对象的名字用于与其他进程共享该对象,}   pchar('Map Name')   &nbsp

;  if (hMapping = 0) then  begin    ShowMessage('不能创建内存映射文件');    Application.Terminate;    exit;  end;   {将文件数据映射到进程的地址空间}   {当创建了一个文件映射对象之后,仍然必须让系统为文件的数据保留    一个地址空间区域,并将文件的数据作为映射到该区域的物理存储器进行提交。    }  PShare := PShareMem(MapViewOfFile(HMapping, FILE_MAP_ALL_ACCESS, 0, 0, 0));  if PShare = nil then  begin    CloseHandle(HMapping);    ShowMessage('Can''t View Memory Map');    Application.Terminate;    exit;  end;  {既然我们通过pvFile得到了映象视图的起始地址,那么可以对视图做一些操作了} end; procedure CloseMap; begin  if PShare <> nil then    {从进程的地址空间中撤销文件数据的映象}    UnMapViewOfFile(PShare);  if HMapping <> 0 then    CloseHandle(HMapping); end; function LockMap: Boolean; begin  Result := true;   {创建互斥对象}  HMapMutex := CreateMutex(nil, false,    pchar('MY MUTEX NAME GOES HERE'));  if HMapMutex = 0 then  begin    ShowMessage('不能创建互斥对象');    Result := false;  end else begin    if WaitForSingleObject(HMapMutex, REQUEST_TIMEOUT)      = WAIT_FAILED then    begin      ShowMessage('不能对互斥对象加锁!');      Result := false;    end  end end; procedure UnlockMap; begin   {关闭文件映射对象和文件对象}  ReleaseMutex(HMapMutex);  CloseHandle(HMapMutex); end; procedure TForm1.Button1Click(Sender: TObject); var  str: pchar; begin  str := pchar('简单的共享内存的例子');  registerwindowmessage(pchar('messageid'));//应该再加上这一句最好。  CopyMemory(@(pShare^.data), Str, Length(str));  {发送消息表明有数据}  PostMessage(FindWindow(nil, 'MyForm'), WM_DATA, 1, 1) end; procedure TForm1.FormDestroy(Sender: TObject); begin  UnlockMap;  CloseMap; end; procedure TForm1.FormCreate(Sender: TObject); begin  OpenMap;  LockMap; end; end. unit Unit2; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls; const  WM_DATA = WM_USER + 1024; type  PShareMem = ^TShareMem;  TShareMem = record    Data: array[0..255] of char;  end;  TMyForm = class(TForm)    Memo1: TMemo;    Button1: TButton;    procedure FormCreate(Sender: TObject);    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }    procedure getShareInfo(var Msg: TMessage); message WM_DATA; {处理WM_DATA}  end; var  MyForm: TMyForm;  PShare: PShareMem;  MapHandle: THandle; implementation {$R *.DFM} procedure TMyForm.getShareInfo(var Msg: TMessage); {处理WM_DATA} begin  if msg.LParam=1 then {是我们设定的消息参数}    Memo1.Text := PShare^.Data; end; procedure TMyForm.FormCreate(Sender: TObject); begin registerwindowmessage(pchar('messageid'));//再加上此句  MapHandle := OpenFileMapping(FILE_MAP_WRITE, {获取完全访问映射文件}    False, {不可继承的}    pchar('Map Name')); {映射文件名字}  if MapHandle = 0 then  begin    ShowMessage('不能定位内存映射文件块!');    Halt;  end;  PShare := PShareMem(MapViewOfFile(MapHandle, FILE_MAP_ALL_ACCESS, 0, 0, 0));  if PShare = nil then  begin    CloseHandle(MapHandle);    ShowMessage('Can''t View Memory Map');    Application.Terminate;    exit;  end;  FillChar(PShare^, SizeOf(TShareMem), 0); end; procedure TMyForm.Button1Click(Sender: TObject); begin  CloseHandle(MapHandle);  close; end; end.

wlmmlw · 2003-11-13

采用MapFile不过得自己建立一个内存分配机制.

jabing · 2003-11-13

<delphi下深入windows核心编程>这本书中有不少例子和讲述

happyxhl · 2003-11-14

昨天发完贴就下班了，所以现在才回贴。各位真是令我很佩服。我先去试一下。我原先也是用的内存映射，但是有同样的错误，退出程序时就会报会“内存xxx只能read”。是不是想不同程序之间共享数据在WIN32下已经不能使用DLL了呢？

nzfsoft · 2003-11-14

好呀.大家挺热心.说的被人抢先了

happyxhl · 2003-11-14

谢谢楼上捧场

happyxhl · 2003-11-14

我试了一下，好象还是接收不到数据噢，我跟踪发现是在 PShare := PShareMem(MapViewOfFile(MapHandle, FILE_MAP_ALL_ACCESS, 0, 0, 0));这一句根本没有接收到数据。 不用消息行不行，我想让知道映射文件名的程序都能访问共享数据。

happyxhl · 2003-11-14

终于搞定：把FillChar(PShare^, SizeOf(TShareMem), 0);这句拿掉就可以了，是这一句丢失了接收回来的数据的，不是上一句没接收到。再问一下各位，能共享其它类型的数据吗？比如说是某个控件 type TShareMem=record   Table1:TTable;   str:array [0..255] or char; End; 这样可以吗？ 可以的话如何向内存映射区读、写数据呢？

app2001 · 2003-11-14

参考一下这个吧 By David Spies. 如何使用Win32内存映象文件,实现多个程序数据交换 http://www.csdn.net/dev/delphi/Samples/mmapfile.zip

happyxhl · 2003-11-17

多人接受答案了。

不同进程之间如何通过DLL共享数据，望高手相助 (100分)

happyxhl

Unregistered / Unconfirmed

Paladin_yf

Unregistered / Unconfirmed

carefreehorse

Unregistered / Unconfirmed

桦树皮

Unregistered / Unconfirmed

wlmmlw

Unregistered / Unconfirmed

jabing

Unregistered / Unconfirmed

happyxhl

Unregistered / Unconfirmed

nzfsoft

Unregistered / Unconfirmed

happyxhl

Unregistered / Unconfirmed

happyxhl

Unregistered / Unconfirmed

happyxhl

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

happyxhl

Unregistered / Unconfirmed

Similar threads