PureBasic Forums - English

Code: Select all

#LibCurl_ExternalDLL = #True
IncludeFile "libcurl.pbi"
Global curl.i, res.i, Url$
Global UserData.libcurl_userdata_structure


#REMOTE_URL = "sftp://MyFtpServer.fr/var/www/html/"
#Username$ = "XXXX"
#Password$ = "XXXXX" 

InitNetwork()
curl_global_init(#CURL_GLOBAL_DEFAULT)
curl = curl_easy_init()
curl_easy_setopt_str(curl, #CURLOPT_USERNAME, #Username$)
curl_easy_setopt_str(curl, #CURLOPT_PASSWORD, #Password$)

Procedure DirList()
 
 curl_easy_setopt_str(curl, #CURLOPT_URL, #REMOTE_URL)
 curl_easy_setopt(curl, #CURLOPT_FTP_USE_EPSV, 0)
 curl_easy_setopt(curl, #CURLOPT_WRITEFUNCTION, @LibCurl_WriteFunction())
 curl_easy_setopt(curl, #CURLOPT_WRITEDATA, @UserData)
 curl_easy_setopt(curl, #CURLOPT_USE_SSL, #CURLUSESSL_ALL)
 curl_easy_setopt(curl, #CURLOPT_FTPSSLAUTH, #CURLFTPAUTH_TLS)
 
 ; accept insecure certificates
 curl_easy_setopt(curl, #CURLOPT_SSL_VERIFYPEER, #False)
 curl_easy_setopt(curl, #CURLOPT_SSL_VERIFYHOST, #False)
 
 curl_easy_setopt(curl, #CURLOPT_VERBOSE, #True)
 
 res = curl_easy_perform(curl)
 
 If res = #CURLE_OK
  Debug "Ok"
  Debug PeekS(UserData\Memory, MemorySize(UserData\Memory), #PB_UTF8|#PB_ByteLength)
 Else
  Debug "Error: " + curl_easy_strerror(res)
 EndIf
 
 
EndProcedure

If curl
 
 DirList()
 #LOCAL_FILE = "C:\Windows\Win.ini"
 #REMOTE_FILE = "Win.ini"
 UserData\File = ReadFile(#PB_Any, #LOCAL_FILE)
 
 If UserData\File 
  
  *headerlist = curl_slist_append(*headerlist, "RNFR " + #REMOTE_FILE)
  
  curl_easy_setopt(curl, #CURLOPT_READFUNCTION, @LibCurl_ReadFunction())
  curl_easy_setopt(curl, #CURLOPT_READDATA, @UserData)
  curl_easy_setopt(curl, #CURLOPT_UPLOAD, 1)
  
  curl_easy_setopt_str(curl, #CURLOPT_URL, #REMOTE_URL + #REMOTE_FILE)
  curl_easy_setopt(curl, #CURLOPT_POSTQUOTE, *headerlist)
  
  ; optional
  curl_easy_setopt(curl, #CURLOPT_INFILESIZE, Lof(UserData\File))
  curl_easy_setopt(curl, #CURLOPT_USE_SSL, #CURLUSESSL_ALL)
  
  ; accept insecure certificates
  curl_easy_setopt(curl, #CURLOPT_SSL_VERIFYPEER, #False)
  curl_easy_setopt(curl, #CURLOPT_SSL_VERIFYHOST, #False)
  
  res = curl_easy_perform(curl)
  
  If res = #CURLE_OK
   Debug "Ok"
  Else
   Debug "Error: " + curl_easy_strerror(res)
  EndIf
  
  curl_slist_free_all(*headerlist)
  CloseFile(UserData\File)
  DirList()
  curl_easy_cleanup(curl)
  curl_global_cleanup()
  
 EndIf
 
EndIf

Code: Select all

EnableExplicit

#LibCurl_ExternalDLL = #True
IncludeFile "libcurl.pbi"

Global curl.i, res.i, Url$
Global.libcurl_userdata_structure TxUserData, RxUserData

#REMOTE_URL = "sftp://MyFtpServer.fr/var/www/html/"
#Username$ = "XXXX"
#Password$ = "XXXXX" 

#LOCAL_FILE = "C:\tmp\Win.ini"
#REMOTE_FILE = "Win.ini"


Procedure DirList()
 
 curl_easy_setopt_str(curl, #CURLOPT_URL, #REMOTE_URL)
  
 res = curl_easy_perform(curl)
 If res = #CURLE_OK
  Debug "Ok"
  Debug PeekS(RxUserData\Memory, MemorySize(RxUserData\Memory), #PB_UTF8|#PB_ByteLength)
  FreeMemory(RxUserData\Memory)
  RxUserData\Memory = #Null
 Else
  Debug "Error: " + curl_easy_strerror(res)
 EndIf
 
EndProcedure




;InitNetwork()

curl_global_init(#CURL_GLOBAL_DEFAULT)

curl = curl_easy_init()
If curl
 
 curl_easy_setopt_str(curl, #CURLOPT_USERNAME, #Username$)
 curl_easy_setopt_str(curl, #CURLOPT_PASSWORD, #Password$) 
 
 curl_easy_setopt(curl, #CURLOPT_FTP_USE_EPSV, 0)
 curl_easy_setopt(curl, #CURLOPT_WRITEFUNCTION, @LibCurl_WriteFunction())
 curl_easy_setopt(curl, #CURLOPT_WRITEDATA, @RxUserData)
 curl_easy_setopt(curl, #CURLOPT_USE_SSL, #CURLUSESSL_ALL)
 curl_easy_setopt(curl, #CURLOPT_FTPSSLAUTH, #CURLFTPAUTH_TLS)
 
 ; accept insecure certificates
 curl_easy_setopt(curl, #CURLOPT_SSL_VERIFYPEER, #False)
 curl_easy_setopt(curl, #CURLOPT_SSL_VERIFYHOST, #False)
 
 curl_easy_setopt(curl, #CURLOPT_VERBOSE, #True)
 
 DirList()
 
 TxUserData\File = ReadFile(#PB_Any, #LOCAL_FILE)
 
 If TxUserData\File
  
  curl_easy_setopt(curl, #CURLOPT_READFUNCTION, @LibCurl_ReadFunction())
  curl_easy_setopt(curl, #CURLOPT_READDATA, @TxUserData)
  curl_easy_setopt(curl, #CURLOPT_UPLOAD, 1)
  
  curl_easy_setopt_str(curl, #CURLOPT_URL, #REMOTE_URL + #REMOTE_FILE)
  
  ; optional
  curl_easy_setopt(curl, #CURLOPT_INFILESIZE, Lof(TxUserData\File))
  
  res = curl_easy_perform(curl)
  If res = #CURLE_OK
   Debug "Ok"
  Else
   Debug "Error: " + curl_easy_strerror(res)
  EndIf
  
  curl_easy_setopt(curl, #CURLOPT_POSTQUOTE, #Null)
  curl_easy_setopt(curl, #CURLOPT_INFILESIZE, -1)
  curl_easy_setopt(curl, #CURLOPT_UPLOAD, 0)
  
  CloseFile(TxUserData\File)
  
  DirList()
  
 EndIf
 
 curl_easy_cleanup(curl)
 
EndIf

curl_global_cleanup()