ActiveX ole-object с Delphi на Qt Опции Подписка на тему Сообщить другу Версия для печати Скачать тему Подписка на этот форум Режимы отображения Переключить на: Древовидный Стандартный Переключить на: Линейный

[chiffacff]

Всем привет. Стоит задача перенести код взаимодействия с OLE-объектами, с Delphi на QT. Вроде ничего необычного, н оне могу достучаться до суб.объекта. Код на Delphi:

 CoInitialize(nil);
OleObj := CreateOleObject('Resonance.ForeignExchange');
           OleObj.InitAuto;
 
           Writeln(OleObj.GetExchangeRates (840).Buy); //Возвращает значение

Код на QT:

HRESULT r = CoInitialize(0);
QAxObject object("Resonance.ForeignExchange", this);

qDebug() << object.dynamicCall("InitAuto").toInt();
QAxObject* object2 = object.querySubObject("GetExchangeRates(840)");

qDebug() << object2; // Возвращает QAxObject(0xcdd8fe0)
qDebug() << object2->dynamicCall("Buy"); // Возвращает QVariant(Invalid)

Подскажите, как правильно реализовать вышеописанную задачу. Спасибо!