Post запрос к сайту ФС РАР

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

Внимание! Тема закрыта. Добавлять сообщения в закрытую тему запрещено.

1. tolyan_ekb 105 31.05.13 00:03 Сейчас в теме

Формирую Post запрос. Передаю картинку.

ФайлОтправки = Новый ЗаписьТекста(ИмяФайлаОтправки, КодировкаТекста.UTF8, Символы.ПС, ЛОЖЬ);
		
				
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);
		ФайлОтправки.ЗаписатьСтроку("Content-disposition: form-data; name=""lictype"""+ Символы.ПС );
		ФайлОтправки.ЗаписатьСтроку("799");
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);
		
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);  
		ФайлОтправки.ЗаписатьСтроку("Content-disposition: form-data; name=""region"""+ Символы.ПС );
		ФайлОтправки.ЗаписатьСтроку("66");
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);
		
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);
		ФайлОтправки.ЗаписатьСтроку("Content-disposition: form-data; name=""address"""+ Символы.ПС );
		ФайлОтправки.ЗаписатьСтроку("""""");
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);
		
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);
		ФайлОтправки.ЗаписатьСтроку("Content-disposition: form-data; name=""captcha"""+ Символы.ПС );
		ФайлОтправки.ЗаписатьСтроку(Картинка);
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);

Показать

Далее все как обычно.
Перемещает меня на ту же страницу. Как узнать что запрос не обработался и как его поправить?

По теме из базы знаний

Вознаграждение за ответ

Сумма: 0 $m

Добавили:
tolyan_ekb (10.00 $m), ibcxir (4.00 $m)

Показать полностью

Найденные решения

7. ibcxir 03.06.13 07:52 Сейчас в теме

Сталкивался с подобным ранее. Пиши в личку, разберем подробно.

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. tolyan_ekb 105 31.05.13 05:24 Сейчас в теме

апну

3. tolyan_ekb 105 31.05.13 07:19 Сейчас в теме

обращаюсь к реестру организаций http://fsrar.ru/licens/reestr

4. Rovan 22 31.05.13 09:49 Сейчас в теме

Далее все как обычно - покажи подробнее

6. tolyan_ekb 105 31.05.13 09:59 Сейчас в теме

(4) Rovan,
Открываю страницу www.fsrar.ru/licens/reestr. Ввожу картинку и хочу получить обновленную страницу с реестром для чего отправляю:

Boundary = СтрЗаменить(Строка(Новый УникальныйИдентификатор()), "-", "");

	ПапкаВременныхФайлов = КаталогВременныхФайлов();
	ИмяФайлаОтвета = ПапкаВременныхФайлов + Boundary + ".tmp";
	ИмяФайлаОтправки = ПапкаВременныхФайлов + Boundary + ".txt";
	Попытка
		ФайлОтправки = Новый ЗаписьТекста(ИмяФайлаОтправки, КодировкаТекста.UTF8, Символы.ПС, ЛОЖЬ);
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);
		ФайлОтправки.ЗаписатьСтроку("Content-disposition: form-data; name=""request_reestr"""+ Символы.ПС );
		ФайлОтправки.ЗаписатьСтроку("geo");
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);

				
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);
		ФайлОтправки.ЗаписатьСтроку("Content-disposition: form-data; name=""lictype"""+ Символы.ПС );
		ФайлОтправки.ЗаписатьСтроку("799");
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);
		
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);  
		ФайлОтправки.ЗаписатьСтроку("Content-disposition: form-data; name=""region"""+ Символы.ПС );
		ФайлОтправки.ЗаписатьСтроку("66");
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);
		
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);
		ФайлОтправки.ЗаписатьСтроку("Content-disposition: form-data; name=""address"""+ Символы.ПС );
		ФайлОтправки.ЗаписатьСтроку("""""");
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);
		
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);
		ФайлОтправки.ЗаписатьСтроку("Content-disposition: form-data; name=""captcha"""+ Символы.ПС );
		ФайлОтправки.ЗаписатьСтроку(Картинка);
		ФайлОтправки.ЗаписатьСтроку("--" + Boundary);
				
		ФайлОтправки.Закрыть();	
	Исключение
		#Если Клиент Тогда
		Сообщить("Не удалось сохранить файл отправки: " + ОписаниеОшибки());
		#КонецЕсли
		Возврат;
	КонецПопытки; 
	
	ФайлОтправки = Новый Файл(ИмяФайлаОтправки);
	РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());
	
	ЗаголовокHTTP = Новый Соответствие(); 
	ЗаголовокHTTP.Вставить("Content-Type", "multipart/form-data; boundary=" + Boundary);
	ЗаголовокHTTP.Вставить("Cookie",  ЭлементыФормы.ПолеHTMLДокумента.Документ.cookie);
	ЗаголовокHTTP.Вставить("Content-Length", РазмерФайлаОтправки);
	
		
	//АдресСкрипта = "www.fsrar.ru/licens/reestr";
	АдресСкрипта = "/licens/reestr";
	Попытка
		НТТР.ОтправитьДляОбработки(ИмяФайлаОтправки, АдресСкрипта, ИмяФайлаОтвета, ЗаголовокHTTP);
	Исключение
		#Если Клиент Тогда
		Сообщить("Неудачная попытка соединения: " + ОписаниеОшибки());
		#КонецЕсли
		Возврат;
	КонецПопытки;
	
	УдалитьФайлы(ИмяФайлаОтправки);
	
	ФайлОтвета = Новый Файл(ИмяФайлаОтвета);

Показать

5. tolyan_ekb 105 31.05.13 09:57 Сейчас в теме

делал по аналогии

7. ibcxir 03.06.13 07:52 Сейчас в теме

Сталкивался с подобным ранее. Пиши в личку, разберем подробно.

Оставьте свое сообщение

E-mail: