Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Взаимодействуем с Winamp


Воротник из шкурки свежезабитого WinAmp'a.

О пользе плагинов и спорить не приходиться. Потому многие крупные разработчики программного обеспечения предусматривают в своих творениях поддержку модулей, написанных другими людьми. Так поступила и компания Nullsoft, создатель известного компьютерного плеера - Winamp. Для непосредственного обращения к плееру были созданы специальные функции - WinampApi.

Алгоритм взаимодействия таков:

  1. Находим Handle окна Winamp'a. (можно так - findwindow('Winamp v1.x',nil) )
  2. С помощью команды Sendmessage, посылаем окну сообщение вида WM_COMMAND или WM_USER c определёнными параметрами (см. Приложение)

Итак, напишем, например, процедуру для проигрывания заданного трека с заданной громкостью. В дальнейшем, её можно будет использовать в плагине или в программе, работающей совместно с Winamp.


procedure play_track_with_volume(track_number:integer;volume:integer);
// Track_number - номер трека (от 1 до величины количества треков)
// Volume - громкость (от 0 до 255)
var
  h: hwnd;
begin
  h:=findwindow('Winamp v1.x',g>nil); // Находим окно
  sendmessage(h,WM_USER,track_number-1,121); // Устанавливаем номер трека
  sendmessage(h,WM_USER,volume,122); // Устанавливаем громкость
  sendmessage(h,WM_COMMAND,40045,0); // Проигрываем трек
end;

Приложение:

Параметры сообщений и их функции. (Взято с официального сайта):

WM_COMMAND Messages

 

Previous track button

40044

 

Next track button

40048

 

Play button

40045

 

Pause/Unpause button

40046

 

Stop button

40047

 

Fadeout and stop

40147

 

Stop after current track

40157

 

Fast-forward 5 seconds

40148

 

Fast-rewind 5 seconds

40144

 

Start of playlist

40154

 

Go to end of playlist

40158

 

Open file dialog

40029

 

Open URL dialog

40155

 

Open file info box

40188

 

Set time display mode to elapsed

40037

 

Set time display mode to remaining

40038

 

Toggle preferences screen

40012

 

Open visualization options

40190

 

Open visualization plug-in options

40191

 

Execute current visualization plug-in

40192

 

Toggle about box

40041

 

Toggle title Autoscrolling

40189

 

Toggle always on top

40019

 

Toggle Windowshade

40064

 

Toggle Playlist Windowshade

40266

 

Toggle doublesize mode

40165

 

Toggle EQ

40036

 

Toggle playlist editor

40040

 

Toggle main window visible

40258

 

Toggle minibrowser

40298

 

Toggle easymove

40186

 

Raise volume by 1%

40058

 

Lower volume by 1%

40059

 

Toggle repeat

40022

 

Toggle shuffle

40023

 

Open jump to time dialog

40193

 

Open jump to file dialog

40194

 

Open skin selector

40219

 

Configure current visualization plug-in

40221

 

Reload the current skin

40291

 

Close Winamp

40001

 

Moves back 10 tracks in playlist

40197

 

Show the edit bookmarks

40320

 

Adds current track as a bookmark

40321

 

Play audio CD

40323

 

Load a preset from EQ

40253

 

Save a preset to EQF

40254

 

Opens load presets dialog

40172

 

Opens auto-load presets dialog

40173

 

Load default preset

40174

 

Opens save preset dialog

40175

 

Opens auto-load save preset

40176

 

Opens delete preset dialog

40178

 

Opens delete an auto load preset dialog

40180

WM_USER Messages

0

Retrieves the version of Winamp running. Version will be 0x20yx for 2.yx. This is a good way to determine if you did in fact find the right window, etc.

100

Starts playback. A lot like hitting 'play' in Winamp, but not exactly the same

101

Clears Winamp's internal playlist.

102

Begins play of selected track.

103

Makes Winamp change to the directory C:\\download

104

Returns the status of playback. If 'ret' is 1, Winamp is playing. If 'ret' is 3, Winamp is paused. Otherwise, playback is stopped.

105

If data is 0, returns the position in milliseconds of playback. If data is 1, returns current track length in seconds. Returns -1 if not playing or if an error occurs.

106

Seeks within the current track. The offset is specified in 'data', in milliseconds.

120

Writes out the current playlist to Winampdir\winamp.m3u, and returns the current position in the playlist.

121

Sets the playlist position to the position specified in tracks in 'data'.

122

Sets the volume to 'data', which can be between 0 (silent) and 255 (maximum).

123

Sets the panning to 'data', which can be between 0 (all left) and 255 (all right).

124

Returns length of the current playlist, in tracks.

125

Returns the position in the current playlist, in tracks (requires Winamp 2.05+).

126

Retrieves info about the current playing track. Returns samplerate (i.e. 44100) if 'data' is set to 0, bitrate if 'data' is set to 1, and number of channels if 'data' is set to 2. (requires Winamp 2.05+)

127

Retrieves one element of equalizer data, based on what 'data' is set to. 0-9 The 10 bands of EQ data. Will return 0-63 (+20db - -20db) 10 The preamp value. Will return 0-63 (+20db - -20db) 11 Enabled. Will return zero if disabled, nonzero if enabled.

128

Autoload. Will return zero if disabled, nonzero if enabled. To set an element of equalizer data, simply query which item you wish to set using the message above (127), then call this message with data

129

Adds the specified file to the Winamp bookmark list

135

Restarts Winamp

200

Sets the current skin. 'data' points to a string that describes what skin to load, which can either be a directory or a .zip file. If no directory name is specified, the default Winamp skin directory is assumed.

201

Retrieves the current skin directory and/or name. 'ret' is a pointer to the Skin name (or NULL if error), and if 'data' is non-NULL, it must point to a string 260 bytes long, which will receive the pathname to where the skin bitmaps are stored (which can be either a skin directory, or a temporary directory when zipped skins are used) (Requires Winamp 2.04+).

202

Selects and executes a visualization plug-in. 'data' points to a string which defines which plug-in to execute. The string can be in the following formats: vis_whatever.dll Executes the default module in vis_whatever.dll in your plug-ins directory. vis_whatever.dll,1 executes the second module in vis_whatever.dll C:\path\vis_whatever.dll,1 executes the second module in vis_whatever.dll in another directory

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.

241

Opens an new URL in the minibrowser. If the URL is NULL it will open the Minibrowser window

242

Returns 1 if the internet connecton is available for Winamp

243

Asks Winamp to update the information about the current title

245

Sets the current playlist item

246

Retrives the current Minibrowser URL into the buffer.

247

Flushes the playlist cache buffer

248

Blocks the Minibrowser from updates if value is set to 1

249

Opens an new URL in the minibrowser (like 241) except that it will work even if 248 is set to 1

250

Returns the status of the shuffle option (1 if set)

251

Returns the status of the repeat option (1 if set)

252

Sets the status of the suffle option (1 to turn it on)

253

Sets the status of the repeat option (1 to turn it on)

Приятного Вам прослушивания музыки !!!

Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.