TBItmap [Windows] Как загрузить HBITMAP в TBitmap ?

[Gor777]

Коллеги

Есть проблема:

1. Есть картинка созданная средствами сторонней dll, от нее у меня только HBITMAP
2. Как мне ее перекинуть в TBitmap, и вывести ее например в контрол TImage?

 

[AngryOwl]

Вам требуется, в первую очередь, подключить модули для возможности использования HBITMAP

uses
  ...
  {$IFDEF MSWINDOWS}
  Vcl.Graphics,
  {$ENDIF}
  ...

Далее, предположим, у Вас есть изображение tmpBmp - в формате Vcl.Graphics.TBitmap (для примера - я его гружу из файла. Это как-раз тот формат, о котором идет речь в Вашем вопросе)

Ну и далее все действия Вам должны быть понятны..

var
  tmpBmp : Vcl.Graphics.TBitmap;
  tmpStream : TMemoryStream;
begin
  tmpBmp := Vcl.Graphics.TBitmap.Create;
  try
    tmpBmp.LoadFromFile('d:/index_cr.bmp');

    tmpStream := TMemoryStream.Create;
    tmpBmp.SaveToStream(tmpStream);

    Image1.Bitmap.LoadFromStream(tmpStream);
  finally
    tmpBmp.Free;
    tmpStream.Free;
  end;
end;

Думаю, что все достаточно просто и понятно написал

 

P.S. все написано "на коленке" и за пару минут, так-что сорри, что не учитывал все "нюансы".

Собственно FMX сделает за вас всю работу по преобразованию...

Изменено 22 августа, 2014 пользователем Brovin Yaroslav