@shagmanx

I can't reproduce your bug. I have tried to use the script without any files selected and it gives a message that you need to select files. I have tried it with files selected and it exports them.

Do you use embedded images or externally linked images? Can you retrace your steps for me. I'd like to solve your problem.

I don't think that anybody has reported it.

Yes from your Nov 1 Post - with file albumart.vbs 10/30/05 .

No hurry.. just thought if any others had same issue.

Shag

Have you tried the november release of WebMonkey? As I'm on vacation I can't yet look into this, but let me know if the november versions works.

I'm having issues with the AlbumArt.vbs . I keep getting an "Error #438 - Microsoft VBScript runtime error Object doesn't support this property or method ; 'albums.SortByArtist' File C:\Program Files\MediaMonkey\Scripts\Albumart.vbs , Line:40, Column 2 "

Any other information needed/missing?? Please let me know.

Shag

[ExportHTMLAlbumsART] 
FileName=AlbumArt.vbs 
ProcName=ExportAlbumArt 
Order=100 
DisplayName=Export Album Art
Description= 
Language=VBScript 
ScriptType=1

' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
' Original script by Jiri
' Modified by Martin Warning
' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 

Option Explicit     ' report undefined variables, ... 

Dim fso
Dim strSaveToDir
Dim intImgWidth

' Change these values to your needs
strSaveToDir = "C:\Albums_files\"
intImgWidth = 200


Sub ExportAlbumArt
  ' initialize export 
  ' Get a list of songs to be exported 
  Dim tracks, albums 
  Set tracks = SDB.CurrentSongList 
 
' Check if user has selected tracks
  Dim res
  If tracks.count = 0 Then
    res = SDB.MessageBox( SDB.Localize("Select tracks to be exported, please."), mtError, Array(mbOk))
    Exit Sub
  End If


  ' Connect to the FileSystemObject 
  Set fso = SDB.Tools.FileSystem 

  ' Use progress to notify user about the current action 
  Dim Progress 
  Set Progress = SDB.Progress 
  Progress.Text = SDB.Localize("Exporting...") 

  Set albums = tracks.albums 
  albums.SortByArtist 

  fso.CreateFolder( strSaveToDir) 

  ' Iterate through the list and export all songs 
  Progress.MaxValue = albums.count 
  Dim i, album, fname, falbum, AAs, AA, image, imagenew, newHeight 
  for i=0 to albums.count-1 
    Set album = albums.Item(i) 

    Set AAs = album.AlbumArt 

    If not AAs is Nothing Then 
      If AAs.Count>0 Then 
        Set AA = AAs.Item(0) 
        Set Image = AA.Image 
        If Not (Image Is Nothing) Then 
          If Image.Width>0 Then 
            newHeight = intImgWidth * Image.Height / Image.Width 
          Else 
            newHeight = 0 
          End If 
          Set ImageNew = Image.ConvertFormat( intImgWidth, newHeight, "image/jpeg", 85, -1) 

          If Not (ImageNew Is Nothing) Then 
            fname = fso.CorrectFilename(album.id) & ".jpg"
            Set falbum = fso.CreateTextFile( strSaveToDir & fname, True) 
             falbum.WriteData ImageNew.ImageData, ImageNew.ImageDataLen 
          End If 
        End If 
      End If 
    End If 

    Progress.Value = i+1 
    if Progress.Terminate then 
      Exit For 
    end if 
  next 

  ' Was it successfull? 
  Dim ok 
  if Progress.Terminate then 
    ok = False 
  else 
    ok = True 
  end if 

  ' hide progress 
  Set Progress = Nothing 
End Sub

This is the script I use to export the album art. It write the images with the album ID which is used by webmonkey.

[b]Add to scripts.ini[/b]
[code]
[ExportHTMLAlbumsART]
FileName=AlbumArt.vbs
ProcName=ExportAlbumArt
Order=100
DisplayName=Export Album Art
Description=
Language=VBScript
ScriptType=1
[/code]

[b]Create AlbumArt.vbs and add[/b]
[code]
' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' Original script by Jiri
' Modified by Martin Warning
' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Option Explicit ' report undefined variables, ...

Dim fso
Dim strSaveToDir
Dim intImgWidth

' Change these values to your needs
strSaveToDir = "C:\Albums_files\"
intImgWidth = 200


Sub ExportAlbumArt
' initialize export
' Get a list of songs to be exported
Dim tracks, albums
Set tracks = SDB.CurrentSongList

' Check if user has selected tracks
Dim res
If tracks.count = 0 Then
res = SDB.MessageBox( SDB.Localize("Select tracks to be exported, please."), mtError, Array(mbOk))
Exit Sub
End If


' Connect to the FileSystemObject
Set fso = SDB.Tools.FileSystem

' Use progress to notify user about the current action
Dim Progress
Set Progress = SDB.Progress
Progress.Text = SDB.Localize("Exporting...")

Set albums = tracks.albums
albums.SortByArtist

fso.CreateFolder( strSaveToDir)

' Iterate through the list and export all songs
Progress.MaxValue = albums.count
Dim i, album, fname, falbum, AAs, AA, image, imagenew, newHeight
for i=0 to albums.count-1
Set album = albums.Item(i)

Set AAs = album.AlbumArt

If not AAs is Nothing Then
If AAs.Count>0 Then
Set AA = AAs.Item(0)
Set Image = AA.Image
If Not (Image Is Nothing) Then
If Image.Width>0 Then
newHeight = intImgWidth * Image.Height / Image.Width
Else
newHeight = 0
End If
Set ImageNew = Image.ConvertFormat( intImgWidth, newHeight, "image/jpeg", 85, -1)

If Not (ImageNew Is Nothing) Then
fname = fso.CorrectFilename(album.id) & ".jpg"
Set falbum = fso.CreateTextFile( strSaveToDir & fname, True)
falbum.WriteData ImageNew.ImageData, ImageNew.ImageDataLen
End If
End If
End If
End If

Progress.Value = i+1
if Progress.Terminate then
Exit For
end if
next

' Was it successfull?
Dim ok
if Progress.Terminate then
ok = False
else
ok = True
end if

' hide progress
Set Progress = Nothing
End Sub
[/code]

I meant the private part about his personal configuration.

Any thoughts, tips, ideas are welcome. I'm looking to improve WebMonkey after the next release and user ideas would be of great help in figuring out what I should work on next.

I also hope that more people can confirm that it works well or not with them. I have had 1 report of a problem, but that was on babywebserver instead of IIS. Unfortunately I haven't been able to solve that one.

Currently I'm wondering if anyone here knows how to comunicate with windows media player and/or realplayer. I need to get access to the current playing playlist.

I prefer the conversation to be public :D . I don't have time to test any of this myself, but I would like to come back to it at some point, so anything you guys say could be helpful.

I would very much like to have an installation script, preferably with a webserver included, but I have no clue how I would go about that.

I'm glad to hear it's working with you. Which features are you using and are you running it on a regular windows or server version?

Use PM if you would like to keep this conversation private.

Yes, i installed it without any problems.
Having enough experience in deploying asp applications and allready having 2 working IIS of my own made it quite easy.
Perhaps you should consider creating an installation script though for ppl that don´t deal with asp or IIS.

@psyxonova, have you been able to install it? If so did you have any problems?

The album art implementation might be an idea for MM. I like the way it is presented. Maybe in MM all columns would need to be availble for individual songs as some people use different years for songs.


PS. It seems that I will be able to include another surprise in the next release of WebMonkey.

Well done Lowlander. A very well made script. Also the addition of album arts make the difference. I realy like.

Keep up!

PS. next version will allow users to export personalized playlists.

[size=150][b]What is WebMonkey [/b][/size]
WebMonkey is a pre-build website that will put your music collection online for others to see. It allows to browse your collection, listen to songs, download songs and view some statistics. You will need a webserver where you can host ASP pages and a MSAccess DB.

It is written in ASP and uses HTML, XHTML, CSS and JavaScript.

[b]WebMonkey website:[/b]
[url=http://lowlander.gotdns.com/webmonkey]WebMonkey support site[/url]

[b]A newer version has been released. Check it out on the [url=http://lowlander.gotdns.com/webmonkey]website[/url][/b]