Скачивание случайного файла с фтп

[snooppy]

Использую компонент TIdFTP.
Есть задача, на фтп есть пару папок (1, 2, 3) с картинками, надо в случайном порядке скачать картинку например с папки 1. Как можно это реализовать?

[DOLBY]

Что именно у вас не получается? подключиться к фтп серверу? взять имена всех папок и файлов и в случайном порядке выбрать любой из них? скачать выбранный файл? говорите конкретнее...

[Квэнди]

выполнить list , потом рандомно выбрать индекс и скачать этот файл

[DOLBY]

В общем наработок нет никаких...

[snooppy]

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

Что именно у вас не получается? подключиться к фтп серверу? взять имена всех папок и файлов и в случайном порядке выбрать любой из них? скачать выбранный файл? говорите конкретнее...

Подключиться к ФТП получается, получаю список папок. Как зайти в определенную папку и рандомно скачать файл?

With TIdFtp.Create(nil) Do
    try
      Host := 'ftp.com';
      Username := 'admin';
      Password := 'admin';
      try
        Connect;

        FileList := TStringList.Create;
        try
          List(FileList);
          ShowMessage(FileList.Text);
        finally
          FileList.Free;
        end;

        Disconnect;
      except
        ShowMessage('Auth failed');
      end;
    finally
      Free;
    end;

Не судите строго, просто я в делфи последний раз работал лет 7 назад :-\

[Квэнди]

А вы справку или хотя бы список методов IdFtp не пробовали посомтреть ?

procedure ChangeDir(
const ADirName: string
);
Parameters
Parameters Description
ADirName path desired on the server file system.

Summary
Changes the current directory on the FTP server file system.
Description
ChangeDir is a procedure used to change the current directory on the FTP server file system to the subdirectory specified in the ADirName parameter.
ChangeDir sends the FTP CWD command using ADirName as an argument to set the current directory to the specified value.

RFC 959 indicates that response code 250 is the success response code for the CWD command. Some server implementations (to remain nameless) return the 200 response code to indicate successful completion of the CWD command. Indy will recognize both response codes 200 and 250 as the success response code for the CWD command.

According to RFC 959, ChangeDir may encounter any of the following error responses in the FTP protocol:


Code Meaning
500 Syntax error, command unrecognized. (This may include errors such as command line too long.)
501 Syntax error in parameters or arguments.
502 Command not implemented.
421 Service not available, closing control connection. (This may be a reply to any command if the service knows it must shut down.)
530 Not logged in.
550 Requested action not taken. File unavailable (e.g., file not found, no access).

When one of these protocol error responses is received, an EIdProtocolReplyError is raised. The ReplyErrorCode for the exception is set to the numeric portion of the protocol response. The Message for the exception is set to the textual part of the protocol response, and may vary based on the exact values returned from the server implementation.

[snooppy]

Все, получил лист файлов, только не совсем пойму как рандомом выбрать файл?
И каким образом получать рандомом из нескольких папок?

[Квэнди]

функции randomize random и операторы работы с списками смотрите.

[snooppy]

Помогите плз организовать скачивание случайного файла с текущей папки. Я даж незнаю как подойти к этому компоненту IdFTP

Вот составляю список файлов текущей папки. Как посчитать колличество и загрузить случайный?

with IdFTP1 do
 begin
   Host:='test.com';
   Password:='test';
   Username:='test';
   Connect;
   List(sl,'',true);
   ListBox1.Items.Assign(sl);
  end;
 finally
   sl.Free;
if IdFTP1.Connected
 then
 begin
Label1.Caption:='Connected';
 end
 else
 begin
 Label1.Caption:='Disconected';
 end
end;
end;