Отправка файлов на сервер

[саша40]

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

АААА Спасибо!!!Работает!Последний вопрос )))
Создаю папку

IdFTP.MakeDir(InttoStr(num));

Как теперь перейти в нее чтоб закачка файлов была в созданную папку?
IdFTP1.ChangeDir('/webspace/httpdocs/upload/' + (InttoStr(num)) ); -Вот так ругается.

Я бы просто добавил бы путь Директории в которую загружается файл к имени файла на сервере(второй параметр функции put).
<Путь директории>/<имя файла>.
Пример:
pictures/img1.jpg.
Файл будет доступен по такому пути:
http://www.mysite.ucoz.ru/pictures/img1.jpg.

[mitiay]

Сообщение от саша40

Я бы просто добавил бы путь Директории в которую загружается файл к имени файла на сервере(второй параметр функции put).
<Путь директории>/<имя файла>.
Пример:
pictures/img1.jpg.
Файл будет доступен по такому пути:
http://www.mysite.ucoz.ru/pictures/img1.jpg.

это понятно!Но я хочу сделать чтоб создавалась папка и в нее копировалось (каждый раз новая папка)Во избежании того,если имя файла одинаковое чтоб не перезаписывался

[саша40]

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

это понятно!Но я хочу сделать чтоб создавалась папка и в нее копировалось (каждый раз новая папка)Во избежании того,если имя файла одинаковое чтоб не перезаписывался

А перезаписи файла позаботится должен сервер. А так:
Создаете папку с помощью MakeDir и через Put туда загружаете. Оба действия в цикле. Какое имя у папки?

[mitiay]

Смотри я добавил глобальную переменную

var var num:integer;

Создаю папку с произвольным именем:

IdFTP.MakeDir(InttoStr(num));

Как теперь перейти в нее чтоб закачка файлов была в созданную папку?
IdFTP1.ChangeDir('/webspace/httpdocs/upload/' + (InttoStr(num)) ); -Вот так ругается.

[саша40]

//на форме idftp с стандартным именем, memo с путями.
var
i: integer;
begin
idFTP1.Host:='http://mysite.ucoz.ru';
idFTP1.Port:=21;
idFTP1.UserName:='логин входа';
idFTP1.Password:='пароль';
idFTP1.Connect;
if idFTP1.Connected = false then 
begin
ShowMessage('Ошибка соединения');
exit;
end;
try 
for i: 0 To Memo1.Lines.Count-1 Do 
begin
try 
idFTP1.MakeDir('picture'+IntToStr(i)); 
idFTP1.Put(Memo1.Lines.Strings[i],'picture' +IntToStr(I) + '/' + ExtractFileName(Memo1.Lines.Strings[i]),false);
except
on E: Exception do 
ShowMessage('Ошибка передачи файла:' + Memo1.Lines.Strings[i] + ' Текст ошибки:' + E.Message);
end;
end;
exсept
on E: Exception do
ShowMessage('Упс! Что-то пошло не так. Ниже идет текст ошибки:' + #10#13 + E.Message);
end;
ShowMessage('Файлы переданы');
end;

Модернизирован.
И кстати, переменные описываются с одной var, а не двумя. Отдел глобальных переменных находится после раздела type.

[саша40]

А ошибка возникает из-за лишней "/".

[Stilet]

Вот так ругается.

А грабли все там же...
Ну и когда мсье поймет что телепаты в отпуске и текст ругательства не нужно держать в себе?

А ошибка возникает из-за лишней "/".

Врядли.

[mitiay]

сразу ошибка
http://screenshot.ru/77afafc5263cbef15f32ec883bde09b5

[саша40]

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

А грабли все там же...
Ну и когда мсье поймет что телепаты в отпуске и текст ругательства не нужно держать в себе?

Согласен.
Он что там компонент не создал? Ошибка доступа к адресу на запись в другой адрес.

[mitiay]

Сообщение от саша40

Согласен.
Он что там компонент не создал? Ошибка доступа к адресу на запись в другой адрес.

Все компилируется нормально только при нажатии на кнопку выкидывает из проги выходит такое сообщение.В чем проблема?