resolution d'image et optimisation de l'execution

Question

Bonjour a toutes et tous !



Mon objectif est le suivant: r&#233;aliser une application toute simple sous
VB6 qui permette d'inserer des photos haute resolution sur un dessin,
au format A4, sans n'avoir que la moitie de ma page a l'ecran!



Ce que j'ai fais: j'ai une form principale contenant une picture box
qui represente une sorte d'apercu de feuille A4, sur laquelle
j'incruste des apercus de photos. Je parle "d'apercus" car je travaille
en parallele sur une form invisible, aux dimensions importantes (genre
20000x30000 twips), afin d'y placer le dessin original (format A4) et
les photos en haute definition. Et je realise des "paintpicture" entre
ma forme visible, aux dimensions reduites, qui me sert juste d'apercu,
et ma forme invisible sur laquelle je travaille avec les donnees
originales.



J'aimerais que vous me critiquiez afin de savoir s'il existe une
maniere plus elegante de gerer cette problematique et d'alleger
l'execution de l'application, qui est pour l'instant assez volumineuse.



Merci d'avance.

cs_DARKSIDIOUS · Answer

d&#233;j&#224; au lieu d'utiliser une feuille temporaire, stocke ton image dans
un stdpicture, ca t'&#233;vitera de gaspiller des ressources graphiques (DC)
pour rien.



Ensuite, au lieu d'utiliser PaintPicture, utiliser la fonction API BitBlt qui est un peu plus rapide.



Si tu fait du traitement de pixels (modification de couleurs des
pixels), va voir ma source DKS_Gestion_Image qui te permettra de gagner
environ 30x de rapidit&#233; de plus que les fonctions standard de VB, ce
qui est loin d'&#234;tre n&#233;gligeable !

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

jekifvb6 · Answer

merci beaucoup pour ton aide !



je ne connaissais pas "stdpicture" mais ca semle convenir parfaitement
a ce que je recherche! mais pourrais tu m'en dire davantage ? car je
n'ai trouv&#233; que sa declaration: 

Dim X As New StdPicture

mais je ne sais pas comment on doit d&#233;finir ses dimensions (s'il le faut!) et existe-t-il les meme methodes que sur une picturebox classique?

merci d'avance.

cs_DARKSIDIOUS · Answer

Non, un stdPicture n'est qu'un objet permettant de stocker les images
(c'est le m&#234;me type que la propri&#233;t&#233; Picture du PictureBox), ca &#233;vite
surtout de passer par un picturebox temporaire qui bouffe plus de
ressource qu'un stdpicture, cependant, le stdpicture ne permet que de
stocker l'image, et non de la manipuler.



Pour charger une image dans un stdPicture :

Dim X As New StdPicture
Set X = LoadPicture("nom du fichier image")

'OU :
Set X = Picture1.Picture




_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

jekifvb6 · Answer

ah d'accord, merci pour l'explication !

En gros, pour mon application, puisque je n'affiche jamais ma form de
grandes dimensions, je peux remplacer par exemple mes
"grande_form.picture1.picture" par "grande_form.picture.stdpicture" ,
c'est ca ou bien j'ai rien compris?

merci encore de ton aide!

cs_DARKSIDIOUS · Answer

Ah non, ce serait plut&#244;t remplacer grande_form.picture1.picture par ta variable X, avec X :

Dim X As New StdPicture
Set X = LoadPicture("nom du fichier image")



_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

jekifvb6 · Answer

La "stdPicture", c'est surtout bien lorsque l'on souhaite travailler avec des images, pour les stocker en attendant, non?

Ce que je fais, c'est simplement des incrustations &#224; la suite de photos dans une grande picturebox.

Donc j'ai une petite picturebox dans laquelle je charge a la suite mes
photos (et que je peux donc remplacer par une StdPicture) et

j'ai &#233;galement une grande picturebox dans laquelle je charge un dessin
au depart, mais que je ne pourrais pas remplacer cette fois

par une StdPicture puisque une fois que j'ai charge mon dessin, au
debut, je viens incruster par plusieurs paintpicture a la suite, mes

photos qui sont dans ma petite picturebox (que je vais remplacer en StdPicture).



En fait, comment ferais tu une incrustation d'une image dans une autre, a l'aide de StdPicture ?

Je ne peux me servir que d'une StdPicture dans mon cas, non?

merci.

cs_DARKSIDIOUS · Answer

Dans ton cas, le plus simple c'est de charger les images une &#224; une dans
un stdpicture, et d'utiliser ces stdpicture pour faire tes paintpicture
sur ton image finale, par exemple :



Dim LoadingImage as stdPicture



Set LoadingImage = LoadPicture("c:\image1.bmp")

Call Picture1.PaintPicture(LoadingImage, 0, 0, 100, 100)

Set LoadingImage = LoadPicture("c:\image2.bmp")


Call Picture1.PaintPicture(LoadingImage, 100, 100, 100, 100)

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

jekifvb6 · Answer

merci beaucoup Dark Sidious, mais  sachant que j'insere des photos
(4800*3600 twips) dans une picture (30000*20000 twips),  il semble
helas necessaire que je garde ma picturebox de 30000*20000 et que je
fasse une stdPicture que pour charger mes petites photos (4800*3600)

Je pense que pour vraiment optimiser, il faudrait que je trouve un
moyen de ne pas faire une si grande picture box, que je n'affiche meme
pas en plus, mais je m'en sers juste pour incruster mes photos a partir
de paintpicture.

jekifvb6 · Answer

pas d'avis ???

cs_DARKSIDIOUS · Answer

Si si,



Il existe toujours des moyens d'optimiser, mais la solution ici passe
par des m&#233;thodes relativement compliqu&#233;, et je ne suis pas s&#251;r que tu y
gagnerais beaucoup a final : cr&#233;er un DC (createDC) temporaire dans
lequel tu y collerais tes images (BitBlt), sans oublier de d&#233;truire le
DC d&#232;s que tu n'en a plus besoin (DeleteDC), mais franchement, une
picturebox c'est quand m&#234;me bien plus simple qu'un DC temporaire, et
remplit le m&#234;me r&#244;le !

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

jekifvb6 · Answer

ok, merci bien DKS mais cela est vraiment plus rapide d'utiliser un DC plutot qu'une picturebox invisible?

cs_DARKSIDIOUS · Answer

Ben comme je te l'ai dit : "je ne suis pas s&#251;r que tu y gagnerais beaucoup a final".



Mais pour ce que tu veux faire (chargement d'images uniquement), VB est
autant optimis&#233; que les API : il faut charger toute l'image !


_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

jekifvb6 · Answer

merci pour toutes ces reponses! dommage que je n'ai pu trouver de solution miracle!

Resolution d'image et optimisation de l'execution

13 réponses

Discussions similaires