Как получить доступ к ActiveX серверу на С++, если есть образец на Visual Basic - C++ Builder

@retro55-i · Регистрация: 05.10.2015

Author24 — интернет-сервис помощи студентам

Раньше я пользовался Stereoscopic player http://3dtv.at/Downloads/Index_en.aspx , где разработчики этого плеера предоставляли доступ к библиотеке типов. Эту библиотеку можно было обнаружить в меню View->registered_type_library в Buildere. Я очень легко из своей программы управлял этим плеером. Теперь разработчики, что-то там изменили и этот плеер не виден в этом пункте меню ни как библиотека типов, ни как ActiveX control, хотя разработчики предложили примеры на языке Visual Basic , например:

Visual Basic

Dim Player
Set Player = WScript.CreateObject("StereoPlayer.Automation")
 
Dim Position
Player.GetPosition Position
MsgBox Position & " seconds"

или

Visual Basic

1
2
3

Dim Player
Set Player = WScript.CreateObject("StereoPlayer.Automation")
Player.CloseVideo

На Visual Basic все работает, но как написать это на С++ ?

@vxg · 09.11.2015, 10:55

Сообщение от retro55-i

как написать это на С++

может что то вроде

C++

1 2	Variant app = CreateOleObject("StereoPlayer.Automation"); app.OleFunction("CloseVideo");

@retro55-i · 09.11.2015, 12:08 **[ТС]**

А если функция с параметрами, как туда передать параметры?

@vxg · 09.11.2015, 13:54

Сообщение от retro55-i

А если функция с параметрами, как туда передать параметры?

на примере excel

C++

1
2
3

wbs.OleFunction("Open", "C:\\test.xls");
ws.OlePropertyGet("Cells", 1, 1);
cell.OlePropertySet("Value", 456);

@retro55-i · 09.11.2015, 14:42 **[ТС]**

Проблема решена, спасибо

@retro55-i 2 / 2 / 0 Регистрация: 05.10.2015 Сообщений: 51
	09.11.2015, 12:08 [ТС]	3
	А если функция с параметрами, как туда передать параметры? 0

@retro55-i 2 / 2 / 0 Регистрация: 05.10.2015 Сообщений: 51
	09.11.2015, 14:42 [ТС]	5
	Проблема решена, спасибо 1

Опции темы