Soucis avec l'upload de certaines images

Version imprimable

Bonjour Chers tous,

J'utilise WEBDEV 17

Ma Base de données est MySQL. J'y accède via l'accès natif

J'ai une table contenant une rubrique Logo de type Memo Binaire

Mon problème est le suivant :

Parfois l'upload fonctionne très bien et parfois non, j'ai telle erreur:

Merci de votre aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Appel WL :
Traitement de 'Clic de BTN_VALIDER ( CELL_MDL_Main ) (serveur)' (PAGE_Fiche_support.CELL_MDL_Container.CELL_MDL_Main.BTN_VALIDER), ligne 35, thread 0
Fonction 'HAjoute', syntaxe 1
 
Que s'est-il passé ?
Erreur de l'accès natif MySQL.
Numéro d'erreur = 15 
 
Impossible d'ouvrir ou de lire le fichier <CHEMIN_SERVEUR\L.jpg>.
Le fichier spécifié est introuvable.
 
 
Code erreur : 73001
Niveau : erreur fatale (EL_FATAL)
Code erreur WD55 : 3001
 
Dump de l'erreur du module 'WD170HF.DLL' (17.0.161.2).
Identifiant des informations détaillées (.err) : 72801
Informations de débogage :
Fonction (7,0)
Informations supplémentaires :
EIT_NATIVECODE : <15>
EIT_LOGICALTABLENAME : <support>
EIT_PILEWL :
Clic de BTN_VALIDER ( CELL_MDL_Main ) (serveur) (PAGE_Fiche_support.CELL_MDL_Container.CELL_MDL_Main.BTN_VALIDER), ligne 35
EIT_DATEHEURE : 12/05/2015 10:43:48
 
(25, ERR_MSG_BOX)

13/05/2015, 12h09
Nassimux

Finalement j'ai pu trouver la solution. Merci à vous tous.

Au cas où ça intéresserait quelqu'un.

Il suffit de remplacer le UploadNomFichier par UploadCopierFichier.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Recherche du nom du fichier uploadé sur le serveur
	sFichier_source = UploadNomFichier(IMG_UP)
 
	//Si Fichier_source existe, on le copie dans le répertoire des documents sur le serveur
	SI sFichier_source <> "" ALORS
		sFichier_destination = UploadCopieFichier(IMG_UP, fRepDonnées()+"\images","")
		SI sFichier_destination = "" ALORS
			Erreur("Erreur de transfert de l'image sur le serveur. Traitement annulé.")
			RETOUR
		SINON
		SI PAS HAttacheMémo(support,photo_support, ... 
			ComplèteRep(fRepDonnées()+"\images")	+ sFichier_destination) ALORS
			Erreur(HErreurInfo())
			RETOUR
		FIN
		FIN
		//Copie du fichier sur le serveur
		//fCopieFichier(sFichier_source,sFichier_destination)
	FIN