Hello,
In the tutorial I have been found an exemple How to upload a file on a FTP
server :
I try to do the same with Windev but it doesn't work :
_______________________________________________________________________________________________________________
*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:[email protected]/"; + 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
*
_______________________________________________________________________________________________________________
PLEASE HELP ME !!!*
*Thanks per advance
Vince
*
*
-------------------------------------------------------------------
List admin: http://cool.haxx.se/list/listinfo/curl-library
Etiquette: http://curl.haxx.se/mail/etiquette.html
