Hi leute,
ich hab vorgestern zufällig entdeckt, dass man den VLC Media Player als Objekt einbinden kann oder wie auch immer man da sagt xD
Also hab ich mal eine UDF geschrieben um diese Funktionen auch ordentlich nutzen zu können.
Ist jetzt nicht wirklich etwas Atemberaubendes, da es hauptsächlich Schreibarbeit war, aber vielleicht kann es ja doch einmal wer benutzen
Ein paar Funktionen fehlen noch bzw funktionieren noch nicht (unter anderem Lautstärke regeln, aktuellen Track auslesen, etc -.-)
EDIT1: Ok, ich hab jetzt mal die UDF geupdated(t?), jetzt sollten alle derzeitigen Funktionen korrekt arbeiten!
Man kann damit auch Videos wiedergeben, und ich werd mich später nochmal dransetzen und noch ein paar Video-Funktionen hinzufügen.
EDIT2: Sorry aber es funktioniert bei mir im Moment das AutoIt-Highlighting nicht, jetzt hab ichs in einen ganz normalen Code-Tag gepackt.
Hier die UDF:
Spoiler anzeigen
#include-Once
; #INDEX# =========================================================================================
; Title .........: VLC
; AutoIt Version : 3.3.6.0
; Language ..... : English
; Description ...: Functions to use the VideoLAN VLC ActiveX Plugin
; Author(s) .....: oetzn - autoit.de
; =================================================================================================
; #VARIABLES =====================================================================================
Global Const $CLSID = "{9BE31822-FDAD-461B-AD51-BE1D1C159921}"
Global $oError = _InitComErrFunc()
Global $oVLC
Global $oPlaylist
Global $oAudio
Global $oLog
Global $oInput
; =================================================================================================
; #CURRENT# =======================================================================================
; _VLC_PlayItem
; _VLC_Play_Resume
; _VLC_Stop
; _VLC_ChangeItem
; _VLC_IsPlaying
; _VLC_RemoveItem
; _VLC_TogglePause
; _VLC_AddItem
; _VLC_GetPlayListCount
; _VLC_ClearPlayList
; _VLC_SetMuteState
; _VLC_GetMuteState
; _VLC_ToggleMute
; _VLC_Volume
; _VLC_GetTrack
; _VLC_ChannelState
; _VLC_Obj_Init
; _VLC_AutoPlayState
; _VLC_AutoLoopState
; _VLC_BaseURLState
; _VLC_GetCurVersion
; _VLC_GetPluginInfo
; _VLC_HasVout
; =================================================================================================
; #INTERNAL_USE_ONLY#==============================================================================
; __VLC_PlaylistObj
; __VLC_LogObj
; __VLC_AudioObj
; __VLC_InputObj
; _InitComErrFunc
; _ComErrorObj
; =================================================================================================
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_PlayItem
; Description ...: Plays an item in the Playlist (zero-based index)
; Syntax.........: _VLC_PlayItem(ByRef $oVLC, $iIndex)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; $iIndex - zero-based index of the item in the playlist
; Return values .: Success: 1 (if $oVLC is an object)
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_PlayItem(ByRef $oVLC, $iIndex)
If IsObj($oVLC) Then
$oPlaylist.playitem($iIndex)
Return 1
Else
Return -1
EndIf
EndFunc ;==>_VLC_PlayItem
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_Play_Resume
; Description ...: Plays/resumes the current track
; Syntax.........: _VLC_Play_Resume(ByRef $oVLC)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success: 1 (if $oVLC is an object)
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_Play_Resume(ByRef $oVLC)
If IsObj($oVLC) Then
$oPlaylist.play
Return 1
Else
Return -1
EndIf
EndFunc ;==>_VLC_Play_Resume
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_Stop
; Description ...: Stops the current track
; Syntax.........: _VLC_Stop(ByRef $oVLC)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success: 1 (if $oVLC is an object)
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_Stop(ByRef $oVLC)
If IsObj($oVLC) Then
$oPlaylist.stop
Return 1
Else
Return -1
EndIf
EndFunc ;==>_VLC_Stop
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_ChangeItem
; Description ...: Changes the item which should be played
; Syntax.........: _VLC_ChangeItem(ByRef $oVLC, $bNext = True)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; $bNext (optional) - True = next song will be played, False = previous song will be played
; Return values .: Success: 1 (if $oVLC is an object)
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_ChangeItem(ByRef $oVLC, $bNext = True)
If IsObj($oVLC) Then
Switch $bNext
Case True
$oPlaylist.Next
Return 1
Case False
$oPlaylist.prev
Return 1
EndSwitch
Else
Return -1
EndIf
EndFunc ;==>_VLC_ChangeItem
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_IsPlaying
; Description ...: Returns the current playing state
; Syntax.........: _VLC_IsPlaying(ByRef $oVLC)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success:
; True = Playing
; False = Not Playing
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_IsPlaying(ByRef $oVLC)
If IsObj($oVLC) Then
Return $oPlaylist.isPlaying
Else
Return -1
EndIf
EndFunc ;==>_VLC_IsPlaying
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_RemoveItem
; Description ...: Removes an item from the playlist
; Syntax.........: _VLC_RemoveItem(ByRef $oVLC, $iItem)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; $iItem - zero-based index of the item to remove
; Return values .: Success: 1 (if $oVLC is an object)
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......: DOES NOT STOP THE MUSIC IF LAST ITEM IS REMOVED AND EVEN IF PLAYING ITEM IS REMOVED
; Related .......:
; ===============================================================================================================================
Func _VLC_RemoveItem(ByRef $oVLC, $iItem)
If IsObj($oVLC) And IsInt($iItem) Then
$oPlaylist.removeItem($iItem)
Return 1
Else
Return -1
EndIf
EndFunc ;==>_VLC_RemoveItem
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_TogglePause
; Description ...: Toggles the playing state; paused/playing
; Syntax.........: _VLC_TogglePause(ByRef $oVLC)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success: 1 (if $oVLC is an object)
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_TogglePause(ByRef $oVLC)
If IsObj($oVLC) Then
$oPlaylist.togglePause
Return 1
Else
Return -1
EndIf
EndFunc ;==>_VLC_TogglePause
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_AddItem
; Description ...: Adds an item to the playlist
; Syntax.........: _VLC_AddItem(ByRef $oVLC, $sItem)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; $sItem - Path to the media file
; Return values .: Success: 1 (if $oVLC is an object)
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_AddItem(ByRef $oVLC, $sItem)
If IsObj($oVLC) And IsString($sItem) Then
$oPlaylist.add($sItem)
Return 1
Else
Return -1
EndIf
EndFunc ;==>_VLC_AddItem
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_GetPlayListCount
; Description ...: Returnes the current count of items in playlist
; Syntax.........: _VLC_GetPlayListCount(ByRef $oVLC)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success: 1 (if $oVLC is an object)
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_GetPlayListCount(ByRef $oVLC)
If IsObj($oVLC) Then
Return $oPlaylist.itemCount
Return 1
Else
Return -1
EndIf
EndFunc ;==>_VLC_GetPlayListCount
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_ClearPlayList
; Description ...: Deletes all items from the playlist
; Syntax.........: _VLC_ClearPlayList(ByRef $oVLC)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success: 1 (if $oVLC is an object)
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......: DOES NOT STOP THE MUSIC IF LAST ITEM IS REMOVED AND EVEN IF PLAYING ITEM IS REMOVED
; Related .......:
; ===============================================================================================================================
Func _VLC_ClearPlayList(ByRef $oVLC)
If IsObj($oVLC) Then
$oPlaylist.clear
Return 1
Else
Return -1
EndIf
EndFunc ;==>_VLC_ClearPlayList
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_SetMuteState
; Description ...: Sets the mute state
; Syntax.........: _VLC_ClearPlayList(ByRef $oVLC)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; $bMute - Boolean Variable (True = mute, False = unmute)
; Return values .: Success: 1 (if $oVLC is an object)
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_SetMuteState(ByRef $oVLC, $bMute)
If IsObj($oVLC) And IsBool($bMute) Then
Return $oAudio.mute = $bMute
Else
Return -1
EndIf
EndFunc ;==>_VLC_SetMuteState
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_GetMuteState
; Description ...: Returns the current mute state
; Syntax.........: _VLC_GetMuteState(ByRef $oVLC)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success:
; True = muted
; False = unmuted
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_GetMuteState(ByRef $oVLC)
If IsObj($oVLC) Then
Return $oAudio.mute
Else
Return -1
EndIf
EndFunc ;==>_VLC_GetMuteState
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_ToggleMute
; Description ...: Toggles the mute state
; Syntax.........: _VLC_ToggleMute(ByRef $oVLC)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success: Returns nothing
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_ToggleMute(ByRef $oVLC)
If IsObj($oVLC) Then
Return $oAudio.toggleMute
Else
Return -1
EndIf
EndFunc ;==>_VLC_ToggleMute
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_GetTrackLength
; Description ...: Returns the length of the current track
; Syntax.........: _VLC_GetPlaybackTime(ByRef $oVLC)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success: Returns the length of the current track in millisecounds
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_GetTrackLength(ByRef $oVLC)
If IsObj($oVLC) Then
Return $oInput.Length
Else
Return -1
EndIf
EndFunc ;==>_VLC_GetTrackLength
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_GetPlaybackTime
; Description ...: Returns the playback time of the current track
; Syntax.........: _VLC_GetPlaybackTime(ByRef $oVLC)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success: Returns the playback time of the current track in millisecounds
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:playback time = time since the track has started playing
; Related .......:
; ===============================================================================================================================
Func _VLC_GetPlaybackTime(ByRef $oVLC)
If IsObj($oVLC) Then
Return $oInput.time
Else
Return -1
EndIf
EndFunc ;==>_VLC_GetPlaybackTime
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_Volume
; Description ...: Sets/Gets the volume (Range 0-200)
; Syntax.........: _VLC_Volume(ByRef $oVLC, $iVolume, $bGet = True)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; $iVolume - Integer 0-200
; $bGet - (Optional) Boolean; True: Gets the volume, False: Sets the volume
; Return values .: Success:
; $bGet = True: The current volume
; $bGet = False: If you look for the return value (in a MsgBox) a comparison will be made between the current volume and $iVolume (Return True if the comparison matches and False if the values are different)
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_Volume(ByRef $oVLC, $iVolume, $bGet = True)
If IsObj($oVLC) And IsInt($iVolume) And IsBool($bGet) Then
Switch $bGet
Case True
Return $oAudio.volume
Case False
Return $oAudio.volume = $iVolume
EndSwitch
Else
Return -1
EndIf
EndFunc ;==>_VLC_Volume
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_GetTrack
; Description ...: Returns the current track index
; Syntax.........: _VLC_GetTrack(ByRef $oVLC)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success: Returns the current track
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_GetTrack(ByRef $oVLC)
If IsObj($oVLC) Then
Return $oAudio.track
Else
Return -1
EndIf
EndFunc ;==>_VLC_GetTrack
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_ChannelState
; Description ...: Returns/sets the channel
; Syntax.........: _VLC_ChannelState(ByRef $oVLC, $iChannelID, $iReturnType = "0", $sType = "GET")
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; $iChannelID - If $sType = "SET" Then this parameter indizes which channel should be used (see Remarks)
; $iReturnType - 0 OR 1, switches the return type; 0 returns just the number of the channel, 1 returns a string
; $sType - switches between returning or settings the channel
; Return values .: Success:
; If $sType = "GET" returns the current channel used
; If $sType = "SET" returns nothing
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......: If $sType = "GET" Then the parameter $iChannelID is ignored, if $sType = "SET" Then the parameter $iReturnType is ignored
; $iChannelID can be 1,2,3,4,5; 1 = stereo, 2 = reverse stereo, 3 = left, 4 = right, 5 = dolby
; Related .......:
; ===============================================================================================================================
Func _VLC_ChannelState(ByRef $oVLC, $iChannelID, $iReturnType = "0", $sType = "GET")
If IsObj($oVLC) And IsInt($iChannelID) And IsInt($iReturnType) And IsString($sType) Then
Switch $sType
Case "GET"
Switch $iReturnType
Case 0
Return $oAudio.channel
Case 1
Switch $oAudio.channel
Case 1
Return "stereo"
Case 2
Return "reverse stereo"
Case 3
Return "left"
Case 4
Return "right"
Case 5
Return "dolby"
EndSwitch
EndSwitch
Case "SET"
Return $oAudio.channel = $iChannelID
Case Else
Return -2
EndSwitch
Else
Return -1
EndIf
EndFunc ;==>_VLC_ChannelState
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_Obj_Init
; Description ...: Creates the VLC Object
; Syntax.........: _VLC_Obj_Init()
; Parameters ....:
; Return values .: Success: Returns the VLC Object and intializes 3 other necessary objects
; Failure: -1 if object could not be created
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_Obj_Init()
$oVLC = ObjCreate("VideoLAN.VLCPlugin.2")
If IsObj($oVLC) Then
$oPlaylist = __VLC_PlaylistObj($oVLC)
$oAudio = __VLC_AudioObj($oVLC)
$oLog = __VLC_LogObj($oVLC)
$oInput = __VLC_InputObj($oVLC)
Return $oVLC
Else
Return -1
EndIf
EndFunc ;==>_VLC_Obj_Init
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_GetCurVersion
; Description ...: Returns the version of the VLC plugin
; Syntax.........: _VLC_GetCurVersion(ByRef $oVLC)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success: Returns the version
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; ===============================================================================================================================
Func _VLC_GetCurVersion(ByRef $oVLC)
If IsObj($oVLC) Then
Return $oVLC.VersionInfo
Else
Return -1
EndIf
EndFunc ;==>_VLC_GetCurVersion
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_GetPluginInfo
; Description ...: Returns information about the plugin
; Syntax.........: _VLC_GetPluginInfo(ByRef $oVLC)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success: Returns an 1D-array containing the information
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......:
; [0] = Name of the dispatch interface being used
; [1] = Description of the (document) Object
; [2] = The ProgID of the Object
; [3] = The DLL file from with the Object was created
; [4] = Filename and position of the toolbox icon
; Related .......:
; ===============================================================================================================================
Func _VLC_GetPluginInfo(ByRef $oVLC)
Local $aInfo[5]
If IsObj($oVLC) Then
For $i = 1 To 5
$aInfo[$i - 1] = ObjName($oVLC, $i)
Next
Return $aInfo
Else
Return -1
EndIf
EndFunc ;==>_VLC_GetPluginInfo
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_AutoPlayState
; Description ...: Sets/Gets the autoplay state
; Syntax.........: _VLC_AutoPlayState(ByRef $oVLC, $bAutoPlay, $sType = "GET")
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success:
; If $sType = "GET" returns True if AutoPlay is enable, false if AutoPlay is disable
; If $sType = "SET" returns nothing
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......: If $sType is "GET the parameter $bAutoPlay is ignored
; Related .......:
; ===============================================================================================================================
Func _VLC_AutoPlayState(ByRef $oVLC, $bAutoPlay, $sType = "GET")
If IsObj($oVLC) And IsBool($bAutoPlay) Then
Switch $sType
Case "GET"
Return $oVLC.AutoPlay
Case "SET"
Return $oVLC.AutoPlay = $bAutoPlay
EndSwitch
Else
Return -1
EndIf
EndFunc ;==>_VLC_AutoPlayState
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_AutoLoopState
; Description ...: Sets/Gets the autoloop state
; Syntax.........: _VLC_AutoLoopState(ByRef $oVLC, $bAutoLoop, $sType = "GET")
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success:
; If $sType = "GET" returns True if Autoloop is enable, false if Autoloop is disable
; If $sType = "SET" returns nothing
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......: If $sType is "GET" the parameter $bAutoLoop is ignored
; Related .......:
; ===============================================================================================================================
Func _VLC_AutoLoopState(ByRef $oVLC, $bAutoLoop, $sType = "GET")
If IsObj($oVLC) And IsBool($bAutoLoop) Then
Switch $sType
Case "GET"
Return $oVLC.AutoLoop
Case "SET"
Return $oVLC.AutoLoop = $bAutoLoop
EndSwitch
Else
Return -1
EndIf
EndFunc ;==>_VLC_AutoLoopState
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_BaseURLState
; Description ...: Sets/Gets the base URL
; Syntax.........: _VLC_BaseURLState(ByRef $oVLC, $sPath, $sType = "GET")
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success:
; If $sType = "GET" returns the BASE URL
; If $sType = "SET" returns True if the current BASE URL is the same as $sPath and False if they are different, but the BASE URL will not be set if you look for the return value.
; If you look for the return value, a comparison will be made.
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......: If $sType is "GET" the parameter $sPath is ignored
; If no BaseURL was set, the function will return an empty string if asking for the BaseURL
; Related .......:
; ===============================================================================================================================
Func _VLC_BaseURLState(ByRef $oVLC, $sPath, $sType = "GET")
If IsObj($oVLC) And IsString($sPath) And IsString($sType) Then
Switch $sType
Case "GET"
Return $oVLC.BaseURL
Case "SET"
Return $oVLC.BaseURL = $sPath
Case Else
Return -2
EndSwitch
Else
Return -1
EndIf
EndFunc ;==>_VLC_BaseURLState
; #FUNCTION# ====================================================================================================================
; Name...........: _VLC_HasVout
; Description ...: Returns whether the current item displays a video
; Syntax.........: _VLC_HasVout(ByRef $oVLC)
; Parameters ....: $oVLC - Object Variable returned by _VLC_Obj_Init
; Return values .: Success: True = Video is displayed by item
; False = No Video is displayed by item
; Failure: -1 (if $oVLC is no object)
;
; Author ........: Thomas Eizinger (oetzn - autoit.de)
; Modified.......:
; Remarks .......: Requires a small Sleep(~500) if called immediately after _VLC_Play_Resume or _VLC_PlayItem, otherwise may return False even if a video is played
; Related .......:
; ===============================================================================================================================
Func _VLC_HasVout(ByRef $oVLC)
If IsObj($oVLC) Then
Return $oInput.hasVout
Else
Return -1
EndIf
EndFunc ;==>_VLC_HasVout
; #INTERNAL_USE_ONLY#==============================================================================
; =================================================================================================
Func __VLC_PlaylistObj(ByRef $oVLC)
If IsObj($oVLC) Then Return $oVLC.playlist
EndFunc ;==>__VLC_PlaylistObj
Func __VLC_LogObj(ByRef $oVLC)
If IsObj($oVLC) Then Return $oVLC.log
EndFunc ;==>__VLC_LogObj
Func __VLC_AudioObj(ByRef $oVLC)
If IsObj($oVLC) Then Return $oVLC.audio
EndFunc ;==>__VLC_AudioObj
Func __VLC_InputObj(ByRef $oVLC)
If IsObj($oVLC) Then Return $oVLC.input
EndFunc ;==>__VLC_InputObj
Func _InitComErrFunc()
Global $g_eventerror = 0
$oError = ObjEvent("AutoIt.Error", "_ComErrorObj")
If IsObj($oError) Then Return $oError
EndFunc ;==>_InitComErrFunc
Func _ComErrorObj()
MsgBox(48, "COM/OBJECT ERROR!", "Errorcode: 0x" & Hex($oError.number, 8) & @CRLF & _
"Error in line: " & $oError.scriptline & @CRLF & _
"Error describition: " & $oError.windescription)
;~ "$oError.lastdllerror: " & $oError.lastdllerror & @CRLF & _
;~ "$oError.description: " & $oError.description & @CRLF & _
;~ "$oError.helpfile: " & $oError.helpfile & @CRLF & _
;~ "$oError.source: " & $oError.source & @CRLF & _
;~ "$oError.helpcontext: " & $oError.helpcontext & @CRLF & _
;~ )
$g_eventerror = 1
EndFunc ;==>_ComErrorObj
; =================================================================================================
; =================================================================================================
Alles anzeigen
Viel Spaß : D