Использование метода DELETE в объекте HTTPСоединение

Не секрет, что платформа 1С8 (8.2, 8.3) неполноценно поддерживает методы PUT и DELETE в объекте HTTPСоединение.

Два дня поиска решения в Интернет привели к выводу использовать COMОбъект WinHttpRequest. Я уж было обрадовался, что раздобыл такой интереснейший инструментик, но и тут меня ожидал сюрприз: не все сайты поддерживают свойство этого объекта SetCredentials.

Суть в том, что сервер должен запросить авторизацию и только тогда свойство SetCredentials(ИмяПользователя, Пароль, 0) сработает.

Спасибо пользователю torgm, который в ветке http://www.forum.mista.ru/topic.php?id=654266 описал свои поиски для платформы 7.7. Суть его доработки заключается в добавлении заголовка «Autorization» для WinHttpRequest с одновременным кодированием строки «ИмяПользователя:Пароль» в base64.

Итого: здесь я выкладываю рабочий код для платформ 8.2/8.3 (проверено на последних (или почти последних) релизах платформ.

Прикрепленная обработка включает в себя работу:

 — со стандартным HTTPСоединение (в синтаксисе работы с запросом, т.к. для меня было важно при ошибке 400 не вылетать с исключением);

 — метода DELETE с передачей тела запроса (именно то, что не умеет делать 1С) с использованием WinHttpRequest;

 — ну и стандартного GET, который 1С поддерживает на ура.

Преобразование в base64, слава Богу, делается стандартными средствами 1С:

Функция Кодировать(СтрокаКодирования)

ИмяОченьВременногоФайла = ПолучитьИмяВременногоФайла();
ЗаписьТекста = Новый ЗаписьТекста(ИмяОченьВременногоФайла, СокрЛП(Кодировка));
ЗаписьТекста.Записать(СтрокаКодирования);
ЗаписьТекста.Закрыть();
ЗакодированнаяСтрока = Base64Строка(Новый ДвоичныеДанные(ИмяОченьВременногоФайла));

Попытка
УдалитьФайлы(ИмяОченьВременногоФайла);
Исключение
Возврат СтрокаКодирования;
КонецПопытки;

Возврат ЗакодированнаяСтрока;

КонецФункции

Обращение к приведенной выше функции происходит в процедуре, в которой требуется авторизация для объекта WinHttpRequest:

Процедура ЗапросНаУдаление()

//Только для удаления вагона надо воспользоваться сторонними механизмами,
//т.к. методы PUT и DELETE не поддерживаются объектом HTTPСоединение

WinHttpReq = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
Если WinHttpReq = Неопределено Тогда
Сообщить("Ошибка создания объекта WinHTTP... Обработка прервана.");
Возврат;
КонецЕсли;
//Скриптовальщик = Новый COMОбъект("MSScriptControl.ScriptControl");
//Если Скриптовальщик = Неопределено Тогда
// Сообщить("Ошибка создания объекта MSScriptControl... Обработка прервана.");
// Возврат;
//КонецЕсли;
//Скриптовальщик.language="javascript";
//Скриптовальщик.AddObject("WinHttp", WinHttpReq);
//Скриптовальщик.Eval("WinHttp.Option(2)=1251");
//Скриптовальщик = Неопределено;

WinHttpReq.Open("DELETE", "http://" + СокрЛП(АдресСервера) + "/" + СокрЛП(АдресРесурса));

WinHttpReq.setRequestHeader("Content-Charset", СокрЛП(Кодировка));
WinHttpReq.setRequestHeader("Content-Type", "application/x-www-form-urlencoded; charset=" + СокрЛП(Кодировка));
WinHttpReq.SetRequestHeader("Content-Length", СокрЛП(СтрДлина(СокрЛП(СтрокаЗапроса))));
WinHttpReq.SetRequestHeader("Authorization"," Basic " + Кодировать(СокрЛП(ЛогинНаСервер) + ":" + СокрЛП(ПарольНаСервер)));

ТелоЗапроса = СокрЛП(СтрокаЗапроса);
WinHttpReq.Send(ТелоЗапроса);
Статус = WinHttpReq.Status;
Если Статус = 200 Тогда
//Все ок, ничего не делаем
ИначеЕсли Статус = 401 Тогда
//некорректная авторизация
Сообщить("Возможно, Вы ввели неправильный логин и (или) пароль. Обработка прервана.");
ИначеЕсли Статус = 407 Тогда
//Надо авторизоваться на прокси сервере
//WinHttpReq.SetProxy();
//WinHttpReq.SetCredentials("", "", 1);
Сообщить("Разработчик не предусмотрел использование прокси-сервера. Обработка прервана.");
КонецЕсли;

Сообщить("" + СокрЛП(WinHttpReq.Status) + "   " + СокрЛП(WinHttpReq.StatusText));
ТекстОтвета = СокрЛП(WinHttpReq.ResponseText());
Если НЕ ТекстОтвета = "" Тогда
Сообщить(WinHttpReq.ResponseText());
КонецЕсли;

WinHttpReq = Неопределено;

КонецПроцедуры

Удачи всем в поисках истины!