Проблема отпраки файла из ListBox1 через FTP

[Ёжик в тумане]

Доброго времени суток! У меня есть маленькая проблема, связанная с отправкой файлов из списка ListBox1. Вкратце отправка файла происходит только в том случае, если файлы из списка находятся вместе с программой. Вопрос: как сделать так чтобы найденные файлы отправлялись через FTP на сервер из того места откуда они были найдены пример: c:\1.txt

Вот кусок кода:

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

P.S. Знаю что дело в строчке IdFTP1.Put(ListBox1.Items[i], ExtractFileName(ListBox1.Items[i]), True);


У нас принято оформлять код специальным тегом. Кнопка #.

Модератор

[spamer]

Ну код вроде рабочий, только что проверил, все отправляет...файлы лежат вовсе отдельно от программы...
Может быть в самом ListBox-е неправильные пути к файлам...?

[Ёжик в тумане]

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

Ну код вроде рабочий, только что проверил, все отправляет...файлы лежат вовсе отдельно от программы...
Может быть в самом ListBox-е неправильные пути к файлам...?

Что значит не правильные пути? Можешь код выложить как у тебя получилось... может я что-то не правильно делаю.

[spamer]

Сообщение от Ёжик в тумане

Что значит не правильные пути? Можешь код выложить как у тебя получилось... может я что-то не правильно делаю.

Дык...а что выкладывать, я взял твой код скопировал и проверил...
Вот что-то типа такого было в LB:

D:\test.txt
D:\VM\sss.rar

[Ёжик в тумане]

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

Дык...а что выкладывать, я взял твой код скопировал и проверил...
Вот что-то типа такого было в LB:

Э-э нет! Ты не понял... имеются список файлов в ListBox1 (без путей к ним т.е. файлы которые найдены с помощью FindFirst. Ну и соответственно отправить их на сервер. Я как то это дело исправил т.е прога находила и отправляла файлы но забыл сохранить исправленных код(( а сейчас не помню как я исправил это дело ((

[spamer]

Ну так естественно оно не будет отправлять, путь-то не верный...
Вот так добавляй, должно помочь:

ListBox1.Items.Add(ExpandFileName(SearchRec.Name));

Но лучше еще делай перестраховку на существование файла:

FileExists()

[mss]

имеются список файлов в ListBox1 (без путей к ним

Ну а раз без путей, то что же ты хочешь от IdFTP ?
Пути ты ему не указал, вот он и не знает откуда брать файлы и по-умолчанию пытается их взять из тек.директории, т.е. той в которой находится исполняемый exe-файл твоего приложения.

И, кстати, если "без путей к ним", то накой ляд тогда ты вызываешь ExtractFileName() ? Чего экстрактить-то, спрашивается ? Путей-то нет)

[Ёжик в тумане]

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

Ну так естественно оно не будет отправлять, путь-то не верный...
Вот так добавляй, должно помочь:

ListBox1.Items.Add(ExpandFileName(SearchRec.Name));

Но лучше еще делай перестраховку на существование файла:

FileExists()

Имеешь в виду, что нужно заменить (ListBox1.Items[i], ExtractFileName(ListBox1.Items[i]), True); на ListBox1.Items.Add(ExpandFileName(S earchRec.Name));
я так понимаю?

[Ёжик в тумане]

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

Ну а раз без путей, то что же ты хочешь от IdFTP ?
Пути ты ему не указал, вот он и не знает откуда брать файлы и по-умолчанию пытается их взять из тек.директории, т.е. той в которой находится исполняемый exe-файл твоего приложения.

И, кстати, если "без путей к ним", то накой ляд тогда ты вызываешь ExtractFileName() ? Чего экстрактить-то, спрашивается ? Путей-то нет)

Я имею ввиду, что файлы которые найдены нужно их соответственно экстрактить т.е пути... к этим файлам. Как это сделать??? Ну конечно если пути прописать в ListBox то он и отправит.

[mss]

Т.е. в листбоксе у тебя всегда фигурирует список файлов из одной директории ?
ну так сохрани полный путь директории где-нибудь в переменной, а в лисбокс добавляй извлеченное имя файла.
А при вызове Put() строй полный путь конкатенацией пути к директориии из переменной и имени файла из листбокса.