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??

[freeway]

mein vorschlag
Image1.Picture.Bitmap.Assign(Windows.Bitmap);

[s.h.a.r.k]

@freeway: das kann doch nicht gehen, da Windows.TBitmap ein Typ und keine Referenz auf ein TBitmap ist.

Der Code von oben stimmt eigentlich, also der zum Bild anzeigen. Nun gilt es nur noch sicherzustellen, ob die Daten auch ankommen. Schon mal die Höhe und Breite des Bitmaps auf Werte größer 0 gesetzt?

[turboPASCAL]

Sicher das:

Code:

(Bitmap * GetCode())

ein Windows.Bitmap (tagBITMAP) liefert ? Oder bekommt man ein Bitmaphandle ( HBITMAP) ?

[EWeiss]

Zitat von turboPASCAL:

Sicher das:

Code:

(Bitmap * GetCode())

ein Windows.Bitmap (tagBITMAP) liefert ? Oder bekommt man ein Bitmaphandle ( HBITMAP) ?

Ich denke mal HBITMAP wirds sein..
Kann mir nicht vorstellen das die einen zeiger auf einem Bitmap zurückliefern.

gruss