Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[KingSparta]

How in the ____ do you get The Following To Work

IsRegistered()

SaveToTag()

[Cephlen]

Ok, here is the first one...

MediaJukebox.MJAutomation
number IsPurchased()  (added in v8.0.354)


On your control, you should have a public variable equal to MediaJukebox.MJAutomation.  The Busy Box sample gives this example that I will use:

Dim g_MJ As MediaJukebox.MJAutomation


Ok.. now, create a button, and call it cmdPurchased.
Double click on the newly created & renamed button,
and type the following into the event code:

MsgBox g_MJ.IsPurchased

Now run it and you should see what it says.  Mine says 22.

Depending on what you want to do....

Purchase=g_MJ.IsPurchased

If Purchase = -1 then
 'mj has been purchased
ElseIf Purchase =0 then
 'mj has expired, not purchased
Else
 'mj has not yet been purchased, the
 'value of purchase is the days remaining.
end if

[Cephlen]

boolean SaveToTag()   (added in v8.0.354)

Description: Forces Media Jukebox to save the file information to the tag.
Return Value: 0 - failed, 1 - success.



oh, cool...  down a bit below this is a list of properties...
I will pick just a couple..
string Artist() (read / write)
Description: the artist (i.e. "Metallica")
string Album() (read / write)
Description: the album (i.e. "ReLoad")

Metallica?  YUCK!  lets rename that artist to something a lot nicer..

(using my g_mj code from before...)

   Dim Error As Boolean
   Dim MJf As MediaJukebox.MJFileAutomation
   MJf = g_MJ.GetFile("c:\FileName\whatever.mp3")
   MJf.Artist = "The Doors"
   MJf.Album = "Anything BUT Metallica"
   Error = MJf.SaveToTag
   If Error Then
       'an error occured
   Else
       'no error occured
   End If

I didnt test this, but it should be ok if not really close...

[Cephlen]

What are you making anyway?  Cant be anything half as usefull as my worthless plugins

[KingSparta]

Just got back home, I went out for a spell

This is what I am making

http://home.nc.rr.com/mycddblookup/index.html

I currently have it working, I would like away around MJ taking my delete key and backspace from me so i can edit Textboxes on the main form however.


thanks for the samples i think i got it, i already got the IsRegistered working.

[KingSparta]

Thank You!

And here it is


Private Sub MySaveTags_Click()
   
Dim PaidUser As Integer
PaidUser = g_MJ.IsPurchased

If PaidUser < 0 Then
   Dim Error As Boolean
   On Error GoTo MyError1
       
       ' get the current playlist object
       Dim MJCurPlaylist As MediaJukebox.MJCurPlaylistAutomation
       Set MJCurPlaylist = g_MJ.GetCurPlaylist
       
       ' get the file
       Dim MJFile As MediaJukebox.MJFileAutomation
           
       ' What File Was That?
       z = List1(0).ListIndex
       
       'Point to the file
       Set MJFile = MJCurPlaylist.GetFile(z)
       
       'Put in  the changes
       MJFile.Name = SongName
       MJFile.Artist = ArtistName
       MJFile.Album = AlbumName
       MJFile.Comment = Comment
       MJFile.Genre = Genre
       MJFile.TrackNumber = TrackNumber
       MJFile.Year = Year
   
   ' Come to papa
   Error = MJFile.SaveToTag
   If Error Then
       MsgBox ("an error occured")
   Else
   'no error occured
   End If
   
   ' on the back stretch
   Else

MsgBox ("This Program Works Free Of Charge For" & vbCr & " Users Who Have Registered Media Jukebox")

End If
   
MyError1:

End Sub

[Cephlen]

LOL.. I love your comments...

'Come to papa
' on the back stretch

[KingSparta]

I try to keep it light.

You should see some of my comments in the source when it is not working correctly.

JimH would delete them from the forum.