Winamp Playliste auslesen (Erledigt)

[enigma]

Hallo,
ich versuche mit PureBasic die Winamp-Playlist auszulesen. Bei meiner Suche habe ich folgendes gefunden:

Code: Alles auswählen

Procedure Winamp_GetPlaylistTitle()                 
  LastPlayListTitle = PeekS(SendMessage_(hWndWinamp, #WM_USER, (PlLength-1), #WINAMP_IPC_GETPLAYLISTTITLE))
  ProcedureReturn 
EndProcedure

Allerdings bekomme ich nur ein unleserliches Zeichen zurück.
Wenn ich SendMessage_ ohne PeekS aufrufe

Code: Alles auswählen

LastPlayListTitle = SendMessage_(hWndWinamp, #WM_USER, (PlLength-1), #WINAMP_IPC_GETPLAYLISTTITLE)

bekomme ich eine mehrstellige Zahl zurück die mir auch nicht weiter hilft.

Was mache ich falsch???
Hat jemand einen Tip für mich?

Gruß Enigma

[Derren]

Warum postest du keinen lauffähigen Code?

Ich find nicht mal das Winamp Fenster. Hab mit ShoWin den Titel ausgelesen, und FindWindow_() gibt trotzdem null zurück.
Den Wert der Konstante hab ich mir auch ergoogeln müssen.

Und ein Link zu dem ursprünglichen Code den du als Vorlage verwendest wär vielleicht auch nett.


edit: So, hab es jetzt soweit, bekomme aber immer einen IMA oder einen leeren String.

Code: Alles auswählen

EnableExplicit

Define hWndWinamp = FindWindow_("Winamp v1.x",#Null)

#WINAMP_IPC_GETPLAYLISTTITLE = 212

Procedure Winamp_GetPlaylistTitle(hWnd, playListEntry)        
	Protected result.i
	
	result = SendMessage_(hWnd, #WM_USER, playListEntry, #WINAMP_IPC_GETPLAYLISTTITLE)
	
	Debug result ;immer konstant, auch wenn man dne Playlisteintrag verändert
	
	If result				
		Debug MemoryStringLength(result) ;Sogar hier schon ein IMA		
		Debug ">>"+PeekS(result)+"<<" ;IMA
		
	EndIf
	
EndProcedure

Winamp_GetPlaylistTitle(hWndWinamp, 10)

[- chris -]

Code: Alles auswählen

;http://forums.winamp.com/showthread.php?threadid=180297
;http://www.entwickler-ecke.de/topic_wie+kann+man+die+Playlist+von+Winamp+einlesen_48816,0.html

#IPC_GETLISTLENGTH           = 124
#WINAMP_IPC_GETPLAYLISTTITLE = 212

*buffer = AllocateMemory(1024)
If *buffer = 0
  End
EndIf

hWndWinamp = FindWindow_("Winamp v1.x", 0)

If hWndWinamp

  ListLength = SendMessage_(hWndWinamp, #WM_USER, 0, #IPC_GETLISTLENGTH)
  Debug ListLength

  BaseAdress = SendMessage_(hWndWinamp, #WM_USER, 0, #WINAMP_IPC_GETPLAYLISTTITLE)
  Debug BaseAdress

  GetWindowThreadProcessId_(hwndWinamp, @ProcessId)
  Debug ProcessId

  hProcess = OpenProcess_(#PROCESS_ALL_ACCESS, #False, ProcessId)
  Debug hProcess

  ReadProcessMemory_(hProcess, BaseAdress, *buffer, 1024, @NumberOfBytesRead)
  Debug NumberOfBytesRead
  Debug PeekS(*buffer, -1, #PB_Ascii)

  CloseHandle_(hProcess)

EndIf

[enigma]

@ - chris -

besten Dank für deine schnelle Antwort. Genau das habe ich gesucht.
Jetzt muss ich es nur noch verstehen. Werde mir dazu mal deine Links ansehen.

@ Derren

auch dir vielen Dank für deine Mühe.

Gruß
Enigma

[Sicro]

Code: Alles auswählen

[...]hProcess = OpenProcess_(#PROCESS_ALL_ACCESS, #False, ProcessId)

Alle Rechte sind nicht erforderlich, #PROCESS_VM_READ reicht.

[enigma]

@Sicro

Danke, getestet und für gut befunden aber was bringt mir das? Geschwindigkeit? Speicher? ...?

Danke für eine Info

Gruß
Enigma

[NicTheQuick]

Das bringt dir so einiges. Virenscanner meckern nicht oder weniger. Man braucht eventuell keine Adminrechte. Du musst immer auch andere Windows-Systeme in Betracht ziehen.

[enigma]

Aha

Besten Dank
Enigma