http post из Аксапты 3,0

[Rimantas]

Цитата:

Сообщение от Lucky13

А что такое objXHTTP? XMLHTTPRequest?
Насколько я знаю, чтобы он подключился к стороннему серверу, нужно на сервере что-то там шаманить. А почему бы Вам не использовать WinInet? У меня прекрасно работает обмен из Аксапты 3.0 с http сервером методом post с помощью WinInet

Lucky13,
Могли вы подделиться исходником как примером ? XMLHTTPRequest или objXHTTP я пробывал потому , что ети штутки имеет POST возможность . А вот как с WinInet сделать POST - незнаю ... Мне именно надо POST .

[Lucky13]

Цитата:

Сообщение от Rimantas

Lucky13,
Могли вы подделиться исходником как примером ? XMLHTTPRequest или objXHTTP я пробывал потому , что ети штутки имеет POST возможность . А вот как с WinInet сделать POST - незнаю ... Мне именно надо POST .

Я имею в виду именно POST, WinInet тоже так умеет, просто нужно аксапту немного допилить.
Работающим примером вряд ли поделюсь, так как стандартные классы обросли всякой спецификой и выделить оттуда часть чтобы она у вас заработала будет непросто.

Вот небольшой пример в качестве идеи:

int internetOpenUrl(str url,int flags = 0,int context = 0)
{
    str serverName;
    str urlName;
    str data;
    str hdr;
    int hdl, pos, pos1, res;
    int status;
    ;

    pos = strfind(url, '@', 1, strlen(url));
    if (pos == 0)
        pos = strfind(url, '/', 1, strlen(url))+1;
    else  url = strdel(url,1, pos);

    pos = strfind(url, '/', 1, strlen(url));
    pos1 = strfind(url, '?', 1, strlen(url));
    serverName = substr(url, 1, pos-1);
    hdl = this.internetConnect(serverName,80);


    if (_method == 0)
    {
        //Метод Get
        urlName    = substr(url, pos, strlen(url) - pos + 1);
        data = '';
        hdr = '';
        hdl = this.OpenRequest(hdl, urlName, 'GET');
    }
    else
    {
        //Метод POST
        urlName    = substr(url, pos, pos1 - pos);
        data       = substr(url, pos1+1, strlen (url) - pos1);
        hdr        = 'Content-Type: application/x-www-form-urlencoded';
        hdl = this.OpenRequest(hdl, urlName, 'POST');
    }

    if (login)
    {
        this.internetSetOption(hdl, 28, login);
        this.internetSetOption(hdl, 29, pass);
    }

    res = this.SendRequest(hdl, hdr, data);

    return hdl;
}

Это метод класса WinInet. Недостающие переменные объявлены в классе и инициализируются parm-методами. Недостающие API-функции тоже реализованы в это классе. На вход дается адрес сервиса, а возвращаемое значение отдается функции WinInet.internetReadFile.
Вообще я Вам советую написать сначала программу с помощью API функций WinInet (примеров в сети полно), например, на Delphi или C++, удостовериться, что все работает и потом уже повторять тоже самое в аксапте.
Например, судя по вашему коду, Вы обращаетесь к сервису по https, а для этого должен быть открыт 443 порт на железках вашей локальной сети (прокси-сервер, например), если таковые имеются. В общем исключить прежде всего проблемы доступа.

[Rimantas]

Цитата:

Сообщение от Lucky13

Я имею в виду именно POST, WinInet тоже так умеет, просто нужно аксапту немного допилить.

Вот небольшой пример в качестве идеи:

int internetOpenUrl(str url,int flags = 0,int context = 0)
{
    hdl = this.OpenRequest(hdl, urlName, 'GET');
   
    hdl = this.OpenRequest(hdl, urlName, 'POST');
}

Это метод класса WinInet. Недостающие переменные объявлены в классе и инициализируются parm-методами. Недостающие API-функции тоже реализованы в это классе. На вход дается адрес сервиса, а возвращаемое значение отдается функции WinInet.internetReadFile.
Вообще я Вам советую написать сначала программу с помощью API функций WinInet (примеров в сети полно), например, на Delphi или C++, удостовериться, что все работает и потом уже повторять тоже самое в аксапте.
Например, судя по вашему коду, Вы обращаетесь к сервису по https, а для этого должен быть открыт 443 порт на железках вашей локальной сети (прокси-сервер, например), если таковые имеются. В общем исключить прежде всего проблемы доступа.

Спасибо за идею . Жаль , но ваш пример не из Аксапты 3.0 , я так думаю . Там в ВинИнет OpenRequest напр. нету . Наверное мне нужно было бы обновить WinInet классу для Аксапты 3.0 ...

[Lucky13]

Цитата:

Сообщение от Rimantas

Спасибо за идею . Жаль , но ваш пример не из Аксапты 3.0 , я так думаю . Там в ВинИнет OpenRequest напр. нету . Наверное мне нужно было бы обновить WinInet классу для Аксапты 3.0 ...

Пример из Ax 3.0 сто процентов, просто нужно дописать недостающие функции в классе WinInet. OpenRequest - это WinAPI функция и для нее можно написать оболочку в Аксапте.
Почитайте, например, здесь http://www.rsdn.ru/article/inet/wininet.xml

[Rimantas]

Цитата:

Сообщение от Lucky13

Пример из Ax 3.0 сто процентов, просто нужно дописать недостающие функции в классе WinInet. OpenRequest - это WinAPI функция и для нее можно написать оболочку в Аксапте.
Почитайте, например, здесь http://www.rsdn.ru/article/inet/wininet.xml

Да , Вы правы . Я потом заметил ето . Ещё с параметрами не все сделал . Можно там по умолчанию для HttpOpenRequestA и HttpSendRequestA задать как пустые ? То есть мне надо только урл, тип урл и дата ...