Имя: Пароль:
1C
1С v8
Get запрос на сервер
0 Alenka84
 
08.07.14
21:38
Добрый день. Ребят, подскажите как отправить такую строку на сервер?

http://pluplo.cad07.tmweb.ru/updateZakazStatus.php?uid=уникальный-код&id_zakaza=ид-заказа-в-1С&id_status=ид_статуса_заказа_в_1С

спасибо
1 h_miha
 
08.07.14
21:46
Соединение = Новый HTTPСоединение("http://pluplo.cad07.tmweb.ru";);
2 vde69
 
модератор
08.07.14
21:46
Попытка
            Если ВестиЛог Тогда
                ТекстЛога = ТекстЛога + "
                    | подключение к: " + ПараметрыСтроки.Хост;
            КонецЕсли;
            
            Соединение = Новый HTTPСоединение(ПараметрыСтроки.Хост,,,,,10);
//            Соединение = Новый HTTPСоединение(ПараметрыСтроки.Хост, <Порт>, <Пользователь>, <Пароль>, <Прокси>, <Таймаут>, <ЗащищенноеСоединение>);

            Если ВестиЛог Тогда
                ТекстЛога = ТекстЛога + " - ОК";
            КонецЕсли;

        Исключение
            Сообщить("Не удалось установить соединение с сервером"
                + Символы.ПС + ИнформацияОбОшибке().Описание, СтатусСообщения.Важное);
            Параметры.Вставить("ТекстЛога", ТекстЛога);
            Возврат;
        КонецПопытки;
        
        // ---------------------------------------------------------------------------------
        // получение одной страницы результата поиска
        Запрос = Новый HTTPЗапрос(ПараметрыСтроки.ПутьНаСервере, ПараметрыЗапроса) ;
        Попытка
            Если Площадка.ТипЗапросаСпискаТендеров = Перечисления.ТипыЗапросовHTTP.POST Тогда
                ПутьДляСохранения = ПолучитьИмяВременногоФайла();    
                Ответ = Соединение.ОтправитьДляОбработки(Запрос, ПутьДляСохранения);
            ИначеЕсли Площадка.ТипЗапросаСпискаТендеров = Перечисления.ТипыЗапросовHTTP.GET Тогда
                Ответ = Соединение.Получить(Запрос, ПутьДляСохранения);
            Иначе
                Сообщить("Не определен метод запроса HTTP"
                    + Символы.ПС + ИнформацияОбОшибке().Описание, СтатусСообщения.Важное);
                Параметры.Вставить("ТекстЛога", ТекстЛога);
                Возврат;
            
            КонецЕсли;
            Если Ответ.КодСостояния <> 200 Тогда
                Если ВестиЛог Тогда
                    ТекстЛога = ТекстЛога + "
                        | попытка выполнения запроса на поиск страниц: " + Соединение.Сервер    + "/" + ПараметрыСтроки.ПутьНаСервере;
                КонецЕсли;
                
                Сообщить("Ошибка при получении файла результата поиска с сервера, код " + Ответ.КодСостояния + " "                                            
                    + Символы.ПС + ПараметрыСтроки.Хост + "/" + ПараметрыСтроки.ПутьНаСервере
                    + Символы.ПС + ИнформацияОбОшибке().Описание, СтатусСообщения.Важное);
                Параметры.Вставить("ТекстЛога", ТекстЛога);
                Возврат;
            КонецЕсли;
            
        Исключение
            Сообщить("Ошибка при получении файла с сервера"                                              
                + Символы.ПС + ИнформацияОбОшибке().Описание, СтатусСообщения.Важное);
            Параметры.Вставить("ТекстЛога", ТекстЛога);
            Возврат;
        КонецПопытки;
        
        Если ВестиЛог Тогда
            ТекстЛога = ТекстЛога + "
                | попытка чтения одной страницы результата запроса ";
        КонецЕсли;