UDF : Media Controls

[Kip]

From MSDN: (all functions for the method: Settings)

ISAVAILABLE

PLAY

STOP

PAUSE

FASTFORWARD

FASTREVERSE

CURRENTPOSITION

CURRENTPOSITIONSTRING

NEXT

PREVIOUS

CURRENTITEM

CURRENTMARKER

PLAYITEM

I have no idea how to use them Edited May 5, 2007 by kip

[Kip]

Or better: ALL FUNCTIONS

[sshrum]

How do you get the SharedUserRating value (according to the MSDN docs this is the user specified rating)? I tried creating a function to pull "wm/SharedUserRating" but it's always empty.

Func WMGetSharedUserRating($sObj)

Return $sObj.GetItemInfo("WM/SharedUserRating")

EndFunc

TIA

[lod3n]

I may be wrong, but I think all of the "WM/" attributes only apply to WMA and other Windows Media filetypes. You might be able to use "Rating" instead.

[sshrum]

I may be wrong, but I think all of the "WM/" attributes only apply to WMA and other Windows Media filetypes. You might be able to use "Rating" instead.

Tried that earlier...returns nothing.

The ratings apply to all media formats Granted most of these are stored within the WM database however, if you have the 'global'/'retain my rating' option enabled in WMP, it will create a ID3 tag in the MP3 file. I just haven't figured out how to extract/write to this tag.

[sshrum]

How about this instead of individual property functions:

Func WMGet($sObj, $sAttrib)
    Return $sObj.GetItemInfo($sAttrib)
EndFunc

You can call it this way:

Func _RetrieveMeta($sObj)
    ConsoleWrite("(_RetrieveMeta) Retrieving WMP tags")
    Dim $aMeta[2][$aWMPTags[0]+1]
    $aMeta[0][0] = 1
;~  $sMsg = ""
    for $i = 1 to $aWMPTags[0]
        ConsoleWrite(".")
        $aMeta[1][$i] = WMGet($sObj, $aWMPTags[$i])
;~      $sMsg &= $i & " - " & $aWMPTags[$i] & ": " & $aMeta[1][$i] & @CRLF
    Next
;~  msgbox(0,$sAppTitle,$sMsg)
    ConsoleWrite("done" & @CRLF)
    return $aMeta
EndFunc

Main script will look like this:

$aWMPTags = StringSplit("AcquisitionTime,AlbumID,AlbumIDAlbumArtist,Author,AverageLevel,Bitrate,BuyNow,BuyTickets,Copyrig
ht,CurrentBitrate,Duration,FileSize,FileType,Is_Protected,IsVBR,MediaType,MoreInfo,PeakValue,Provide
rLogoURL,ProviderURL,RecordingTime,ReleaseDate,RequestState,SourceURL,SyncState,Title,TrackingID,Use
rCustom1,UserCustom2,UserEffectiveRating,UserLastPlayedTime,UserPlayCount,UserPlaycountAfternoon,Use
rPlaycountEvening,UserPlaycountMorning,UserPlaycountNight,UserPlaycountWeekday,UserPlaycountWeekend,
UserRating,UserServiceRating,WM/AlbumArtist,WM/AlbumTitle,WM/Category,WM/Composer,WM/Conductor,WM/ContentDistributor,WM/ContentGroupDescription,WM/EncodingTime,WM/Genre,WM/GenreID,WM/InitialKey,WM/Language,WM/Lyrics,WM/MCDI,WM/MediaClassPrimaryID,WM/MediaClassSecondaryID,WM/Mood,WM/ParentalRating,WM/Period,WM/ProtectionType,WM/Provider,WM/ProviderRating,WM/ProviderStyle,WM/Publisher,WM/SubscriptionContentID,WM/SubTitle,WM/TrackNumber,WM/UniqueFileIdentifier,WM/WMCollectionGroupID,WM/WMCollectionID,WM/WMContentID,WM/Writer,WM/Year", ",")

$sObj = WMOpenFile($sFilename)
$aMeta = _RetrieveMeta($sObj)

Works for me.

Edited June 5, 2007 by sshrum

[sshrum]

How about a WMSet...so we can adjust the values in the files! Something like this (I already know it doesn't work...but you get the idea):

Func WMSet($sObj, $sAttrib, $sValue)
    if wmget($sObj, "Is_Protected") = "false" then $sObj.SetItemInfo($sAttrib, $sValue)
EndFunc

I just don't know how to get the setiteminfo to work.

[lod3n]

@sshrum

According to:

http://msdn2.microsoft.com/en-us/library/bb262748.aspx

SetItemInfo: "If you embed the Windows Media Player control in your application, file attributes that you change will not be written to the digital media file until the user runs Windows Media Player."

Perhaps if Windows Media Player (the program, not the object) is also running, perhaps minimized, the info can be set/read in real time? Just a theory. Good luck with your project, it sounds interesting.

[fong1sky]

If I want to get the current playing item info in WMP. But not the script ask to open a specific file(just like the Active WinAMP UDF). how can i do?

And can I get the current play time and seek time to play?

Thanks

[lod3n]

Like, attach to a Media Player application window, and query to find out what's currently playing? I don't think you can do that no. It would be nice though. You can do that with an IE window using _IEAttach, but that uses some dark magic which I don't think can be applied here. (at least, not casually...)

[fong1sky]

Like, attach to a Media Player application window, and query to find out what's currently playing? I don't think you can do that no. It would be nice though. You can do that with an IE window using _IEAttach, but that uses some dark magic which I don't think can be applied here. (at least, not casually...)

Thanks for your reply.

I'm interested how to use _IEAttach, to do something like that can you tell me more about this?

[fong1sky]

Or how can I modify this script to make WMP window appear? So it look like using WMP to play media usually.

Thanks

[lod3n]

You can use the openPlayer method on the player object, but I think you lose your ability to control it, which is stupid. Hopefully I'm wrong about that.

[gsb]

Using this approach (BTW very nice UDF there CFire) is there a way to build a dynamic "spectrum analyzer" ...equalizer?

Are the hooks accessible in the Windows Media Player Com Object to do such?

Thanks,

gsb

[RazerM]

Nice UDFs although it is limited in that only one sound file may be opened at once.

[Iuli]

I get an error when i play the media for the first time. This is what i get : "Exception Processing Message 0xc000007b Parameters 0x762E023C 0x762E023C 0x762E023C". Personally, i dunno why i get this error. I checked the functions again and agian and nothing. Anyway, i would greatly apreciate some help. I also specify that i Use Windows Vista, so WMP 11