VPF::Копирование файла на ftp сервер

pavelv

Дата 27.6.2006, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 245
Регистрация: 5.2.2006

Репутация: нет
Всего: нет

Хочу скопировать файл с локальной машины на ftp сервер. Пробовал двумя методами:
через
1. Createprocess(nil,PChar('xcopy.exe C:\Untitled.jpg ftp://10.11.11.1/incoming'),nil,n...,nil,nil,si,p);
2.

Код


procedure TForm1.Button2Click(Sender: TObject);
var
ShFile : TShFileOpStruct;
begin
 ShFile.Wnd := Handle;
 ShFile.wFunc := FO_COPY;
 SHFile.pFrom := PChar('c:\test1.rar');
 ShFile.pTo := PChar('ftp://10.11.11.1/incoming/');
 ShFile.fFlags := FOF_ALLOWUNDO;
 if ShFileOperation(ShFile) <> 0 then
 MessageDlg('Error copying files',mtError,[mbYes],0);
end;

В 1ом случае проверил через командуную строку, copy не понимает что такое ftp. - "Неопознаное устройство ftp"
Во 2ом случае вылетает по ошибке "Синтаксическая ошибка в имени файла, имени папки или метки тома".
Кто-нибудь может помочь в решении?

Это сообщение отредактировал(а) pavelv - 27.6.2006, 12:58

comtat

Дата 27.6.2006, 14:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 3
Всего: 71

почитай вот это
Тут все обьеснено

Вот пример

Код

Не забудьте добавить ShellAPI в uses.

procedure FileOperation (const source, dest: string; op, flags: Integer); 
var shf: TSHFileOpStruct; 
      s1, s2: string; 
begin 
 FillChar (shf, SizeOf (shf), #0); 
 s1:= source + #0#0; 
 s2:= dest + #0#0; 
 shf.Wnd:=     0; 
 shf.wFunc:=  op; 
 shf.pFrom:=  PCHAR (s1); 
 shf.pTo:=    PCHAR (s2); 
 shf.fFlags:= flags; 
 SHFileOperation (shf); 
end; 

//А вот некоторые примеры использования этой функции:

//Отправляем файл в корзину
FileOperation (filename, '', FO_DELETE, FOF_ALLOWUNDO + FOF_NOCONFIRMATION); 

//Перемещаем файл в другую директорию
FileOperation (sourcefile, destination, FO_MOVE,  FOF_ALLOWUNDO + FOF_NOCONFIRMATION); 

//Копируем файл в другую директорию
FileOperation (sourcefile, destination, FO_COPY, FOF_ALLOWUNDO + FOF_NOCONFIRMATION);

Это сообщение отредактировал(а) comtat - 27.6.2006, 14:21

--------------------

Рожденный в СССР !!!
ExtJS - мой фреймворк

pavelv

Дата 3.7.2006, 04:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 245
Регистрация: 5.2.2006

Репутация: нет
Всего: нет

Прошу прощения за медлительность, не было возможности подойти к компу.
Ссылка у меня не работает. Что касается ShellAPI, то я использовал его в процедуре
TForm1.Button2Click(Sender: TObject), он копирует файл внутри локальных дисков, внутри сетевых дисков. НО к сожалению там нет возможности скопировать файл на ftp сервер, вопрос в этом и заключался. Насколько я понял представленный тобой кода, там решения нет. Возможно оно есть по ссылке, но как сказал выше она не пашет smile

Yanis

Дата 3.7.2006, 07:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

pavelv
http://forum.vingrad.ru/index.php?showtopi...04&view=all

--------------------

*щёлк*

pavelv

Дата 3.7.2006, 12:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 245
Регистрация: 5.2.2006

Репутация: нет
Всего: нет

Ок спасибо, проблема решена с помощью winInet;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »