Имя: Пароль:
1C
1C 7.7
v7: Отправка xml на Битрикс
0 kupreeff
 
17.04.18
18:52
Добрый день!
Имею такой код:
Запрос = СокрЛП(Сайт.АдресСайта);
    
    ЗапросА = Запрос + "?AUTH_FORM=Y&TYPE=AUTH&USER_LOGIN="
    + СокрЛП(Сайт.Пользователь)
    + "&USER_PASSWORD="
    + СокрЛП(Сайт.Пароль);
    
    Запрос = Запрос + "?type=catalog&mode=";
    
    HTTPxml =  СоздатьОбъект("Microsoft.XMLHTTP");
    HTTPxml.Open("POST", ЗапросА, 0);
На последней строчке спотыкается, в окне сообщений пишет "Err", описание ошибки отсутствует.
Сижу, ни знаю даже куда копать.
1 Kigo_Kigo
 
17.04.18
19:38
А не так?
Запрос = СокрЛП(Сайт.АдресСайта);
    
    ЗапросА = Запрос + "?AUTH_FORM=Y&TYPE=AUTH&USER_LOGIN="
    + СокрЛП(Сайт.Пользователь)
    + "&USER_PASSWORD="
    + СокрЛП(Сайт.Пароль);
    
    ЗапросА = ЗапросА + "?type=catalog&mode=";
    
    HTTPxml =  СоздатьОбъект("Microsoft.XMLHTTP");
    HTTPxml.Open("POST", ЗапросА, 0);
2 kupreeff
 
17.04.18
21:11
(1)не, это строка случайна затесалась. Через браузер ЗапросА открывается.
3 Kigo_Kigo
 
17.04.18
21:20
попробуй вот так



Функция СоздатьXMLHttpRequest(URL,Метод = "GET")
    
    Попытка
        XMLHttpRequest = СоздатьОбъект("Msxml2.ServerXMLHTTP");
    Исключение
        Попытка
            XMLHttpRequest = СоздатьОбъект("Msxml2.XMLHTTP.3.0");
        Исключение
            Попытка
                XMLHttpRequest = СоздатьОбъект("Msxml2.XMLHTTP");
            Исключение
                Попытка
                    XMLHttpRequest = СоздатьОбъект("Microsoft.XMLHTTP");
                Исключение
                    Сообщить("Невозможно создать XMLHttpRequest.                                                                                          
                    |" + ОписаниеОшибки(), "!");
                КонецПопытки;
            КонецПопытки;
        КонецПопытки;
    КонецПопытки;
    
    XMLHttpRequest.open(Метод, URL, 0);
    
    Возврат XMLHttpRequest;
    
КонецФункции
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс