Advertisement
Guest User

Untitled

a guest
Oct 14th, 2019
184
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C 1.70 KB | None | 0 0
  1. Если SSL Тогда      
  2.         хСоединение =    Новый HTTPСоединение(АдресСервера,443,"логин","пароль",,,Новый ЗащищенноеСоединениеOpenSSL);
  3.     Иначе
  4.         хСоединение =    Новый HTTPСоединение(АдресСервера);
  5.     КонецЕсли;
  6.                
  7.     хЗапрос      =   Новый HTTPЗапрос;
  8.     хЗапрос.УстановитьТелоИзДвоичныхДанных(СформироватьXMLДляГида(Истина));
  9.    
  10.     ГСЧ = Новый ГенераторСлучайныхЧисел();
  11.    
  12.     Если IDРаспродажи = "" Тогда
  13.         ГенерацияID();
  14.     КонецЕсли;
  15.        
  16.     Заголовки = Новый Соответствие;
  17.     Заголовки.Вставить("service-method"            ,"add");
  18.     Заголовки.Вставить("service-key"           ,КлючAPI);
  19.     Заголовки.Вставить("service-id"                ,IDРаспродажи);
  20.     Заголовки.Вставить("service-name"          ,КодироватьСтроку(Проект.НазваниеДляСайта,СпособКодированияСтроки.КодировкаURL));
  21.     Заголовки.Вставить("service-description"   ,КодироватьСтроку(Проект.НазваниеДляСайта,СпособКодированияСтроки.КодировкаURL));
  22.     Заголовки.Вставить("service-dateofstart"   ,Проект.ДатаНачала);
  23.     Заголовки.Вставить("service-dateofend"     ,Проект.ДатаОкончания);
  24.    
  25.     хЗапрос.Заголовки       = Заголовки;
  26.     хЗапрос.АдресРесурса = АдрезЗапроса;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement