Discussion :

[Vince]

Bonjour,


J'essaie d'utiliser la librairie libcurl (API) : http://curl.haxx.se/

J'ai écrit un bout de code pour uploader un fichier vers un serveur FTP mais ça ne fonctionne pas. Pouvez vous m'aider ?
La connexion s'établit au serveur mais le transfert ne se fait pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
NEasyhandle est un entier
strCheminFic est une chaîne
strNomFic est une chaîne
 
strNomFic = "upload.txt"
strCheminFic = "C:\WINXP\Profiles\25099819\Desktop\libcurl\";
 
NEasyhandle = AppelDLL32(fRepExe()+"\libcurl","curl_easy_init")
 
SI NEasyhandle = 0 ALORS
    Erreur(ErreurInfo())
SINON   
    iReturn est un entier sans signe
    iErreur est un entier   
 
    iErreur = AppelDLL32("libcurl", "curl_easy_setopt", NEasyhandle, CURLOPT_URL, "ftp://vince:password@127.0.0.1/" + strNomFic)
    lblInfo = lblInfo + "CURLOPT_URL = " + iErreur + RC   
 
    iErreur = AppelDLL32("libcurl", "curl_easy_setopt", NEasyhandle, CURLOPT_UPLOAD, "1")
    lblInfo = lblInfo + "CURLOPT_UPLOAD = " + iErreur + RC
 
    iFichier est un entier
    iFichier = fOuvre(strCheminFic + strNomFic, foLecture )
    lblInfo = lblInfo + "Pointeur fichier : " + &iFichier + " - " +fTaille(strCheminFic + strNomFic) + " Octets" + RC
 
    iErreur = AppelDLL32("libcurl", "curl_easy_setopt", NEasyhandle, CURLOPT_INFILE, iFichier )
    lblInfo = lblInfo + "CURLOPT_INFILE = " + iErreur + RC
 
    iErreur =  AppelDLL32("libcurl", "curl_easy_setopt", NEasyhandle, CURLOPT_INFILESIZE, fTaille(strCheminFic + strNomFic) )
    lblInfo = lblInfo + "CURLOPT_INFILESIZE = " + iErreur + RC       
 
    //------------------------- TRANSFERT ------------------------   
    iErreur = AppelDLL32("libcurl", "curl_easy_perform",NEasyhandle)
    lblInfo = lblInfo + "curl_easy_perform = " + iErreur + RC
    //------------------------------------------------------------
 
    fFerme(iFichier)
 
    AppelDLL32("libcurl", "curl_easy_cleanup",NEasyhandle)//fermeture de la session curl
 
    DéchargeDLL(NEasyhandle)
 
FIN

Merci d'avance de votre aide

[EDM-TAHITI]

Hello,
J'ai regardé votre code et j'y vois peut-être une mauvaise interpretation avec votre variable IFICHIER (qui est une constante de WINDEV)
Il faut donc remplacer Ifichier par IDFICHIER (qui me semble plus parlant) et de refaire les tests.
En effet, vous utilisez le pointeur '&' et celui-ci doit pointer sur la constante et non sur l'Id d'ouverture fichier.
A voir donc
Amicalement

[Vince]

Merci de ta réponse (dsl je tutoie tout le monde sur Internet ),

Quand tu parle de "ifichier" tu veux parler de cette ligne :
iErreur = AppelDLL32("libcurl", "curl_easy_setopt", NEasyhandle, CURLOPT_INFILE, iFichier )

Je ne savais pas que iFichier était une constante de Windev.
J'ai changé ma variable par iFich, mais ça ne marche toujours pas. L'upload du fichier ne se fait pas .

Voici le code comme je l'ai changé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
(...)
iFich est un entier
iFich = fOuvre(strCheminFic + strNomFic, foLecture )
iErreur = AppelDLL32("libcurl", "curl_easy_setopt", NEasyhandle, CURLOPT_INFILE, iFich )
(...)

Voici la trace du code complet modifié suite au précédent conseil coté serveur FTP :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
[09:36:15] - [71] Connect to 127.0.0.1. Get Username.
[09:36:15] - [71] KEYWORD: USER -- PARAMS: vince
[09:36:15] - [71] KEYWORD: PASS -- PARAMS:  #####
[09:36:15] - [71] User VINCE Connected
[09:36:15] - [71] VINCE: Current Directory: D:\FTP\
[09:36:15] - [71] KEYWORD: PWD -- PARAMS: 
[09:36:15] - [71] KEYWORD: EPSV -- PARAMS: 
[09:36:15] - [71] KEYWORD: PASV -- PARAMS: 
[09:36:15] - [71] KEYWORD: TYPE -- PARAMS: I
[09:36:15] - [71] KEYWORD: STOR -- PARAMS: upload.txt
[09:36:15] - [71] VINCE: Start Upload of D:\FTP\upload.txt
[09:36:19] - [71] VINCE: Upload Fail of D:\FTP\upload.txt (0,00 K/S -    0 bytes)
[09:36:19] - [71] Client VINCE, 127.0.0.1 Disconnected (00:00:04 Min)

[Emmanuel Lecoester]

VINCE a-t-il les droits d'écriture sur le serveur FTP ?

[Vince]

VINCE a-t-il les droits d'écriture sur le serveur FTP ?

Oui il a le droit, j'ai testé avec un client FTP (FileZilla) et ce compte.

[EDM-TAHITI]

Hello,
Je résume la situation, vous avez un serveur FTP sur une machine (la meme que le developpement, au prime abord) puisque l'adresse est 127.0.0.1
J'ai regardé la doc de cURL, très complète et bien faite. Cela semble etre une bonne interface. Toutefois, les fonctions de Windev en matière de FTP sont également très bien faites. Elles permettent de récupérer des fichiers FTP sur des serveurs, que la connexion soit par accès distant ou ADSL.
A ce stade, je ne puis tester ce petit logiciel pleins de promesses, me semble-t-il. Aussi, pourquoi n'essayez-vous pas de faire la même chose avec les procedure FTP (entre autres):
FTPENVOIS
FTPRECUPERE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
	Message("DEMANDE DE CONNEXION AU SERVEUR FTP")
	ftp_idconnexion = FTPConnecte(SansEspace(CLIENTS1.FTP_ADRESSE),FTP_LOGGIN,FTP_PASSWORD)//,ftp_numport,faux)
	// regarde si idconnexion valide
	SI ftp_idconnexion <> -1 ALORS
		SI PAS FTPRécupère (ftp_IdConnexion,sFichierServeur,sFichierClient,"TransfertFTP") ALORS
			Erreur("Echec lors du transfert de "+sFichierServeur +" vers " + sFichierClient)
			Info(ErreurInfo(errMessage))
			resultat = Faux
		FIN
 
             FIN

L'avantage, c'est de pouvoir tout gérer dans windev, sans avoir recours à des logiciels externes. Je sais que ma réponse ne va pas directement à la problèmatique, mais c'est une autre piste. D'autant que les parametres passés dans cURL sont identiques à ceux passé dans les fonction FTP.
En quelques lignes, vous pouvez recrééer les mêmes fonction que cURL...
Autre piste à creuser
Amicalement