谢谢Xinglong &
zjlcc,我已经收到邮件.
刚才我找到另一个东西, 作为回报公布给大家.
WINAMP_V.ZIP 35K
作 者 : Denis S. Chanzhiev。
版 本:( 1.0 版,附源码 )
说 明:知名的播放 .MP3 文件的 Winamp Plug-In 介面 vis.h 的 Object Pascal 宣告文件
unit winamp_vis;
// Winamp visualisation library plugin interface for Deplhi
// written by Denis S. Chanzhiev http://denisove.misto.cz
// chaden@mail.cz
// Based on vis.h from NullSoft.
// notes:
// any window that remains in foreground should optimally pass
// keystrokes to the parent (winamp's) window, so that the user
// can still control it. unless escape is hit, or some option
// key specific to the vis is hit. As for storing configuration,
// Configuration data should be stored in <dll directory>/plugin.ini
// Tested with Delphi 4.
interface
uses windows;
type
PwinampVisModule = ^TwinampVisModule;
TwinampVisModule = record
description
Char;
// description of module
hwndParent :HWND;
// parent window (filled in by calling app)
hDllInstance :HINST;
// instance handle to this DLL (filled in by calling app)
sRate :Cardinal;
// sample rate (filled in by calling app)
nCh :Cardinal;
// number of channels (filled in...)
latencyMs :Cardinal;
// latency from call of RenderFrame to actual drawing/
// (calling app looks at this value when getting data)
delayMs :Cardinal;
// delay between calls in ms
// the data is filled in according to the respective Nch entry
spectrumNch :Cardinal;
waveformNch :Cardinal;
spectrumData : Array [1 .. 2,1 .. 576] of Byte;
waveformData : Array [1 .. 2,1 .. 576] of Byte;
Config : function (this_mod
winampVisModule):Cardinal
cdecl;
// configuration dialog
Init : function (this_mod
winampVisModule):Cardinal
cdecl;
// 0 on success, creates window, etc
Render : function (this_mod
winampVisModule):Cardinal
cdecl;
// returns 0 if successful, 1 if vis should end
Quit : function (this_mod
winampVisModule):Cardinal
cdecl;
// call whendo
ne
userData
rocedure;
cdecl;
// user data, optional
end;
TwinampVisHeader = record
version : Cardinal;
description : PChar;
// description of library
getModule : function (A : Cardinal)
winampVisModule;cdecl;
end;
end.