Как сделать?

[cargo29]

procedure TForm1.Button2Click(Sender: TObject);
var
qwerty:tstringlist;
 i:integer;
begin
idftp1.ChangeDir('all');
qwerty:=Tstringlist.Create();

idftp1.List(qwerty, '*.*', false);

for i:=0 to qwerty.Count-1 do
ListBox1.Items.Add(qwerty[i]);

вот получаю список файлов а как можно получить с папками?

[Пепел Феникса]

IdFTP1.List(DirList,"*",true);

видел такое.

[cargo29]

Сообщение от Пепел Феникса

IdFTP1.List(DirList,"*",true);

видел такое.

ага понял всего лишь надо было заменить '*' и лучше поставить false и вот сразу вопрос как можно сохранить теперь файл выбраный из списка?

[Пепел Феникса]

idftp1.Get с параметрами сами разберитесь(у меня ИнДи не установлен сейчас) там все они названы по человечески.

[cargo29]

Сообщение от Пепел Феникса

idftp1.Get с параметрами сами разберитесь(у меня ИнДи не установлен сейчас) там все они названы по человечески.

я понял что через idftp1.get(какой, куда, true);
но как сделать брать имя из listbox а созранять указывать только директорию??

ауау

procedure TForm1.Button2Click(Sender: TObject);
begin
idftp1.ChangeDir('all');
qwerty:=Tstringlist.Create();
idftp1.List(qwerty, '*', false);
for i:=0 to qwerty.Count-1 do
ListBox1.Items.Add(qwerty[i]);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
idftp1.ChangeDir('/all');
idftp1.Get(listbox1.Items.Names[i], 'C:\' + listbox1.Items.Names[i], true);
end;

где какая ошибка то?

[Человек_Борща]

Телепатов нет, какая ошибка?

но код:

procedure TForm1.Button3Click(Sender: TObject);
begin
idftp1.ChangeDir('/all');
idftp1.Get(listbox1.Items.Names[i], 'C:\' + listbox1.Items.Names[i], true);
end;

неверен если i это локальная переменная. (У тебя она не обьявлена).

[cargo29]

Сообщение от Человек_Борща

Телепатов нет, какая ошибка?

но код:

procedure TForm1.Button3Click(Sender: TObject);
begin
idftp1.ChangeDir('/all');
idftp1.Get(listbox1.Items.Names[i], 'C:\' + listbox1.Items.Names[i], true);
end;

неверен если i это локальная переменная. (У тебя она не обьявлена).

вот полностью код весь и переменая обьявлена

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdFTP, StdCtrls, CheckLst, ComCtrls, ActnList;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    IdFTP1: TIdFTP;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer;
  qwerty:tstringlist;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Host:='wordresurs.tora.ru';
IdFTP1.Port:=21;
IdFTP1.Username:='u279554';
IdFTP1.Password:='*******';
IdFTP1.Connect();
sleep(60);

if IdFTP1.Connected then
showmessage('Вошел')
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
idftp1.ChangeDir('all');
qwerty:=Tstringlist.Create();
idftp1.List(qwerty, '*', false);
for i:=0 to qwerty.Count-1 do
ListBox1.Items.Add(qwerty[i]);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
idftp1.ChangeDir('/all');
idftp1.Get(listbox1.Items.Names[i], 'C:\' + listbox1.Items.Names[i], true);
end;

end.

[evg_m]

где какая ошибка то?

где то что работает неправильно?
и почему решил что это неправильно?
что хотел получить и что получил?

procedure TForm1.Button3Click(Sender: TObject);
begin
idftp1.ChangeDir('/all');
idftp1.Get(listbox1.Items.Names[i], 'C:\' + listbox1.Items.Names[i], true);
end;

Как думаешь чему здесь равно i
и соответственно listbox1.Items.Names[i]?

P.S. О пользе локальных пременных.
если бы i было локальной переменной

procedure TForm1.Button3Click(Sender: TObject);
var
  i: integer;
begin

, то за тебя бы подумал Delphi и ты получил бы соответствующее сообщение(waring).

[cargo29]

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

где то что работает неправильно?
и почему решил что это неправильно?
что хотел получить и что получил?

procedure TForm1.Button3Click(Sender: TObject);
begin
idftp1.ChangeDir('/all');
idftp1.Get(listbox1.Items.Names[i], 'C:\' + listbox1.Items.Names[i], true);
end;

Как думаешь чему здесь равно i
и соответственно listbox1.Items.Names[i]?

P.S. О пользе локальных пременных.
если бы i было локальной переменной

procedure TForm1.Button3Click(Sender: TObject);
var
  i: integer;
begin

, то за тебя бы подумал Delphi и ты получил бы соответствующее сообщение(waring).

Ничего так и не понял переменая у меня эта есть

var
  Form1: TForm1;
  i:integer;
  qwerty:tstringlist;

или я это не правильно прописал ?
[CODE]

idftp1.ChangeDir('/all');
idftp1.Get(listbox1.Items.Names[i], 'C:\' + listbox1.Items.Names[i], true);

я вот только начал изучать делфи так что сильно не ругать...

[evg_m]

Ничего так и не понял переменая у меня эта есть

это так, но

Как думаешь чему здесь равно i
и соответственно listbox1.Items.Names[i]?

значение этой переменной никому неведомо.
так же никому(кроме тебя) неведомо что ты хотел получить(сделать) написав данную процедуру.

procedure TForm1.Button3Click(Sender: TObject);

мы можем только понять, что она делает в соответствии с приведенным тобой кодом, но что она должна была бы делать известно только тебе.