Get the path to winamp's current title [Archive]

father of monstermagnet

October 8th, 2004, 08:56 AM

Hello,

i want to get the path (folder) of the current playing title in winamp.

The API doc says this function can only be used from a plugin.

But i'm able to retrieve all info that contains numbers only these two
are not working.

211 Retrieves (and returns a pointer in 'ret') a string that contains the
filename of a playlist entry (indexed by 'data'). Returns NULL if error,
or if 'data' is out of range.
212 Retrieves (and returns a pointer in 'ret') a string that contains the
title of a playlist entry (indexed by 'data'). Returns NULL if error,
or if 'data' is out of range.

When i set the data out of range it returns NULL else it returns only a
number...

Maybe you know a solution.

You need LuaWindowsFunctions Plugin with

LWF.WM_USER = ConvertHextoDecimal ("0400") in LWinFunc Constants.lua (Girder dir)

if you wanna test it.

Or maybe you know an other solution that doesn't
need a winamp plugin like gen_scripting_1004.

Thanks

--int ret=SendMessage(hwndWinamp,WM_USER, data, id);

h = FindWindow("Winamp v1.x",nil)

--125 Returns the position in the current playlist, in tracks

PlPos = SendMessage(h,LWF.WM_USER,0,125)
print (PlPos)

--211 Retrieves (and returns a pointer in 'ret') a string that contains
--the filename of a playlist entry (indexed by 'data').
--Returns NULL if error, or if 'data' is out of range.

--212 Retrieves (and returns a pointer in 'ret') a string that contains
--the title of a playlist entry (indexed by 'data').
--Returns NULL if error, or if 'data' is out of range.

print (SendMessage(h,LWF.WM_USER,PlPos,211))

avid

October 8th, 2004, 09:07 AM

I haven't looked at the WinAmp API, but what you are seeing makes perfect sense.

SendMessage can only send two numbers and get one number back - that's all it can communicate. If you use SendMessage to send to a window *in the same process* (as would happen with a plug-in) then the number *could* be interpreted as an address (e.g. of a string). But sending to or from different processes, such addresses are meaningless. So you can't use SendMessage to receive a string value. [OK - there *is* a way to do it - "global atoms" - but I bet that WinAmp is not using them].

So that's why numbers work and strings don't. Does that make sense?

Brian

Promixis

October 8th, 2004, 09:11 AM

Undocumented in the lua system function plugin.

print (GetWAF("test"))

don't worry about the "test". its a coding error. not this function is not well tested and will crash girder if used inappropriately.

father of monstermagnet

October 8th, 2004, 09:42 AM

Thanks Brian for your explanation, that make sense.

Mike the System plugin command works...very cool i will play and see... :lol:

Have a nice weekend !

father of monstermagnet

October 9th, 2004, 02:06 AM

I can't make girder crash ! :lol:

Mike it's working very stabil, it's possible to run it every second.
I use it to show the album cover of the current winamp song.

As I said before your plugins makes Girder more powerful than ever.

BTW.: Running the IE app with all winamp info has lower CPU rate than
using Winamp plugins.

Promixis

October 9th, 2004, 04:39 AM

Thanks for beta testing it then!

If you a gml with winamp and ieosd, please upload it.

Grin Reaper

October 10th, 2004, 08:57 AM

I can't make girder crash ! :lol:

Mike it's working very stabil, it's possible to run it every second.
I use it to show the album cover of the current winamp song.

As I said before your plugins makes Girder more powerful than ever.

BTW.: Running the IE app with all winamp info has lower CPU rate than
using Winamp plugins.

exactly what i want to do (was having to look to diff applications to try and show album cover for the song i'm playing).

i'd love to see that gml, and what plugins you're using.

father of monstermagnet

October 14th, 2004, 08:16 AM

Maybe one of the worst scripts you have ever seen.

Used to have an animated album cover slideshow.
Put some pics (bmp) into a mp3 folder and play it with winamp,
then run this script with arlarmtimer (500ms).

WinLuaEx, LuaWindowsFunctions 1.4, LuaSystemFunctions 1.4

--Winamp Album Cover Slideshow (Pics in bmp format)

OSDexists = FindWindow(nil,"Titleosd - Microsoft Internet Explorer")
OSDexists1 = FindWindow(nil,"http:// - Titleosd - Microsoft Internet Explorer")
if (OSDexists == 0) and (OSDexists1 == 0)
then
UnloadLuaCom ()
LoadLuaCom ()
r = RegSetStringValue ("HKEY_LOCAL_MACHINE", "Software\\Girder3","slideshow", "slideshow");
if ( r < 0 ) then
print ("Error setting string value")
end
TOSD = luacom.CreateObject("InternetExplorer.Application")
if not TOSD then
return
end

TOSD:Navigate ("about:blank - Microsoft Internet Explorer")
TOSD.Document:WriteLn ("<title>Titleosd</title>")
TOSD.Document:WriteLn ("<body scroll='no' bgcolor='#FFB9DC'>")
--Change path...
TOSD.Document:WriteLn ("<table border='0' cellpadding='0' cellspacing='0'><tr><td id='VU' height=150 width=150> file:///C:/Test/folder.jpg</td></tr></table></body>")
TOSD.Fullscreen = 1
tr = TOSD.document.body:createTextRange ()
TOSD.Height = ( tr:boundingHeight()+tr:offsetTop()*2)
TOSD.Width = (tr:boundingWidth()+tr:offsetLeft()*2)
TOSD.Left = 0 --TOSD.Document.ParentWindow.Screen.AvailWidth - TOSD.Width
TOSD.Top = 0

TIME_Sleep (50) --WinLuaEx plugin

local h,x

h = TOSD.HWND
x = (GetWindowLong(h, -20)) --LuaWindowsfunctions 1.4 plugin
x = band (x,4294705151)
x = bor (x,128)
x= bor (x,768)
SetWindowLong(h, -20, x )

SetWindowOpaque (h,255,185,220)
t,l,b,r = GetWindowRect (h)
f = 4
SetWindowClip (h,f,f,b-t-f,r-l-f)

TOSD.Visible = 1

SetWindowPos (h,LWF.HWND_TOPMOST,0,0,0,0,bor (LWF.SWP_NOSIZE,LWF.SWP_NOMOVE))

TOSD:Refresh()

else

--------------------------------------------------------------------------------

Ft = GetWAF("test") --LuaSystemFunctions 1.4 plugin

function fileparse(fname)
local _, _, drive, path, basename, extension = strfind(fname, "^(%a:)(.-\\+)([^\\]*)(%..*)$")
return drive, path, basename, extension
end

drive, path, basename, extension = fileparse(Ft)
--print (drive)
--print(path)
--print(basename)
--print(extension)

-- print file list
--for i=1, FL["n"] do
-- print(FL[i])
--end

--------------------------------------------------------------------------------

path = gsub (path ,"\\","/")

WshShell = luacom.CreateObject ("WScript.Shell")
x = WshShell:RegRead ("HKEY_LOCAL_MACHINE\\Software\\Girder3\\slideshow")
print (x)
if (path == x) then
return
end

r = RegSetStringValue ("HKEY_LOCAL_MACHINE", "Software\\Girder3","slideshow", path);
if ( r < 0 ) then
print ("Error setting string value")
end

TOSD.document.body:createTextRange ():execCommand("Delete")

TOSD.Document:WriteLn ("<title>Titleosd</title>")
TOSD.Document:WriteLn ("<SCRIPT LANGUAGE='JavaScript'></script><body scroll='no' bgcolor='#FFB9DC'>")
--Change path...
TOSD.Document:WriteLn ("<table border='0' cellpadding='0' cellspacing='0'><tr><td id='VU' height=150 width=150> file:///C:/Test/folder.jpg</td></tr></table></body>")
tr = TOSD.document.body:createTextRange ()

TOSD:Refresh()

return
end

for i=1, FL["n"] do
TOSD.Document:WriteLn ("Pic ["..i.."] = 'file:///"..drive..path..FL[i].."'")
end

TOSD.Document:WriteLn ("var t;")
TOSD.Document:WriteLn ("var j = 1;")
TOSD.Document:WriteLn ("var p = Pic.length;")
TOSD.Document:WriteLn ("var preLoad = new Array();")
TOSD.Document:WriteLn ("for (i = 1; i < p; i++) {")
TOSD.Document:WriteLn ("preLoad[i] = new Image();")
TOSD.Document:WriteLn ("preLoad[i].src = Pic[i];}")
TOSD.Document:WriteLn ("function runSlideShow() {")
TOSD.Document:WriteLn ("if (document.all) {")
TOSD.Document:WriteLn ("document.images.SlideShow.style.filter='revealTran s(duration=2,Transition=23)';")
TOSD.Document:WriteLn ("document.images.SlideShow.style.filter='revealTran s(duration=crossFadeDuration,Transition=23)';")
TOSD.Document:WriteLn ("document.images.SlideShow.filters.revealTrans.Appl y();}")
TOSD.Document:WriteLn ("document.images.SlideShow.src = preLoad[j].src;")
TOSD.Document:WriteLn ("if (document.all) {")
TOSD.Document:WriteLn ("document.images.SlideShow.filters.revealTrans.Play ();}")
TOSD.Document:WriteLn ("j = j + 1;")
TOSD.Document:WriteLn ("if (j > (p - 1)) j = 1;")
TOSD.Document:WriteLn ("t = setTimeout('runSlideShow()', slideShowSpeed);}")
TOSD.Document:WriteLn ("//--></script>")
TOSD.Document:WriteLn ("<body scroll='no' onload='runSlideShow()' bgcolor='#FFB9DC'>")
TOSD.Document:WriteLn ("<table border='0' cellpadding='0' cellspacing='0'><tr><td id='VU' height=150 width=150> file:///"..drive..path..FL[1].."</td></tr></table></body>")

tr = TOSD.document.body:createTextRange ()

TOSD:Refresh()

end

father of monstermagnet

October 15th, 2004, 08:27 AM

Display animated slideshow of jpg's inside albumfolder

1.Run once to create the String

r = RegSetStringValue ("HKEY_LOCAL_MACHINE", "Software\\Girder3","slideshow", "path");

2. Start with winamp

LoadLuaCom ()
ie = luacom.CreateObject( "InternetExplorer.Application" )
ie:navigate( location or "about:blank" )
ie.document:WriteLn ("<body bgcolor='black' scroll='no'>")

ie.fullScreen = 1
ie.Height = 280
ie.Width = 280
ie.Left = 15
ie.Top = 107
while ie.busy == 1 do end

TIME_Sleep (50) --WinLuaEx plugin

local h,x

h = ie.HWND
x = (GetWindowLong(h, -20)) --LuaWindowsfunctions 1.4 plugin
x = band (x,4294705151)
x = bor (x,128)
x= bor (x,768)
SetWindowLong(h, -20, x )

SetWindowOpaque (h,0,0,0)
t,l,b,r = GetWindowRect (h)
f = 4
SetWindowClip (h,f,f,b-t-f,r-l-f)

ie.Visible = 1

SetWindowPos (h,LWF.HWND_TOPMOST,0,0,0,0,bor (LWF.SWP_NOSIZE,LWF.SWP_NOMOVE))

3.Run every second with arlarmtimer

Ft = GetWAF("test") --LuaSystemFunctions 1.4 plugin
r,x = RegGetStringValue("HKEY_LOCAL_MACHINE", "Software\\Girder3","slideshow");

--Manipulate GetWAF String
function fileparse(fname)
local _, _, drive, path, basename, extension = strfind(fname, "^(%a:)(.-\\+)([^\\]*)(%..*)$")
return drive, path, basename, extension
end

drive, path, basename, extension = fileparse(Ft)

if (path == x) then
return
end

r = RegSetStringValue ("HKEY_LOCAL_MACHINE", "Software\\Girder3","slideshow", path);

path = gsub (path ,"\\","/")

ie.document:Write [[

<head><title>Titleosd</title>
<SCRIPT LANGUAGE='JavaScript'></script><body scroll='no' bgcolor='black'>")
--Change path...
ie.document:WriteLn ("<table border='0' cellpadding='0' cellspacing='0'><tr><td id='VU' height=150 width=150> file:///C:/Test/1.jpg</td></tr></table></body>")
ie:refresh()
return
end

for i=1, FL["n"] do
ie.document:WriteLn ("Pic ["..i.."] = 'file:///"..drive..path..FL[i].."'")
end

ie.document:Write [[
var t;
var j = 1;
var p = Pic.length;
var preLoad = new Array();
for (i = 1; i < p; i++) {
preLoad[i] = new Image();
preLoad[i].src = Pic[i];}
function runSlideShow() {
if (document.all) {
document.images.SlideShow.style.filter='revealTran s(duration=2,Transition=23)';
document.images.SlideShow.style.filter='revealTran s(duration=crossFadeDuration,Transition=23)';
document.images.SlideShow.filters.revealTrans.Appl y();}
document.images.SlideShow.src = preLoad[j].src;
if (document.all) {
document.images.SlideShow.filters.revealTrans.Play ();}
j = j + 1;
if (j > (p - 1)) j = 1;
t = setTimeout('runSlideShow()', slideShowSpeed);}
//--></script></head>
<body bgcolor='black' scroll='no' onload="runSlideShow()">
]]
ie.document:WriteLn ("<table border='0' cellpadding='0' cellspacing='0'><tr><td id='VU' height=150 width=150> file:///"..drive..path..FL[1].."</td></tr></table></body>")

ie:refresh ()

Grin Reaper

October 16th, 2004, 10:09 PM

thanks, i'll take a look into that when i get some time on my hands.

father of monstermagnet

October 18th, 2004, 06:14 AM

And another unfinished one

Ft = GetWAF("test") --LuaSystemFunctions 1.4 plugin

function fileparse(fname)
local _, _, drive, path, basename, extension = strfind(fname, "^(%a:)(.-\\+)([^\\]*)(%..*)$")
return drive, path, basename, extension
end

drive, path, basename, extension = fileparse(Ft)

--path = gsub (path ,"\\","/")

basename = gsub (basename," ","")

local infolder = (drive..path.."*.mp3")
local outfile = "c:\\playlist.html"

local playlist = {}
local ret, handle, fd = FindFirstFile(infolder)
if (ret >= 0) then
repeat
if ((fd.Filename ~= ".") and (fd.Filename ~= "..")) then
tinsert(playlist, fd.Filename)
end
ret, fd = FindNextFile(handle)
until (ret == 0)
end
FindClose(handle)

sort(playlist)

-- write playlist table to file
fd = openfile(outfile, "w+")
write (fd, "<HTML><HEAD><TITLE>Listing of:"..drive..path.."</TITLE><STYLE>A{text-decoration:none}a:link{color:white;font-size:18pt;padding:2px;font-family: arial}a:visited{color:blue;font-size:18pt;padding:2px;font-family: arial}body {background-attachment:fixed; font-family: arial;color:white}</STYLE></HEAD><BODY background=file:///C:/HTPC/Background/background1.bmp bgproperties='fixed' ><center><hr><h1>"..path.."</h1>file:///"..drive..path.."folder.jpg</center><hr>
")
for i = 1, getn(playlist) do
write(fd, '<a href="file:///'..drive..path..playlist[i]..'">'..playlist[i]..'
')
end
closefile(fd)

Open with htmlosd (mozilla with enabled mime audio)

Or useless with

if not luacom then
UnloadLuaCom ()
end
LoadLuaCom ()

oIE = luacom_CreateObject("InternetExplorer.Application")

oIE:Navigate("C:\\playlist.html")
oIE.Fullscreen = 1

oIE.Visible = 1

I have fun playing around with the Ft = GetWAF("test") :D