Отправка файлов из списка на FTP

[GvR]

Чтото не пашет... Не мог бы сорцом выложить штоб тему закрыть - много флуда.

[Вавел из ГМТУ]

А вам не кажется, что странно вызывать Disconnect перед отправкой?

И вобще смысл такой:
1. Подсоединиться.
2. Отправить всё что хотели.
3. Отсоедииться.

Вот и всё.

[GvR]

У меня почемуто не компилит, даже не доходит до Disconnect, потому и не показалось странный ево местоположение в коде... И по той же причине прошу сорц.

[Вавел из ГМТУ]

Интересно, долго ли ещё мне писать мануалы по пользованию FTP...

http://programmersforum.ru/showpost....54&postcount=9

[GvR]

Извените конечно, я только попросил вписать кусок кода в сорц и сбросить его назат в тему, а не лекцию по пользованию Indy Clients idFTP ...

[Вавел из ГМТУ]

А ты мне дай доступ к FTP серверу, тогда напишу....
Яж немогу проверять без соединения

[GvR]

Ок) Дам) ICQ, VK, Mail?=)

[Вавел из ГМТУ]

updatetermit@yandex.ru

Модератор: я понимаю, что это надо обсуждать в ЛС, но ЛС недоступно ибо есть ограничение по кол-ву сообщений.

[Вавел из ГМТУ]

Никогда не работал с Юкоз, поэтому зайти на ихний фтп неудалось.
Никаких ошибок не вылезно, такчто теоретически три текстовых документа должны лежать в корне ФТП.

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Try
idFTP1.Host := '***';
idFTP1.Port := 21;
idFTP1.Username := '***';
idFTP1.Password := '***';
idFTP1.Connect;
Except
  ShowMessage('Соединение потерпело неудачу.');
End;
If IdFTP1.Connected Then ShowMessage('Соединились...')
  Else ShowMessage('Неудалось соединиться...')
End;

Procedure TForm1.Button2Click(Sender: TObject);
Begin
IdFTP1.Disconnect;
End;

Procedure TForm1.Button3Click(Sender: TObject);
Var
  i : Integer;
Begin
If Not IdFTP1.Connected Then Begin
  ShowMessage('Нет соединения.');
  Exit;
End;
For i := 0 To Memo1.Lines.Count - 1 Do
  Begin
    ShowMessage('Отправляем фаил ' + Memo1.Lines[i]);
    Try
      IdFTP1.Put(Memo1.Lines[i], ExtractFileName(Memo1.Lines[i]), True);
    Except
      ShowMessage('Отправить фаил ' + Memo1.Lines[i] + ' не удалось.');
    End;
  End;
End;

End.

[AliskaKoshka]

Помогите пожалуйста! У меня в строке с командой IdFTP1.Put(); нифига не воспринимается переменная У меня путь всегда меняется, надо подставлять туда строку, я определяю FName:string; а IdFTP1.Put(); её кушать не хочет. Выдаёт ошибку при выполнении этой строчки