[xteam777]

Уважаемые. Прошу помощи.

Задача в одном процессе записывать TBitmap в MemoryMappedFile, а в другом считывать.

Запись делаю так:

Код:

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

procedure SaveBitmapToMMF; var   CurBitmapInfoSize: Integer; begin   MemStream.Clear;   SaveBitmap.SaveToStream(MemStream);   CurBitmapInfoSize := MemStream.size; //  CurBitmapInfoSize := PBitmapFileHeader(MemStream.Memory)^.bfOffBits - SizeOf(TBitmapFileHeader) + sizeof(pSize);   try     if BitmapInfoSize <> CurBitmapInfoSize then     begin       BitmapInfoSize := CurBitmapInfoSize;         UnmapViewOfFile(pMap); //Disposes the mem map       if hMap > 0 then         CloseHandle(hMap);         hMap := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0,         BitmapInfoSize, PWideChar(WideString('VCS_SCREEN_SESSION_' + IntToStr(CurrentSessionID))));       pMap := MapViewOfFile(hMap, FILE_MAP_WRITE, 0, 0, BitmapInfoSize + sizeof(BitmapInfoSize));     end;       MemStream.Position := 0;     CopyMemory(pMap, @BitmapInfoSize, sizeof(BitmapInfoSize));     MemStream.Read((PByte(pMap) + sizeof(BitmapInfoSize))^, BitmapInfoSize);   finally //    CloseHandle(hMap);   end; end;

Считывание:

Код:

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

Result := TBitmap.Create;     try     hMap := OpenFileMapping(FILE_MAP_READ, False, PWideChar(WideString('VCS_SCREEN_SESSION_' + IntToStr(SessionID))));     err := GetLastError;     if hMap = 0 then       Exit;       pMap := MapViewOfFile(hMap,//дескриптор "проецируемого" объекта                             FILE_MAP_READ,// разрешение чтения/записи                             0,0,                             SizeOf(int64));//размер буфера       CopyMemory(@pSize, pMap, SizeOf(int64));     UnmapViewOfFile(pMap);       pMap := MapViewOfFile(hMap,//дескриптор "проецируемого" объекта                             FILE_MAP_READ,// разрешение чтения/записи                             0,0,                             pSize + SizeOf(int64));//размер буфера       MemStream := TMemoryStream.Create;     MemStream.Write((PByte(pMap) + sizeof(pSize))^, pSize);     MemStream.Position := 0;     Result.LoadFromStream(MemStream);       UnmapViewOfFile(pMap);   finally     CloseHandle(hMap);   end;

Как правильно записать в начало размер, а потом содержимое? Сейчас в переменную pSize считывается какой-то мусор.
Размер нужен чтобы потом считать сначала размер, а потом уже содержимое. Может есть другой способ определить размер Mapped файла?

И еще вопрос. Как реализовать взаимодействие между процессами так, чтобы небыло одновременно и записи и считывания файла?

[xteam777]

Код работает. Единственное, не получается правильно посчитать смещение в этой строке. Данные битмапа затирают первые 8 байт размера

Код:

1	MemStream.Read((PByte(pMap) + sizeof(BitmapInfoSize))^, BitmapInfoSize);

[xteam777]

Опытным путем установлено, что работает вот так:

Код:

1	MemStream.Read((PByte(pMap) + sizeof(BitmapInfoSize) + 4)^, BitmapInfoSize);

и

Код:

1	MemStream.Write((PByte(pMap) + sizeof(BitmapInfoSize))^, BitmapInfoSize);

Почему надо прибавить 4 байта к смещению непонимаю.