Как с помощью WinHTTP можна получить фотографию в пользовательском режиме 1С 8, по SSL соединению?

Почитай книжку "Технологии интеграции 1СПрелдприятия"

Опробовал такой метод, v8: Клиентский сертификат для SSL соединения V8.2 сертификат не действителен, вот решил попробовать обойти его

Есть такой код, он отправляет файл, а как получить?

WinHttp = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
   WinHttp.Option(2,"Windows-1251");
   
   WinHttp.Open("POST","https://trade.informjust.ua",0);

   
   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","application/x-www-form-urlencoded; charset=Windows-1251");
   
   ПараметрыПОСТ = "fruit3=apple777";
   
   WinHttp.Send(ПараметрыПОСТ);
   
   Текст = Новый ЗаписьТекста("C:\result.gif", КодировкаТекста.UTF8);
   Текст.ЗаписатьСтроку(WinHttp.ResponseText());
   Текст.Закрыть();

Такой метод, тоже ругается на сертификат(

 ПолеHTMLДокумента = ЭлементыФормы.ПолеHTMLДокумента;
   
 Объект = ПолеHTMLДокумента.Документ;

   КоллекцияКартинок = Объект.images;
   
   Для Каждого Элемент Из КоллекцияКартинок Цикл
       ИмяРесурсаКартинки = Строка(Новый УникальныйИдентификатор);

       
       ТипМайм = СокрЛП(Элемент.mimeType);
       
       // "Рисунок GIF", "Рисунок JPEG", 8 символов с пробелом слева.

       
       ПравыйКусок = Прав(ТипМайм, СтрДлина(ТипМайм) - 8);
       
       ТипКратко = НРег(ПравыйКусок);
       
       ИмяФайлаКартинки = КаталогСохранения + "\" + ИмяРесурсаКартинки
           + "." + ТипКратко;
       
       ГетЗапрос = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
       
       Если ИспользоватьПрокси Тогда
           ГетЗапрос.SetProxy(2
               , "192.168.0.1:8080");  // HTTPREQUEST_PROXYSETTING_PROXY

               
       КонецЕсли;        


       ГетЗапрос.SetTimeouts(10000, 10000, 10000, 10000);
       
       БазовыйУРЛ = Элемент.src;
       
       Хидер1 = "Content-Type";
       Хидер2 = "image/" + ТипКратко; // Тип рисунка.

       
       ГетЗапрос.Open("GET", БазовыйУРЛ, False); // Синхронный режим.

       ГетЗапрос.setRequestHeader(Хидер1, Хидер2);

       ГетЗапрос.Send();
       
       СтатусОтправки = ГетЗапрос.status;
       
       Если СтатусОтправки <> 200 Тогда
           Сообщить("Ошибка отправки запроса на: "
               + Элемент.src);
           Продолжить;    
       КонецЕсли;        
   
       Стрим = Новый COMОбъект("ADODB.Stream");
       Стрим.Mode = 3;
       Стрим.Type = 1;
       Стрим.Open();
       Стрим.Write(ГетЗапрос.responseBody);
       
       Стрим.SaveToFile(ИмяФайлаКартинки, 2);
       Стрим.Close();
       
   КонецЦикла;

Произошла исключительная ситуация (WinHttp.WinHttpRequest): Недопустимый или неправильный центр сертификации

Ругается на  ГетЗапрос.Send();

Чесслово, пока не знаю. На следующей неделе буду соединять УТП с веб-мордой. Там тоже есть картинки.

SetOption смотри, буквально недавно обсуждалась эта проблема, набери поиск WinHTTP

(9) Ты об этом?
http://www.google.ru/search?as_sitesearch=forum.mista.ru&q=WinHTTP

v8: Использование WinHTTP для отправки файла методом POST по https

(10)(11) Ну видишь, опять для вас подсуетились

v8: Использование WinHTTP для отправки файла методом POST по https - интересно у него получилось осуществить данную задачу

Но он отправляет текст а не картинку

У WinHTTP есть метод получить результат в виде текста, а есть в виде Stream, который можно сохранить в бинарный файл

Вот такой код написал


WinHttp = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
   WinHttp.Option(2,"Windows-1251");
   
   WinHttp.Open("POST","https://195.225.172.217:8080/screenshot/yUXnR42J?password=",0);
   
   
   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","application/x-www-form-urlencoded; charset=Windows-1251");
   
   ПараметрыПОСТ = "fruit3=apple777";
   
   WinHttp.Send(ПараметрыПОСТ);
   
   ИмяФайлаКартинки = "C:\22.gif";
   
   Стрим = Новый COMОбъект("ADODB.Stream");
   Стрим.Mode = 3;
   Стрим.Type = 1;
   Стрим.Open();
   Стрим.Write(WinHttp.responseBody);
   
   Стрим.SaveToFile(ИмяФайлаКартинки, 2);
   Стрим.Close();

Ошибка:  {Форма.Форма.Форма(28)}: Ошибка при вызове метода контекста (Send)
   WinHttp.Send(ПараметрыПОСТ);
по причине:
Произошла исключительная ситуация (WinHttp.WinHttpRequest): Недопустимый или неправильный центр сертификации

Не знаю как с этим можно бороться, уже 4 день мучаюсь(

Как узнать параметры пост, или они для всех стандартные?

тебе же написано - ставь опции игнорирования сертификатов и  не умничай, никакого отличия твоего сабжа и (11) нету

WinHttp.Option(4,13056); Поставил, та же проблема (

(19) так опции не устанавливаются


//*******************************************
Функция ПолучитьОбертку()
   ХТМЛ = СоздатьОбъект("htmlfile");
   ХТМЛ.Open("text/html");
   //<-- Подготовим нужные методы
   ХТМЛ.Write("<script>
   |var ХТМЛ;
   |Опция=function(x,y,z){var ret=x.Option(y);if(z) x.Option(y)=z; return ret};
   |Записать=function(x,y){x.Write(y.responseBody())};
   |</script>");
   Док=ХТМЛ.documentElement.document;
   // Внедрение объекта Скрипта в самого себя, для сохранности контекста
   Док.script.ХТМЛ=ХТМЛ;
   // Все подготовке -->
   Возврат Док.script;
КонецФункции    // ПолучитьОбертку(Это)

//*******************************************
Процедура Сформировать()
   Это=ПолучитьОбертку();
   ХТТП = СоздатьОбъект("WinHttp.WinHttpRequest.5.1");
   
   ХТТП.Open("POST","https://195.225.172.217:8080/screenshot/yUXnR42J?password=",0);
   Это.Опция(ХТТП,2,"Windows-1251");
   Это.Опция(ХТТП,4,13056);
   
   
   ХТТП.SetRequestHeader("Accept-Language", "ru");
   ХТТП.SetRequestHeader("Accept-Charset","Windows-1251");
   ХТТП.setRequestHeader("Content-Language", "ru");
   ХТТП.setRequestHeader("Content-Charset", "Windows-1251");
   ХТТП.setRequestHeader("Content-Type","application/x-www-form-urlencoded; charset=Windows-1251");
   
   ПараметрыПОСТ = "fruit3=apple777";
   
   ХТТП.Send(ПараметрыПОСТ);
   Сообщить(ХТТП.getAllResponseHeaders());
   ИмяФайлаКартинки = "C:\22.jpeg";
   
   Стрим = СоздатьОбъект("ADODB.Stream");
   Стрим.Mode = 3;
   Стрим.Type = 1;
   Стрим.Open();
   Это.Записать(Стрим,ХТТП);
   
   Стрим.SaveToFile(ИмяФайлаКартинки, 2);
   Стрим.Close();

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


СоздатьОбъект это переменная?

(21) это 7.7


//*******************************************
Функция ПолучитьОбертку()
   ХТМЛ = Новый COMОбъект("htmlfile");
   ХТМЛ.Open("text/html");
   //<-- Подготовим нужные методы
   ХТМЛ.Write("<script>
   |var ХТМЛ;
   |Опция=function(x,y,z){var ret=x.Option(y);if(z) x.Option(y)=z; return ret};
   |Записать=function(x,y){x.Write(y.responseBody())};
   |</script>");
   Док=ХТМЛ.documentElement.document;
   // Внедрение объекта Скрипта в самого себя, для сохранности контекста
   Док.script.ХТМЛ=ХТМЛ;
   // Все подготовке -->
   Возврат Док.script;
КонецФункции    // ПолучитьОбертку(Это)

//*******************************************
Процедура Сформировать()
   Это=ПолучитьОбертку();
   ХТТП = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
   
   ХТТП.Open("POST","https://195.225.172.217:8080/screenshot/yUXnR42J?password=",0);
   Это.Опция(ХТТП,2,"Windows-1251");
   Это.Опция(ХТТП,4,13056);
   
   
   ХТТП.SetRequestHeader("Accept-Language", "ru");
   ХТТП.SetRequestHeader("Accept-Charset","Windows-1251");
   ХТТП.setRequestHeader("Content-Language", "ru");
   ХТТП.setRequestHeader("Content-Charset", "Windows-1251");
   ХТТП.setRequestHeader("Content-Type","application/x-www-form-urlencoded; charset=Windows-1251");
   
   ПараметрыПОСТ = "fruit3=apple777";
   
   ХТТП.Send(ПараметрыПОСТ);
   Сообщить(ХТТП.getAllResponseHeaders());
   ИмяФайлаКартинки = "C:\222.jpeg";
   
   Стрим = Новый COMОбъект("ADODB.Stream");
   Стрим.Mode = 3;
   Стрим.Type = 1;
   Стрим.Open();
   Это.Записать(Стрим,ХТТП);
   
   Стрим.SaveToFile(ИмяФайлаКартинки, 2);
   Стрим.Close();

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


Процедура КнопкаВыполнитьНажатие(Кнопка)
   // Вставить содержимое обработчика.
   Сформировать();
КонецПроцедуры


Спасибо большое, все получилось)

Подскажите как очистить поле HTML документа?

.innerHTML=""; ?

или что за поле ?

у инпутов есть валюе, у текстареи есть иннерТекст

ну вот получаю фотографию методом ЭлементыФормы.ПолеHTMLДокумента1.Перейти(Http//ya.ru);

Ввод адреса поцепил на поле ввода, сделал проверку Если Не ЗначениеЗаполнено(ЭлементыФормы.ПолеВвода1.Значение), тогда Возврат; Но когда отрабатывает это у меня остается предыдущая картинка, вот хочу очистить  ЭлементыФормы.ПолеHTMLДокумента1

ПолеHTMLДокумента1 - это что ? (восьмерку вообще не знаю)
скорее всего типа
ЭлементыФормы.ПолеHTMLДокумента1.innerHTML="";

Это Элемент управления

Такой как и Табличное поле, только со своим значение

на сколько вкуриваю, это именно не элемент управления (это адинес накрутило обертки), а именно обычный элемент хтмл

Ну да, как его очистить?

а иннерХТМЛ не срабатывает ?

Методом назад(); не получится так как у меня предыдущая фотка будит, а мне нужно чистое поле

Нет, пишет такого метода не существует

Может так: Перейти("about:blank");

(37) подошло, спс

установитьтекст ?

Нет Перейти("about:blank"); Перейти на чистую страницу

(40) это понятно, правильнее скорее будет
.Документ.body.innerHTML="";
типа такого (смысл - получить документ, а в нем уже приминять нормальные методы дома), абоутбланк вещь конечно не тяжелая, но может приводить и к висаку