VPF::Не отправляются файлы на ftp из папки Program file

Lacoste1024

Дата 3.3.2012, 19:10 (ссылка)

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

Загрузка ...

Шустрый

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

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

Для отправки файлов на ftp сервер использую следующий код

Код


Procedure FTPUpload(Filename, FTPFileName, Host, User, Pass : PChar);
Const Port = 21;
Var
  conn_param, inet_open : HInternet;
Begin
  inet_open := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
  conn_param := internetconnect(inet_open, Host, Port, User, Pass,
                    INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
  sleep(100);
  ftpputfile(conn_param, filename, ftpfilename, FTP_TRANSFER_TYPE_UNKNOWN, 0);
  internetclosehandle(conn_param);
  internetclosehandle(inet_open) ;
End;

Файлы, например, из корневого каталога или из мною созданных каталогов отправляются исправно. Но если пробую отправить файл из папки Program files, то отправка не осуществляется. Почему?

Illusion Dolphin

Дата 4.3.2012, 13:48 (ссылка)

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

Загрузка ...

Эксперт

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

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

Предположу, что если проблема только в Program files (возможно ещё и в Windows каталоге) - проблема с правами доступа, особенно если код работает в Windows Vista и выше.
Попробуйте проанализировать код ошибки который вернётся с GetLastError (http://msdn.microsoft.com/en-us/library/windows/desktop/aa384170%28v=vs.85%29.aspx) .

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

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

ZBugz

Дата 5.3.2012, 07:27 (ссылка)

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

Загрузка ...

Опытный

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

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

Попробуй вместо "Program files" указать какой нить каталог без пробелов, если отправиться, значит не понимает пробелы в каталоге.

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