salut, kobex.
Je te livre mon code utilisé pour afficher les images uploadées et stockées dans une table docpec dans une ZR. les fonction tmpfic, to_jpg et docfmt sont des fonctions perso ( docfmt est qqe par dans le forum, to_jpg sert à convertir en jpg et tmpfic renvoie un nom de fichier temporaire valide ( meme en reseau) selon une extension donnée.
img_image est un champ image petit ( vignette) qui sert à reduire l'image d'origine
espérant avoir aidéCode (Text):
// // vidage du dossier temp avant de commencer
s=tmpfic(stemp+NumériqueVersChaîne(gQuelle_pec,"09d")+"-"+docpec.typedoc+"-"+NumériqueVersChaîne(j+1,"02d"),"."+docpec.FMT_doc)+"."+docpec.FMT_doc
SI fFichierExiste(s) ALORS
ttrace("fichier existant "+s)
fSupprime(q,frLectureSeule)
FIN
fSauveTexte(s,docpec.Document)
q=imgfmt(s)
SELON q
CAS "JPG","TIF","GIF","PNG","PDF"
//IMG_Image1=docpec.Document
AUTRE CAS
to_jpg(s)
FIN
// selon
IMG_Image1=s
t=fExtraitChemin(s,fFichier+fDisque+fRépertoire)+".JPG"
dSauveImageJPEG(IMG_Image1,t,80,imgAjouteVignette)
ZoneRépétéeAjouteLigne(ZR_pj,t,i,docpec.IDDocuments)
j=ZoneRépétéeOccurrence(ZR_pj)
ZR_pj[j].IMG_affiche=t
Cliquez pour agrandir...