delphi内存映射（跨平台）

delphi内存映射（跨平台）

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134

/// <author>cxg 2020-12-9</author>   unit yn.map;   interface   uses   SysUtils,   {$IFDEF posix}   Posix.SysMman   {$ENDIF}   {$IFDEF mswindows}   Windows   {$ENDIF}   ;   type   PShareMem = ^TShareMem;     TShareMem = record     size: Cardinal;     data: Pointer;   end;   type   TWriteRead = procedure (data: pointer) of object;     TMemMap = class   private     FShareMemName: string;     FFileHandle: THandle;     p: PShareMem;     FWrite: TWriteRead;     FRead: TWriteRead;   public     constructor Create(const ShareMemName: string; data: Pointer; const dataLen: Cardinal); overload;     destructor Destroy; override;   public     function createFileMap: Boolean;     function map: Boolean;     function unMap: Boolean;     function openFileMap: Boolean;     function closeFileMap: Boolean;   public     procedure write;     procedure read;   public     property OnWrite: TWriteRead read FWrite write FWrite;     property OnRead: TWriteRead read FRead write FRead;   end;   implementation   { TMemMap }   function TMemMap.closeFileMap: Boolean; begin   {$IFDEF mswindows}   Result := CloseHandle(FFileHandle);   {$ENDIF} end;   constructor TMemMap.Create(const ShareMemName: string; data: Pointer; const dataLen: Cardinal); begin   FFileHandle := 0;   FShareMemName := ShareMemName;   New(p);   p^.data := data;   p^.size := dataLen; end;   function TMemMap.createFileMap: Boolean; begin   {$IFDEF mswindows}   FFileHandle := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, p^.size, PChar(FShareMemName));   Result := FFileHandle <> 0;   {$ENDIF} end;   destructor TMemMap.Destroy; begin   self.closeFileMap;   Dispose(p^.data);   Dispose(p);   inherited; end;   function TMemMap.map: Boolean; begin   {$IFDEF mswindows}   p^.data := MapViewOfFile(FFileHandle, FILE_MAP_ALL_ACCESS, 0, 0, p^.size);   Result := p <> nil;   {$ELSE}   mmap(p^.data, p^.size, PROT_READ or PROT_WRITE, MAP_SHARED, 0, 0);   {$ENDIF} end;   function TMemMap.openFileMap: Boolean; begin   {$IFDEF mswindows}   FFileHandle := OpenFileMapping(FILE_MAP_ALL_ACCESS, false, PChar(FShareMemName));   Result := FFileHandle <> 0;   {$ENDIF} end;   procedure TMemMap.read; begin   openFileMap;   self.map;   if Assigned(FRead) then     FRead(p^.data);   Self.unMap; end;   function TMemMap.unMap: Boolean; begin   {$IFDEF mswindows}   Result := UnmapViewOfFile(p^.data);   {$ELSE}   munmap(p^.data, p^.size);   {$ENDIF} end;   procedure TMemMap.write; begin   if FFileHandle = 0 then     self.createFileMap;   map;   if Assigned(FWrite) then     FWrite(p^.data);   Self.unMap; end;   end.