VPF::Как получить список файлов с FTP

Desperate

Дата 13.10.2006, 14:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 11.10.2006

Репутация: -1
Всего: -1

Здравствуйте! Помогите пожалуйста!
Мне необходимо получить список файлов в директории находящейся на FTP-сервере, включая и в подкаталогах! И записать этот список в текстовый файл с полным путем! Аналог кода есть для локального отображения, а как в сети сделать не знаю!

Код


procedure ScanDir(StartDir: string; Mask:string; List:TStrings);
var
SearchRec : TSearchRec;
begin
    if Mask = '' then Mask := '*.*';
    if StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\';
    if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
    begin
        repeat
            Application.ProcessMessages;
            if (SearchRec.Attr and faDirectory) <> faDirectory then List.Add(StartDir + SearchRec.Name)
            else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then begin
                List.Add(StartDir + SearchRec.Name + '\');
                ScanDir(StartDir + SearchRec.Name + '\',Mask,List);
            end;
        until FindNext(SearchRec) <> 0;
        FindClose(SearchRec);
    end;
end; 
procedure TForm1.Button1Click(Sender: TObject);
begin
    ListBox1.Items.Clear;
    ScanDir('c:','',ListBox1.Items);
    Label1.Caption := IntToStr(ListBox1.Items.Count);
end;

параметры
1. имя папки
2. маска, по умолчанию *.*
3. хранилище для резульатат, любой наследник от TString, например TStringList

С.У.: Desperate

drkot

Дата 13.10.2006, 15:24 (ссылка)

(нет голосов)

Загрузка ...

Ищущий

Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: 0
Всего: 8

Используй компоненты для работы с FTP. например Indy (стандартно поставляются с Delphi)

--------------------

Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.

Desperate

Дата 15.10.2006, 11:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 11.10.2006

Репутация: -1
Всего: -1

Я раньше никогда не работал с сетевыми компонентами! Мне нужен пример живой или хотя б часть!

Matematik

Дата 15.10.2006, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Поиск по слову FtpFindFirstFile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »