Bitmap als Pointer auf einem Display ausgeben

[Cyberaxx]

Guten Morgen,

das will leider nicht so...

Delphi-Quellcode:

  var 
    Image : Pointer; 
    ImageSize : DWord; 
  begin 
    with Bitmap do 
    begin 
      GetDIBSizes(Handle, InfoSize, ImageSize);

Da fehlt das InoSize, habs hinzugefügt aber er braucht doch die Info

Delphi-Quellcode:

GetDIB(Handle, Palette, nil, Image^); 

[Fehler] LUI.pas(173): Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden