Получить курс валют из интернета

[Андре]

Кто нибудь пробовал решить такую задачу ?

Вот накануне набросал на VC:

PHP код:

// 1 - Open
HINTERNET open = InternetOpen("RSDN HTTP Reader", INTERNET_OPEN_TYPE_PRECONFIG,  NULL, NULL, 0);

// 2 - Connect
HINTERNET connect = InternetConnect(open, "www.cbr.ru", INTERNET_DEFAULT_HTTP_PORT, NULL, NULL,  INTERNET_SERVICE_HTTP,0,1u);

// 3 - OpenRequest
LPCTSTR AcceptTypes[] = { TEXT("*/*"), NULL};
HINTERNET openRequest = HttpOpenRequest(connect, "GET", 
   "/currency_base/D_print.asp?date_req=05.01.2003", NULL, "", AcceptTypes,
   (0 ? INTERNET_FLAG_SECURE|INTERNET_FLAG_IGNORE_CERT_CN_INVALID: 0) 
    | INTERNET_FLAG_KEEP_CONNECTION, 1);

// 4 - SendRequest
LPCTSTR headers = TEXT("Content-Type: application/x-www-form-urlencoded\r\n"
    "Accept-Language:ru\r\n" "Accept-Encoding:gzip, deflate");
BOOL sendRequest = HttpSendRequest(openRequest, headers, -1, (LPVOID) "", 0);

// 5 - ReadFile
char     DataBuffer[7000];
DWORD    size = 6500;
DWORD       bytesRead ;
BOOL readFile = InternetReadFile(openRequest, DataBuffer, size, &bytesRead);
                    
cout << DataBuffer << endl;
cout << bytesRead << endl; 


Все работает.

Решил попробовать реализовать это дело в Аксапте:

Есть класс WinInet; в нем есть методы InternetOpen и InternetReadFileб но нет InternetConnect, HttpOpenRequest и многих других мне необходимых.
Ладно думаю, не беда - создам наследника и в нем все это реализую. Не тут то было. WinInet объявлен как final. А почему ? А зачем ? Не понимаю.
Ладно. Создаю свой класс:

PHP код:

void new()
{
    try
    {
        _winInet = new DLL("WinInet");
    } catch(Exception::Internal)
    {
        infolog.clear();
        return;
    }

    _internetConnect = new DLLFunction(_winInet,"InternetConnect");
    _internetConnect.returns(ExtTypes::DWORD);
    _internetConnect.arg(ExtTypes::DWORD);         // HINTERNET
    _internetConnect.arg(ExtTypes::STRING);        // ServerName
    _internetConnect.arg(ExtTypes::DWORD);         // ServerPort = 80
    _internetConnect.arg(ExtTypes::STRING);        // UserName
    _internetConnect.arg(ExtTypes::STRING);        // Password
    _internetConnect.arg(ExtTypes::DWORD);         // Service
    _internetConnect.arg(ExtTypes::DWORD);         // Flags
    _internetConnect.arg(ExtTypes::DWORD);         // Context
} 


При попытке создать этот класс Axapta ругается:

DLL function not found InternetConnect.

Как не найдена. MSDN говорит, что она в той же dll-ке, что и InternetOpen. Более того, мой эксперимент с VC подтверждает это.

Получается, что одни функции в dll Аксапта видит другие нет ? Почему ?

Или такие задачи в Аксапте решаются гораздо проще ? Может есть классы, которые на более высоком уровне позволяют работать с интернет ?

P.S.

Несмотря на то, что WinInet объявлен как final, я создал его наследника, добавил в него свой метод и переопределил один из его методов. Это что, глюк Аксапты ? (Axapta 2.5 SP2)

[Андре]

Хм. Похоже и здесь глюки.

Фраза "ExtTypes::WORD" в коде интерпретировалась совсем уж по чудному

[Wamr]

Если внимательно помотреть в класс WinInet, то видно, что InternetOpen объявлялся как ф-ция InternetOpenA...
Попробуй InternetConnectA или InternetConnectW
Кстати, список ф-ций в dll можно увидеть обычным текстовым просмотровщиком

[Андре]

Цитата:

Если внимательно помотреть в класс WinInet, то видно, что InternetOpen объявлялся как ф-ция InternetOpenA...
Попробуй InternetConnectA или InternetConnectW
Кстати, список ф-ций в dll можно увидеть обычным текстовым просмотровщиком

Спасибо. Да действительно, с InternectConnectA функция импортировалась. Интересно то, что MSDN молчит о таких функциях, как InternectConnectA и InternectConnectW, хотя знает о InternetOpenA....

Обнаружилась другая проблема. Функция InternetOpen возвращает HINTERNET по которому можно судить об успешности вызова функции. В частности, если вызов неверен функция должна возвращать NULL:

PHP код:

// 1 - Open
HINTERNET open = InternetOpen("RSDN HTTP Reader", 
    INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0);
if (open) 
    cout << "Open - OK" << endl;
else
    cout << "Open - Failed" << endl; 


Такой же код в Аксапте:

PHP код:

 inet = new WinInet();
 open = inet.internetOpen("Axapta HTTP Reader", 0, "", "", 0);
   if (open)
     print "Internet Open OK - " + int2str(open);
   else
   {
     print "Internet Open Failed";
     return;
   } 


Всегда радостно сообщает об успешном выполнении функции. Даже в том случае, если я передаю параметры далеко отличные от правильных.
В чем дело ? Как Аксапта интерпретирует NULL ?

[Pavel]

Цитата:

Изначально опубликовано Андре
Кто нибудь пробовал решить такую задачу ?
Решил попробовать реализовать это дело в Аксапте:

Привет,

- данную задачу можно назвать "типичной"
- в Афише из интернета в XAL 3.1 (Конкорд) курсы автоматически с сайта ЦБ качаются
- технические варианты реализации интерфейса могут быть самые разнообразные
- про глюки чудо системы ничего полезного сообщить не могу

С уважением.

[UnQuaiz]

Цитата:

Изначально опубликовано Андре
Кто нибудь пробовал решить такую задачу ?

Я решил эту задачу по другому..
Использовал классы для работы с XML.
На www.cbr.ru есть скрипт возвращающий курсы валют в xml формате..
http://www.cbr.ru/scripts/sample_xml.htm
здесь есть примеры на VB и php..
у меня получилось так...

PHP код:

{ 
   tempstr          CurID;
   XMLDocument      xml;
   XMLNamedNodeMap  attrs;
   XMLNodeList      nodelist,nodelist1;
   XMLNode          node,node1;
   ExchRate         exrate;

;

    xml = new XMLDocument();
    xml.async(False);
    xml.validateOnParse(False);
    xml.load('http://www.cbr.ru/scripts/XML_daily.asp');
    nodelist = xml.getElementsByTagName('Valute');
    if(nodelist) {node = nodelist.nextNode();}
    while(node)
    {
     attrs = node.attributes();
     node1 = attrs.getNamedItem('ID');
     nodelist1 = node.childNodes();
     CurID = node1.nodeValue();
     node = nodelist1.item(4);
     ExRate =str2num(strReplace(node.text(),',',''))/100;
     select Currency_CBR where Currency_CBR.CBRCode == CurID;
     select Rates where Rates.FromDate==Today() &&       Rates.CurrencyCode == Currency_CBR.CurrencyCode;
      if(!Rates)
      {
       Rates.selectForUpdate();
       Rates.FromDate = Today();
       Rates.CurrencyCode = Currency_CBR.CurrencyCode;
       Rates.ExchRate = ExRate*Currency_CBR.Factor;
       Rates.insert();
      }
      else
      {
       error(strfmt("Обменный курс валюты %1 за %2 уже существует.",Currency_CBR.CurrencyCode,Today()));
      }
     }
     node = nodelist.nextNode();
    }
} 


Currency_CBR - таблица в которой указано соответствие кодов валют с кодами на сайте центробанка...

[Андре]

Цитата:

Я решил эту задачу по другому..
Использовал классы для работы с XML.
На www.cbr.ru есть скрипт возвращающий курсы валют в xml формате..
http://www.cbr.ru/scripts/sample_xml.htm

Большое спасибо. Не знал.

Тогда, когда я решал эту задачу, Аксаптовский вариант у меня, честно говоря, так и не заработал. Плюнул я на это дело, написал dll-ку на VC, которую и использовал из Аксапты.

Твой вариант гораздо изящнее

[Vadik]

А Nominal как-то в расчетах участвует? Это ведь для доллларов он равен 1, а для каких-нибудь исландских крон или казахских тенге курс в том виде, как он в xml возвращается, использовать нельзя

[UnQuaiz]

Цитата:

Изначально опубликовано Vadik
А Nominal как-то в расчетах участвует? Это ведь для доллларов он равен 1, а для каких-нибудь исландских крон или казахских тенге курс в том виде, как он в xml возвращается, использовать нельзя

Этим вопросом я не задавался..потому как у нас используется USD и EUR
Хотя какая проблема взять курс того же Бельгийского франка и поделить на номинал?? Получишь нужный курс...Или я ошибаюсь?

[Vadik]

Цитата:

Хотя какая проблема взять курс того же Бельгийского франка и поделить на номинал?? Получишь нужный курс...Или я ошибаюсь?

Отчего же, получишь

Вот что-то подобное, умеет работать в пакетном режиме

Для компаний с основной валютой "не RUR" работать будет неправильно, но эта ситуация видится настолько маловероятной, что колбасить что-то, что скорее всего не потрребуется, как-то лениво. Еще - на машине с IE5 проект не работал, с чем связано - с IE, с версией XML Parser или еще с чем, да и некузяво это - работать не с последней версией бесплатного браузера

[edd]

Как настроить? У меня не работает.
Если в "Иморте курсов ЦБ" нажать "Выбрать", то вылетает ошибка:
QueryRun object не инициализирован/

[Vadik]

Я, по правде сказать, никогда "выбрать" не пользовался..
По "Ок" заимпортирует все, что в "Настройке импорта" прописано. Но "Выбрать" постараюсь в ближайшем времени полечить

[edd]

У меня и из файла не берет, ругается на XML node.

И еще не понятно - Инет должен быть у клиента или у сервера, а то я запускаю импорт, что то происходит, но нет ни каких результатов.
У себя не вижу попыток выхода в Инет.

[Vadik]

У тебя трехзвенка?
Скорее всего, да - проверил в трехуровневой конфигурации, не работает
Будем искать

[edd]

трехзвенка

[Vadik]

Ага. А прокси какой?

[edd]

Кто должен лезть в Инет? Сервер AOS или клиент?
А то клиент даже не пытается.

А прокси... winroute.

[Vadik]

У меня пока что устойчивый эффект - при запущенном под доменным пользователем AOS-е все работает, при запущенном из-под LocalSystem - RatesDoc.load(url) не отрабатывает

Пока что добавление client во все методы, работающие с этим RatesDoc, результата не дает, и это странно. Ведь код в этом случае запускается на клиентской машине и в контексте пользователя (других вариантов вроде нет)

Вот еще логи прокси посмотрю, может что и прояснится

[Vadik]

Все оказалось просто

Класс был создан с RunOn=Server, вот и метод, дергающий прокси, запускался на сервере в контексте юзера, под которым запущен AOS

На batch сервере в случае трехзвенки или на толстом клиенте должен быть настроен на работу с прокси ( если таковой есть ) IE. Именно из него, как я понял, берутся настройки.

Во всяком случае, комбинация ISA Server + IE 6.0SP1 у меня в трехзвенке никаких дополнительных настроек не требует

[Vadik]

Решил причесать проектик. По ходу дела возник вопрос. Будет ли для случая, когда рубль - не основная валюта компании и не валюта триангуляции, правильным вычислять курс через соотношение курсов импортируемой и основной валют к рублю?