| Автор | Сообщение |
|
|
| постоянный участник
|
Пост N: 8068
Зарегистрирован: 12.09.06
|
|
Отправлено: 27.10.25 10:09. Заголовок: MiniGui + hbcurl
Сделал маленький пример который выдал Deep-Seek Скрытый текст
/* * 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 И как собрать ? 
|
 |

|
|
Ответов - 84
, стр:
1
2
3
4
5
All
[только новые]
|
|
|
|
| постоянный участник
|
Пост N: 8093
Зарегистрирован: 12.09.06
|
|
Отправлено: 31.10.25 15:53. Заголовок: А есть функция экани..
А есть функция эканирования для Харбора ? 
|
 |

|
|
|
| |
Пост N: 8188
Зарегистрирован: 17.05.05
|
|
Отправлено: 31.10.25 16:03. Заголовок: Andrey пишет: А ест..
Andrey пишет: | цитата: | | А есть функция эканирования для Харбора ? |
| ответ же выше 
|
 |

|
|
|
| |
Пост N: 8189
Зарегистрирован: 17.05.05
|
|
Отправлено: 31.10.25 17:16. Заголовок: Andrey local Curl:..
Andrey 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
|
 |

|
|
|
| постоянный участник
|
Пост N: 8094
Зарегистрирован: 12.09.06
|
|
Отправлено: 31.10.25 18:43. Заголовок: Я спрашиваю про функ..
Я спрашиваю про функцию эканирования для всех встречающихся знаков. Сейчас # и могут быть другие знаки. В имени папки тоже могут встречаться знаки # и другие.... Почему через метод - Win_OleCreateObject( "MSXML2.ServerXMLHTTP" ) - файлы скачивается ? 
|
 |

|
|
Ответов - 84
, стр:
1
2
3
4
5
All
[только новые]
|
|