PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WEBDEV 2024 → Fixer les types de fichiers en Uplaod
Fixer les types de fichiers en Uplaod
Iniciado por Ralph IGCI, 12,may. 2020 16:46 - 5 respuestas
Miembro registrado
417 mensajes
Popularité : +6 (6 votes)
Publicado el 12,mayo 2020 - 16:46
Bonjour,
La propriété ..TypesFichiers, permet de fixer les types de fichier.
UPL_Upload1..TypeFichiers = "Fichier Texte (*.txt)" + TAB + "*.txt" + RC + "Tous" + TAB + "*.*"

Ca ne marche que pour le modèle liste(plusieurs). Pour le modèle simple champ, il y a erreur.
Je voudrais dans un champ saisie , mode Upload, ne prendre que les fichiers images et pdf.
Avez vous pu le faire ?
Si je dois utiliser le champ liste , je dois bloquer le nombre maximum de fichier à un (1).
Ca suppose que je controle les envoie.

L'avvez vous fait ?
Miembro registrado
43 mensajes
Publicado el 12,mayo 2020 - 17:42
J'ai eu le même soucis il n'y a pas si longtemps, je l'avais soumis au support pc soft et la réponse était claire :
Impossible de le faire pour un champ de saisie de type upload.
Miembro registrado
417 mensajes
Popularité : +6 (6 votes)
Publicado el 13,mayo 2020 - 10:05
Bonjour,
Dans ce cas il reste une seule option, prendre le premier fichier et oublier le reste.
Miembro registrado
43 mensajes
Publicado el 13,mayo 2020 - 10:40
Ce que j'avais fait à l'époque, c'est contrôler le type de fichier en sortie de champ avant l'envoie
Quelque chose du style :

SI Contient(SAI_Fichier,".pdf") = Faux ALORS
Erreur("Mauvais format de fichier")
RETOUR
FIN
Publicado el 26,junio 2020 - 08:59
Bonjour,

J'ai fais il y a un moment quelque chose comme cela..
Et cela fonctionne.
Dans la partie A chaque modification du champ UPL.

sfichier est une chaîne =ExtraitChaîne(UPL_Upload,rangPremier)
SI Droite(sfichier,3) <> "PDF" ET Droite(sfichier,3) <> "pdf" ALORS
Info("Insérez l'avenant au format PDF exclusivement merci")
UploadSupprimeTout(MoiMême)
sfichier = ""
BTN_EnvoyerUpload..Visible = Faux
RETOUR
FIN
Miembro registrado
950 mensajes
Popularité : +53 (63 votes)
Publicado el 26,junio 2020 - 17:13
Bonjour,

moi dans "A chaque modification de la liste..." je fais

POUR i=1 _À_ MoiMême..Occurrence
LIB_Déposer_des_fichiers_ici..Visible = Faux
nTaille = UploadTailleFichier(MoiMême, i)
sTaille=TailleVersChaîne(nTaille)
SWITCH Minuscule(ExtraitChaîne(MoiMême[i],ChaîneOccurrence(MoiMême[i],".") +1,"."))
CASE "mov","mp4","avi","webm","mkv","jpg","png","gif","bmp"
ZoneRépétéeAjouteLigne(ZR_Fichiers,MoiMême[i],sTaille,0,"",RVB(255,192,64))
OTHER CASE
ToastAffiche("Le format du fichier " + MoiMême[i] + " n'est pas correcte",toastCourt,cvMilieu,chCentre,RougeClair)
MoiMême.Supprime(i)
END

FIN


Jordan