Daily Archives: 03.10.2016

Delphi. idFTP. Рекурсивные обходы каталогов сервера

Posted on 03.10.2016 by Stanislav_Panteleev

Как собрать все файлы из определенной директории и всех её поддиректорий? Вариант 1 Соберем имена файлов, кроме папок из определенной директории на FTP сервере при помощи компонента idFTP

//Recursive listing of files...
procedure TVisualFrame_PSFTPClient.ListAllFilesCore(dir:string);

var  DL: TStringList;
     i: Integer;

begin


                         DL:=TStringList.Create;

                         try


                            IdFTP.ChangeDir(Dir);
                            IdFTP.List(DL, '', false); // <<<Listed all files and folders here...

                            for i:=0 to DL.Count-1 do
                              begin

                                if  IdFTP.Size(dl.Strings[i])=-1 then   // If Folder then...
                                    ListAllFilesCore(dl.Strings[i]) //Recursion here...

                                else

                                  FFilesOnServerAll.Add(DL.Strings[i]);


                              end;

                          IdFTP.ChangeDirUp;
                          IdFTP.List(DL, '', false); // << Critical important !!!

                         finally


                         FreeAndNil(DL);

                         end;

end;

//Recursive listing of files...

procedure TVisualFrame_PSFTPClient.ListAllFilesCore(dir:string);

var DL: TStringList;

i: Integer;

begin

DL:=TStringList.Create;

try

IdFTP.ChangeDir(Dir);

IdFTP.List(DL, '', false); // <<<Listed all files and folders here...

for i:=0 to DL.Count-1 do

begin

if IdFTP.Size(dl.Strings[i])=-1 then // If Folder then...

ListAllFilesCore(dl.Strings[i]) //Recursion here...

else

FFilesOnServerAll.Add(DL.Strings[i]);

end;

IdFTP.ChangeDirUp;

IdFTP.List(DL, '', false); // << Critical important !!!

finally

FreeAndNil(DL);

end;

И вторая процедура, которая собственно подключается к серверу и собирает файлы…

Posted in Delphi, Indy | Comments Off

Delphi. Установка и использование написанных компонентов

Posted on 03.10.2016 by Stanislav_Panteleev

Как организовать удобную структуру для хранения и переноса своих программ и компонентов? Пока не нашел ответа на этот вопрос. Это короткая заметка об использовании компонентов после их создания. Я обычно делаю компонент и тестовую программу в соседней, с компонентом папке. … Continue reading →

Posted in Delphi | Comments Off

Daily Archives: 03.10.2016

Delphi. idFTP. Рекурсивные обходы каталогов сервера

Delphi. Установка и использование написанных компонентов

MY PROJECTS

Recent Posts

Categories