Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Функция ЗапроситьHTMLСтраницу(ПолнНаименование)
- Попытка
- WinHttp = СоздатьОбъект("WinHttp.WinHttpRequest.5.1");
- WinHttp.Option(2, "utf-8");
- WinHttp.Open("POST", "http://domain.com/api/test", 0);
- POST = "model=" + ПолнНаименование;
- Сообщить(POST);
- //Возврат "";
- WinHttp.SetRequestHeader("type", "POST");
- WinHttp.SetRequestHeader("Accept-Language", "ru");
- WinHttp.SetRequestHeader("Accept-Charset","Windows-1251");
- WinHttp.setRequestHeader("Content-Language", "ru");
- WinHttp.setRequestHeader("Content-Charset", "Windows-1251");
- WinHttp.setRequestHeader("Content-Type","text/html; charset=Windows-1251");
- WinHttp.setRequestHeader("Content-Length","500");
- WinHttp.Send(POST);
- ТекстСтраницы = WinHttp.ResponseText();
- Исключение
- Сообщить("Ошибка запроса: " + ОписаниеОшибки());
- Возврат "";
- КонецПопытки;
- Файл = СоздатьОбъект("Текст");
- Файл.ДобавитьСтроку(ТекстСтраницы);
- Файл.Записать("post-log.txt");
- Возврат ТекстСтраницы;
- КонецФункции
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement