Hi!
The error is gone, but still this error.
D:\src\vlc-0.8.6a\test3.au3 (35) : ==> The requested action with this object has failed.:
$item = $PlayListItems.add($file,$name,$options,$itemID)
$item = $PlayListItems.add($file,$name,$options,$itemID)^ ERROR
Changed the script a bit, addtarged is deprecated?
#include <Constants.au3>
$file = "c:\temp\HowTo_Integrate_Addons.avi"
$name = "Howto ?"
Dim $options[1], $itemID
$VLCViewer1 = ObjCreate("VideoLAN.VLCPlugin.2")
If @error Then
MsgBox(0, "Error", "Unable to create VLC object")
Exit
EndIf
$SinkVNCObject = ObjEvent($VLCViewer1, "VLCControl_", "IVLCControl2") ; Assign events to UDFs starting with VLCControl_
$SinkVNCObject = 0 ; Stop IE Events ??VLC ?? from helpfile, it stops autoit from "erroring out"
$AutoLoop = $VLCViewer1.AutoLoop = 1
$AutoPlay = $VLCViewer1.AutoPlay = 0
$options[0] = ":vout-filter=deinterlace"
Enum $VLCPlayListInsert = 1, $VLCPlayListInsertAndGo = 9, $VLCPlayListReplace = 2, $VLCPlayListReplaceAndGo = 10, $VLCPlayListAppend = 4, $VLCPlayListAppendAndGo = 12, $VLCPlayListCheckInsert = 16
$VLC_PlayListObj = $VLCViewer1.playlist ()
;$ok = $VLC_PlayListObj.Stop
$PlayListItems = $VLC_PlayListObj.items ()
$NumbersInPlayList = $PlayListItems.count ()
MsgBox(0, "Number of items in playlist", $NumbersInPlayList)
;[00000293] main playlist debug: adding playlist item `D:\src\vlc-0.8.6a\test3.au3' ( D:\src\vlc-0.8.6a\test3.au3 )
;[00000293] main playlist debug: adding playlist item `/ErrorStdOut' ( /ErrorStdOut )
; I get 2 here...
$PlayListItems.clear ()
;remove script and /ErrStdOut...
$NumbersInPlayList = $PlayListItems.count ()
MsgBox(0, "Number of items in playlist(0)", $NumbersInPlayList)
;$id must be ref...
$item = $PlayListItems.add ($file, $name, $options, $itemID)
; From OLE/COM Object View /or vlc-source
; [helpstring("Add a playlist item.")]
; HRESULT add([in] BSTR uri, [in, optional] VARIANT name, [in, optional] VARIANT options, [out, retval] long* itemId);
; -----------------------------------------------------------------------------------------------^^^^^^^^^^^^^^^^----
; A pointer... in helpfile this is not working...
$NumbersInPlayList = $PlayListItems.count ()
MsgBox(0, "Number of items in playlist ? ", $NumbersInPlayList)
;$PlayListItems.Play()
Func VLCPLayList_Add($uri, $name, $options, $id)
EndFunc ;==>VLCPLayList_Add
