[Denisonin]

Прошу вас предоставить код загрузки всех файлов на FTP, или целой папки.

Файлы имею расширение ".png", Имена - "ra-ln-000.png, ra-ln-001.png, ... , ra-ln-400.png, ... ".
Нужно все загрузить на FTP. Обыскал все, ничего не нашел. Прошу помощи готовым кодом.

[lmikle]

Ищи по IdFTP например.
Вторая строчка в поиске гугла: http://www.delphimaster.ru/cgi-bin/f...1321331121&p=1

[Denisonin]

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

Ищи по IdFTP например.
Вторая строчка в поиске гугла: http://www.delphimaster.ru/cgi-bin/f...1321331121&p=1

Находил. У автора в этой теме не получилось загрузить каталог. Решения в обсуждении нету. Или я чего-то не вижу?

[Denisonin]

Только если это

Код:

var dn, i:integer;
   F: TSearchRec;
begin
  i:=0;
  chdir('D:\Send\');
  dn := FindFirst('*.*',faArchive,F);
  while dn = 0 do
    begin
      FTPClient.DataStream.LoadFromFile(f.Name);
      FTPClient.StoreFile(ExtractFileName(FTPClient.GetCurrentDir+'\Send\'+f.Name),false);
      FTPClient.
      DeleteFile(f.Name);
      Memo1.Lines.Add('Çàãðóæåí ôàéë: '+F.Name+' âðåìÿ çàêà÷êè: '+datetimetostr(NOW));
      inc(i);
      dn := FindNext(F);
    end;
 Memo1.Lines.Add('Óñïåøíî çàêà÷àííûõ ôàéëîâ: '+inttostr(i));
 refreshDir;
end;

procedure TForm1.Button8Click(Sender: TObject);
var i:integer;
begin
 for i := 0 to FTPClient.FtpList.Count-1 do
  begin
    try
      FTPClient.RetrieveFile(FTPClient.GetCurrentDir+'\Recv\'+FTPClient.FtpList[i].FileName,false);
      FTPClient.DataStream.SaveToFile('D:\RECV\'+FTPClient.FtpList[i].FileName);
      FTPClient.DeleteFile(FTPClient.GetCurrentDir+'\Recv\'+FTPClient.FtpList[i].FileName);
      Memo1.Lines.Add('Ñêà÷àí ôàéë: '+FTPClient.FtpList[i].FileName+' âðåìÿ: '+datetimetostr(NOW));
    except
      on E: Exception do ShowMessage('Îøèáêà ïðè ñêà÷èâàíèè ôàéëà %s'#13#10'class:%s'#13#10'%s'+FTPClient.FtpList[i].FileName);
    end;
  end;
 Memo1.Lines.Add('Óñïåøíî ñêà÷àííûõ ôàéëîâ: '+inttostr(FTPClient.FtpList.Count));
 refreshDir;
end;

Если это загрузка всех файлов в директории "chdir('D:\Send\');", то прошу вас сделать для меня комментарии к коду, и исправить "Îøèáêà ïðè ñêà÷èâàíèè ôàéëà". Или просто убрать все результаты, которые записываются в memo1