Форум » [x]Harbour » Как проверить существование файла на FTP ? » Ответить
Как проверить существование файла на FTP ?
Dima: Вот и весь вопрос.
Ответов - 49, стр:
1 2 3 All
Dima: Где бы почитать о функциях CURL да на русском языке ? Поиск в гугле нормального результата не дал. Собственно не так много и надо. Подключится к FTP Установить активный или пассивный режим передачи Получить LIST Сменить директорию Скачать файл Закачать файл Удалить файл Переименовать файл Отключиться от FTP
AlexMyr: На win98 тоже сказал что нет dll, положил след. libcurl dll libeay32 dll libidn-11 dll ssleay32 dll zlib1 dll начало работать. На winxp черный экран и завершается, тоже положил dll-ки в папку с прогой, заработало. Или в системе уже должен стоять дистр cUrl, или тягать за собой эти dll-ки. Или еще копать глубже.
Dima: AlexMyr пишет: Или еще копать глубже Достаточно. Бум тягать с собой libcurl.dll Спасибо за тесты !
Dima: Дошли рученки снова до HBCURL. С получением LIST , вроде все понятно. Получаю так (как по маске получить так и не понял) [pre2] #include "hbcurl.ch" #include "common.ch" FUNCTION Main( cDL ) LOCAL curl LOCAL a curl_global_init() IF ! Empty( curl := curl_easy_init() ) DEFAULT cDL TO "ftp://194.77.77.77/" *W_99^[sklad]#E3EA33012.zip curl_easy_setopt( curl, HB_CURLOPT_DOWNLOAD ) curl_easy_setopt( curl, HB_CURLOPT_DIRLISTONLY) curl_easy_setopt( curl, HB_CURLOPT_USERPWD, "userok:parolik" ) curl_easy_setopt( curl, HB_CURLOPT_URL, cDL ) curl_easy_setopt( curl, HB_CURLOPT_DL_BUFF_SETUP ) curl_easy_setopt( curl, HB_CURLOPT_PROGRESSBLOCK, {| nPos, nLen | a := CurGet(), DispOutAt( 11, 10, Str( ( nPos / nLen ) * 100, 6, 2 ) + "%" ), CurSet( a ) } ) curl_easy_setopt( curl, HB_CURLOPT_NOPROGRESS, .f. ) curl_easy_perform( curl ) //DOWNLOAD DIRLIST TO STRING ? curl_easy_dl_buff_get( curl ) curl_easy_cleanup( curl ) ENDIF curl_global_cleanup() RETURN NIL STATIC FUNCTION CurGet() RETURN { Row(), Col() } STATIC PROCEDURE CurSet( a ) SetPos( a[ 1 ], a[ 2 ] ) RETURN [/pre2] Не могу разобраться как скачать файл с FTP. Может кто то показать ?
Dima: Методом тыка разобрался. Стал разбираться с заливкой на FTP. Файл наливается но по размеру становится ровно в 2 раза больше . Вот код для заливки (только часть что касается заливки) Что не так делаю ? Проверял на текстовых файлах , там все нормально. [pre2] ? curl_easy_setopt( curl, HB_CURLOPT_UPLOAD ) curl_easy_setopt( curl, HB_CURLOPT_USERPWD, "login:passik" ) ? curl_easy_setopt( curl, HB_CURLOPT_URL, cdl+"/w.zip" ) ? curl_easy_setopt( curl, HB_CURLOPT_UL_FILE_SETUP,hb_CurDrive()+":\"+CurDir()+"\"+"w.zip" ) ? curl_easy_setopt( curl, HB_CURLOPT_INFILESIZE, hb_FSize( hb_CurDrive()+":\"+CurDir()+"\"+"w.zip" ) ), hb_FSize( hb_CurDrive()+":\"+CurDir()+"\"+"w.zip" ) ? curl_easy_setopt( curl, HB_CURLOPT_PROGRESSBLOCK, {| nPos, nLen | a := CurGet(), hb_DispOutAt( 10, 10, Str( ( nPos / nLen ) * 100, 6, 2 ) + "%" ), CurSet( a ) } ) ? curl_easy_setopt( curl, HB_CURLOPT_NOPROGRESS, 0 ) ? curl_easy_setopt( curl, HB_CURLOPT_POSTQUOTE, { "RNFR " + "w.zip", "RNTO " + "w2.zip" } ) ? "UPLOAD FILE:", curl_easy_perform( curl ) [/pre2]
Dima: Dima пишет: Стал разбираться с заливкой на FTP. Проехали , мой глюк.
Dima: При загрузке файла с ФТП если в имени есть символы # или ^ или [ или ] или все вместе то выдается ошибка 78 Какой опцией LIBCURL это можно починить ?
Dima: А есть ли в LIBCURL аналог опции --globoff из CURL.EXE ? Гугл на запрос +libcurl +globoff молчит как партизан........
Softlog86: Подскажите последовательность действий чтоб сгенерировать LIBCURL на машине с WIN_XP . Borland C 5.5 , MiniGui . Чёт я запутался при установке всех пакетов и т д .... У меня всё выглядит так : C:\Borland\BCC55 C:\MiniGUI\.... Тут MiniGui C:\MiniGUI\HARBOUR Тут Harbour
полная версия страницы