Page 2 of 4 FirstFirst 1234 LastLast
Results 11 to 20 of 33

Thread: Winamp playlist OSD menu

  1. #11
    Join Date
    Jun 2002
    Posts
    19

    Default

    For whatever reason after making the changes to the vbs file, now all I see are two of the many songs on my playlist. Before, I saw many more, but still not all of them. Oh, why am I such a newbie?!

  2. #12
    Join Date
    Aug 2002
    Location
    Friesland, Nederland
    Posts
    41

    Default

    I converted the VBScript sourcecode to Delphi. Here's the result:

    Code:
    (**********************************************************
    Convert Winamp playlist (M3U) file to OSDMenu definition (INI) file.
    
    Command line arguments:
    "c:\Program Files\Winamp\winamp.m3u" "c:\Program Files\girder32\plugins\osdmenu\winampmenu.ini" [curpos]
    ***********************************************************)
    
    program WaPlay2OSDmenu;
    {$APPTYPE CONSOLE}
    uses
      SysUtils;
    
    var
      linepos: integer;
      istr, ostr: TextFile;
      line: String;
    
    begin
      try
        AssignFile(istr, ParamStr(1));
        Reset(istr);
        Readln(istr); // Skip header line
        AssignFile(ostr, ParamStr(2));
        Rewrite(ostr);
    
        // Header info
        Writeln(ostr, '[visual]');
        Writeln(ostr, 'wnd_size=fit2text');
        Writeln(ostr, 'startpos=' + ParamStr(3));
        Writeln(ostr, 'itemsperscreen=15');
        Writeln(ostr, '');
        Writeln(ostr, '[main]');
    
        // One item line per playlist entry
        linepos := 0;
        line := '';
        while not Eof(istr) do
        begin
          Readln(istr, line);
          Readln(istr); // Skip filename
          if Copy(line, 0, 8) = '#EXTINF:' then
            line := Copy(line, Pos(',', line)+1, Length(line)-1);
          Writeln(ostr, line + '=#18#waplay#' + IntToStr(linepos));
          Inc(linepos);
        end;
      finally
        CloseFile(istr);
        CloseFile(ostr);
      end;
    end.

  3. #13
    Join Date
    May 2003
    Posts
    2

    Default

    2 MMcM

    Hello!
    I didn't understand how can I get variable with track number?

  4. #14
    Join Date
    Feb 2002
    Location
    Sweden, Falun
    Posts
    65

    Default

    Its so fucking gooooood
    I love it


    First when I read this thread I couldnt fing the zip MMcM was talkning about. Then I remembered that attachments were disabled, but these uploads exists anyway, so here is the link to the zip for those who cant find the zip
    http://www.girder.nl/filesbb/files/162_1025460760.zip

  5. #15
    Join Date
    May 2003
    Posts
    2

    Default

    2 nulleman

    Thanks man!

  6. #16
    Join Date
    Apr 2003
    Location
    UK
    Posts
    4

    Default

    Well, i have got the OSD menu and everything working fine.

    However, what part of winamp3 should i be targetting for the play menu stuff?

    Ta

    N.[/quote]

  7. #17
    Join Date
    May 2003
    Posts
    25

    Default

    Hey thanks for the great files, I have one question though. Is it possible to use this same kind of structure but instead have the contents of a directory be read, then execute a chosen file? That would be a great way to select playlists from a directory for Winamp. I guess a vbs script that could be used to scan a directory then output it to a text file, then have OSD menu open the text file and execute the selected file. I would do it myself, but I don't know anything about vbs or programming.

  8. #18
    Join Date
    Jul 2003
    Location
    QLD Australia
    Posts
    16

    Default

    the command to scroll the screen: itemsperscreen {} Set this value to enable scrolling. If itemsperscreen is smaller than the number of items in the menu it will create a scrolling menu.

  9. #19
    Join Date
    Sep 2003
    Location
    NRW/Germany
    Posts
    4

    Default error

    hi,

    i downloaded the zip-file with the plugin and followed the instructions to get it started.
    i also change the paths of the programs.
    by testing the command i get an error message:
    i'll try to translate it, 'cause i'm german.

    Code:
    Script:   D:\Girder 3.2\plugins\osdmenu\m3u2osdmenu.vbs
    Line:     17
    Sign(?):  1
    Error:    Index out of valid area (/range)
    Code:     800A0009
    Source:   Runtime error in Mircosoft VBScript

    what does that mean?

  10. #20
    Join Date
    Mar 2003
    Location
    Corvallis, OR
    Posts
    40

    Default

    I'm getting the same message as laureus. It seems to be having a problem with the line:

    ostr.WriteLine "wnd_size=fit2text"

    Although with VB it could mean there was a problem earlier. I don't know enough about what's going on to troubleshoot... Any advice?
    Luke M.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •