PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV (versões anteriores) → Telecharger un fichier avec reuette HTTP
Telecharger un fichier avec reuette HTTP
Iniciado por FOUGEROUX Christophe, jul., 07 2025 3:54 PM - 1 resposta
Publicado em julho, 07 2025 - 3:54 PM
Bonjour,

Je développe une application WinDev qui doit télécharger un fichier de 6 Mo depuis un serveur web pour effectuer une mise à jour :

http://portail.etme-electronics.com/Application/Configurateur/BDD/tb_abaquemenulogiciel.fic

Le téléchargement est déclenché par un bouton dans une fenêtre, et le fichier est censé être enregistré dans le répertoire suivant : C:\Temp\tb_abaquemenulogiciel.fic

Le code utilisé est le suivant :

sNomFichier est une chaîne = "C:\Temp\tb_abaquemenulogiciel.fic" //""
sURL est une chaîne = "http://portail.etme-electronics.com/Application/Configurateur/BDD/tb_abaquemenulogiciel.fic"


cMaRequête est un httpRequête
cMaRequête.URL = sURL
cMaRequête.Destination=sNomFichier


cMaRéponse est un httpRéponse = HTTPEnvoie(cMaRequête)

SI ErreurDétectée ALORS
Erreur(ErreurInfo(errComplet))
FIN


Le téléchargement démarre bien, mais le fichier obtenu ne fait que 4 Ko au lieu des 6 Mo attendus.
À noter que si le fichier est très petit (ex. : 2 Ko), le téléchargement fonctionne correctement.

Auriez-vous une idée de la cause de ce problème ?
Merci d’avance pour votre aide !
Membro registado
1.010 mensagems
Publicado em julho, 07 2025 - 5:41 PM
Bonjour,
Essayez d'augmenter la durée de Non Réponse. par exemple 180 secondes ou plus (ça n'a pas d'importance).
Ce qui est inquiétant, c'est la taille de 4ko, au bout de quel délai ?
Je vois qu'il s'agit d'un .fic. Est-il ouvert au moment du téléchargement. Avez-vous essayé de le charger autrement afin de vérifier qu'il n'y ait pas un blocage ?

Sablier(Vrai)
reqTéléchargementest une httpRequête
reqTéléchargement.URL = "http://XXX/products.csv"
reqTéléchargement.Destination=ComplèteRep(fRepExe) +"XXX\products.csv"
reqTéléchargement.DuréeNonRéponse=180s//Définir le temps d'attente (180 secondes)

resRéponseest une httpRéponse=reqTéléchargement.Envoie()
SIresRéponse..CodeEtat<>200ALORS
Trace("Erreur de requête")
FIN
Sablier(Faux)


Cdlt
Mensagem modificada, julho, 07 2025 - 5:52 PM