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 |
Partager