Use COMatePLUS with VideoLAN.VLCPlugin.2

[Zerosurf]

Hi,
how do i set up a Button to control - for example - the play feature for the axvlc.dll?

Code: Select all

XIncludeFile "COMatePLUS.pbi"

Define.COMateObject MediaObject

If OpenWindow(0, #PB_Ignore, #PB_Ignore, 440, 280, "VLC Demo") 
  
  ContainerGadget(0, 0, 0, 440, 240)
  CloseGadgetList()
  ButtonGadget(1, 20, 250, 60, 25, "Run")
  ButtonGadget(2, 90, 250, 60, 25, "Stop")

  MediaObject = COMate_CreateObject("VideoLAN.VLCPlugin.2", GadgetID(0))

  If MediaObject
    MediaObject\Invoke("LoadMovie(#False, 'D:\test.mp4')")

    Repeat
      result = MediaObject\GetIntegerProperty("ReadyState")
    Until Result = 4

    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
          Break
        Case #PB_Event_Gadget
          Select EventGadget()
          Case 1
            MediaObject\Invoke("Play")
            Case 2
              MediaObject\Invoke("Stop")
          EndSelect
      EndSelect
    ForEver
    MediaObject\Release()
  Else
    MessageRequester("VLC Demo", "Couldn't create the ActiveX object!")
  EndIf
EndIf

This is not working!