Memory Mapping

[csbrmg]

The major problem that i have with file mapping is that once the filemapping ad the map view is created how would a create an instance of a specific class(MYLOGGER) within the specified memory location.

 

[McMerfy]

May be something like this would help?

interface 
....
function CreateOrOpenMemShare():Boolean;
...
var
  hMappedFile    : Cardinal = 0;
  MappingExists  : Boolean  = False;
  SharedObject   : TMyObject = nil;

implementation

function CreateOrOpenMemShare():Boolean;
var
  NewlyCreated : Boolean;
begin
  Result := False;
  hMappedFile := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, SizeOf(TMyObject), pChar('MemShareName'));
  if (hMappedFile <> 0) then
  begin
    NewlyCreated := (GetLastError <> ERROR_ALREADY_EXISTS);
    SharedObject := MapViewOfFile(hMappedFile, FILE_MAP_ALL_ACCESS, 0, 0, 0);
    Result := Assigned(SharedObject);
    MappingExists := Result;
    if (Result and NewlyCreated) then
     SharedObject := TMyObject.Create();
  end;
end;

HTH

--- markus