Заливка папки на ftp сервер

[protected_by]

Доброго всем времени суток, хотел попросить помощи как осуществить передачу именно папки со вложенными в нее файлами на ftp сервер, один файл (другой) передать без проблем получается, но мне надо так же с этим файлом передать папку. Обрисую что я хочу сделать: У меня есть excel документ я сохраняю его как htm и вместе с ним у меня появляется папочка с всяким css и прочей фигней, ну вот мне и надо залить этот файлик и папку на ftp сервер. Заранее спасибо!

[Serge_Bliznykov]

если у вас есть код на Delphi, который успешно заливает ОДИН файл,
то задача становится проще паренной репки.
Вам достаточно дописать код, который СОЗДАЁТ папку на ftp сервере.
+ взять на форуме процедуру (рекурсивную) которая проходит по всем файлам (включая и вложенные папки и файлы!) в указанной папке (ищите тут на форуме по словам FindFirst - если возникнут сложности с поиском, пишите, поскажу..
Далее, в эту процедуру для вложенных папок вызываете процедуру создания папки на FTP, для файлов - процедуру заливки на FTP.
Всё. задача решена.

[protected_by]

во первых вложенные файлы в этой папке каждый раз будут у меня различные во вторых вот код для отправки одного файла, с использованием php скрипта, вот php скрип:
<?php
$uploaddir='';
if(move_uploaded_file($_FILES['filename']['tmp_name'],$uploaddir.
$_FILES['filename']['name'])){
print"Файл успешно закачен";
} else {
print "Не удалось произвести закачку";
}
?>

вот сама процедура отправки (без подключаемых модулей):

procedure TForm1.SendFile(patch: string; IdHTTP: TIdHTTP; PHP: string; Edit: TEdit);
var
Stream: TIdMultipartFormDataStream;
begin
Stream:=TIdMultipartFormDataStream. Create;
Stream.AddFile ('filename', patch, 'text/html');
IdHttp.HandleRedirects:=True;
try
Edit.text:=IdHTTP.Post(PHP, Stream);
finally
Stream.Free
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var S, phpstring: string;
begin
GetDir (0,S);
phpstring:='http://62school.besaba.com/add.php';
SendFile(S+'\index.htm', IdHTTP1, phpstring, Edit1);
end;

[Serge_Bliznykov]

давайте начнём с начала - а при чём здесь FTP сервер?!
Может я проглядел что-то, но где здесь упоминается FTP ?!

ну и, раз уж вы заливаете через HTTP, обращаясь к PHP скрипту, то нужно менять этот самый скрипт (чтобы он мог создавать подпапки и заливать файлы в них).
А вообще, мне кажется, Вы вообще не в ту сторону копаете. Копайте в сторону заливки через FTP...



я не являюсь специалистом в области использования INDY (скорре даже, наоборот!)