|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Загрузка папки/всех файлов из папки на FTP
Прошу вас предоставить код загрузки всех файлов на FTP, или целой папки.
Файлы имею расширение ".png", Имена - "ra-ln-000.png, ra-ln-001.png, ... , ra-ln-400.png, ... ". Нужно все загрузить на FTP. Обыскал все, ничего не нашел. Прошу помощи готовым кодом. |
#2
|
|||
|
|||
Ищи по IdFTP например.
Вторая строчка в поиске гугла: http://www.delphimaster.ru/cgi-bin/f...1321331121&p=1 |
#3
|
|||
|
|||
Цитата:
|
#4
|
|||
|
|||
Только если это
Код:
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 |