Использование метода 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 = Неопределено;
	
КонецПроцедуры

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