Windows.Bitmap in Delphi verwenden

[hsg]

Hi zusammen,

ich habe mal wieder ein sicherlich ganz kleines Problem, dass wahrscheinlich mit zwei Zeilen Code lösbar ist, aber ich bin heute einfach zu vernagelt, um die Lösung zu sehen

Ich habe in einer Visual-Studio-DLL eine Funktion, die mir den Zeiger auf ein Bitmap liefert (Bitmap * GetCode()) und möchte diesen Rückgabewert in meinem Programm verwenden, aber das bekomme ich einfach nicht hin.

Delphi-Quellcode:

  
  var 
     dstBmp : TBitmap;
     srcBmp : Windows.Bitmap;
     oPtr   : Pointer;
  begin
     oPtr   := GetCode();
     dstBmp := TBitmap.Create();
     nRes   := GetObject(dstBmp.Handle, sizeof(srcBmp),oPtr);
     if nRes = 0 then begin
       Image1.Picture.Bitmap.Assign(dstBmp);
     end;  // if nRes = 0
  end;

Leider bleibt das Image1 leer
Wie geht es richtig??