VLC for HMG

[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

[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/

[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

[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

[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 ...

[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 164 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 (51.91 KiB) Viewed 5530 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

[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?

[AUGE_OHR]

hi,

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 */

[danielmaximiliano]

Hola Jimmy :
no existe myplayer.ico y da error

2021-04-28 18_44_07-MyPlayer.png (26.7 KiB) Viewed 5455 times

[AUGE_OHR]

hi,

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}