Discussion :

[alex57]

Bonjour,

Je souhaite faire une galerie d'image, pour le moment pas de soucis, cela fonctionne, mais pour les images au format .png les images sont de la taille d'une miniature, même quand la fenêtre popup s'ouvre, pour montrer l'image en grand.
Les fichiers images, sont stockées sur le disque dur.

Je précise que pour les images au format jpeg, je n'es pas ce problème.

Pouvez vous m'expliquer pourquoi j'ai ce soucis ?

Merci

[Voroltinquo]

Bonjour,
Cela provient certainement de la manière dont tu as défini la gestion des vignettes dans la description de ta rubrique.

[alex57]

Les images ne sont pas stockée dans un fichier de donnée.
Les images sont dans un dossier tout simplement.

[Voroltinquo]

Essaye de voir au niveau du mode d'affichage de ton champ image alors : étiré, homothétique etc

[alex57]

J'ai déjà essayé, mais ça ne change rien.
J'ai des images au format jpeg, et d'autres au format png, je n'ai que le problème avec une image au format png

[frenchsting]

Bonjour,

Les tailles et la résoltion de tes images sont similaires (que ce soient les jpg et les png) ?

[alex57]

Toutes les photos non pas la même taille.

Il peut très bien y avoir du 800x600 comme du 1920x1080
J'ai pas de soucis avec des photos en jpeg, mais que avec du png

[frenchsting]

Et la résolution des images ? (ie ppp = points par pouce)

[alex57]

Je suis a 72 ppp sur les images png, j'ai la même chose sur les images jpeg

[frenchsting]

Très étrange en effet...

Il y a moyen que tu mettes 1 png et 1 jpg en pièces jointes ?

[philouZ]

Si tu affiches le png dans un champ image à part pour l'essai est-ce qu'il apparaît correctement ou est-ce qu'il apparaît aussi comme un vignette ?

[alex57]

Donc j'ai mis deux images
Celle avec le fond blanc c'est un jpeg, et l'autre avec le fond vert c'est celle qui s'affiche comme une miniature

[alex57]

Sinon j'ai aussi un autre problème que je ne comprend pas.
J'ai certaines images quand elle sont affiche dans un dossier, sont dans le bon sens mais quand je les importe elles sont retourné, comment ça se fait ?

[frenchsting]

J'ai récupéré et testé tes 2 images. Pas de souci chez moi.
Par contre, l'image vertee est en jpg également.

Ca ce sont les joies des données EXIF...

EDIT : J'ai converti ton image en PNG mais pas de souci non plus. Peut-être y'a-t'il eu des infos perdues lors de la première conversion...

[alex57]

Je comprend pas pourquoi ca fonctionne pas, je met le code dit moi si y a qqch que j'aurais fait de faux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
sTousLesFichiers est une chaîne
	sCheminDocument est une chaîne
	nCpt est un entier
	image_memoire est une Image
 
	// Ouvre le sélecteur d'images
	sTousLesFichiers = fSélecteurImage("", "", "Sélectionnez une image(s).....", fFiltreImage(), fselMulti)
 
	SI sTousLesFichiers <> "" ALORS
 
		nCpt = 1
 
		// Parcours de chaque document
		sCheminDocument = ExtraitChaîne(sTousLesFichiers, nCpt, RC)
 
		Sablier()
 
		TANTQUE sCheminDocument <> EOT
 
			HRAZ(Liste_img)
 
			Liste_img.IDAffectation_img = TABLE_Albums_photos.COL_IDAffectation_img
 
			// Vérifie avant la copie que le fichier existe encore
			SI fFichierExiste(sCheminDocument) = Vrai ALORS
 
				image_memoire = dChargeImage(sCheminDocument, imgConvertir )
				//Trace(image_memoire.Hauteur + " X " + image_memoire.Largeur)
				ResCopie est un booléen
				sNom_fichier est une chaîne
				sNom_fichier = DateHeureSys()
 
				ResCopie = dSauveImageJPEG(image_memoire, fRepExe() + "\Photos\" + sNom_fichier + ".JPEG", 100)
 
				// Affichage du message d'erreur si la copie n'a pas été effectuée
				SI ResCopie = Faux ALORS
					Erreur(ErreurInfo(errMessage))
					RETOUR
				SINON
					// le fichier a bien été copie on met le nom du nouveau fichier dans la variable
					Liste_img.nom_photo = "Photos\" + sNom_fichier + ".JPEG"
				FIN
			SINON
				Erreur("Le fichier n'existe pas, impossible de copier le fichier")
				RETOUR
			FIN
 
			HEnregistre(Liste_img)
 
			// Traitement du document suivant
			nCpt ++
			sCheminDocument = ExtraitChaîne(sTousLesFichiers, nCpt, RC)
		FIN
 
		Sablier(Faux)
 
		Info("Les photos ont été importées")
	FIN

[frenchsting]

J'ai lu ton code en diagonale :
- Plutôt que que de faire ta boucle avec le extraitchaine() sur le RC, tu peux faire un POUR TOUTE CHAINE sCheminDocument de sTousLesFichiers SEPAREE PAR RC. C'est plus simple, je trouve.
- Ta variable sNomfichier est inutile.
- Méfie toi du henregistre(). Je ne sais pas quel est tn contexte mais je trouve qu'il vaut mieu utiliser la doublette hajoute() / hmodifie().

Concernant tes images
- As tu essayé d'enlever le imgconcertir dans le dchargeimage ?
- Autre idée : charger directement l'image par image_memoire = sCheminDocument ?

[philouZ]

As tu vérifié en debug que les dimensions de l'image dans ta variable image_memoire sont les mêmes que les dimensions de l'image d'origine ?