Discussion :

[GEY3008]

Bonjour
Je craque devant un problème simple et j'y suis depuis une journée sans solution.
J'ai un fichier qui comporte une rubrique photo (déclarée image).
Je voudrais par un bouton lister toutes les lignes de ce fichier, voir si une photo existe. Si elle exite, ne rien faire, si elle n'existe pas, la remplacer par une photo sur HD.

mon code (qui ne marche pas)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
sImg_photo est une chaîne
sImg_photo = "C:\Temp\photo.gif"
POUR TOUT Adhérent AVEC "nom<>' '"
	ph est une chaîne = Adhérent.Photo
	SI fFichierExiste(ph) = Faux ALORS
		Adhérent.Photo=sImg_photo
		HModifie(Adhérent)	
		Trace("Photo trouvée ",sImg_photo)
 	sinon
		Trace("Pas de photo pour ",Adhérent.Nom)
	fin
FIN

Merci pour votre aide...

[ErwanA]

Humm... si la rubrique "photo" est de type image, il ne s'agit pas d'un chemin vers un fichier donc la fonction fFichierExiste(ph) doit toujours renvoyer faux, non ?

Je ne connais pas trop la façon de se comporte une rubrique de type image dans un fichier de données mais ce doit être l'équivalent d'un BLOB sur MySQL, un rubrique binaire.
Soit la rubrique est vide et dans ce cas, il n'y a pas de photo d'enregistrer soit elle ne l'est pas, et on espère qu'il s'agisse d'une photo.
Pour tester que la rubrique est vide, j’essayerai la fonction Taille ou éventuellement les fonction InfoBitmap.

Sinon, l'autre solution est de déclarer la rubrique "Photo" du fichier en tant que chaine et y stocker le chemin de l'image et dans ce cas, le code fourni devrait fonctionner.
Par contre, utiliser le chemin d'un fichier comporte le risque que si l'application est installé sur plusieurs poste, tous n'est pas accès à ce chemin.

[Fred 57220]

Bonjour

je ferais un champs Name_Photo contenant le nom de la photo (nom de fichier sans le chemin).

fred

[Atsibat]

Bonjour

ça va te surprendre mais :

Code :

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

1
2
 
POUR TOUT Adhérent AVEC nom<>""

devrait fonctionner

de plus :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
sImg_photo est une chaîne
sImg_photo = "C:\Temp\photo.gif"
POUR TOUT Adhérent
	ph est une chaîne = Adhérent.Photo
	SI fFichierExiste(ph) = Faux ALORS
		Adhérent.Photo=sImg_photo
		HModifie(Adhérent)	
		Trace("Photo trouvée ",sImg_photo)
 	sinon
		Trace("Pas de photo pour ",Adhérent.Nom)
	fin
FIN

devrait aussi te permettre de mettre la photo par defaut sur les champs ou aucune photo n'est renseignée

Bon dev

[Atsibat]

Erreur de ma part :

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
 
sImg_photo est une chaîne
sImg_photo = "C:\Temp\photo.gif"
POUR TOUT Adhérent
	ph est une chaîne = Adhérent.Photo
	SI fFichierExiste(ph) = Faux ALORS
		Adhérent.Photo=sImg_photo
                Trace("Pas de photo pour ",Adhérent.Nom)
		SI HModifie(Adhérent) ALORS
                    Trace("Photo par defaut inserée")
                SINON
                    Trace("Erreur Base")
	        FIN
 	SINON
		Trace("Photo trouvée : ",Adhérent.Nom+"-->"+Adhérent.Photo)
	FIN
FIN

[GEY3008]

Bonjour Atsibat et toute mes excuses pour cette réponse tardive pour cause de déplacement.
J'ai bien récupéré ton code mais il ne marche pas non plus.
Il m'efface les photos existante et mets "à vide" le champs photo de tous les adhérents sans exception.
Désolé.