#include "fileio.ch" 
 #include "hbcurl.ch" 
 #include "directry.ch" 
  
 proc main 
 Local aftpPar 
 Local LocalDir:=hb_DirSepAdd(hb_CurDrive()+":\"+CurDir()) 
 Local cfile:="testupload.txt" 
 local cfilezip:="__#[test]#[upload]" 
  
 curl_global_init()  
  
 aftpPar:=LoadNastrFtp() // загружаем настройки FTP из базы 
  
  if hb_MemoWrit( LocalDir+cfile, "bla bla bla" ) 
  
    if HB_ZIPFILE(LocalDir+cfilezip+".tmp",{cfile}) 
 ferase(LocalDir+cfile) 
  
 ? TestUpl(aftpPar[6],aftpPar[4],aftpPar[5],aftpPar[14],Localdir,cfilezip,"/minisklad") 
  
 ferase(LocalDir+cfilezip+".tmp") 
    endif 
  
  endif 
  
  
 curl_global_cleanup() 
  
 return 
 ************ 
 FUNCTION TestUpl( cserver,cuser,cpassword,nport,localdir,cfile,rdir) 
 LOCAL cUrl 
 LOCAL lRet := .f. 
 local aftp 
 Local Cftp:="ftp://"+cserver+":"+hb_ntos(nport) 
 local nas:=0 
 local nerr 
  
 curl := curl_easy_init() 
  
          if empty(curl) 
 ? "Bad curl_easy_init" 
 return lRet 
          endif 
  
              do while .t. 
  
 curl_easy_setopt( curl, HB_CURLOPT_DOWNLOAD ) 
 curl_easy_setopt( curl, HB_CURLOPT_URL, cftp ) 
 curl_easy_setopt( curl, HB_CURLOPT_USERPWD,cuser+":"+cpassword) 
 curl_easy_setopt( curl, HB_CURLOPT_FTP_USE_EPSV,0) // 0 PASV  1 EPASV 
 curl_easy_setopt( curl, HB_CURLOPT_DL_BUFF_SETUP ) 
 curl_easy_setopt( curl, HB_CURLOPT_QUOTE, { "CWD "+rdir} ) 
 curl_easy_setopt( curl, HB_CURLOPT_CUSTOMREQUEST,"LIST "+cfile+".zip") 
  
 * если LIST средствами CURL получать через HB_CURLOPT_DIRLISTONLY 
 * там только имена 
  
 nerr:=curl_easy_perform( curl ) 
        if nerr#0 
 ? CurlError(nerr) 
 exit 
        endif 
  
 aftp:=listfilesftp(cfile, curl_easy_dl_buff_get( curl )) // функцию слямздил в HBTIP LISTFILES 
                                                          // хотя можно было и свою сваять 
 nas:=ascan(aftp,{|x| x[1]==cfile+".zip"}) 
 ******* 
    if nas#0  
 lret:=.t. 
 exit 
    endif 
 curl_easy_reset( curl ) 
 curl_easy_setopt( curl, HB_CURLOPT_UPLOAD,1 ) 
 curl_easy_setopt( curl, HB_CURLOPT_URL,cftp+"/"+hb_StrReplace(cfile+".tmp","#",{"%23"}) ) 
 curl_easy_setopt( curl, HB_CURLOPT_USERPWD, cuser+":"+cpassword ) 
 curl_easy_setopt( curl, HB_CURLOPT_UL_FILE_SETUP,localdir+cfile+".tmp"  )  
 curl_easy_setopt( curl, HB_CURLOPT_POSTQUOTE, { "RNFR " + cfile+".tmp", "RNTO " +cfile+".zip"  } ) 
 nerr:=curl_easy_perform( curl ) 
           if nerr#0 
 ? CurlError(nerr) 
           else 
 lRet:=.t. 
           endif 
 exit 
              enddo 
  
 curl_easy_cleanup( curl ) 
  
 RETURN lRet 
  
  
  
  
  
  
 ******* 
 Func ListFilesFtp( cFileSpec,clist )  
  
    LOCAL aMonth := { "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" } 
  
    LOCAL aList, aFile, cEntry, nStart, nEnd 
    LOCAL cYear, cMonth, cDay, cTime 
  
 //   LOCAL cList := ::list( cFileSpec ) 
  
    IF Empty( cList ) 
       RETURN {} 
    ENDIF 
  
    aList := hb_ATokens( cList, .T. ) 
  
    FOR EACH cEntry IN aList DESCEND 
  
       IF Empty( cEntry ) 
          hb_ADel( aList, cEntry:__enumIndex(), .T. ) 
       ELSE 
          aFile  := Array( F_LEN + 3 ) 
          nStart := 1 
          nEnd   := hb_At( " ", cEntry, nStart ) 
  
          // file permissions (attributes) 
          aFile[ F_ATTR ] := SubStr( cEntry, nStart, nEnd - nStart ) 
          nStart          := nEnd 
  
          IF Val( StrTran( aFile[ F_ATTR ], "-" ) ) == 0 
  
             // continue with Unix format 
  
             // # of links 
             DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " 
             ENDDO 
             nEnd               := hb_At( " ", cEntry, nStart ) 
             aFile[ F_LEN + 1 ] := Val( SubStr( cEntry, nStart, nEnd - nStart ) ) 
             nStart             := nEnd 
  
             // owner name 
             DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " 
             ENDDO 
             nEnd               := hb_At( " ", cEntry, nStart ) 
             aFile[ F_LEN + 2 ] := SubStr( cEntry, nStart, nEnd - nStart ) 
             nStart             := nEnd 
  
             // group name 
             DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " 
             ENDDO 
             nEnd               := hb_At( " ", cEntry, nStart ) 
             aFile[ F_LEN + 3 ] := SubStr( cEntry, nStart, nEnd - nStart ) 
             nStart             := nEnd 
  
             // file size 
             DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " 
             ENDDO 
             nEnd            := hb_At( " ", cEntry, nStart ) 
             aFile[ F_SIZE ] := Val( SubStr( cEntry, nStart, nEnd - nStart ) ) 
             nStart          := nEnd 
  
             // Month 
             DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " 
             ENDDO 
             nEnd          := hb_At( " ", cEntry, nStart ) 
             cMonth        := StrZero( hb_AScan( aMonth, SubStr( cEntry, nStart, nEnd - nStart ), , , .T. ), 2 ) 
             nStart        := nEnd 
  
             // Day 
             DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " 
             ENDDO 
             nEnd          := hb_At( " ", cEntry, nStart ) 
             cDay          := SubStr( cEntry, nStart, nEnd - nStart ) 
             nStart        := nEnd 
  
             // Year 
             DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " 
             ENDDO 
             nEnd          := hb_At( " ", cEntry, nStart ) 
             cYear         := SubStr( cEntry, nStart, nEnd - nStart ) 
             nStart        := nEnd 
  
             IF ":" $ cYear 
                cTime := cYear 
                cYear := StrZero( Year( Date() ), 4 ) 
             ELSE 
                cTime := "" 
             ENDIF 
  
             aFile[ F_DATE ] := hb_SToD( cYear + cMonth + cDay ) 
             aFile[ F_TIME ] := cTime 
  
          ELSE 
  
             // DOS style/IIS format 
  
             aFile[ F_LEN + 1 ] := 0 
             aFile[ F_LEN + 2 ] := aFile[ F_LEN + 3 ] := aFile[ F_ATTR ] := "" 
  
             aFile[ F_DATE ] := hb_CToD( aFile[ F_ATTR ], "mm-dd-yy" ) 
  
             // # time 
             DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " 
             ENDDO 
             nEnd   := hb_At( " ", cEntry, nStart ) 
             cTime  := SubStr( cEntry, nStart, nEnd - nStart ) 
             nStart := nEnd 
  
             aFile[ F_TIME ] := Left( TString( Secs( Left( cTime, 5 ) ) + iif( Right( cTime, 2 ) == "PM", 43200, 0 ) ), 5 ) 
  
             // file size 
             DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " 
             ENDDO 
             nEnd            := hb_At( " ", cEntry, nStart ) 
             aFile[ F_SIZE ] := Val( SubStr( cEntry, nStart, nEnd - nStart ) ) 
             nStart          := nEnd 
  
          ENDIF 
  
          // file name 
          DO WHILE SubStr( cEntry, ++nStart, 1 ) == " " 
          ENDDO 
  
          aFile[ F_NAME ] := SubStr( cEntry, nStart ) 
  
          cEntry := aFile 
       ENDIF 
    NEXT 
  
    RETURN aList 
 ************************** 
 Func CurlError(n) 
 * тут можно и расшифровку вставить по коду ошибки 
 return "Curl_Error "+hb_ntos(n)