ЗАлить файл на ФТП

[russian-stalker]

Проискал весь форум и ничего не помогает.
Подключаюсь к ФТП.
Создаю список файлов.
Всё хорошо и работает.
Удаление тоже работает.
А как мне теперь сделать заливку на фтп.
idFTP1.put(opendialog1.filename) не помогает.
idFTP1.write(opendialog1.filename) тоже.
В программировании шарю, и всё сделал правильно.

[Квэнди]

что значит не помогает ?

[russian-stalker]

Я нашёл только put и write но они не работают

[Квэнди]

что значит не работают ? мы же не телепаты

[russian-stalker]

Вообще ничего не происходит вот код:

procedure TForm1.Button2Click(Sender: TObject);
begin
if not OpenDialog1.Execute then exit else
begin
idFTP1.Write(opendialog1.FileName);
IdFTP1.Disconnect;
IdFTP1.connect(true, 10000);
IdFTP1.List(ListBox1.Items,'',false);
end;
end;

[Квэнди]

1 поменяйте св-во Passive в компоненте
2. попробуйте выбрать другой режим передачи файлов не binary а ascii

[russian-stalker]

Даже так не пашет:

procedure TForm1.Button2Click(Sender: TObject);
begin
if not OpenDialog1.Execute then exit else
begin
idFTP1.Write(opendialog1.FileName);
end;
end;

Я всё грешил на отключение, оказалось что не оно.
Ещё вопрос, как со списка открыть файл.

[Квэнди]

тогда надо проверять конкретный случай, если есть такая необходимость, сбросте данные ftp сервера, проверю

[russian-stalker]

Попробовал с штатного клиента, тоже не льёт значит серв такой