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

12.09.13

Интеграция - WEB-интеграция

Методы GET и POST разжеваны на портале как надо.
Я поделюсь своими соображениями про метод DELETE.

Скачать файлы

Наименование Файл Версия Размер
Внешняя обработка
.epf 14,17Kb
18
.epf 1.0 14,17Kb 18 Скачать

Не секрет, что платформа 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 = Неопределено;
	
КонецПроцедуры
 

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

HTTPСоединение DELETE HTTPСоединение.DELETE() HTTPСоединение.Удалить() WinHttpRequest

См. также

Интеграция Альфа Авто 5 / Альфа Авто 6 и AUTOCRM / Инфотек

Сайты и интернет-магазины WEB-интеграция Платформа 1С v8.3 Конфигурации 1cv8 1С:Управление торговлей 11 Автомобили, автосервисы Россия Управленческий учет Платные (руб)

Интеграционный модуль обмена между конфигурацией Альфа Авто 5 и Альфа Авто 6 и порталом AUTOCRM. Данный модуль универсален. Позволяет работать с несколькими обменами AUTOCRM разных брендов в одной информационной базе в ручном и автоматическом режиме.

36000 руб.

03.08.2020    15745    10    17    

11

Интеграция 1С — Битрикс24. Обмен задачами

Сайты и интернет-магазины Интеграция WEB-интеграция Платформа 1С v8.3 Конфигурации 1cv8 Управленческий учет Платные (руб)

Интеграция 1С и Битрикс24. Разработка имеет двухстороннюю синхронизацию 1С и Битрикс24 задачами. Решение позволяет создавать пользователя в 1С из Битрикс24 и наоборот. Данная разработка технически подходит под все основные конфигурации линейки продуктов 1С:Предприятие 8.3 (8.3.18.1289). При приобретении предоставляется 1 месяц бесплатных обновлений разработки. Доступна демо-версия продукта с подключением Вашего Битрикс24

5040 руб.

04.05.2021    17548    6    15    

13

Интеграция с сервисом vetmanager

WEB-интеграция Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Бытовые услуги, сервис Платные (руб)

Внешняя обработка разрабатывалась для загрузки документов из Ветменеджер в 1С: Бухгалтерия 3.0

12000 руб.

02.02.2021    16358    42    49    

23

[Расширение] БОР-Навигатор.Культура

Зарплата Бюджетный учет WEB-интеграция Обмен с ГосИС Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бюджетный учет Платные (руб)

Расширение конфигурации, включающее в себя объекты, необходимые для подготовки и сдачи отчета "Штатная численность" системы "БОР-Навигатор.Культура" в программе "1С:Зарплата и кадры государственного учреждения", редакция 3.1.

8400 руб.

01.02.2019    25737    9    0    

7

Заполнение по ИНН или наименованию реквизитов контрагента по данным сайта ФНС

Обмен с ГосИС WEB-интеграция Платформа 1С v8.3 Управляемые формы 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия государственного учреждения 1С:Документооборот 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Обработка является альтернативой механизму, разработанному фирмой 1С и заполняющему реквизиты контрагента по ИНН или наименованию. Не требуется действующей подписки ИТС. Вызывается как внешняя дополнительная обработка, т.е. используется, непосредственно, из карточки контрагента. Заполнение по ИНН или наименованию реквизитов контрагента по данным сайта ФНС (egrul.nalog.ru) для БП 2.0, БП 3.0, БГУ 1.0, БГУ 2.0, УТ 10.3, УТ 11.x, КА 1.1, КА 2.x, УПП 1.x, ERP 2.x, УНФ 1.5, УНФ 1.6, УНФ 3.0, ДО 2.1

2400 руб.

28.04.2016    88579    160    215    

318
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. AlX0id 13.09.13 09:03 Сейчас в теме
Плюсик за то, что заставил прочитать, что же делает этот запрос ))
2. Поручик 4670 13.09.13 10:16 Сейчас в теме
3. vld_trade 32 13.09.13 10:42 Сейчас в теме
Если бы эти статьи читали разработчики API, нам бы всем жилось намного легче ;)
Я столкнулся с тем, что "На сервер ДОЛЖЕН приходить DELETE запрос с информацией в теле запроса". Точка.
Даже сейчас, когда механизмы обмена информацией с порталом полностью отлажены, response сервера на мой DELETE request всегда отвечает "200", независимо от того, произведено ли реальное удаление ресурса или он был удален ранее...
4. zfr475 05.12.18 15:46 Сейчас в теме
В моем случае, в Функции Кодировать(), вместо переменной "Кодировка" написал "CESU-8" и заработало! ЮТФ-8 мне не помог. Как я понял, "CESU-8" - это ютф-8 без ВОМ.

Спасибо за статью!
5. rasulmk 2 07.09.23 17:45 Сейчас в теме
HTTPСоединение.ВызватьHTTPМетод("DELETE", ЗапросHTTP);
Оставьте свое сообщение