/* 
  * 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