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

Error: Unresolved external '_HB_FUN_CURL_EASY_INIT' referenced from W:\TESTCURL\OBJ\TEST.OBJ 
 Error: Unresolved external '_HB_FUN_CURL_EASY_SETOPT' referenced from W:\TESTCURL\OBJ\TEST.OBJ 
 Error: Unresolved external '_HB_FUN_CURL_EASY_EXEC' referenced from W:\TESTCURL\OBJ\TEST.OBJ 
 Error: Unresolved external '_HB_FUN_CURL_EASY_STRERROR' referenced from W:\TESTCURL\OBJ\TEST.OBJ 
 Error: Unresolved external '_HB_FUN_CURL_EASY_CLEANUP' referenced from W:\TESTCURL\OBJ\TEST.OBJ 
 hbmk2[test]: Error: Running linker. 2

 
 BUILD-HOMEPAGE.url  => https://github.com/curl/curl-for-win 
 libcrypto-1_1.dll  
 libcurl.dll        
 libssh2.dll        
 libssl-1_1.dll     
 README.txt         
 

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

Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland 
 Error: Unresolved external '_HB_FUN_CURL_EASY_EXEC' referenced from W:\HB_PROJECTMINIGUI\@PROJECT\CURL-LIBCURL\TESTCURL\OBJ\TEST.OBJ 
 hbmk2[test]: Error: Running linker. 2

 
 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 )  
 

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  

  Start ======   2025-10-28 17:17:58.664  
   https://hmgextended.com/files/CONTRIB/hmg-25.10-setup.zip      
   D:\@Sync-Artyom\_MiniGui\CUrl-libcurl\hmg-25.10-setup.zip    
 STOP - нету !!!

 
 .T.    
 8K Sec.  11.00  
 .T.    
 16K   Sec.  15.51  
 .T.    
 32K   Sec.  11.34  
 .T.    
 64K   Sec.  12.59  
 .T.    
 128K   Sec.  11.36  
 

 
  .T.     
  8K Sec.  11.00   
  .T.     
  16K   Sec.  15.51   
  .T.     
  32K   Sec.  11.34   
  .T.     
  64K   Sec.  12.59   
  .T.     
  128K   Sec.  11.36   
  

 
 n:=hb_processrun("ShadowSpawn-X64.exe /verbosity=0  "+pathbase+"dbf\ A: roboCOPY A:\ "+pathbase+"zip\ *.cdx *.dbf /MT:16",@c ,@c1 ,@c2 ,.f.) 
 

 
 Exit Status: 
  
 If there is an error while processing (e.g. ShadowSpawn fails to 
 create the shadow copy), ShadowSpawn exits with status 1. 
  
 If there is an error in usage (i.e. the user specifies an unknown 
 option), ShadowSpawn exits with status 2. 
  
 If everything else executes as expected and <command> exits with 
 status zero, ShadowSpawn also exits with status 0. 
  
 If everything else executes as expected and <command> exits with a 
 nonzero status code n, ShadowSpawn exits with status n logically OR'ed 
 with 32768 (0x8000). For example, robocopy exits with status 1 when 
 one or more files are Scopied. So, when executing 
  
   shadowspawn C:\foo X: robocopy X:\ C:\path\to\backup /mir 
  
 the exit code of ShadowSpawn would be 32769 (0x8000 | 0x1). 
  
  
 

 
 hb_StrReplace(cfile,"#",{"%23"}) 
 

 
 local Curl:=" https://abonent4.ru/downloads/minigui/" 
 local cfile:="C#_DataGrid(0.1).7z" 
 Curl:=Curl+hb_StrReplace(cfile,"#",{"%23"}) 
 Curl кормим Hbcurl вместо https://abonent4.ru/downloads/minigui/C#_DataGrid(0.1).7z