|
&НаСервере
Процедура
ПолучитьЗаявкуПоАйДиНаСервере(Знач НомерЗаявки)
Адрес = "site.ru";
Соединение = Новый HTTPСоединение(Адрес, 443,,,,30, Новый ЗащищенноеСоединениеOpenSSL);
Запрос
= Новый HTTPЗапрос("/login?login-form-email=" +
"1234567" + "&login-form-password=" + "234567");
Ответ = Соединение.ВызватьHTTPМетод("POST",
Запрос);
Если Ответ.КодСостояния
= 200 Тогда
Куки = Ответ.Заголовки.Получить("Set-Cookie");
Куки = СтрЗаменить(Куки, ";", Символы.ПС);
Token = СтрПолучитьСтроку(Куки,
1);
ЧтениеJSON
= Новый ЧтениеJSON();
ЧтениеJSON.УстановитьСтроку(Ответ.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8));
Ответ1 = ПрочитатьJSON(ЧтениеJSON);
ЧтениеJSON.Закрыть();
//////////////////////////////////////////////////////
//Второй запрос
Заголовки = Новый
Соответствие;
Заголовки.Вставить("Cookie", Token);
Запрос2 = Новый HTTPЗапрос("/api/claim/" + НомерЗаявки, Заголовки);
Ответ2 = Соединение.ВызватьHTTPМетод("GET", Запрос2);
Если
Ответ2.КодСостояния = 200 Тогда
ЧтениеJSON = Новый ЧтениеJSON();
ЧтениеJSON.УстановитьСтроку(Ответ2.ПолучитьТелоКакСтроку(КодировкаТекста.UTF8));
Ответ22 = ПрочитатьJSON(ЧтениеJSON);
ЧтениеJSON.Закрыть();
Иначе
Сообщить("Запрос
2, ошибка: " + Ответ2.КодСостояния);
КонецЕсли;
Иначе
Сообщить("Запрос
1, ошибка " + Ответ.КодСостояния);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура
ПолучитьЗаявкуПоАйДи(Команда)
ПолучитьЗаявкуПоАйДиНаСервере("34567");
КонецПроцедуры
|