Может вы увидите

[cargo29]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Idftp1.Create(nil);
IdFTP1.Host:='tutanet.dtn.ru';
IdFTP1.Port:=21;
IdFTP1.Username:='u293459';
IdFTP1.Password:='....';
IdFTP1.Connect();
If Idftp1.Connected=true then
begin

for i:=0 to ListBox1.Items.Count-1 do
begin
Idftp1.MakeDir('1');
IdFTP1.Put('C:\1.txt', ListBox1.Items[i], true);
sleep(50);
end;
IdFTP1.Disconnect;
ShowMessage('11111');
end;
end;
end.

может вы увидите ошибку???

[Stilet]

Idftp1.Create(nil);

Вижу... Стандартная ошибка, кстати. С глазами цвета ванили )))

[cargo29]

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

Вижу... Стандартная ошибка, кстати. С глазами цвета ванили )))

убираю ее тоже самое все равно

[Stilet]

Ну не удивительно, ее не убирать нужно а лечить )
Почитай внимательно как создается экземпляр объекта в делфи

[cargo29]

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

Ну не удивительно, ее не убирать нужно а лечить )
Почитай внимательно как создается экземпляр объекта в делфи

поясни http://www.delphisources.ru/pages/fa...tive_vars.html тут почитал ... но так и не понял скажи простыми словами

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
IdFTP1.Host:='tutanet.dtn.ru';
IdFTP1.Port:=21;
IdFTP1.Username:='u293459';
IdFTP1.Password:='6qhfjjvc';
IdFTP1.Connect();
If Idftp1.Connected=true then
begin

for i:=0 to ListBox1.Items.Count-1 do
begin
Idftp1.MakeDir('1');
IdFTP1.Put('C:\1.txt', ListBox1.Items[i], true);
sleep(50);
end;
IdFTP1.Disconnect;
ShowMessage('11111');
end;
end;
end.

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

у вас компонент кинут на форму? если да то он уже создан.
а если просто переменка то

idftp:=Tidftp.Create(nil);

а вообще надо говорить какая ошибка.

а вообще кроме некоторых случае при каждом Create должен быть Free

[cargo29]

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

у вас компонент кинут на форму? если да то он уже создан.
а если просто переменка то

idftp:=Tidftp.Create(nil);

а вообще надо говорить какая ошибка.

а вообще кроме некоторых случае при каждом Create должен быть Free

да компонент кинут

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
IdFTP1.Host:='tutanet.dtn.ru';
IdFTP1.Port:=21;
IdFTP1.Username:='u293459';
IdFTP1.Password:='6qhfjjvc';
IdFTP1.Connect();
If Idftp1.Connected=true then
begin

for i:=0 to ListBox1.Items.Count-1 do
begin
idftp1.ChangeDir('1');
IdFTP1.Put('C:\1.txt', ListBox1.Items[i], true);

Showmessage(Listbox1.Items[i]);

sleep(50);
end;
IdFTP1.Disconnect;
ShowMessage('11111');
end;
end;
end.

я уже не знаю где что не так.... раньше писал работало щас не хочет

[Stilet]

Так а случилось то что? )))
Ошибка какая?

[cargo29]

программа запускаеться нажимаю на кнопку и все выскакивает ошибка

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

на сервере нет папки 1
написано ж..(или на диске)
try except end не отменялось.
да и трассировку тоже.