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

[longson]

Цитата:

Сообщение от 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 - таблица в которой указано соответствие кодов валют с кодами на сайте центробанка...

У меня при запуске этого джобика выдалась ошибка XMLNode объект не инициализирован

именно на строку 26, т.е

PHP код:

CurID = node1.nodeValue(); 


Подскажите пожалуйста как устранить проблему есть кто сможет. Спасибо.

[belugin]

1. попробуйте после load добавить info(xml.xml()) - что вы увидите?
2. Попробуйте load заменить на

if (!xml.load(...))
   throw error(xml.parseError().toString());

[Recoilme]

Попробуйте прогнать вот такой тестовый джобик:

static void Job52(Args _args)
{
COM xml = new COM("MSXML2.DOMDocument");
XMLNodeList vlist;
XMLNode valute;
str code, nom, nam, val;
int i;
;
    xml.async(false);  // Вернуть управление только после полной загрузки файла
    xml.validateOnParse(false);  // Не проверять загружаемый файл на соответствие своей схеме

    if (!xml.Load("http://www.cbr.ru/scripts/XML_daily.asp?date_req=01/06/2007"))
       info('Не удалось загрузить курсы валют с ЦБР (см. http://www.cbr.ru/scripts/root.asp)');

    // Выбрать все корневые элементы Valute
    vlist = xml.selectNodes("*/Valute");

    for(i = 1; i<=vlist.length(); i++)
    {
        valute = vlist.item(i-1);
        // Получить информацию о номинале, названии и курсе валюты
        code = valute.selectSingleNode("CharCode").text();
        nom = valute.selectSingleNode("Nominal").text();
        nam = valute.selectSingleNode("Name").text();
        val = valute.selectSingleNode("Value").text();
        info(code+" "+nom + " " + nam + " = " + val + " руб.");
    }
}

[Umi]

Загрузила проект - ошибка "Модификаторы Client и Server можно использовать только в статических методах." в методах Run и canGoBatchJournal

[Umi]

Разобралась=)
надо в методах Run и canGoBatchJournal дописать static и все замечательно работает (в 3.0)

[AraraT®]

А как в Аксе использовать WEB-сервисы?
Кто-нить писал?
http://www.cbr.ru/scripts/Root.asp?Prtid=DWS

[belugin]

Цитата:

Сообщение от AraraT®

А как в Аксе использовать WEB-сервисы?
Кто-нить писал?
http://www.cbr.ru/scripts/Root.asp?Prtid=DWS

http://www.axaptapedia.com/Webservice