|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Скопируем папку (+подпапки) на FTP сервер с помощью TIDFTP
Привет всем :-)
Функция отправки файла на FTP Код:
procedure ftp_go(f:string); var IDFTP: TIDFTP; begin idftp:=TIDFtp.create(IDFTP); idftp.host:='ХХХороший_Программер.tj'; idftp.Username:='prof'; idftp.password:='ты_нашол_мой_пароль_XD'; idftp.Connect; if idftp.Connected then begin idftp.ChangeDir('/WWW/public_xxx/'); sleep(77); idftp.Put(f,extractfilename(f)); end; sleep(777); idftp.Disconnect; finally idftp.free; end; end; например на папке C:\XXX_TEMP\ хранятся не только файлы но и подпапки (внутри подпапок тоже есть файлы)... и я хочу всех их закачать на FTP... надо только использовать IDFTP.MakeDir для каждую папку(подпапку) или можно как то с другими хорошими способами закачать папку с подпапками??? Подскажите пожалуйста |
#2
|
||||
|
||||
а ты посмотри как Total Commander, к примеру, копирует вложеные папки
ForceDirectories это ведь unit SysUtils |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
зачем исходник? для ftp сессии он лог сверху панели показывает. можно посмотреть последовательность всех команд
|
#5
|
|||
|
|||
Код HTML:
)))) вот такие логи ... это же не паскальЪ |
#6
|
||||
|
||||
зачем паскаль?
по логам видно, что он сперва создает корневую папку, копирует ее файлы, потом создает еще одну папку (2-го уровня), копирует ее файлы (2-го уровня), потом создает еще одну папку (3-го уровня), копирует ее файлы (3-го уровня) и т.д. пока свет не отлючат |
#7
|
|||
|
|||
тогда пишу так..
сначало надо искать какие файлы/папки там в корневую папку с помощью TSEARCHREC и надо определить какой аттрибут возвращает TSearchRec если fadirectory то создаем папку IDFTP.MakeDir(sr.name); в противном случаем закачаем файл нашу... кстати свет то не отключат) |
#8
|
||||
|
||||
тут рекурсия спасет мир)
и глянь в конце еще одну свою тему: http://www.delphisources.ru/forum/sh...ad.php?t=13388 может поможет |
#9
|
|||
|
|||
спасибо=) реально хороший прогрессбар получился=)
|