________________________________________________________
CODE NAVIGATEUR
________________________________________________________
// Si le champ contient un fichier : lance l'envoi du fichier
SI MoiMême..Occurrence > 0 ALORS
Vérification extension
extension_fichier est une chaîne;
extension_fichier = ExtraitChaîne(UPL_Upload, 0, ".", DepuisFin);
extension_fichier = Minuscule(extension_fichier)
SI extension_fichier = "jpg" OU extension_fichier = "jpeg" OU extension_fichier = "png" OU extension_fichier = "gif" ALORS
Mise A jour des libellés
SAI_Photo = MoiMême
ET lance l'upload
UploadLance(MoiMême);
SINON
Info("Type de fichier non supporté");
FIN
FIN
________________________________________________________
CODE SERVER
________________________________________________________
IMG_Photo = "trap.jpg"
SI fTaille(MoiMême) > 5000000 ALORS
// le fichier est trop volumineux
Info ("Le fichier est trop volumineux et ne sera pas sauvegardé")
IMG_Ok..Visible = Faux
SAI_Photo = ""
IMG_Photo..Image = "trap.jpg"
SINON
// L'indice sert en cas d'erreur au niveau de la sélection de la photo
Fichier est une chaîne = "temp.jpg"
Rep est une chaîne = fWebDir()
SI PAS fRépertoireExiste(Rep) ALORS
fRepCrée(Rep)
FIN
// Copie de la photo
UploadCopieFichier(UPL_Upload,Rep,Fichier)
IMG_Photo = Fichier
IMG_Ok..Visible = Vrai
UPL_Upload..Visible = Faux
FIN
Partager