crossplatform.ru

Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в данную темуНачать новую тему
> ActiveX ole-object с Delphi на Qt
chiffacff
  опции профиля:
сообщение 26.11.2019, 10:00
Сообщение #1


Новичок


Группа: Новичок
Сообщений: 1
Регистрация: 25.11.2019
Пользователь №: 5176

Спасибо сказали: 0 раз(а)




Репутация:   0  


Всем привет. Стоит задача перенести код взаимодействия с 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)


Подскажите, как правильно реализовать вышеописанную задачу. Спасибо!
Перейти в начало страницы
 
Быстрая цитата+Цитировать сообщение

Быстрый ответОтветить в данную темуНачать новую тему
Теги
Нет тегов для показа


1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0




RSS Текстовая версия Сейчас: 11.8.2020, 16:20