Habe das Probem das bei grossen Images diese nicht mehr erzeugt werden.
Bei diesem Beispiel endet das erstellen bei einer Grösse von 5365x5365.
Code: Alles auswählen
c=5350
While a=b
c+1
MImage1=CreateImage(#PB_Any,c,c)
Debug Str(c)+" - "+Str(MImage1)
If IsImage(MImage1)
FreeImage(MImage1)
Else
Debug "kein image erzeugt!"
a=1
b=2
Debug c
EndIf
Wend
Das zweite Beispiel zeigt aber das es anscheinend eine Gesamtbegrenzung für den Imagespeicher gibt.
Code: Alles auswählen
c=3250
While a=b
c+1
MImage1=CreateImage(#PB_Any,c,c)
MImage2=CreateImage(#PB_Any,5000,5000)
Debug Str(c)+" -1 - "+Str(MImage1)
Debug Str(c)+" -2 - "+Str(MImage2)
If IsImage(MImage1)
FreeImage(MImage1)
EndIf
If IsImage(MImage2)
FreeImage(MImage2)
Else
Debug "kein image erzeugt!"
a=1
b=2
Debug c
EndIf
Wend
Mein Programm sollte aber mehr Bilder verarbeiten können. Zumindest soviele wie RAM vorhanden ist. Will mir ja jetzt nicht unbedingt eine Speicherverwaltung für Bilder schreiben müssen.