/* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
  * Скачать файл с сайта / Download file from the website 
  * + \contrib\hbcurl 
 */ 
 #define  _HMG_OUTLOG 
 #require "hbcurl" 
 #include "hmg.ch" 
 #include "hbcurl.ch" 
 *********************************** 
 FUNCTION Main 
    LOCAL cUrl  := "https://hmgextended.com/files/CONTRIB/hmg-25.10-setup.zip" 
    LOCAL cFile := GetStartUpFolder() + "\hmg-25.10-setup.zip" 
  
    SET WINDOW MAIN OFF 
    
    // Использование  
    DownloadFile(cUrl, cFile) 
  
 RETURN NIL 
  
 *********************************** 
 PROCEDURE DownloadFile(cUrl, cLocalFile)  
    LOCAL hCurl  
    LOCAL cBuffer  
    LOCAL nResult  
    LOCAL hFile  
      
    // Инициализация curl  
    hCurl = curl_easy_init()  
      
    IF hCurl != NIL  
       // Настройка параметров  
       curl_easy_setopt(hCurl, CURLOPT_URL, cUrl)  
       curl_easy_setopt(hCurl, CURLOPT_FOLLOWLOCATION, 1)  
       curl_easy_setopt(hCurl, CURLOPT_SSL_VERIFYPEER, 0)  
         
       // Выполнение запроса  
       cBuffer = curl_easy_exec(hCurl, @nResult)  
         
       IF nResult == 0 .AND. !Empty(cBuffer)  
          // Сохранение файла  
          hFile = FCreate(cLocalFile)  
          IF hFile != -1  
             FWrite(hFile, cBuffer)  
             FClose(hFile)  
             ? "Файл успешно скачан: " + cLocalFile  
          ELSE  
             ? "Ошибка создания файла"  
          ENDIF  
       ELSE  
          ? "Ошибка загрузки: ", curl_easy_strerror(nResult)  
       ENDIF  
         
       curl_easy_cleanup(hCurl)  
    ELSE  
       ? "Ошибка инициализации CURL"  
    ENDIF  
      
 RETURN 

# Keys compile 
 -prgflag=-w2 -es1  
  
 # Enable multi/single-thread Harbour VM 
 -mt  
  
 # Incremental-compilation mode 
 -inc 
  
 # folder where are all * .obj 
 -workdir=OBJ 
  
 # Name EXE-module 
 -otest 
  
 # to list all * .prg 
 test.prg 
  
 # paths to the main and extension *.Lib 
 -lminigui 
 -llibcurl

FUNCTION Main 
    LOCAL cUrl   := "https://hmgextended.com/files/CONTRIB/hmg-25.10-setup.zip" 
    LOCAL cFile  := GetStartUpFolder() + "\hmg-25.10-setup.zip" 
    LOCAL tStart := HB_DateTime() 
  
    SET WINDOW MAIN OFF 
     
    WaitWindow( {cUrl, cFile}, .T., 400, 16, NIL, YELLOW, BLUE ) 
  
    ? "Start ======", tStart 
    ? cUrl 
    ? cFile 
  
    // Использование  
    Curl_downloadFile(cUrl, cFile) 
    ?  
    WaitWindow() 
    ? "Stop ======", HMG_TimeMS(tStart) 
  
  
 RETURN NIL 
  
 *********************************** 
 PROCEDURE Curl_downloadFile(cUrl, cOutputFile)  
    LOCAL hCurl, nErr 
  
    curl_global_init()  
      
    // Инициализация curl  
    hCurl = curl_easy_init()  
  
    IF Empty(curl)  
       ? "Не удалось инициализировать cURL" 
       RETURN 
    ENDIF 
    
    curl_easy_reset( hCurl )  
    curl_easy_setopt( hCurl, HB_CURLOPT_SSL_VERIFYPEER, 0)    // игнорить SSL серты  
    curl_easy_setopt( hCurl, HB_CURLOPT_DOWNLOAD )  
    curl_easy_setopt( hCurl, HB_CURLOPT_URL, cUrl )           // откуда скачиваем - адрес сайта 
    curl_easy_setopt( hCurl, HB_CURLOPT_FOLLOWLOCATION, .t.)  // учитывать редиректы  
    curl_easy_setopt( hCurl, HB_CURLOPT_FAILONERROR,.t.)      // выдать ошибку если не качнулось  
    curl_easy_setopt( hCurl, HB_CURLOPT_DL_FILE_SETUP, cOutputFile )  
    //curl_easy_setopt( hCurl, HB_CURLOPT_PROGRESSBLOCK, {| nPos, nLen | FtpGag(npos/nlen) })  
    curl_easy_setopt( hCurl, HB_CURLOPT_NOPROGRESS, 0 )  
      
    // Выполняем запрос 
    nErr := curl_easy_perform(hCurl) 
    IF nErr == HB_CURLE_OK 
       ? "Файл успешно скачан:", cOutputFile 
    ELSE 
       ? "Ошибка при загрузке файла:" 
       ?? curl_easy_strerror(nErr)+' (' + hb_ntos(nErr) + ')'  
    ENDIF 
    
    curl_easy_cleanup(hCurl) 
  
 RETURN