// соединение с параметрами по умолчанию

Соединение = Новый HTTPСоединение("www.mysite.ru");

 

// сервер использует порт 8080

Соединение = Новый HTTPСоединение("www.mysite.ru", 8080);

 

// сервер использует защищенное соединение (https),

// для подключения к серверу используется прокси

ПроксиСервер = Новый интернетПрокси;

ПроксиСервер.Пользователь = имяПользователя;

ПроксиСервер.Пароль       = парольПользователя;

 

Соединение = Новый HTTPСоединение("www.mysite.ru",,,, ПроксиСервер, Истина);      

  // Укажем настройки прокси-сервера

    ПроксиСервер = Новый ИнтернетПрокси;

    ПроксиСервер.Пользователь = "userfile";

    ПроксиСервер.Пароль = "12345";

    ПроксиСервер.Установить("http", "10.1.1.23", "3185");



    СерверИсточник = "shop.com"; 

    Адрес = "/price.asp"; 

    ИмяВходящегоФайла = "c:\temp\input.html";

    // Укажем в HTTP соединении что у нас есть проксик  

    НТТР = Новый HTTPСоединение(СерверИсточник,,,, ПроксиСервер); 

    НТТР.Получить(Адрес, ИмяВходящегоФайла); 

    ВходящийФайл = Новый Файл(ИмяВходящегоФайла);    

 //Создаем Файл для отправки

ИмяФайлаHTML = КаталогВременныхФайлов() + “My1cV8bNdr”;

ФайлHTML = Новый ЗаписьТекста(ИмяФайлаHTML, КодировкаТекста.ANSI);

ФайлHTML.ЗаписатьСтроку(”–My1cV8bNdr”);

ФайлHTML.ЗаписатьСтроку(”content-disposition: form-data; name=”"userfile”"; filename=”"test.htm”"”);

ФайлHTML.ЗаписатьСтроку(”Content-Type: text/html”);

ФайлHTML.ЗаписатьСтроку(”");

ФайлHTML.ЗаписатьСтроку(”Дальше вставляем html код.”);

ФайлHTML.ЗаписатьСтроку(”–My1cV8bNdr–”);

ФайлHTML.Закрыть();





// Если необходимо использовать прокси

ПроксиСервер = Новый ИнтернетПрокси();

ПроксиСервер.Сервер(”адрес прокси”);

ПроксиСервер.Порт(”порт прокси”);

ПроксиСервер.Пользователь = “пользователь прокси”;

ПроксиСервер.Пароль = “пароль прокси”;





// Формируем заголовок для запроса

ЗаголовокHTTP = Новый Соответствие();

ЗаголовокHTTP.Вставить(”Content-Type”, “multipart/form-data; boundary=My1cV8bNdr”);





// Устанавливаем соединение и отпровляем запрос

HTTP = Новый HTTPСоединение(”сервер куда соединяемся”, , , , ПроксиСервер);

HTTP.ОтправитьДляОбработки(ИмяФайлаHTML, “/upload.php”, КаталогВременныхФайлов() + “result.htm”, ЗаголовокHTTP);

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

 

// Автор elena777

Процедура 1с_обмен_с_WEB() //отдает файл на сайт и забирает ответ

СтруктураАдреса= ЭлектронныеДокументы.РазобратьАдрес("http://site.ru/index.php");

ОбменПорт = СтруктураАдреса.HTTPПорт;

ОбменСервер = СтруктураАдреса.HTTPСервер;

РесурсСервера = "/" + СтруктураАдреса.HTTPАдресСкрипта;



ИмяФайла = "C:\in.xml";



ОбъектXML = Новый ЗаписьXML;

ОбъектXML.ОткрытьФайл(ИмяФайла, "UTF-8");

ОбъектXML.ЗаписатьОбъявлениеXML();



ОбъектXML.ЗаписатьБезОбработки("");

ОбъектXML.Закрыть();



ЗаголовокHTTP = Новый Соответствие();

ЗаголовокHTTP.Вставить("Content-Type", "text/xml; charset=utf-8");



HTTP = Новый HTTPСоединение(ОбменСервер);



ИмяПолученногоФайла = "C:\out.txt";

Попытка

HTTP.ОтправитьДляОбработки(ИмяФайла, РесурсСервера, ИмяПолученногоФайла, ЗаголовокHTTP);

Сообщить( "ok" + ИмяФайла + " " + ИмяПолученногоФайла);

Исключение

Сообщить(ОписаниеОшибки());

Возврат;

КонецПопытки;

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