Ist dort was Passendes dabei?
https://www.delphipraxis.net/212686-...speichern.html
https://en.delphipraxis.net/topic/67...how-to-use-it/
TDirect2DCanvas klingt ja irgendwie passend.
function TDirect2DCanvas.CreateBitmap(Bitmap: TBitmap): ID2D1Bitmap;
Falls dir der
VCL-Quellcode zur Verfügung steht (ich vermute mal in D11, also 22.0, dürfte es ähnlich aussehn)
C:\Program Files (x86)\Embarcadero\Studio\23.0\source\
vcl\
Vcl.StyleBitmap.pas
Delphi-Quellcode:
function TseBitmapLink.GetScaledBitmapLink(AWidth, AHeight: Integer; ADPI: Integer): TseBitmapLink;
var
...
D2DCanvas: TDirect2DCanvas;
D2DBitmap: ID2D1Bitmap;
...
D2DBitmap := D2DCanvas.CreateBitmap(Buffer);