ShareMemory的问题(50分)

llzx · 1998-12-14

用DLL定义一个全局句柄，实现Form间的动态数据传输 为此我编了几个Demo,但是不能实现该功能，且Form关闭时，内存不能正确释放 望各位大侠指教 1.DLL library shareDll; uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,sharemem,   StdCtrls, ExtCtrls; var   hMem: THandle;   num : integer; function GetGlobalMem: THandle; begin    Result := hMem; end; exports GetGlobalMem Index 1 resident; begin    hMem := GlobalAlloc(gmem_MOVEABLE and gmem_DDEShare,num);    if hMem = 0 then       MessageDlg('Could not allocate memory',mtWarning,[mbOK],0); end. 2.Server端 implementation function GetGlobalMem:THandle;far;external 'shareDll.dll'; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var hMem: THandle; pMem: PChar; S : string; begin    hMem := GetGlobalMem;        if hMem <> 0 then    begin        pMem := GlobalLock(hMem);            if pMem <> nil then        begin           StrPCopy(pMem,Memo1.text);             GlobalUnlock(hMem);                end        else           MessageDlg('Couldnot Lock memory block',mtWarning,[mbOK],0);    end;    s:=strpas(pmem); //   showmessage(s); end; procedure TForm1.Button2Click(Sender: TObject); begin   close; end; 3.client端 implementation function GetGlobalMem:THandle;far;external 'shareDll.dll'; {$R *.DFM} 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            Memo1.text := StrPas(pMem);              GlobalUnlock(hMem);                end        else            MessageDlg('Couldnot Lock memory block',mtWarning,[mbOK],0);    end; end; procedure TForm1.Button2Click(Sender: TObject); var    hMem: THandle;    pMem: PChar; begin    hMem := GetGlobalMem;              Freelibrary(hMem);    close; end;  问题:1.程序运行无任何错误，且Server,client都可以得到全局Handle 但是Client的Memo 不能得到正确数值 2。当client Formclose 时，总有Error 产生，不知道是什么 因为分不够多了，请斑竹及大侠多多包涵

dwwang · 1998-12-14

我看你这里用到了far,现在编DLL最好用stdcall

jiangtao · 1998-12-14

你的Server和Client不是同一个进程，不能这样共享内存 这是Win32内存管理和win31 dll的不同， 即Server的hmem和client的hmem不是同一个值 共享数据要使用memory file mapping或者wm_copydata, 使用memory file的例子你可以mail问我要， 或者查书<delphi 3开发使用手册>p640

llzx · 1998-12-15

你还是mail 个exmple 给我吧。。。 stliu@email.hq.cninfo.net

delphi fan2 · 1998-12-15

应该在dll里释放mem

pegasus · 1998-12-15

I'm unlucky: after I inputting so much chars here, IE suddenly lcear them all!!! I have to reinput,

~~~~~ Here is an example: uses Windows; const MEM_FILENAME='SAMPLE_MEM_FILE'; type TShared=record {Define The structure of your shared data here} end; PShared=^TShared; var MemFile: THandle; Shared : PShared; Begin // 通过建立内存映象文件以共享内存 MemFile:=OpenFileMapping(FILE_MAP_WRITE,False, MEM_FILENAME); if MemFile=0 then MemFile:=CreateFileMapping(INVALID_HANDLE_VALUE,nil,PAGE_READWRITE,0, SizeOf(TShared) ,MEM_FILENAME); Shared:=MapViewOfFile(MemFile,File_MAP_WRITE,0,0,0); // Release shared mem mapping here: if (Shared<>NiL) begin UnmapViewOfFile(Shared); Shared := NiL; end if (MemFile<>INVALID_HANDLE_VALUE) Begin CloseHandle(MemFile); MemFile := INVALID_HANDLE_VALUE; End; End;

llzx · 1998-12-15

pegasus 的答案正确， 但是共享数据使用memory file mapping或者wm_copydata, 时，那种效率更好且更加稳定呢。。。 jiangtao 的example 希望尽快发到，我再研究研究 stliu@email.hq.cninfo.net

O_O · 1998-12-15

这要看你的程序要求了,如果你要求客户端可以修改数据,只能用内存映射文件了, wm_copydata有很多限制,详细可参见win32的help.

llzx · 1998-12-15

客户端当然要允许修改数据，其实我也是想将全局变量存在Dll中供调用，

O_O · 1998-12-15

在win32中,你不可能将全局变量放到dll中让二个或二个以上的进程共享, 这是由于win32中dll没有自己的局部堆,当一个进程装入dll时,系统会自动将 dll的数据和代码映射到该进程的地址空间,dll中的任何函数的内存分配请求 都是在被调用进程的地址空间中分配的,其它的进程无权访问这块内存.如果不用 内存映射文件,你不防试试用socket来进行客户端和服务端的通信和数据处理.

jiangtao · 1998-12-16

本来不想贴代码（站点速度太慢，帖子太长 ...）， 但看讨论地如此热烈... Win32 DLL可以实现多进程共享全局变量， 关键是方法和 Win16不一样， 用 memory file mapping是比较好的方法，   library hookdll; uses   Windows,   SysUtils,   Messages; const         Key:String ='_GMEM';   WM_MOUSEPOS  = WM_USER+1000; type         PShareData = ^TShareData;   TShareData = record     hHookWnd: HWND;     inputText:array[0..100] of Byte;   end; var   hObjHandle:THandle;   pGMem

ointer;   hNextMouseProc,hNextKeyBoardProc: hHook; procedure UnMapMemory; begin         if Assigned(pGMem) then         begin         UnMapViewOfFile(pGMem);       pGmem := nil;     end;   if hObjhandle > 0 then         CloseHandle(hObjHandle);   hObjHandle:=0; end; procedure MapMemory(dwAllocSize

WORD); begin         hObjHandle := CreateFileMapping(MAXDWORD,nil,PAGE_READWRITE,                                                         0,dwAllocSize,PChar(key));         if hObjHandle = 0 then         Raise Exception.Create('Could not create file-mapping object');         pGmem := MapViewOfFile(hObjHandle,FILE_MAP_WRITE,0,0,1);   if not Assigned(pGMem) then         begin         UnMapMemory;       Raise Exception.Create('Could not map file');     end; end; function MouseHookProc (nCode: Integer; wParam, lParam: Longint): Longint; stdcall; var         PTemp

Integer;   mPoint:TPoint;         mHookRecPtr : PMouseHookStruct; begin   if nCode < 0 then         begin                 Result := CallNextHookEx (hNextMouseProc, nCode, wParam, lParam);       exit;     end;   if nCode >= 0 then         begin         if (wParam = WM_MOUSEMOVE) or (wParam = WM_NCMOUSEMOVE) then         begin                 pTemp:=@PShareData(pGMem).hHookWnd;                 mHookRecPtr := PMouseHookStruct(lParam);           mPoint := mHookRecPtr.pt;           PostMessage(pTemp^,WM_MOUSEPOS,0,MakeLParam(mPoint.x,mPoint.y));         end;     end;   Result := CallNextHookEx (hNextMouseProc, nCode, wParam, lParam); end; procedure SetHookWnd(aHwnd:HWND); var         pTemp: PInteger; begin         pTemp:=@PShareData(pGMem).hHookWnd;;   PTemp^:=aHwnd; end; function InstallMouseHook(hw:HWND): BOOL;stdcall; begin   Result := False;   if hNextMouseProc <> 0 then         Exit;   SetHookWnd(hw);   hNextMouseProc := SetWindowsHookEx(WH_MOUSE,     @MouseHookProc,     HInstance,     0);   Result := hNextMouseProc <> 0; end; function UnInstallMouseHook: BOOL;stdcall; begin         if hNextMouseProc <> 0 then         begin         UnhookWindowshookEx(hNextMouseProc);         hNextMouseProc := 0;         end;   Result := hNextMouseProc = 0; end; procedure DLlMain(dwReason: DWORD); begin         case dwReason of         dll_process_Attach:         begin         pGMem:=nil;         hObjHandle:=0;         MapMemory(sizeof(TShareData));       end;     dll_process_Detach:         UnMapMemory;   end; end; Exports         InstallMouseHook,   UnInstallMouseHook,   SetHookWnd,   MouseHookProc; begin         DLLProc :=@DLlMain;   DllMain(dll_Process_Attach); end.

O_O · 1998-12-16

对不起,jiangtao,你能不能提示一下你的例子?在你的程序里似乎共享的是一个指向 内存映射文件的指针,不同进程得到的确实是一样的,,但不知可否是其它的变量? 依我所见,该dll不过是将建立和释放内存映射文件的函数放进去罢了,似乎不用 那么复杂吧.客户端和服务端分别加进去就可以了.

O_O · 1998-12-16

我的说法有误,该指针也不一定一样,只是用它能取得那块共享数据而已

jiangtao · 1998-12-16

是啊，关键在于用内存文件存放全局变量，才能实现多个应用程序 或进程共享，至于由谁建立和释放是无所谓的。 这个文件你可以把它想象成磁盘文件，只不过Win32提供了 System Page FIle功能可以印象到内存里。 文件的内容可以是任意值

qaz · 1998-12-16

很抱歉和你争了半天,可能是我和你的理解角度不同才照成的,我以为所谓的全局变量 是定义在dll里的,呵呵

qaz · 1998-12-16

另:版主我密码丢了,可不可以给我一下,我给你发了email

pegasus · 1998-12-16

To qaz: >很抱歉和你争了半天,可能是我和你的理解角度不同才照成的,>我以为所谓的全局变量 >是定义在dll里的,呵呵 如果全局变量直接定义在DLL里面, 就需要只有VC才支持的共享数据段DLL连接方式, 但我试验了一下, 好像不太稳定, 内存映射文件好多了

qaz · 1998-12-16

啊,是啊,我错了,我忘了还有那个段,但那样做太危险了

llzx · 1998-12-17

我的初衷跟jiangtao 相同，只不过我将16位的和32位搞混了， 出来一大堆bug,其实这个问题还是相当有趣的，jiangtao 的exmple 写得很好啊，十万分感谢!!! 希望这个问题若有什么更优秀的做法，继续放在这里讨论。。。。

llzx · 1998-12-17

我的初衷跟jiangtao 相同，只不过我将16位的和32位搞混了， 出来一大堆bug,其实这个问题还是相当有趣的，jiangtao 的exmple 写得很好啊，十万分感谢!!! 希望这个问题若有什么更优秀的做法，继续放在这里讨论。。。。

ShareMemory的问题(50分)

llzx

Unregistered / Unconfirmed

dwwang

Unregistered / Unconfirmed

jiangtao

Unregistered / Unconfirmed

llzx

Unregistered / Unconfirmed

delphi fan2

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

llzx

Unregistered / Unconfirmed

O_O

Unregistered / Unconfirmed

llzx

Unregistered / Unconfirmed

O_O

Unregistered / Unconfirmed

jiangtao

Unregistered / Unconfirmed

O_O

Unregistered / Unconfirmed

O_O

Unregistered / Unconfirmed

jiangtao

Unregistered / Unconfirmed

qaz

Unregistered / Unconfirmed

qaz

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

qaz

Unregistered / Unconfirmed

llzx

Unregistered / Unconfirmed

llzx

Unregistered / Unconfirmed

Similar threads