Работа с WEB-сервисом когда авторизация идет через cookies

Функция ПолучитьПроксиRSE() Экспорт 
	
	ПространствоИмен = "Rse.API";
	ИмяСервиса = "RseService";
	ИмяПорта = "BasicHttpBinding_IRseService";
	
	Возврат WSСсылки.ТестовыйОбменRSE.СоздатьWSПрокси(ПространствоИмен, ИмяСервиса, ИмяПорта);	
	
КонецФункции
 
Функция ВыполнитьЗапросСерверу(Прокси, ТипОтвета, ИмяПроцедуры, Параметр = Неопределено, ИмяПараметраДо = Неопределено, ИмяПараметраПосле = Неопределено)
	Фабрика = Прокси.ФабрикаXDTO;
	
	ТекстЗапроса = СформироватьТекстЗапроса(Фабрика, ИмяПроцедуры, Параметр, ИмяПараметраДо, ИмяПараметраПосле);
	
	Прокси = Новый ИнтернетПрокси;
	HTTPЗапрос = Новый HTTPЗапрос;
	АдресСервера = "sample4.aplana.com";
	HTTPСоединение = Новый HTTPСоединение(АдресСервера,,,,Прокси); 

	HTTPЗапрос.УстановитьТелоИзСтроки(ТекстЗапроса, КодировкаТекста.UTF8);
	
	HTTPЗапрос.АдресРесурса = "RseService/RseService.svc";
	
	Если ИмяПроцедуры = "Login" Тогда
		HTTPЗапрос.Заголовки.Вставить("Content-Type", "text/xml;charset=UTF-8");
		HTTPЗапрос.Заголовки.Вставить("SOAPAction", """Rse.API/IAuthorization/Login""");
	Иначе
		Если ИмяПроцедуры = "GetCities" Тогд
			Папка = "IReference";
		ИначеЕсли ИмяПроцедуры = "ApplyWorklist" Тогда
			Папка = "IWorkflow";
		Иначе
			Папка = "IAdministration";
		КонецЕсли;
		HTTPЗапрос.Заголовки.Вставить("SOAPAction", """Rse.API/"+Папка+"/"+ИмяПроцедуры+"""");
		HTTPЗапрос.Заголовки.Вставить("Content-Type", "text/xml;charset=UTF-8");
		HTTPЗапрос.Заголовки.Вставить("Cookie", Куки);
	КонецЕсли;
	
	HTTPОтвет = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);
	СтрокаХТМЛ = HTTPОтвет.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8);
	
	Тело = HTTPОтвет.ПолучитьТелоКакСтроку();
	
	ОбработатьТело(Тело);
	
	Попытка
		Ответ = ПолучитьОбъектXDTO(Фабрика, ТипОтвета, Тело);
	Исключение
		Сообщить(Тело);
	КонецПопытки;
	
	Возврат Новый Структура("Ответ, Заголовки", Ответ, HTTPОтвет.Заголовки);
	
КонецФункции
 
 
Функция СформироватьТекстЗапроса(Фабрика, ИмяПроцедуры, мОбъект, ИмяПараметраДо, ИмяПараметраПосле)
	Результат = Новый ТекстовыйДокумент;
	Результат.ДобавитьСтроку("<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" >");
	Результат.ДобавитьСтроку("<soapenv:Body>");
	Результат.ДобавитьСтроку("    <"+ИмяПроцедуры+" xmlns=""Rse.API"">");
		Запись = Новый ЗаписьXML;
		Запись.УстановитьСтроку();
		Фабрика.ЗаписатьXML(Запись, мОбъект);
		мСтрока = Запись.Закрыть();
		Если ИмяПараметраДо <> Неопределено Тогда
			мСтрока = СтрЗаменить(мСтрока, ИмяПараметраДо, ИмяПараметраПосле);  
		КонецЕсли;
		
		Чтение = Новый ТекстовыйДокумент;
		Чтение.УстановитьТекст(мСтрока);
		КолСтрок = Чтение.КоличествоСтрок();
		Строка1 = Лев(Чтение.ПолучитьСтроку(1), СтрНайти(Чтение.ПолучитьСтроку(1), " xmlns") -1) + ">";
		Результат.ДобавитьСтроку(Строка1 );
		Для Ном = 2 по КолСтрок Цикл
			Результат.ДобавитьСтроку(Чтение.ПолучитьСтроку(Ном));
		КонецЦикла;
	Результат.ДобавитьСтроку("   </"+ИмяПроцедуры+">");
	Результат.ДобавитьСтроку("</soapenv:Body>");
	Результат.ДобавитьСтроку("</soapenv:Envelope>");
	
	возврат Результат.ПолучитьТекст();
	
КонецФункции
 
Функция ПолучитьОбъектXDTO(Фабрика, Тип, Тело)
	Чтение = Новый ЧтениеXML;
	Чтение.УстановитьСтроку(Тело);
	Возврат Фабрика.ПрочитатьXML(Чтение, Тип);
КонецФункции
 
Процедура ОбработатьТело(Тело)
	Тело = СтрЗаменить(Тело, "<s:Envelope xmlns:s=""http://schemas.xmlsoap.org/soap/envelope/""><s:Body>", "");
	Тело = СтрЗаменить(Тело, "</s:Body></s:Envelope>", "");
КонецПроцедуры

Прокси = ОбщегоНазначенияПовтИсп.ПолучитьПроксиRSE();

Фабрика = Прокси.ФабрикаXDTO;
ТипыФабрики = Фабрика.Пакеты.Получить("Rse.API");

ТипSessionData = ТипыФабрики.Получить("SessionData");
SessionData = Фабрика.Создать(ТипSessionData);
SessionData.Login = Логин;
SessionData.Password = Пароль;
ТипLoginResponse = ТипыФабрики.Получить("LoginResponse");

Ответ = ВыполнитьЗапросСерверу(Прокси, ТипLoginResponse, "Login", SessionData); 

мCookie = СтрРазделить(Ответ.Заголовки["Set-Cookie"], ";");
Cookie = СтрЗаменить(мCookie[2], "HttpOnly, ", "") + ";" + мCookie[0];
Куки = Cookie; // вот наши куки! сохраним их

Процедура GetSitiesНаСервере()
	Если Куки =  "" Тогда
		Сообщить("Нету куков!");
	Иначе
		
		Прокси = ОбщегоНазначенияПовтИсп.ПолучитьПроксиRSE();
		
		Фабрика = Прокси.ФабрикаXDTO;
		ТипыФабрики = Фабрика.Пакеты.Получить("Rse.API");
		
		ТипGetCitiesResponse = ТипыФабрики.Получить("GetCitiesResponse");
		
		Ответ = ВыполнитьЗапросСерверу(Прокси, ТипGetCitiesResponse, "GetCities");
		
		
		Ответ = Ответ.Ответ;
		Для Каждого Эл из Ответ.GetCitiesResult.TextList.TextItemData Цикл
			Сообщить(Эл.Text);
		КонецЦикла;
		
	КонецЕсли;
КонецПроцедуры