Запись файлов на Ftp

@hos · Регистрация: 06.11.2012

Author24 — интернет-сервис помощи студентам

Вобщем вопрос в том, как записать файл то? Гуглил эту тему, но то ли я туплю, то ли пишут не понятно люди. Собственно код, соединяемся

Код ( (Unknown Language)):
ПроксиСервер = Новый ИнтернетПрокси;
ПроксиСервер.Пользователь = ПользовательПрокси;
ПроксиСервер.Пароль = ПарольПрокси;
ПроксиСервер.Установить("http",СерверПрокси, ПортПрокси);

Попытка
Сервер = Новый FTPСоединение(СокрЛП(СерверФТП),,
СокрЛП(ПользовательФТП),
СокрЛП(ПарольФТП),ПроксиСервер,Истина);
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
тут все хорошо, а как скинуть файл то?

Код ( (Unknown Language)):
ИмяФайлаЛокального = "E:\Centr.dbf";
ИмяФайлаФТП = "Centr.dbf";
Попытка
Сервер.Записать(ИмяФайлаЛокального,ИмяФайлаФТП);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Ошибок нет, но и файла тоже.

@TymyDomtWoyt · 26.12.2010, 14:28

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

ПроксиСервер.Установить("http",СерверПрокси, ПортПрокси);

1с не понимает ftp через http

Код

ПроксиСервер.Установить("FTP",СерверПрокси, ПортПрокси);

@hos · 26.12.2010, 14:33

Менял, толку нет

@TymyDomtWoyt · 26.12.2010, 14:42

Если без переменных? напрямую пропиши, заместь СерверФТП - 192.168.0.3, и остальное тоже.

Код

Прокси = Новый ИнтернетПрокси(Ложь);
Соединение = Новый FTPСоединение(СерверФТП, ПортПрокси, user, pass, ПроксиСервер);
Соединение.Записать(имя_файла_локального, имя_ф_фтп);

@hos · 27.12.2010, 06:42

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

Если без переменных? напрямую пропиши, заместь СерверФТП - 192.168.0.3, и остальное тоже.

Код

Прокси = Новый ИнтернетПрокси(Ложь);
Соединение = Новый FTPСоединение(СерверФТП, ПортПрокси, user, pass, ПроксиСервер);
Соединение.Записать(имя_файла_локального, имя_ф_фтп);

Вместо ФТП сервера указать прокси? Пробовал, тоже толку нет. Есть подозрение на то, что проблемы из-за того, что в логине имеется собака. Мож 1С както преобразует в логин@сервер, в итоге получается 2 собачки.

@TymyDomtWoyt · 27.12.2010, 10:34

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

Мож 1С както преобразует в логин@сервер, в итоге получается 2 собачки

нет.

Код ( (Unknown Language)):
Прокси = Новый ИнтернетПрокси(Ложь);
Соединение = Новый FTPСоединение("192.168.0.1", "21", "user@192.168.0.1", "pass", "твой_прокси");
Соединение.Записать("имя_файла_локального", "имя_файла_фтп");
\

Ну и проверьте на всяк случай, может пользователю ограничены права на запись файлов

@hos · 27.12.2010, 11:15

чет ниче не пойму, так чтоли?

Код ( (Unknown Language)):
Сервер = Новый FTPСоединение("192.168.0.1",21,
СокрЛП(Логин) + "@" + СокрЛП(СерверФТП),
СокрЛП(Пароль),ПроксиСервер,Истина);

@TymyDomtWoyt · 27.12.2010, 11:20

Сделай как выше. Только поменяй user и pass. Укажи прямо в параметрах фтп_соединения прокси, имена файлов.
Просто подставь данные, без передачи переменных в параметры, что из этого выйдет.

@hos · 27.12.2010, 11:43

Не пускает...
"Ошибка при вызове конструктора (FTPСоединение): Ошибка аутентификации при доступе к ресурсу: ftp://192.168.0.1:21FTP: login denied".
Если взять первоначальный мой вариант, то соединение проходит и никаких ошибок не появляется

@TymyDomtWoyt · 27.12.2010, 11:53

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

login denied

и

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

Ну и проверьте на всяк случай, может пользователю ограничены права на запись файлов

@hos · 27.12.2010, 12:18

Тотал командер же дает файлы скидывать. Сейчас взял другой фтп сервер, там логин без собаки. Коннект проходит нормально, сделал

Код ( (Unknown Language)):
МассивФайлов = Сервер.НайтиФайлы("/","*");
нашел один файл с именем - "/anonymous access</h3></body></html>"

@TymyDomtWoyt · 27.12.2010, 13:59

Код ( (Unknown Language)):
МассивФайлов = Сервер.НайтиФайлы("/","*.*");
И как рабочий пример:

Код

Процедура Просмотреть(Кнопка)
Сервер = Новый FTPСоединение(FTPServer);
МассивФайлов = Сервер.НайтиФайлы("/","*.*");

Для Каждого Файл Из МассивФайлов Цикл
Если Файл.ЭтоФайл() Тогда
ПолеСписка.Добавить(Файл, Файл.Имя)
КонецЕсли;
КонецЦикла;
КонецПроцедуры

Если не сработает проблема с настройками фтп-сервера

@hos · 27.12.2010, 14:05

Не, все таки я грешу на прокси. Надо будет попробовать в другом месте, без прокси. Спасибо

@hos 2 / 2 / 0 Регистрация: 06.11.2012 Сообщений: 9
		1
	Запись файлов на Ftp 26.12.2010, 14:13. Показов 90747. Ответов 12 Метки нет (Все метки) Вобщем вопрос в том, как записать файл то? Гуглил эту тему, но то ли я туплю, то ли пишут не понятно люди. Собственно код, соединяемся Код ( (Unknown Language)): ПроксиСервер = Новый ИнтернетПрокси; ПроксиСервер.Пользователь = ПользовательПрокси; ПроксиСервер.Пароль = ПарольПрокси; ПроксиСервер.Установить("http",СерверПрокси, ПортПрокси); Попытка Сервер = Новый FTPСоединение(СокрЛП(СерверФТП),, СокрЛП(ПользовательФТП), СокрЛП(ПарольФТП),ПроксиСервер,Истина); Исключение Сообщить(ОписаниеОшибки()); Возврат; КонецПопытки; тут все хорошо, а как скинуть файл то? Код ( (Unknown Language)): ИмяФайлаЛокального = "E:\Centr.dbf"; ИмяФайлаФТП = "Centr.dbf"; Попытка Сервер.Записать(ИмяФайлаЛокального,ИмяФайлаФТП); Исключение Сообщить(ОписаниеОшибки()); КонецПопытки; Ошибок нет, но и файла тоже. 0

@TymyDomtWoyt 0 / 0 / 0 Регистрация: 01.01.2010 Сообщений: 226
	26.12.2010, 14:28	2
	Сообщение от has ПроксиСервер.Установить("http",СерверПрокси, ПортПрокси); 1с не понимает ftp через http Код ПроксиСервер.Установить("FTP",СерверПрокси, ПортПрокси); 0

@hos 2 / 2 / 0 Регистрация: 06.11.2012 Сообщений: 9
	26.12.2010, 14:33	3
	Менял, толку нет 0

@hos 2 / 2 / 0 Регистрация: 06.11.2012 Сообщений: 9
	27.12.2010, 06:42	5
	Сообщение от TimeDontWait Если без переменных? напрямую пропиши, заместь СерверФТП - 192.168.0.3, и остальное тоже. Код Прокси = Новый ИнтернетПрокси(Ложь); Соединение = Новый FTPСоединение(СерверФТП, ПортПрокси, user, pass, ПроксиСервер); Соединение.Записать(имя_файла_локального, имя_ф_фтп); Вместо ФТП сервера указать прокси? Пробовал, тоже толку нет. Есть подозрение на то, что проблемы из-за того, что в логине имеется собака. Мож 1С както преобразует в логин@сервер, в итоге получается 2 собачки. 0

@TymyDomtWoyt 0 / 0 / 0 Регистрация: 01.01.2010 Сообщений: 226
	27.12.2010, 10:34	6
	Сообщение от has Мож 1С както преобразует в логин@сервер, в итоге получается 2 собачки нет. Код ( (Unknown Language)): Прокси = Новый ИнтернетПрокси(Ложь); Соединение = Новый FTPСоединение("192.168.0.1", "21", "user@192.168.0.1", "pass", "твой_прокси"); Соединение.Записать("имя_файла_локального", "имя_файла_фтп"); \ Ну и проверьте на всяк случай, может пользователю ограничены права на запись файлов 0

@hos 2 / 2 / 0 Регистрация: 06.11.2012 Сообщений: 9
	27.12.2010, 11:15	7
	чет ниче не пойму, так чтоли? Код ( (Unknown Language)): Сервер = Новый FTPСоединение("192.168.0.1",21, СокрЛП(Логин) + "@" + СокрЛП(СерверФТП), СокрЛП(Пароль),ПроксиСервер,Истина); 0

@TymyDomtWoyt 0 / 0 / 0 Регистрация: 01.01.2010 Сообщений: 226
	27.12.2010, 11:20	8
	Сделай как выше. Только поменяй user и pass. Укажи прямо в параметрах фтп_соединения прокси, имена файлов. Просто подставь данные, без передачи переменных в параметры, что из этого выйдет. 0

@hos 2 / 2 / 0 Регистрация: 06.11.2012 Сообщений: 9
	27.12.2010, 11:43	9
	Не пускает... "Ошибка при вызове конструктора (FTPСоединение): Ошибка аутентификации при доступе к ресурсу: ftp://192.168.0.1:21FTP: login denied". Если взять первоначальный мой вариант, то соединение проходит и никаких ошибок не появляется 0

@TymyDomtWoyt 0 / 0 / 0 Регистрация: 01.01.2010 Сообщений: 226
	27.12.2010, 11:53	10
	Сообщение от has login denied и Сообщение от TimeDontWait Ну и проверьте на всяк случай, может пользователю ограничены права на запись файлов 0

@hos 2 / 2 / 0 Регистрация: 06.11.2012 Сообщений: 9
	27.12.2010, 12:18	11
	Тотал командер же дает файлы скидывать. Сейчас взял другой фтп сервер, там логин без собаки. Коннект проходит нормально, сделал Код ( (Unknown Language)): МассивФайлов = Сервер.НайтиФайлы("/","*"); нашел один файл с именем - "/anonymous access</h3></body></html>" 0

	27.12.2010, 14:05