Hallo!
Ik heb een app gemaakt waarbij ik een 3000x2225 pixels 24-bits bitmap in het geheugen wil laden.
Nu heb ik daarvoor de onderstaande procedure 'Laad_Bitmap_3000x2225' gebruikt. Onder Windows XP (PC met 256 mb RAM, display instelling 32-bit) wordt de bitmap zonder problemen in het geheugen geladen (zover ik begrepen heb van de Win32 API als Device Dependent Bitmap).
Echter als ik de app op Windows 98 (PC met 128 mb RAM, display instelling 24 bits) draai dan wilt ie de bitmap niet meer laden met de procedure 'Laad_Bitmap_3000x2225'. De handle die dan geretourneerd wordt is dan 0.
Als ik dan probeer onder Windows 98 diezelfde bitmap te laden, maar dan in een andere resolutie (2048x1536) met de procedure 'Laad_Bitmap_2048x1536', wordt de bitmap zonder problemen in het geheugen geladen.
Kan iemand mij misschien vertellen hoe dit komt/ wat ik fout doe??? Bij voorbaat hartelijk dank!!!
Ik heb een app gemaakt waarbij ik een 3000x2225 pixels 24-bits bitmap in het geheugen wil laden.
Nu heb ik daarvoor de onderstaande procedure 'Laad_Bitmap_3000x2225' gebruikt. Onder Windows XP (PC met 256 mb RAM, display instelling 32-bit) wordt de bitmap zonder problemen in het geheugen geladen (zover ik begrepen heb van de Win32 API als Device Dependent Bitmap).
Echter als ik de app op Windows 98 (PC met 128 mb RAM, display instelling 24 bits) draai dan wilt ie de bitmap niet meer laden met de procedure 'Laad_Bitmap_3000x2225'. De handle die dan geretourneerd wordt is dan 0.
Als ik dan probeer onder Windows 98 diezelfde bitmap te laden, maar dan in een andere resolutie (2048x1536) met de procedure 'Laad_Bitmap_2048x1536', wordt de bitmap zonder problemen in het geheugen geladen.
Kan iemand mij misschien vertellen hoe dit komt/ wat ik fout doe??? Bij voorbaat hartelijk dank!!!
Delphi:
1
2
3
4
5
6
7
8
9
10
11
12
13
| var Bitmap: HBitmap; procedure Laad_Bitmap_3000x2225; begin Bitmap := LoadImage (HInstance, PChar ('Test.bmp'), IMAGE_BITMAP, 3000, 2225, LR_LOADFROMFILE); if Bitmap = 0 then MessageBox (0, 'Bitmap Error', 'Function ''LoadImage'' failed to load bitmap.', MB_OK); end; procedure Laad_Bitmap_2048x1536; begin Bitmap := LoadImage (HInstance, PChar ('Test.bmp'), IMAGE_BITMAP, 2048, 1536, LR_LOADFROMFILE); if Bitmap = 0 then MessageBox (0, 'Bitmap Error', 'Function ''LoadImage'' failed to load bitmap.', MB_OK); end; |
[ Voor 28% gewijzigd door Verwijderd op 12-03-2003 13:05 ]