Отправка файлов из списка на FTP

[GvR]

Всем Доброго времени суток
Подскажите пожалуйста как реализовать отправку файлов из списка на FTP сервер.

[Пепел Феникса]

что означает "список файлов"?
TStringList в котором пути?
или эти пути еще надо узнать только?

[GvR]

Список файлов ето TStringList в котором пути.

[Usov]

смотри пример:

[GvR]

Я конечно извиняюсь, но мне кажется, что данный сорц не дает ответа на мой вопрос.

[Usov]

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

Я конечно извиняюсь, но мне кажется, что данный сорц не дает ответа на мой вопрос.

если в SrtringList находится список тода так:

for i:=0 ro SrtringList.Count-1 do
begin
  процедура_отправки_файла(SrtringList.String[i]);
end;

[Вавел из ГМТУ]

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

если в SrtringList находится список тода так:

for i:=0 ro SrtringList.Count-1 do
begin
  процедура_отправки_файла(SrtringList.String[i]);
end;

Логично

Юзай Indy. Там есть FTP и отправка файлов.

[GvR]

Подправьте подкрепленый сорц так, чтобы файлы из списка в memo отправлялись на FTP

[Вавел из ГМТУ]

Ну так в цикле и отправляй фаилы.

[Usov]

procedure Upload(AFileName: String);
begin
  idFTP1.Host:='Host';
  idFTP1.Port:=21;
  idFTP1.Username:='MyNameGVR';
  idFTP1.Password:='*****';
  idFTP1.Connect;
  IdFTP1.Put(AFileName);
  idFTP1.Disconnect;
end;


for i:=0 ro SrtringList.Count-1 do
begin
  Upload(SrtringList.String[i]);
end;

примерно так, писал без делфи так что могут быть синтаксические ошибки.