1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
library testdll;
uses m_api, Windows,common;
{$include m_helpers.inc}
{$include m_music.inc}
const
PluginInfo:TPLUGININFOEX=(
cbSize :sizeof(TPLUGININFOEX);
shortName :'Plugin Template';
version :$00000001;
description:'The long description of your plugin, to go in the plugin options dialog';
author :'J. Random Hacker';
copyright :'(c) 2003 J. Random Hacker';
homepage :'http://miranda-icq.sourceforge.net/';
flags :UNICODE_AWARE;
uuid:'{00000000-0000-0000-0000-000000000000}'
);
var
hook:integer;
oldproc:tReadFormatProc;
// -------- format --------
Function mp3proc(var dst:tSongInfo):boolean;cdecl;
begin
{
MP3 Handler here
}
//messagebox(0,'ok','',0);
// Example for old handler
if (int(@oldproc)<>WAT_RES_OK) and (int(@oldproc)<>WAT_RES_ERROR) then
result:=oldproc(dst)
else
result:=true;
end;
// ---------- Player ----------
var
plwnd:HWND;
function Check(flags:integer):HWND;cdecl;
begin
result:=1;
plwnd:=12;
end;
function GetFileName:pWideChar;cdecl;
begin
result:=nil;
end;
function GetInfo(var SongInfo:tSongInfo;flags:integer):integer;cdecl;
begin
PluginLink^.CallService(MS_WAT_WINAMPINFO,integer(@SongInfo),flags);
// static player data
if (flags and WAT_OPT_PLAYERDATA)<>0 then
begin
SongInfo.plyver:=$1234;
end
// changing during playing data
else if (flags and WAT_OPT_CHANGES)<>0 then
begin
end
// track info static data
else
begin
end;
result:=0;
end;
function Command(command:integer;value:integer):integer;cdecl;
begin
result:=PluginLink^.CallService(MS_WAT_WINAMPCOMMAND,plwnd,
command+(value shl 16));
end;
function OnWATLoaded(wParam:WPARAM;lParam:LPARAM):int;cdecl;
var
tmp:tMusicFormat;
tmp1:tPlayerCell;
begin
PluginLink^.UnhookEvent(hook);
FillChar(tmp,SizeOf(tMusicFormat),0);
lstrcpy(tmp.ext,'MP3');
tmp.proc:=mp3proc;
oldproc:=tReadFormatProc(PluginLink^.CallService(MS_WAT_FORMAT,
WAT_ACT_REGISTER+WAT_ACT_REPLACE,dword(@tmp)));
FillChar(tmp1,SizeOf(tPlayerCell),0);
tmp1.desc :='Sampler';
tmp1.flags :=0;// WAT_OPT_WINAMPAPI
tmp1.Check :=@Check;
tmp1.GetInfo:=@GetInfo;
tmp1.Command:=@Command;
tmp1.GetName:=@GetFileName;
PluginLink^.CallService(MS_WAT_PLAYER,WAT_ACT_REGISTER+WAT_ACT_REPLACE,dword(@tmp1));
result:=0;
end;
function OnModuleLoaded(wParam:WPARAM;lParam:LPARAM):int;cdecl;
begin
hook:=HookEvent(ME_WAT_MODULELOADED,@OnWATLoaded);
result:=0;
end;
function MirandaPluginInfo(mirandaVersion:dword):PPLUGININFO; cdecl;
begin
result:=@PluginInfo;
PluginInfo.cbSize:=SizeOf(TPLUGININFO);
end;
function MirandaPluginInfoEx(mirandaVersion:dword):PPLUGININFOEX; cdecl;
begin
result:=@PluginInfo;
PluginInfo.cbSize:=SizeOf(TPLUGININFOEX);
end;
function Load(link: PPLUGINLINK): int; cdecl;
begin
PLUGINLINK := pointer(link);
InitMMI;
Result:=0;
hook:=HookEvent(ME_SYSTEM_MODULESLOADED,@OnModuleLoaded);
end;
function Unload: int; cdecl;
begin
Result:=0;
end;
exports
Load, Unload,
MirandaPluginInfoEx;
begin
end.
|
