Forums PureBasic - Français
http://forums.purebasic.com/french/
Oui je ne dis pas le contraire, mais je suis tête en l'air et tu vois, je n'ai pas fait attention...blendman a écrit :je trouve ça bien d'avoir séparer, tu peux avoir besoin de decoder uniquement ou d'encoder uniquement
En séparant, ça permet de n'inclure que les libs ou les commandes dont tu te sers réellement ^^.
La doc a écrit :La taille maximale de l'image est fonction du système d'exploitation et de la quantité de mémoire disponible. Si la mémoire disponible est suffisante alors une image de 8192x8192 peut être traitée par tous les systèmes d'exploitation pris en charge par PureBasic
je crois que cela ne concerne que la compilation en 32 bits !!Ar-S a écrit :Si la mémoire disponible est suffisante alors une image de 8192x8192 peut être traitée par tous les systèmes d'exploitation pris en charge par PureBasic
ha bah non ! ça ne marche pasAr-S a écrit :Ah bon ? (enfin déjà limite mémoire) mais je suis surpris là.
Code : Tout sélectionner
; a tester en compilation 64 bits sous windows 10
x= 40000
y= 40000
; pour les autres :
;x= 3000
;y= 3000
If OpenWindow(0, 0, 0, 800, 600, "CreateImage", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ScrollAreaGadget( #PB_Any, 10, 10, 800-30,600-30, x, y, 30)
imggadget=ImageGadget(#PB_Any, 0, 0, x, y, 0)
CloseGadgetList()
img = CreateImage(#PB_Any, x,y,32)
StartDrawing(ImageOutput(img )) ; get the dc of the dummy PB image
for i=1 to 1000
circle(random(x,1),random(y,1),10,rgb(random(255,1),random(255,1),random(255,1)))
Next i
StopDrawing()
SetGadgetState(imggadget, ImageID(img)) ; Affichage
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Code : Tout sélectionner
Attente du démarrage du programme...
Type d'exécutable: Windows - x64 (64bit, Unicode)
Exécutable démarré.
[ERREUR] Ligne: 11
[ERREUR] La largeur maximale d'un Gadget est de 32767 pixels.Code : Tout sélectionner
; ScrollAreaGadget( #PB_Any, 10, 10, 800-30,600-30, x, y, 30)
; imggadget=ImageGadget(#PB_Any, 0, 0, x, y, 0)
; CloseGadgetList()Code : Tout sélectionner
Attente du démarrage du programme...
Type d'exécutable: Windows - x64 (64bit, Unicode)
Exécutable démarré.
[ERREUR] Ligne: 15
[ERREUR] CreateImage(): La largeur de l'image est > à 32000 pixels.
Le programme a été arrêté.Code : Tout sélectionner
x= 32000
y= 16777
Tu peux la charger si ton PC a assez de RAM et que ton PB est en 64bits et tu peux la découper à ta convenance.shadow a écrit :j'ai une méga image et je cherche un logiciel pour faire ça Mon image est méga grande env 24 000 * 9000.
Code : Tout sélectionner
; Ar-S // PB 5.50 x64
UseJPEGImageDecoder()
UseJPEGImageEncoder()
Global in.s = "D:\Pics\__Temp\testmega.jpg" ; chemin de ta grosse image
Global out.s = "D:\Pics\__Temp\testmega_crop.jpg" ; chemin de ta grosse image
If LoadImage(0,in) <> 0
Debug "image chargée"
Debug "je découpe"
If GrabImage(0, 1, 0, 0, 1920, 1080) <> 0 ; Coupe l'image
Debug "découpage effectué"
Debug "Je sauve..."
If SaveImage(1,out.s,#PB_ImagePlugin_JPEG)
MessageRequester("OK","Image 1920x1080 sauvée dans "+out.s)
Else
Debug "Sauvegarde imposible"
EndIf
Else
Debug"Le découpage chie"
EndIf
Else
Debug "image impossible à charger"
EndIf
FreeImage(0)
FreeImage(1)