comment créer un repertoire pour enregistrer les fichiers ou images et enregistrer le chemin dans la table

**kitcarson23** · 15/08/2011, 14h24

Bonjour

j'ai opté pour la création d'un repertoire pour enregistrer les fichiers ou images et ensuite copier le chemin ou l'adresse du fichier ou image dans le champ correspondant dans ta table.
comment proceder ?
Merci de vos reponses

**NetLandGim** · 15/08/2011, 16h26

Envoyé par kitcarson23

Bonjour

...correspondant dans ta table.
comment procéder ?
Merci de vos réponses

Tu veux parler d'une table mémoire ou une table de ta base de données

Considérons le deuxième cas qui me parait plus logique.

1- Tu charges ton fichier image
-Depuis un répertoire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
sMaPhoto est une chaîne=RandChaine( FTPsLongChaine)
 
// Ouvre le sélecteur d'images
sFichier est une chaîne = fSélecteurImage("", "", "Sélectionnez une image.....")
SI sFichier<>"" ALORS
	fCopieFichier(sFichier,gsRepTemp+"\"+sMaPhoto+".JPG")
 
	IMG_PHOTO=gsRepTemp+"\"+sMaPhoto+".JPG"
SINON
	Message("Le fichier n'a pas pu être chargé")
 
FIN

-Depuis un TWAIN

Code :

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

1
2
3
4
5
6
7
8
9
10
sMaPhoto est une chaîne=RandChaine(120 )
QUAND EXCEPTION  DANS 
SI TwainVersJPEG(gsRepTemp+"\"+sMaPhoto+".JPEG",0,Vrai) ALORS
	IMG_PHOTO=gsRepTemp+"\"+sMaPhoto+".JPEG"
 
 
FIN	
FAIRE
Info("Aucune photo n'a été prise")	
FIN

Ton champ image qui te permet de visualiser la photo garde le chemin
Tu créer une variable chaine qui stock le chemin (j'aime bien les variables que
d'utiliser le nom du champ dans cas précis)

Code :

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

1
2
UrlFtpPhoto est une chaîne=fNomLong(CMOD_PHOTO_ID.IMG_PHOTO)
//Tu peux également récupérer toute l'adresse alors pas de fNomLong

Le reste est à ta portée

Pour recuperer la photo
1-Tu importe l'adresse stockée dans la table
2-Puis IMG_PHOTO=adresse

Mais pour l'afficher dans une table qui a un champ image

Tu dois charger l'image dans un buffer

Code :

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

1
2
3
 
imgBuffer est un Buffer =fChargeTexte(COL_D_LIEN_PHOTO[i])
			COL_D_PHOTO[i]=imgBuffer

**kitcarson23** · 16/08/2011, 05h19

Bonjour
merci pour ta reponse, en effet, il s'agit de la base de données
pour le moment base de données est en HF classique ou reseau;
je vais tester,
merci

**NetLandGim** · 17/08/2011, 02h57

Ce sont des bouts de codes alors ne fait pas attention aux procédures personnelles j'ai écrites
L'essentiel est d'ouvrir un fichier image avec la fonction adéquate

Le lien à insérer dans ta table est le nom du champ image
Pour afficher dans un champ image tu met simplement IMG_Image=client.Photo

Mais pour l'afficher dans un champ image qui se trouve dans une table, il faut charger le flux de l'image dans une varibale Buffer puis l'affecté à la colonne image