PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WEBDEV 2024 → Pour Tania
Pour Tania
Débuté par Gil, 05 fév. 2004 20:17 - 6 réponses
Posté le 05 février 2004 - 20:17
Bonjour,

Ci dessous voici le code que j'utilise.En ce qui me concerne, le nom du fichier
avec son extension mais
sans le chemin est stocké ds un fichier HF

On initialise un bouton "Téléchargement" ds la zone répétée

*******************************************
Code du Bouton de téléchargement
*******************************************
// \fichiers\ est le dossier ds lequel st stockés les fichiers à télécharger
// ATT_NOM est le nom du champ de la zone répétée contenant le nom du fichier

FichierAfficheMIME(fRepEnCours()+"\fichiers\"+SansEspace(ATT_NOM), "", Faux)



****************************************************
Code de la procédure
****************************************************

PROCEDURE FichierAfficheMIME(CheminDuFichier, NomAffiché="", bForce=Faux)
// Propose en téléchargement le fichier passé en paramètre avec
// un nom paramètrable.
// Paramètres:
// - CheminDuFichier : chaine contenant le chemin et le nom complet du fichier
à afficher
// - NomAffiché : chaine optionnelle contenant le nom "virtuel" du fichier
définit par l'utilisateur (par défaut
// ce paramètre est identique au nom du fichier + son extension.

NomFic est une chaîne = fExtraitChemin(CheminDuFichier, fFichier)
ExtFic est une chaîne = fExtraitChemin(CheminDuFichier, fExtension)[[2 A]]

SI NomAffiché = "" ALORS
NomAffiché = NomFic + "." + ExtFic
FIN

MIMFic est une chaîne
SI PAS bForce ALORS
MIMFic=TypeMIME(Minuscule(ExtFic)) + RC
SINON
MIMFic="application/unknown" + RC
FIN


// après différents essais c'est cette chaine qui fonctionne
MIME est une chaîne = "application/unknown" + RC + "Content-Disposition:attachment;filename="+NomAffiché+RC

FichierAffiche(CheminDuFichier,MIME)


Voili, en ce qui me concerne cela fonctionne correctement avec XP, 2000 et
W98.

Il y aurait des problèmes avec certains systèmes. Sur ce même forum j'avais
eu un échange avec "Alain" sur le sujet pendant l'été

S'il nous lit il pourra peut être compléter.

Amitiés

Gil
Posté le 06 février 2004 - 10:27
Bonjour Gil

En effet, j'ai eu le besoin d'utiliser la fonction FichierAffiche() pour
proposer systèmatiquement un téléchargement.

A ce moment là j'était chez un client qui m'a fait bossé sur une machine NT4
SP6, avec Apache 1.3.24
et une version de webdev 1.5 que j'ai du faire passer en 15032 (ils étaient
encore à la 15016 alors qu'ils avaient toutes les LST et ils se plaignaient
de ne pas faire ce qu'ils voulaient avec Webdev et qu'il était bogué, etc...
=> perso je pense qu'ils auraient dû aprendre à lire avant d'acheter les
LST).

Tu trouvera dans le message du 22/08/2003 à 15:29 ma discussion avec Fabien
A. et les hypothèses émises. J'ai aussi contacté le ST mais j'ai utilisé le
mail de l'entreprise cliente qui ne m'a pas fait parvenir le résultat finale
de leur investigation. Si le ST pouvait retrouver la réponse qu'ils
voulaient faire et nous la donner sur ce forum ce serait sympa.

Un message plus anciens, du 14/08/2003 à 16:51 qui m'a mis sur la voie.

Pardonne moi mais je ne vois pas de discussion avec toi au cours de la
période de cet été (mais j'ai des messages qui ont disparu).

Sinon je suis toujours sur la 1.5 (les projets actuels fonctionnent bien et
ne nécessitent que qq mise à jour qui ne nécessitent pas de passer à la
version 7.0).

Je meurs d'envie de passer à cette nouvelle version et j'attend un nouveau
projet pour ça (pour convaincre mon responsable).

A+

Alain V

"Gil" <gilouthomas@aol.com> a écrit dans le message de
news:40233fe5@news.pcsoft.fr...


Bonjour,

Ci dessous voici le code que j'utilise.En ce qui me concerne, le nom du

fichier
avec son extension mais
sans le chemin est stocké ds un fichier HF

On initialise un bouton "Téléchargement" ds la zone répétée

*******************************************
Code du Bouton de téléchargement
*******************************************
// \fichiers\ est le dossier ds lequel st stockés les fichiers à

télécharger
> // ATT_NOM est le nom du champ de la zone répétée contenant le nom du
fichier

FichierAfficheMIME(fRepEnCours()+"\fichiers\"+SansEspace(ATT_NOM), "",

Faux)



****************************************************
Code de la procédure
****************************************************

PROCEDURE FichierAfficheMIME(CheminDuFichier, NomAffiché="", bForce=Faux)
// Propose en téléchargement le fichier passé en paramètre avec
// un nom paramètrable.
// Paramètres:
// - CheminDuFichier : chaine contenant le chemin et le nom complet du

fichier
à afficher
// - NomAffiché : chaine optionnelle contenant le nom "virtuel" du

fichier
définit par l'utilisateur (par défaut
// ce paramètre est identique au nom du fichier + son extension.

NomFic est une chaîne = fExtraitChemin(CheminDuFichier, fFichier)
ExtFic est une chaîne = fExtraitChemin(CheminDuFichier, fExtension)[[2 A]]

SI NomAffiché = "" ALORS
NomAffiché = NomFic + "." + ExtFic
FIN

MIMFic est une chaîne
SI PAS bForce ALORS
MIMFic=TypeMIME(Minuscule(ExtFic)) + RC
SINON
MIMFic="application/unknown" + RC
FIN


// après différents essais c'est cette chaine qui fonctionne
MIME est une chaîne = "application/unknown" + RC +

"Content-Disposition:attachment;filename="+NomAffiché+RC

FichierAffiche(CheminDuFichier,MIME)


Voili, en ce qui me concerne cela fonctionne correctement avec XP, 2000 et
W98.

Il y aurait des problèmes avec certains systèmes. Sur ce même forum

j'avais
eu un échange avec "Alain" sur le sujet pendant l'été

S'il nous lit il pourra peut être compléter.

Amitiés

Gil
Posté le 06 février 2004 - 13:21
"SFCI Conseil - Alain V" <sfci.conseil_NoSpam@wanadoo.fr> wrote:

Bonjour Gil

En effet, j'ai eu le besoin d'utiliser la fonction FichierAffiche() pour
proposer systèmatiquement un téléchargement.

A ce moment là j'était chez un client qui m'a fait bossé sur une machine

NT4
SP6, avec Apache 1.3.24
et une version de webdev 1.5 que j'ai du faire passer en 15032 (ils étaient
encore à la 15016 alors qu'ils avaient toutes les LST et ils se plaignaient
de ne pas faire ce qu'ils voulaient avec Webdev et qu'il était bogué, etc...
=> perso je pense qu'ils auraient dû aprendre à lire avant d'acheter les
LST).

Tu trouvera dans le message du 22/08/2003 à 15:29 ma discussion avec Fabien
A. et les hypothèses émises. J'ai aussi contacté le ST mais j'ai utilisé

le
mail de l'entreprise cliente qui ne m'a pas fait parvenir le résultat finale
de leur investigation. Si le ST pouvait retrouver la réponse qu'ils
voulaient faire et nous la donner sur ce forum ce serait sympa.

Un message plus anciens, du 14/08/2003 à 16:51 qui m'a mis sur la voie.

Pardonne moi mais je ne vois pas de discussion avec toi au cours de la
période de cet été (mais j'ai des messages qui ont disparu).

Sinon je suis toujours sur la 1.5 (les projets actuels fonctionnent bien

et
ne nécessitent que qq mise à jour qui ne nécessitent pas de passer à la
version 7.0).

Je meurs d'envie de passer à cette nouvelle version et j'attend un nouveau
projet pour ça (pour convaincre mon responsable).

A+

Alain V

"Gil" <gilouthomas@aol.com> a écrit dans le message de
news:40233fe5@news.pcsoft.fr...


Bonjour,

Ci dessous voici le code que j'utilise.En ce qui me concerne, le nom du
fichier

avec son extension mais
sans le chemin est stocké ds un fichier HF

On initialise un bouton "Téléchargement" ds la zone répétée

*******************************************
Code du Bouton de téléchargement
*******************************************
// \fichiers\ est le dossier ds lequel st stockés les fichiers à
télécharger

// ATT_NOM est le nom du champ de la zone répétée contenant le nom du
fichier


FichierAfficheMIME(fRepEnCours()+"\fichiers\"+SansEspace(ATT_NOM), "",
Faux)




****************************************************
Code de la procédure
****************************************************

PROCEDURE FichierAfficheMIME(CheminDuFichier, NomAffiché="", bForce=Faux)
// Propose en téléchargement le fichier passé en paramètre avec
// un nom paramètrable.
// Paramètres:
// - CheminDuFichier : chaine contenant le chemin et le nom complet du
fichier

à afficher
// - NomAffiché : chaine optionnelle contenant le nom "virtuel" du
fichier

définit par l'utilisateur (par défaut
// ce paramètre est identique au nom du fichier + son extension.

NomFic est une chaîne = fExtraitChemin(CheminDuFichier, fFichier)
ExtFic est une chaîne = fExtraitChemin(CheminDuFichier, fExtension)[[2

A]]

SI NomAffiché = "" ALORS
NomAffiché = NomFic + "." + ExtFic
FIN

MIMFic est une chaîne
SI PAS bForce ALORS
MIMFic=TypeMIME(Minuscule(ExtFic)) + RC
SINON
MIMFic="application/unknown" + RC
FIN


// après différents essais c'est cette chaine qui fonctionne
MIME est une chaîne = "application/unknown" + RC +
"Content-Disposition:attachment;filename="+NomAffiché+RC


FichierAffiche(CheminDuFichier,MIME)


Voili, en ce qui me concerne cela fonctionne correctement avec XP, 2000

et
W98.

Il y aurait des problèmes avec certains systèmes. Sur ce même forum
j'avais

eu un échange avec "Alain" sur le sujet pendant l'été

S'il nous lit il pourra peut être compléter.

Amitiés

Gil



merci beaucoup pour votre aide
Posté le 06 février 2004 - 13:28
"Gil" <gilouthomas@aol.com> wrote:


Bonjour,

Ci dessous voici le code que j'utilise.En ce qui me concerne, le nom du

fichier
avec son extension mais
sans le chemin est stocké ds un fichier HF

On initialise un bouton "Téléchargement" ds la zone répétée

*******************************************
Code du Bouton de téléchargement
*******************************************
// \fichiers\ est le dossier ds lequel st stockés les fichiers à télécharger
// ATT_NOM est le nom du champ de la zone répétée contenant le nom du

fichier

FichierAfficheMIME(fRepEnCours()+"\fichiers\"+SansEspace(ATT_NOM), "", Faux)



****************************************************
Code de la procédure
****************************************************

PROCEDURE FichierAfficheMIME(CheminDuFichier, NomAffiché="", bForce=Faux)
// Propose en téléchargement le fichier passé en paramètre avec
// un nom paramètrable.
// Paramètres:
// - CheminDuFichier : chaine contenant le chemin et le nom complet du

fichier
à afficher
// - NomAffiché : chaine optionnelle contenant le nom "virtuel" du fichier
définit par l'utilisateur (par défaut
// ce paramètre est identique au nom du fichier + son extension.

NomFic est une chaîne = fExtraitChemin(CheminDuFichier, fFichier)
ExtFic est une chaîne = fExtraitChemin(CheminDuFichier, fExtension)[[2 A]]

SI NomAffiché = "" ALORS
NomAffiché = NomFic + "." + ExtFic
FIN

MIMFic est une chaîne
SI PAS bForce ALORS
MIMFic=TypeMIME(Minuscule(ExtFic)) + RC
SINON
MIMFic="application/unknown" + RC
FIN


// après différents essais c'est cette chaine qui fonctionne
MIME est une chaîne = "application/unknown" + RC + "Content-Disposition:attachment;filename="+NomAffiché+RC

FichierAffiche(CheminDuFichier,MIME)


Voili, en ce qui me concerne cela fonctionne correctement avec XP, 2000

et
W98.

Il y aurait des problèmes avec certains systèmes. Sur ce même forum j'avais
eu un échange avec "Alain" sur le sujet pendant l'été

S'il nous lit il pourra peut être compléter.

Amitiés

Gil

j'ai utulisé un moyen plus simple; comme je complète ma zone répétée via
une requête paramétrée donc j'ai mis un lien dans la zone répétée et g mi
le code suivant:

//initialisation du lien1
Lien1..Etat=ReqFichierClient.CheminFichier

//clic de lien1
Lien1=ReqFichierClient.CheminFichier
FichierAffiche(Lien1,"application/unknown")
voilà et ça me permet de télécharger le fichier correspondant à la zone;
maintenant je voudrais que lorsqu'un client télécharge un fichier qu'il soit
historiser dans l'association(partenaire-fichier) afin de savoir l'identifiant
du client et du fichier ainsi que le jour et l'heure du téléchargement j'espère
que vous pourrez m'aider!
merci
Posté le 06 février 2004 - 13:43
Très honnêtement, le passage à la version 7 change la vie !

On gagne encore (!!) en durée de développement et en rapidité d'exécution.

Bon courage pour convaincre ta direction de te faire ce cadeau ! ;-)

Vincent

"SFCI Conseil - Alain V" <sfci.conseil_NoSpam@wanadoo.fr> a écrit dans le
message de news:40235588$1@news.pcsoft.fr...
> Sinon je suis toujours sur la 1.5 (les projets actuels fonctionnent bien
et
ne nécessitent que qq mise à jour qui ne nécessitent pas de passer à la
version 7.0).

Je meurs d'envie de passer à cette nouvelle version et j'attend un nouveau
projet pour ça (pour convaincre mon responsable).
Posté le 06 février 2004 - 17:05
Bonjour à tous,

J'espère que le bout de code t'as aidé.

Pour ton "historisation", comment compte tu procéder pour l'identification
:
tu veux récupérer les infos client en auto...
ou proposer une boite de dialogue au client pour s'identifier...

Je te laisse deviner quel est la solution la plus simple !!!

Amicalement

Gil
Posté le 09 février 2004 - 13:24
Pour mon "historisation" il s'agit de récupérer ( idclient,idfichier, date
et heure téléchargement) dans un fichier " télécharger"!
pour faire cela je voudrais que lorsque le client clic sur le bouton enregistrer
de la boite de dialogue puis donne le répertoire où qu'il veut que soit enregistré
le fichier que lorsqu'il faif " OK " qu'il y ait l'historisation vu qu'il
télécharge le fichier; c'est en cela que consiste l'historisation de téléchargement!

j'espère que tu as compris un peu plus Gil !!!

Tania