ablage in pointer adresse copieren

[super_castle]

hallo, wer kann mir dieses programm umschreiben, das das bild in einen *pointer geschrieben wird statt als bmp abgespeichert wird?

ProcedureDLL getclip_bild_(*pointer)
ProcedureDLL getclip_bild_()
hBitmap = GetClipboardData(#PB_ClipboardImage)
ImageNumber=0
Protected *lptr.LONG, *wptr.WORD, BitmapData.BITMAP
GetObject_(hBitmap, SizeOf(BITMAP), @BitmapData)

!extrn _PB_Image_ObjectsArea
!mov eax, [_PB_Image_ObjectsArea]
!mov [esp+8], eax

*lptr + ImageNumber * 14
*lptr\l = hBitmap
*wptr = *lptr + 4
*wptr\w = BitmapData\bmWidth
*wptr + 2
*wptr\w = BitmapData\bmHeight
*wptr + 2
*wptr\w = BitmapData\bmBitsPixel
*lptr = *wptr + 2
*lptr\l = BitmapData\bmBits
SaveImage(0, "d:\capturebild\test.bmp")
EndProcedure

[Hroudtwolf]

Code: Alles auswählen

; PB 4.00
Procedure getclip_bild_(ImageID.l)
  If GetClipboardImage(ImageID.l)
   ProcedureReturn ImageID(ImageID.l)
  Else
    ProcedureReturn #False 
  EndIf 
EndProcedure