Converter Bitmap para Memory Mapped File

Question

Ol� pessoal, Estou com um problemasso em uma de minhas aplica��es. Tenho um componente integrado com minha aplica��o que faz algumas manipula��es em v�rias imagens. (Converter cores, trocar cores, etc...

Siam · Answer

Vc pode passar esse Bitmap por SendMessage c/ msg=WM_CopyData...

Prgdelphi · Answer

Fiz uma pesquisa na net e aqui est� um exemplo de como estou tentando fazer..
Pelo que li nas p�ginas, aparentemente quando voc� passa o bitmap pra um Memory-mapped file, o bmp perde a informa��o de resolu��o X e Y. � correto isso?

procedure BitmapToMMF(bmp : Tbitmap);
var hMapObj  : THandle;    // mapped file handle
    PMapView : PLongInt;   // memory region
    Stream : TmemoryStream;
begin

  hMapObj := CreateFileMapping(
             $FFFFFFFF,                  // not a disk file
             Nil,                        // attributes
             PAGE_READWRITE,             // read and write
             0,                          //
             SizeOf(DWORD),              // size
             �shared_memory�);           // "name"
  if hMapObj = 0 Then
  begin
    ShowMessage(�MapFileError�);
    // Error, exit
  end;

  Stream := TMemoryStream.Create;
  bmp.SaveToStream(Stream);

  GetMem(PMapView,Stream.Size); // allocate memory
  //
  // Get address of the region
  //
  PMapView := (MapViewOfFile(hMapObj, FILE_MAP_WRITE, 0, 0, 0));
  stream.Position := 0;
  stream.Read(PMapView,stream.Size);
  //PMapView^ := 1 SHL 8 + 2; //Exemplo jogando valores para o mmf

  UnmapViewOfFile(PMapView);             // free memory
  CloseHandle(hMapObj);                  // close "file"
  FreeAndNil(Stream);
end

Este � apenas um procedimento de teste. N�o est� funcionando. Algu�m tem alguma dica?

Siam, voc� disse que posso passar atrav�s do SendMessage, poderia me dar um exemplo?

Muito obrigado.[/code]

Siam · Answer

O lado que manda:[code:1:aae0e9ee22]var CDS:CopyDataStruct; MS:TMemoryStream;begin  MS := TMemoryStream.Create;  Bitmap.SaveToStream(MS);  CDS.dwData := 0;  CDS.cbData := MS.Size;  CDS.lpData := MS.Memory;  SendMessage(Handle_do_Destino, WM_CopyData, 0, lParam(@CDS));  MS.Free;[/code:1:aae0e9ee22]O lado que recebe:[code:1:aae0e9ee22]var pCDS:pCopyDataStruct; MS:TMemoryStream;begin  MS     := TMemoryStream.Create;  pCDS := pCopyDataStruct(Msg.LParam);  MS.SetSize(pCDS^.cbData);  Move(pCDS^.lpData^, MS.Memory^, MS.Size);  Bitmap.LoadFromStream(MS);  MS.Free;[/code:1:aae0e9ee22]...

Siam · Answer

Esquec� de mencionar, do lado que recebe declare a procedure:

    procedure Recebendo_Bitmap(var Msg:TMessage); message WM_COPYDATA;

e coloque o c�digo na sua implementa��o.

Prgdelphi · Answer

Obrigado pelo exemplo siam, mas n�o funcionou aqui pois a DLL exige que seja passado o handle de um arquivo mapeado na mem�ria.

Fiz da seguinte maneira e aparentemente funcionou:

procedure BitmapToMMF(bmp : Tbitmap);
var hMapObj  : THandle;    // mapped file handle
    PMapView : Pointer;   // memory region
    Stream : TmemoryStream;
begin
  Stream := TMemoryStream.Create;
  bmp.SaveToStream(Stream);

  hMapObj := CreateFileMapping(
             $FFFFFFFF,                  // not a disk file
             Nil,                        // attributes
             PAGE_READWRITE,             // read and write
             0,                          //
             stream.size,              // size
             �shared_memory�);           // "name"
  if hMapObj = 0 Then
  begin
    ShowMessage(�MapFileError�);
    // Error, exit
  end;
  PMapView := (MapViewOfFile(hMapObj, FILE_MAP_WRITE, 0, 0, stream.size));
  stream.Position := 0;
  stream.Read(PMapView,stream.Size);
  UnmapViewOfFile(PMapView);             // free memory
  CloseHandle(hMapObj);                  // close "file"
  FreeAndNil(Stream);
end;

A dll recebeu a imagem, mas ainda me retornou que devo passar no formado DIB.
Algu�m tem alguma id�ia de como transformo o bitmap para DIB e gravar na stream para fazer este procedimento?

Obrigado pela ajuda.

Siam · Answer

Pensei que vc tivesse acesso aos fontes da dll.Nunca criei bitmaps DI, mas d� uma olhada na fun��o CreateDIBSection...

F�rum Converter Bitmap para Memory Mapped File #298200