Привет всем :-)
Функция отправки файла на 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 для каждую папку(подпапку) или можно как то с другими хорошими способами закачать папку с подпапками???

Подскажите пожалуйста

[NumLock]

а ты посмотри как Total Commander, к примеру, копирует вложеные папки
ForceDirectories это ведь unit SysUtils

Сообщение от NumLock

а ты посмотри как Total Commander, к примеру, копирует вложеные папки
ForceDirectories это ведь unit SysUtils

ну выложи исходник) у тебя что, есть *.pas файлы Total Commander ???

[NumLock]

зачем исходник? для ftp сессии он лог сверху панели показывает. можно посмотреть последовательность всех команд

226 Transfer complete
CWD /log
250 CWD command successful
PWD
257 "/log" is the current directory
Чтение каталога...
TYPE A
200 Type set to A
PASV
227 Entering Passive Mode (89,108,68,31,229,138).
LIST
150 Opening ASCII mode data connection for file list
Загрузка
Ожидание ответа сервера...
226 Transfer complete

)))) вот такие логи ... это же не паскальЪ

[NumLock]

зачем паскаль?
по логам видно, что он сперва создает корневую папку, копирует ее файлы, потом создает еще одну папку (2-го уровня), копирует ее файлы (2-го уровня), потом создает еще одну папку (3-го уровня), копирует ее файлы (3-го уровня) и т.д. пока свет не отлючат

тогда пишу так..
сначало надо искать какие файлы/папки там в корневую папку с помощью TSEARCHREC и надо определить какой аттрибут возвращает TSearchRec если fadirectory то создаем папку IDFTP.MakeDir(sr.name);

в противном случаем закачаем файл нашу...

кстати свет то не отключат)

[NumLock]

тут рекурсия спасет мир)
и глянь в конце еще одну свою тему:
http://www.delphisources.ru/forum/sh...ad.php?t=13388
может поможет

спасибо=) реально хороший прогрессбар получился=)