{$include compilers.inc} {$IFDEF COMPILER_16_UP} {$WEAKLINKRTTI ON} {.$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])} {$ENDIF} {$IMAGEBASE $13000000} library WATrack; uses // FastMM not compatible with FPC, internal for delphi xe // {$IFNDEF COMPILER_16_UP}{$IFNDEF FPC}fastmm4,{$ENDIF}{$ENDIF} m_api,dbsettings,winampapi, Windows,messages,commctrl,//uxtheme, srv_format,srv_player,wat_api,wrapper, common,syswin,HlpDlg,mirutils ,global,waticons,io,macros, msninfo ,myshows in 'myshows\myshows.pas' ,lastfm in 'lastfm\lastfm.pas' ,statlog in 'stat\statlog.pas' ,popups in 'popup\popups.pas' ,proto in 'proto\proto.pas' ,status in 'status\status.pas' ,tmpl in 'status\tmpl.pas' ,templates in 'templates\templates.pas' {$IFDEF KOL_MCK} ,kolframe in 'kolframe\kolframe.pas' {$ENDIF} {$include lst_players.inc} {$include lst_formats.inc} ; {$include res\i_const.inc} {$Resource res\watrack.res} {$include i_vars.inc} const MenuDisablePos = 500050000; function MirandaPluginInfoEx(mirandaVersion:DWORD):PPLUGININFOEX; cdecl; begin result:=@PluginInfo; PluginInfo.cbSize :=SizeOf(TPLUGININFOEX); PluginInfo.shortName :=PluginName; PluginInfo.version :=$0000060C; PluginInfo.description:='Paste played music info into message window or status text'; PluginInfo.author :='Awkward'; PluginInfo.authorEmail:='panda75@bk.ru; awk1975@ya.ru'; PluginInfo.copyright :='(c) 2005-2012 Awkward'; PluginInfo.homepage :='http://code.google.com/p/delphi-miranda-plugins/'; PluginInfo.flags :=UNICODE_AWARE; PluginInfo.uuid :=MIID_WATRACK; end; {$include i_options.inc} {$include i_timer.inc} {$include i_gui.inc} {$include i_opt_dlg.inc} {$include i_cover.inc} function ReturnInfo(enc:WPARAM;cp:LPARAM=CP_ACP):pointer; begin if enc<>WAT_INF_UNICODE then begin ClearSongInfoData(tSongInfo(SongInfoA),true); move(SongInfo,SongInfoA,SizeOf(tSongInfo)); with SongInfoA do begin FastWideToAnsi(SongInfo.url,url); if enc=WAT_INF_ANSI then begin WideToAnsi(SongInfo.artist ,artist ,cp); WideToAnsi(SongInfo.title ,title ,cp); WideToAnsi(SongInfo.album ,album ,cp); WideToAnsi(SongInfo.genre ,genre ,cp); WideToAnsi(SongInfo.comment,comment,cp); WideToAnsi(SongInfo.year ,year ,cp); WideToAnsi(SongInfo.mfile ,mfile ,cp); WideToAnsi(SongInfo.wndtext,wndtext,cp); WideToAnsi(SongInfo.player ,player ,cp); WideToAnsi(SongInfo.txtver ,txtver ,cp); WideToAnsi(SongInfo.lyric ,lyric ,cp); WideToAnsi(SongInfo.cover ,cover ,cp); WideToAnsi(SongInfo.url ,url ,cp); end else begin WideToUTF8(SongInfo.artist ,artist); WideToUTF8(SongInfo.title ,title); WideToUTF8(SongInfo.album ,album); WideToUTF8(SongInfo.genre ,genre); WideToUTF8(SongInfo.comment,comment); WideToUTF8(SongInfo.year ,year); WideToUTF8(SongInfo.mfile ,mfile); WideToUTF8(SongInfo.wndtext,wndtext); WideToUTF8(SongInfo.player ,player); WideToUTF8(SongInfo.txtver ,txtver); WideToUTF8(SongInfo.lyric ,lyric); WideToUTF8(SongInfo.cover ,cover); WideToUTF8(SongInfo.url ,url); end; end; result:=@SongInfoA; end else result:=@SongInfo; end; function WATReturnGlobal(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl; begin if wParam=0 then wParam:=WAT_INF_UNICODE; if lParam=0 then lParam:=MirandaCP; result:=int_ptr(ReturnInfo(wParam,lParam)); end; function WATGetFileInfo(wParam:WPARAM;lParam:LPARAM):int;cdecl; var // si:TSongInfo; dst:pSongInfo; extw:array [0..7] of WideChar; f:THANDLE; p:PWideChar; begin result:=1; if (lParam=0) or (pSongInfo(lParam).mfile=nil) then exit; dst:=pointer(lParam); StrDupW(p,dst^.mfile); ClearTrackInfo(dst^,false); //!!!! dst^.mfile:=p; // FillChar(dst,SizeOf(dst),0); // FillChar(si,SizeOf(si),0); { if flags and WAT_INF_ANSI<>0 then AnsiToWide(dst^.mfile,si.mfile) else if flags and WAT_INF_UTF<>0 then UTFToWide(dst^.mfile,si.mfile) else si.mfile:=dst^.mfile; } f:=Reset(dst^.mfile); if THANDLE(f)<>INVALID_HANDLE_VALUE then GetFileTime(f,nil,nil,@dst^.date); CloseHandle(f); dst^.fsize:=GetFSize(dst^.mfile); GetExt(dst^.mfile,extw); if GetFileFormatInfo(dst^)<>WAT_RES_NOTFOUND then begin with dst^ do begin if (cover=nil) or (cover^=#0) then GetCover(cover,mfile); if (lyric=nil) or (lyric^=#0) then GetLyric(lyric,mfile); end; result:=0; // ReturnInfo(si,dst,wParam and $FF); end; end; function WATGetMusicInfo(wParam:WPARAM;lParam:LPARAM):int;cdecl; type ppointer = ^pointer; const giused:cardinal=0; var flags:cardinal; buf:PWideChar; OldPlayerStatus:integer; stat:integer; newplayer:bool; begin result:=WAT_RES_NOTFOUND; if DisablePlugin=dsPermanent then exit; //----- Return old info if main timer ----- if giused<>0 then begin result:=WAT_RES_OK; if lParam<>0 then ppointer(lParam)^:=ReturnInfo(wParam and $FF); exit; end; giused:=1; OldPlayerStatus:=WorkSI.status; //----- Checking player ----- // get player status too flags:=0; if CheckAll<>BST_UNCHECKED then flags:=flags or WAT_OPT_CHECKALL; // no need old data, clear // ClearPlayerInfo(WorkSI,false); result:=CheckPlayers(WorkSI,flags); if result=WAT_RES_NEWPLAYER then begin newplayer:=true; NotifyEventHooks(hHookWATStatus,WAT_EVENT_NEWPLAYER,tlparam(@WorkSI)); result:=WAT_RES_OK; end else // !!!! (need to add) must remember about same player, another instance newplayer:=false; // Checking player status if result=WAT_RES_OK then begin if not newplayer then //!!cheat SongInfo.plwnd:=WorkSI.plwnd; // player stopped - no need file info if WorkSI.status=WAT_MES_STOPPED then begin ClearFileInfo (WorkSI,false); ClearChangingInfo(WorkSI,false); ClearTrackInfo (WorkSI,false); if Hiword(OldPlayerStatus)<>WAT_MES_STOPPED then begin NotifyEventHooks(hHookWATStatus,WAT_EVENT_PLAYERSTATUS,WAT_MES_STOPPED); end; ClearFileInfo (SongInfo,true); ClearChangingInfo(SongInfo,true); ClearTrackInfo (SongInfo,true); if newplayer then begin ClearPlayerInfo(SongInfo,true); CopyPlayerInfo (WorkSI,SongInfo); end; WorkSI.status:=(WAT_MES_STOPPED shl 16) or (WAT_PLS_NOMUSIC and $FFFF); SongInfo.status:=WorkSI.status; end else begin //----- Get file (no file, new file, maybe new) ----- // file info will be replaced (name most important only) flags:=0; if CheckTime <>BST_UNCHECKED then flags:=flags or WAT_OPT_CHECKTIME; if UseImplant<>BST_UNCHECKED then flags:=flags or WAT_OPT_IMPLANTANT; if MTHCheck <>BST_UNCHECKED then flags:=flags or WAT_OPT_MULTITHREAD; if KeepOld <>BST_UNCHECKED then flags:=flags or WAT_OPT_KEEPOLD; // requirement - old file name result:=CheckFile(WorkSI,flags,TimeoutForThread); // here - place for Playerstatus event // high word - song status (play, pause,stop, nothing) // low word - player status (normal,no music, nothing) case WorkSI.status of WAT_MES_PLAYING, WAT_MES_PAUSED: stat:=WAT_PLS_NORMAL; WAT_MES_UNKNOWN: // depends of file search begin if result=WAT_RES_NOTFOUND then stat:=WAT_PLS_NOMUSIC else stat:=WAT_PLS_NORMAL; end; else // really, this way blocked already {WAT_MES_STOPPED:} stat:=WAT_PLS_NOMUSIC; end; WorkSI.status:=(WorkSI.status shl 16) or (stat and $FFFF); if OldPlayerStatus<>WorkSI.status then begin NotifyEventHooks(hHookWATStatus,WAT_EVENT_PLAYERSTATUS,WorkSI.status); end; // no playing file - clear all file info if stat=WAT_PLS_NOMUSIC then begin ClearFileInfo (WorkSI,false); ClearChangingInfo(WorkSI,false); ClearTrackInfo (WorkSI,false); ClearFileInfo (SongInfo,true); ClearChangingInfo(SongInfo,true); ClearTrackInfo (SongInfo,true); if newplayer then begin ClearPlayerInfo(SongInfo,true); CopyPlayerInfo (WorkSI,SongInfo); end; SongInfo.status:=WorkSI.status; end; // now time for changes (window text, volume) // just when music presents if stat=WAT_PLS_NORMAL then begin GetChangingInfo(WorkSI,flags); // full info requires // "no music" case blocked if (result=WAT_RES_NEWFILE) or // new file ((result=WAT_RES_OK) and // if not new but... (((wParam and WAT_INF_CHANGES)=0) or // ... ask for full info (StrPosW(WorkSI.mfile,'://')<>nil) or // ... or remote file isContainer(WorkSI.mfile))) then // ... or container like CUE begin // requirement: old artist/title for remote files stat:=GetInfo(WorkSI,flags); // covers if (WorkSI.cover=nil) or (WorkSI.cover^=#0) then GetCover(WorkSI.cover,WorkSI.mfile) else begin mGetMem(buf,MAX_PATH*SizeOf(WideChar)); GetTempPathW(MAX_PATH,buf); if StrCmpW(buf,WorkSI.cover,StrLenW(buf))=0 then begin GetExt(WorkSI.cover,StrCatEW(buf,'\wat_cover.')); DeleteFileW(buf); MoveFileW(WorkSI.cover,buf); mFreeMem(WorkSI.cover); WorkSI.cover:=buf; end else mFreeMem(buf); end; // lyric if (WorkSI.lyric=nil) or (WorkSI.lyric^=#0) then GetLyric(WorkSI.lyric,WorkSI.mfile); // file info will be updated anyway, so - just update it if result=WAT_RES_NEWFILE then begin ClearFileInfo(SongInfo,true); CopyFileInfo (WorkSI,SongInfo); end; ClearTrackInfo(SongInfo,true); CopyTrackInfo (WorkSI,SongInfo); if newplayer then begin ClearPlayerInfo(SongInfo,true); CopyPlayerInfo (WorkSI,SongInfo); end; ClearChangingInfo(SongInfo,true); CopyChangingInfo (WorkSI,SongInfo); SongInfo.status:=WorkSI.status; if stat=WAT_RES_NEWFILE then result:=WAT_RES_NEWFILE; if result=WAT_RES_NEWFILE then NotifyEventHooks(hHookWATStatus,WAT_EVENT_NEWTRACK,tlparam(@SongInfo)); end else // just changing infos begin if newplayer then begin ClearPlayerInfo(SongInfo,true); CopyPlayerInfo (WorkSI,SongInfo); end; ClearChangingInfo(SongInfo,true); CopyChangingInfo (WorkSI,SongInfo); SongInfo.status:=WorkSI.status; end; end; end; if lParam<>0 then ppointer(lParam)^:=ReturnInfo(wParam and $FF); end //----- Player not found ----- else begin if OldPlayerStatus<>WorkSI.status then begin ClearSongInfoData(WorkSI,false); // player info must be empty anyway ClearSongInfoData(SongInfo,true); SongInfo.status:=WAT_PLS_NOTFOUND+WAT_MES_UNKNOWN shl 16; NotifyEventHooks(hHookWATStatus,WAT_EVENT_PLAYERSTATUS, WAT_PLS_NOTFOUND+WAT_MES_UNKNOWN shl 16); end; { if OldPlayerStatus<>WorkSI.status then begin NotifyEventHooks(hHookWATStatus,WAT_EVENT_PLAYERSTATUS, WAT_PLS_NOTFOUND+WAT_MES_UNKNOWN shl 16); end; ClearSongInfoData(WorkSI,false); // player info must be empty anyway WorkSI.status:=WAT_PLS_NOTFOUND+WAT_MES_UNKNOWN shl 16; ClearSongInfoData(SongInfo,true); SongInfo.status:=WAT_PLS_NOTFOUND+WAT_MES_UNKNOWN shl 16; } if lParam<>0 then ppointer(lParam)^:=nil; end; giused:=0; end; function PressButton(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl; var flags:integer; begin if DisablePlugin=dsPermanent then result:=0 else begin flags:=0; if UseImplant<>BST_UNCHECKED then flags:=flags or WAT_OPT_IMPLANTANT; if mmkeyemu <>BST_UNCHECKED then flags:=flags or WAT_OPT_APPCOMMAND; if CheckAll <>BST_UNCHECKED then flags:=flags or WAT_OPT_CHECKALL; result:=SendCommand(wParam,lParam,flags); end; end; function WATPluginStatus(wParam:WPARAM;lParam:LPARAM):int;cdecl; var f1:integer; begin if wParam=2 then begin result:=PluginInfo.version; exit; end; if DisablePlugin=dsPermanent then result:=1 else result:=0; if (integer(wParam)<0) or (wParam=MenuDisablePos) then begin if result=0 then wParam:=1 else wParam:=0; end; case wParam of 0: begin if DisablePlugin=dsPermanent then //?? begin StartTimer; DisablePlugin:=dsEnabled; end; f1:=0; end; 1: begin StopTimer; DisablePlugin:=dsPermanent; f1:=CMIF_CHECKED; end; else exit; end; DBWriteByte(0,PluginShort,opt_disable,DisablePlugin); ChangeMenuIcons(f1); NotifyEventHooks(hHookWATStatus,WAT_EVENT_PLUGINSTATUS,DisablePlugin); end; function WaitAllModules(wParam:WPARAM;lParam:LPARAM):int;cdecl; var ptr:pwModule; begin result:=0; CallService(MS_SYSTEM_REMOVEWAIT,wParam,0); ptr:=ModuleLink; while ptr<>nil do begin if @ptr^.Init<>nil then ptr^.ModuleStat:=ptr^.Init(true); ptr:=ptr^.Next; end; if mTimer<>0 then TimerProc(0,0,0,0); StartTimer; NotifyEventHooks(hHookWATLoaded,0,0); CloseHandle(hEvent); end; function OnModulesLoaded(wParam:WPARAM;lParam:LPARAM):int;cdecl; var p:PAnsiChar; begin UnhookEvent(onloadhook); CallService(MS_DBEDIT_REGISTERSINGLEMODULE,twparam(PluginShort),0); hTimer:=0; if RegisterIcons then wsic:=HookEvent(ME_SKIN2_ICONSCHANGED,@IconChanged) else wsic:=0; CreateMenus; if ServiceExists(MS_TTB_ADDBUTTON)<>0 then onloadhook:=HookEvent(ME_TTB_MODULELOADED,@OnTTBLoaded) else ttbState:=0; ProcessFormatLink; ProcessPlayerLink; p:=GetAddonFileName(nil,'player','plugins','ini'); if p<>nil then begin LoadFromFile(p); mFreeMem(p); end; p:=GetAddonFileName(nil,'watrack_icons','icons','dll'); if p<>nil then begin SetPlayerIcons(p); mFreeMem(p); end; IsMultiThread:=true; hEvent:=CreateEvent(nil,true,true,nil); if hEvent<>0 then begin p:='WAT_INIT'; hWATI:=CreateServiceFunction(p,@WaitAllModules); CallService(MS_SYSTEM_WAITONHANDLE,hEvent,tlparam(p)); end; loadopt; if DisablePlugin=dsPermanent then CallService(MS_WAT_PLUGINSTATUS,1,0); StartMSNHook; result:=0; end; procedure FreeVariables; begin ClearSongInfoData(SongInfo ,true); ClearSongInfoData(tSongInfo(SongInfoA),true); ClearSongInfoData(WorkSI ,false); // not necessary really mFreeMem(CoverPaths); ClearFormats; ClearPlayers; end; procedure FreeServices; begin DestroyServiceFunction(hGFI); DestroyServiceFunction(hRGS); DestroyServiceFunction(hWI); DestroyServiceFunction(hGMI); DestroyServiceFunction(hPS); DestroyServiceFunction(hPB); DestroyServiceFunction(hWATI); DestroyServiceFunction(hWC); DestroyServiceFunction(hFMT); DestroyServiceFunction(hPLR); end; function PreShutdown(wParam:WPARAM;lParam:LPARAM):int;cdecl; var buf:array [0..511] of WideChar; fdata:WIN32_FIND_DATAW; fi:THANDLE; p:PWideChar; ptr:pwModule; begin StopMSNHook; NotifyEventHooks(hHookWATStatus,WAT_EVENT_PLAYERSTATUS,WAT_PLS_NOTFOUND); if hwndTooltip<>0 then DestroyWindow(hwndTooltip); if ttbState<>0 then begin if ServiceExists(MS_TTB_REMOVEBUTTON)>0 then CallService(MS_TTB_REMOVEBUTTON,TWPARAM(ttbState),0); ttbState:=0; end; StopTimer; ptr:=ModuleLink; while ptr<>nil do begin if @ptr^.DeInit<>nil then ptr^.DeInit(false); ptr:=ptr^.Next; end; // UnhookEvent(plStatusHook); UnhookEvent(hHookShutdown); UnhookEvent(opthook); if wsic<>0 then UnhookEvent(wsic); FreeServices; FreeVariables; DestroyHookableEvent(hHookWATLoaded); DestroyHookableEvent(hHookWATStatus); //delete cover files buf[0]:=#0; GetTempPathW(511,buf); p:=StrEndW(buf); StrCopyW(p,'wat_cover.*'); fi:=FindFirstFileW(buf,fdata); if fi<>THANDLE(INVALID_HANDLE_VALUE) then begin repeat StrCopyW(p,fdata.cFileName); DeleteFileW(buf); until not FindNextFileW(fi,fdata); FindClose(fi); end; result:=0; end; function Load():int; cdecl; begin result:=0; Langpack_register; DisablePlugin:=dsPermanent; hHookWATLoaded:=CreateHookableEvent(ME_WAT_MODULELOADED); hHookWATStatus:=CreateHookableEvent(ME_WAT_NEWSTATUS); hHookShutdown :=HookEvent(ME_SYSTEM_OKTOEXIT,@PreShutdown); opthook :=HookEvent(ME_OPT_INITIALISE ,@OnOptInitialise); hGFI:=CreateServiceFunction(MS_WAT_GETFILEINFO ,@WATGetFileInfo); hRGS:=CreateServiceFunction(MS_WAT_RETURNGLOBAL ,@WATReturnGlobal); hGMI:=CreateServiceFunction(MS_WAT_GETMUSICINFO ,@WATGetMusicInfo); hPS :=CreateServiceFunction(MS_WAT_PLUGINSTATUS ,@WATPluginStatus); hPB :=CreateServiceFunction(MS_WAT_PRESSBUTTON ,@PressButton); hWI :=CreateServiceFunction(MS_WAT_WINAMPINFO ,@WinampGetInfo); hWC :=CreateServiceFunction(MS_WAT_WINAMPCOMMAND,@WinampCommand); hFMT:=CreateServiceFunction(MS_WAT_FORMAT,@ServiceFormat); hPLR:=CreateServiceFunction(MS_WAT_PLAYER,@ServicePlayer); FillChar(SongInfoA,SizeOf(SongInfoA),0); FillChar(SongInfo ,SizeOf(SongInfo ),0); FillChar(WorkSI ,SizeOf(SongInfo ),0); onloadhook:=HookEvent(ME_SYSTEM_MODULESLOADED,@OnModulesLoaded); end; function Unload:int; cdecl; begin result:=0; end; exports Load, Unload, MirandaPluginInfoEx; begin end.