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