(Resolvido) como enviar varios arquivos por ftp

[aalessandre]

Pessoal, o seguinte codigo envia um arquivo selecionado para uma area de ftp, mas eu preciso enviar todos os arquivos selecionados no FileListBox, e não apenas um, como posso fazer isso ?

Selecionar tudo
    procedure TForm1.btnEnviaClick(Sender: TObject);
    begin
      try
        IdFTP1.Put(FileListBox1.Items.Strings[fileListbox1.ItemIndex],
                  FileListBox1.Items.Strings[fileListbox1.ItemIndex], false);
        Gauge1.Progress := 0;
      except
      on e:Exception do
        ShowMessage(e.Message);
      end;
    end

ou seja, se o usuario selecionou 5 arquivos, os 5 terao que ser enviados.

[Jhonas]

Pessoal, o seguinte codigo envia um arquivo selecionado para uma area de ftp, mas eu preciso enviar todos os arquivos selecionados no FileListBox, e não apenas um, como posso fazer isso ?

ou seja, se o usuario selecionou 5 arquivos, os 5 terao que ser enviados.

Faça esta alteração no código

procedure TForm1.btnEnviaClick(Sender: TObject);
var i : integer;
begin
   Gauge1.MaxValue := FileListBox1.Items.Count;
   for i := 0 to FileListBox1.Items.Count-1 do
      begin
         try
           if FileListBox1.Selected[i] then
              begin
                 IdFTP1.Put(FileListBox1.Items.Strings[i],
                 FileListBox1.Items.Strings[i], false);
              end;
           Gauge1.Progress := i+1;
         except
         on e:Exception do
           ShowMessage(e.Message);
         end;
      end;
end;

abraço

[aalessandre]

caro Jhonas, fiz o codigo que você citou, porem é enviado todo o conteudo do filelistbox, e não apenas o selecionado.

[Jhonas]

Este comando separa apenas os itens selecionados

if FileListBox1.Selected then

veja se voce colocou este comando no código

abraço

[aalessandre]

ok amigo, realmente não tinha prestado atenção no if, funcionou legal.

obrigado pela ajuda