VLC for HMG

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

User avatar
AUGE_OHR
Posts: 1361
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 257 times
Been thanked: 387 times

VLC for HMG

Post by AUGE_OHR »

hi,

i have see VLC in MiniGUI c:\hmg.3.4.4\0\VLC\ and want to use it under HMG
so i change "MiniGUI.CH" to "HMG.ch" but there are some "different" ...

Code: Select all

DEFINE ACTIVEX Activex1
 ...
 EVENTMAP { { E_MediaPlayerTimeChanged, "VLC_OnTimeChanged" } }
how can i get a Event under HMG from ActiveX :?:

Code: Select all

   SLIDER Slider1 ... ON SCROLL
HMG have ON CHANGE but no ON SCROLL for a SLIDER

i understand

Code: Select all

   oActivex := _HMG_aControlIds[..] -> _HMG_SYSDATA[...]
but why oActivex:Refresh() crash under HMG :?:

MiniGUI

Code: Select all

   oVlc := TVlc():New( Win1.Activex1.XObject )
HMG

Code: Select all

   oVlc := TVlc():New( Win1.Activex1.Object )
where do i find #define TRUE / FALSE :?:

so how to get VLC running under HMG :idea:
have fun
Jimmy

User avatar
danielmaximiliano
Posts: 2498
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 599 times
Been thanked: 136 times
Contact:

Post by danielmaximiliano »

Hola Jimmy :
el ActiveX de VLC es axvlc.dll progid VideoLAN.VLCPlugin.2

Code: Select all

oVLC := CreateObject("AXVLC.VLCPlugin2")
Look here : https://wiki.videolan.org/ActiveX/
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO

User avatar
AUGE_OHR
Posts: 1361
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 257 times
Been thanked: 387 times

Post by AUGE_OHR »

hi,

thx for Answer.

i got VLC running but like my WMP Player i can "only" Get/Set Property or call Method
EVENTMAP seems the missing Point to receive Notify Events from ActiveX Control

---

i have look into MiniGUI c:\MiniGUI\SOURCE\h_activex.prg, which is "big", and HMG
in c:\hmg.3.4.4\SOURCE\c_controlmisc.c there is HB_FUNC( INITACTIVEX ) but that all

i guess i can´t get Notify Event under HMG while it have nothing like EVENTMAP, or :?:
i have learn to get Windows Message ( WM_* ) Event under HMG but how about Notify Event from ActiveX :idea:
have fun
Jimmy

User avatar
danielmaximiliano
Posts: 2498
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 599 times
Been thanked: 136 times
Contact:

Post by danielmaximiliano »

Hola Jimmy, en VFP hay un manejador de eventos dentro del IDE que maneja eventos de los controles ActiveX, puede leer aqui algo sobre lo que necesita https://docs.microsoft.com/en-us/cpp/mf ... w=msvc-160
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO

User avatar
AUGE_OHR
Posts: 1361
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 257 times
Been thanked: 387 times

Post by AUGE_OHR »

hi,

thx for Answer.

i have try to use c:\MiniGUI\SOURCE\h_activex.prg from MiniGUI Extended Version, which have the Solution, with HMG.
it also use i_UsrInit.ch but i was not able (yet) to include it into HMG.

i still have to learn how i can enhance HMG ...
have fun
Jimmy

User avatar
AUGE_OHR
Posts: 1361
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 257 times
Been thanked: 387 times

Post by AUGE_OHR »

hi,

i have re-write MiniGUI Extended Version VLC Sample to use under HMG
i also include axvlc.chm so you can look what Method and Property VLC ActiveX have.
HMG_VLC.ZIP
(61.37 KiB) Downloaded 29 times
HMG Version does not support Notify Events so i can´t get Mouse or Keyboard Events "from" VLC ( e.g. Fullscreen - Mode )
VLC_EVENTS.JPG
VLC_EVENTS.JPG (51.91 KiB) Viewed 695 times
---

about Help File and CLASS TVLC

Code: Select all

DATA oControl, oPlayList, oInput, oVideo, oAudio
in Help File look for "IVLC" instead of "o" ( oInput -> IVLCInput )
oControl is Object itself (VLCPlugin2) so you have in CLASS

Code: Select all

oControl:playlist
oControl:input
oControl:video
oControl:audio
Last edited by AUGE_OHR on Wed Apr 28, 2021 11:09 pm, edited 1 time in total.
have fun
Jimmy

chrisjx2002
Posts: 184
Joined: Wed Jan 06, 2010 5:39 pm
Been thanked: 3 times

Post by chrisjx2002 »

Hello,
Very interested by this implementation of VLC in HMG. When compliling it, I got an error message : Can't open DLL.CH. Where can I download it?

User avatar
AUGE_OHR
Posts: 1361
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 257 times
Been thanked: 387 times

Post by AUGE_OHR »

hi,
chrisjx2002 wrote:
Wed Apr 28, 2021 2:40 pm
When compliling it, I got an error message : Can't open DLL.CH. Where can I download it?
i forgot that DLL.CH is Part of c:\hmg.3.4.4\HARBOUR\contrib\hbxpp\dll.ch

it is need for Function _GetShortPathName which use Constant DLL_OSAPI

Code: Select all

#ifndef _DLL_CH
#define _DLL_CH

#define DLL_CDECL                   0x08
#define DLL_STDCALL                 0x20
#define DLL_SYSTEM                  0x04
#if defined( __PLATFORM__WINDOWS )
#define DLL_OSAPI                   DLL_STDCALL
#elif defined( __PLATFORM__OS2 )
#define DLL_OSAPI                   DLL_SYSTEM
#else
#define DLL_OSAPI                   DLL_CDECL
#endif

/* Only for compatiblity.
   Harbour always copies the string to a temporary buffer. */
#define DLL_CALLMODE_COPY           0
#define DLL_CALLMODE_NORMAL         DLL_CALLMODE_COPY

#endif /* _DLL_CH */
have fun
Jimmy

User avatar
danielmaximiliano
Posts: 2498
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 599 times
Been thanked: 136 times
Contact:

Post by danielmaximiliano »

Hola Jimmy :
no existe myplayer.ico y da error
2021-04-28 18_44_07-MyPlayer.png
2021-04-28 18_44_07-MyPlayer.png (26.7 KiB) Viewed 620 times
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO

User avatar
AUGE_OHR
Posts: 1361
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 257 times
Been thanked: 387 times

Post by AUGE_OHR »

hi,
danielmaximiliano wrote:
Wed Apr 28, 2021 9:47 pm
no existe myplayer.ico y da error 2021-04-28 18_44_07-MyPlayer.png
oh, sorry
have upload new HMG_VLC.ZIP which include myplayer.ico and DLL.CH

---
hm ... Error point to Line 282 and say Method does not exit

Code: Select all

282       ::oPlaylist := oControl:playlist
it come from

Code: Select all

   // create VLC object
127   oVlc := TVlc():New( Win1.Activex1.Object )
so i have to ask if VLC is installed :?:

Code: Select all

VLC ActiveX Plugin and IE Web Plugin v2
{9BE31822-FDAD-461B-AD51-BE1D1C159921}
have fun
Jimmy

Post Reply