Как проверить существование файла на FTP ?

Форум » [x]Harbour » Как проверить существование файла на FTP ? » Ответить

Как проверить существование файла на FTP ?

Dima: Вот и весь вопрос.

Ответов - 49, стр: 1 2 3 All

Dima: Собственно разобрался;) Одно но , если я точно не знаю какова длина имен файлов на ftp , то вместе с именем (после имени) лезет куча хлама.......то ли у меня руки кривые то ли what32 такой. ps Юзал what32

Dima: Юзаю для доступа на Ftp , библиотечку What32 , впрочем уже писал про это ;) Такие функции как FtpGetFile FtpSetCurrentDirectory InternetOpen InternetConnect FtpPutFile FtpDeleteFile работают достаточно быстро и нареканий нет. А вот такая нужная вещь как FtpDirectory в которой отрабатывают функции FtpFindFirstFile и InternetFindNextFile то работают быстро то тормозят на равном месте. Как это дело ускорить или возможно у кого есть нормальная библиотека (иль сырцы) для доступа к FTP на Xharbour ? Спасибо !

Петр: Мне тоже одна задачка нарисовалась для работы с FTP. Думаю использовать contrib\hbcurl. Вот, что это "чудо" позволяет tool for transferring files with URL syntax, supporting FTP, FTPS, HTTP, HTTPS, SCP, SFTP, TFTP, TELNET, DICT, LDAP, LDAPS and FILE. curl supports SSL certificates, HTTP POST, HTTP PUT, FTP uploading, HTTP form based upload, proxies, cookies, user+password authentication (Basic, Digest, NTLM, Negotiate, kerberos...), file transfer resume, proxy tunneling and a busload of other useful tricks. Если не все, то очень много.

Dima: Петр Спасибо ! Сам пробовал ?

Петр: Тестирую, вроде работает хорошо К тому же я обнаружил, что если скачать libcurl.dll с поддержкой SSL, то путем нехитрых манипуляций можно получить как бонус crypto возможности - aes, blowfish, idea. Иногда бывает полезно.

Dima: Петр Если не сложно , бо я не совсем въехал , покажи с нуля как получить список файлов текущей директории на Ftp с помощью hbcurl. Спасибо !

Петр: Чуть не написал, см. contrib\curl\test Но потом вспомнил, что ты же xHarbour юзаешь. Посмотрел xHarbour - там порт очень обрезанный и пример такой же куцый.. Даже не понятно, как юзеры библиотеку собирать будут. Пример (может и не заработать). [pre2]#include "hbcurl.ch" #include "common.ch" #include "fileio.ch" FUNCTION Main( cDL ) LOCAL curl LOCAL info LOCAL tmp LOCAL tmp1 LOCAL f LOCAL lVerbose := .F. ? curl_version() ? "INIT:", curl_global_init() IF ! Empty( curl := curl_easy_init() ) DEFAULT cDL TO "ftp://ftp.cisco.com/" /* Now let's download a dirlist to memory */ ? curl_easy_setopt( curl, HB_CURLOPT_DOWNLOAD ) ? curl_easy_setopt( curl, HB_CURLOPT_DIRLISTONLY ) ? curl_easy_setopt( curl, HB_CURLOPT_URL, cDL ) ? curl_easy_setopt( curl, HB_CURLOPT_SSL_VERIFYPEER, .F. ) ? curl_easy_setopt( curl, HB_CURLOPT_SSL_VERIFYHOST, .F. ) ? 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_setopt( curl, HB_CURLOPT_VERBOSE, lVerbose ) ? "DOWNLOAD DIRLIST TO STRING:", curl_easy_perform( curl ) ? "RESULT 1: " + curl_easy_dl_buff_get( curl ) ? curl_easy_setopt( curl, HB_CURLOPT_DL_BUFF_GET, @tmp ) ? "RESULT 2: " + tmp /* Cleanup session */ 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] P.S. HbCurl был изначально портирован в xHarbour и лишь потом в Harbour. Но был существенно переработан. Я думаю не составит труда портировать его обратно. Бегло просмотрев исходник заметил, что hb_storclen_buffer нужно заменить на hb_storclenAdopt, а так вроде бы все должно быть нормально.

Петр: Все оказалось очень просто Нужно скачать исходники Harbour Если не хочется качать все и есть под рукой такая программа, как Download Master, то сначала выбираем функцию просмотра zip архива, выбираем нужные файлы: hbcurl.c hbcurl.ch и пример ftp_uldl.prg и затем скачиваем. Бросаем это в xHarbour\contrib\hbcurl (предварительно удалив все оттуда). В hbcurl.c где-то после #include "hbcurl.ch" добавляем [pre2]#if defined( __XHARBOUR__ ) # define HB_FHANDLE FHANDLE # define hb_retc_null() hb_retc( (char*) NULL ) # define hb_storclen_buffer hb_storclenAdopt #endif [/pre2] Компилируем библиотеку с помощью make_b32.bat [pre2]@echo off set CURL_DIR=e:\extlib\curl if not exist %CURL_DIR%\bin\libcurl.dll goto NODLL if not exist .\lib md .\lib if not exist .\obj md .\obj if "%1" == "clean" goto CLEAN if "%1" == "CLEAN" goto CLEAN make -fmakefile.bc %1 %2 %3 >make_b32.log if errorlevel 1 goto error goto copy_files :error echo there is an error on make files notepad make_b32.log goto end :clean if exist lib\*.bak del .\lib\*.bak if exist lib\*.def del .\lib\*.def if exist lib\*.lib del .\lib\*.lib if exist obj\*.obj del .\obj\*.obj if exist *.log del *.log goto End :copy_files impdef -a lib\libcurl.def %CURL_DIR%\bin\libcurl.dll implib -a lib\libcurl.lib lib\libcurl.def copy lib\*.lib ..\..\lib copy *.ch ..\..\include goto end :NODLL echo. echo.Missing libcurl.dll, please download it echo.Make aborted. echo. :end if exist *.tds del *.tds if exist *.map del *.map [/pre2] makefile.bc [pre2] # makefile for Borland C/C++ 32 bits # Building of hbcurl.lib INCLUDE_DIR = ..\..\include;$(CURL_DIR)\include OBJ_DIR = obj LIB_DIR = lib $(LIB_DIR)\hbcurl.lib : \ $(OBJ_DIR)\hbcurl.obj $(OBJ_DIR)\hbcurl.obj : hbcurl.c .c.obj: bcc32 $(CLIBFLAGS) -c -O2 -I$(INCLUDE_DIR) -o$@ $< tlib $(LIB_DIR)\hbcurl.lib -+$@,, [/pre2]

Dima: Петр пишет: Бросаем это в xHarbour\contrib\hbcurl (предварительно удалив все оттуда). В hbcurl.c где-то после #include "hbcurl.ch" добавляем #if defined( __XHARBOUR__ ) # define HB_FHANDLE FHANDLE # define hb_retc_null() hb_retc( (char*) NULL ) # define hb_storclen_buffer hb_storclenAdopt #endif Все сделал , во время сборки получаем MAKE Version 5.2 Copyright (c) 1987, 2000 Borland Error makefile.bc 11: Command syntax error Error makefile.bc 13: Command syntax error Error makefile.bc 15: Command syntax error Error makefile.bc 16: Command syntax error Error makefile.bc 16: Command syntax error *** 5 errors during make ***

Dima: С этим разобрался. Теперича получаем Error E2209 hbcurl.c 55: Unable to open include file 'curl/curl.h' Error E2209 hbcurl.c 56: Unable to open include file 'curl/types.h' Error E2209 hbcurl.c 57: Unable to open include file 'curl/easy.h' Error E2209 hbcurl.c 58: Unable to open include file 'curl/multi.h' Где их брать эти .H ?

Петр: Ты curl скачал и установил set CURL_DIR=e:\extlib\curl

Dima: Петр пишет: Ты curl скачал и установил я скачал сырцы harbour , где качать curl ? :)

Петр: Здесь

Dima: Петр Спасибо , правда я и сам уже нашел. Все собралось ! ;) PS Век живи , век учись ;)

Dima: Твой примерчик собрался ;) Однако получение списка файлов так же медленновато работает.......

Петр: Dima пишет: Однако получение списка файлов так же медленновато работает....... Многое зависит от сервера..

Dima: Петр пишет: Многое зависит от сервера.. Таки да ;) Проверил на своем FTP , получил список моментально. А как проверить наличие файла по маске , ну скажем Z_*.zip. Разумеется что я могу проанализировать полученный DIR , но все же интерестно , есть ли такое... PS И все же минус есть у curl , вместе с приложением нужно не забывать давать 5 dll файлов

Петр: Наверное есть такая возможность, я еще просто не докопался Это очень маленький минус. Во первых можно пользоваться инсталяторами и оно будет автоматически все упаковываться. Во-вторых если не нужно к примеру SSL или ZIP, можно скачав сырцы перекомпилировать libcurl под свои нужды и использовать одну лишь libcurl.dll (около 400 kb). Но вдруг завтра тебе захочется узнать не только есть ли такой zip архив на сервере, но и узнать его содержимое и скачать определенный файл из архива - вот тут тебе zlib1.dll пригодится и т.д. В-третьих ты можешь попробовать скомпилировать приложение с статической библиотекой libcurl.lib (нужны исходники). Я статическую линковку не пробовал, но библиотеку перекомпилировал с помощью MinGW, Borland 5.8.2 и MSVC 8.0 без всяких проблем.

Петр: Ну и совсем забыл, если завтра тебе будет нужно перенести приложение на Linux или HPUX - тебе не придется ничего менять, абсолютно.

Dima: Петр Убедил !!! Придется привыкать к DLL .

полная версия страницы