[WIN] [FMX] [ANDROID] Конвертер HBITMAP в TBitmap

[hryasch]

Добрый день. Существует одна проблема, с которой уже несколько недель не могу справиться. Есть старый код под WinAPI, его нужно переделать под Android через firemonkey. И главная проблема - есть код, который из собственного формата делает HBITMAP из WinAPI. Фактически это структура, где последнее поле - указатели на биты. Это переделать легко, создав собственную копию такой структуры. Но теперь мне нужно перевести ее в TBitmap, и я не очень понимаю как это сделать.
 

[krapotkin]

лучше озвучить исходную задачу. под андроидом всяко не будет HBITMAP 

[Pax Beach]

HBITMAP — это и есть VCL.TBitmap

var
  hWinDC   : THandle;
  w, h     : integer;
  tmpStream: TMemoryStream;
begin
  GetTargetDimensions(w, h);
  hWinDC           := GetWindowDC(TargetHandle);
  BitmapVCL.Width  := w;
  BitmapVCL.Height := h;
  hWinDC           := GetWindowDC(TargetHandle);
  BitBlt(BitmapVCL.Canvas.Handle, 0, 0, BitmapVCL.Width, BitmapVCL.Height, hWinDC, 0, 0, SRCCOPY);
  ReleaseDC(TargetHandle, hWinDC);
  tmpStream := TMemoryStream.Create;
  try
    BitmapVCL.SaveToStream(tmpStream);
    BitmapFMX.LoadFromStream(tmpStream);
  finally
    tmpStream.Free;
  end;
end;