Advertisement
Guest User

Untitled

a guest
Jun 5th, 2018
129
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.27 KB | None | 0 0
  1. Функция ЗапроситьHTMLСтраницу(ПолнНаименование)
  2.  
  3. Попытка
  4.  
  5. WinHttp = СоздатьОбъект("WinHttp.WinHttpRequest.5.1");
  6. WinHttp.Option(2, "utf-8");
  7.  
  8. WinHttp.Open("POST", "http://domain.com/api/test", 0);
  9. POST = "model=" + ПолнНаименование;
  10. Сообщить(POST);
  11. //Возврат "";
  12. WinHttp.SetRequestHeader("type", "POST");
  13. WinHttp.SetRequestHeader("Accept-Language", "ru");
  14. WinHttp.SetRequestHeader("Accept-Charset","Windows-1251");
  15. WinHttp.setRequestHeader("Content-Language", "ru");
  16. WinHttp.setRequestHeader("Content-Charset", "Windows-1251");
  17. WinHttp.setRequestHeader("Content-Type","text/html; charset=Windows-1251");
  18. WinHttp.setRequestHeader("Content-Length","500");
  19.  
  20. WinHttp.Send(POST);
  21. ТекстСтраницы = WinHttp.ResponseText();
  22.  
  23. Исключение
  24.  
  25. Сообщить("Ошибка запроса: " + ОписаниеОшибки());
  26. Возврат "";
  27.  
  28. КонецПопытки;
  29.  
  30. Файл = СоздатьОбъект("Текст");
  31. Файл.ДобавитьСтроку(ТекстСтраницы);
  32. Файл.Записать("post-log.txt");
  33.  
  34. Возврат ТекстСтраницы;
  35.  
  36. КонецФункции
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement