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

Harbour 3.2.0dev (r2503200530) 
 Copyright (c) 1999-2024, https://harbour.github.io/ 
 test.prg(38) Warning W0001  Ambiguous reference 'CURLOPT_URL' 
 test.prg(39) Warning W0001  Ambiguous reference 'CURLOPT_FOLLOWLOCATION' 
 test.prg(40) Warning W0001  Ambiguous reference 'CURLOPT_SSL_VERIFYPEER' 
 hbmk2[test]: Error: Running Harbour compiler (built-in). 1

 
 cls 
 curl_global_init() 
  
 ? CurlHb_Dwn() 
 wait 
  
 Func CurlHb_Dwn() 
 #include "hbcurl.ch" 
 local lRetorno:=.f. 
 /* 
 LOCAL cUrlhttp:="https://download.teamviewer.com/download/version_12x/" 
 local cfile:="TeamViewer_Setup.exe" 
 */ 
 LOCAL cUrlhttp:="https://hmgextended.com/files/CONTRIB/" 
 local cfile:="hmg-25.10-setup.zip" 
  
 local nerr:=0 
 local tmpdir:=hb_DirBase() 
 local curl 
  
  
 curl := curl_easy_init() 
  
          if empty(curl) 
 return lRetorno 
          endif 
  
 curl_easy_reset( curl ) 
 curl_easy_setopt(curl, HB_CURLOPT_SSL_VERIFYPEER, 0) // игнорить SSL серты 
 curl_easy_setopt( curl, HB_CURLOPT_DOWNLOAD ) 
 curl_easy_setopt( curl, HB_CURLOPT_URL, curlhttp+cfile ) 
 curl_easy_setopt(curl, HB_CURLOPT_FOLLOWLOCATION, .t.) // учитывать редиректы 
 curl_easy_setopt(curl, HB_CURLOPT_FAILONERROR,.t.)     // выдать ошибку если не качнулось 
 curl_easy_setopt( curl, HB_CURLOPT_DL_FILE_SETUP, tmpdir+cfile ) 
  
 //curl_easy_setopt( curl, HB_CURLOPT_PROGRESSBLOCK, {| nPos, nLen | FtpGag(npos/nlen) }) 
 curl_easy_setopt( curl, HB_CURLOPT_NOPROGRESS, 0 ) 
  
 nerr:=curl_easy_perform( curl ) 
  
        if nerr#0 
 ? curl_easy_strerror(nerr)+' (' + hb_ntos(nErr) + ')' 
 HB_VFERASE(tmpdir+cfile) 
        else 
 lRetorno := .t.        
        endif 
  
 curl_easy_cleanup( curl ) 
 return lRetorno 
  
 

 
    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, cOutputFile )  
    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_NOPROGRESS, 0 )