Delphi 共享内存的应用

 Delphi 共享内存的应用

1. //建立共享内存 参数1：共享内存名 参数2：块大小 返回 句柄  
2. Function CreateShareMem(pName:Pchar;Size:Cardinal):Cardinal;  
3. begin  
4.   Result:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,Size,pName);  
5. end;  
6.   
7. //释放共享内存  参数：句柄  
8. Procedure FreeShareMem(hMapFile:Cardinal);  
9. var  
10.   pBuffer:Pointer;  
11. begin  
12.   pBuffer:=MapViewOfFile(hMapFile,FILE_MAP_ALL_ACCESS,0,0,0);  
13.   if pBuffer <> nil then  
14.     UnmapViewOfFile(pBuffer);  
15.   if hMapFile <> 0 then  
16.     CloseHandle(hMapFile);  
17. end;  
18.   
19.   
20. {读取共享内存数据 
21.  参数1：共享内存名 
22.  参数2：存放数据缓存 
23.  参数3：读取长度 
24.  返回：成功返回true 
25. }  
26. Function ReadShareMem(pName:PChar;var Buffer;Len:Cardinal):Bool;  
27. var  
28.   hMapFile:Cardinal;  
29.   pBuf:Pointer;  
30. begin  
31.   Result:=False;  
32.   hMapFile:=OpenFileMapping(FILE_MAP_ALL_ACCESS,false,pName);  
33.   if hMapFile <> 0 then  
34.     begin  
35.        pBuf:=MapViewOfFile(hMapFile,FILE_MAP_READ,0,0,0);  
36.        if pBuf <> nil then  
37.          begin  
38.            CopyMemory(@Buffer,pBuf,Len);  
39.            Result:=True;  
40.          end;  
41.        CloseHandle(hMapFile);  
42.     end;  
43. end;  
44.   
45.   
46. {写入共享内存 
47.  参数1：共享内存名 
48.  参数2：数据指针 
49.  参数3：长度 
50.  返回：成功返回true 
51. }  
52. Function WriteShareMem(pName:PChar;Buffer:Pointer;Len:Cardinal):Bool;  
53. var  
54.   hMapFile:Cardinal;  
55.   pBuf:Pointer;  
56. begin  
57.   Result:=False;  
58.   hMapFile:=OpenFileMapping(FILE_MAP_ALL_ACCESS,false,pName);  
59.   if hMapFile <> 0 then  
60.     begin  
61.        pBuf:=MapViewOfFile(hMapFile,FILE_MAP_WRITE,0,0,0);  
62.        if pBuf <> nil then  
63.          begin  
64.            CopyMemory(pBuf,Buffer,Len);  
65.            Result:=True;  
66.          end;  
67.        CloseHandle(hMapFile);  
68.     end;  
69. end; 
    

可以用于进程间的通讯