Awkwars's plugins - welcome to our trunk

git-svn-id: http://svn.miranda-ng.org/main/trunk@1822 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 350 insertions, 0 deletions

diff --git a/plugins/mRadio/mradio.dpr b/plugins/mRadio/mradio.dpr
new file mode 100644
index 0000000000..56c2b7dba9
--- /dev/null
+++ b/plugins/mRadio/mradio.dpr
@@ -0,0 +1,350 @@
+{.$DEFINE CHANGE_NAME_BUFFERED}

+{$include compilers.inc}

+{$IFDEF COMPILER_16_UP}

+  {$WEAKLINKRTTI ON}

+  {.$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}

+{$ENDIF}

+{$IMAGEBASE $13300000}

+library mradio;

+

+uses

+//  FastMM4,

+  {$IFDEF KOL_MCK}kol,icobuttons,KOLCCtrls,{$ENDIF}Windows,messages,commctrl

+  ,common,io,wrapper,wrapdlgs,syswin

+  ,Dynamic_Bass,dynbasswma

+  ,m_api,dbsettings,mirutils,playlist,memini;

+

+{$include mr_rc.inc}

+{$r mradio.res}

+

+{$include i_vars.inc}

+

+const

+  cPluginName = 'mRadio';

+const

+  PluginName:PAnsiChar = cPluginName;

+

+function MakeMessage:pWideChar;

+var

+  p,artist,title:pWideChar;

+  len:cardinal;

+begin

+  artist:=DBReadUnicode(0,PluginName,optArtist);

+  title :=DBReadUnicode(0,PluginName,optTitle);

+  len:=StrLenW(artist);

+  if (artist<>nil) and (title<>nil) then

+    inc(len,3);

+  inc(len,StrLenW(title));

+

+  if len>0 then

+  begin

+    mGetMem(result,(len+1)*SizeOf(WideChar));

+    p:=result;

+    if artist<>nil then

+    begin

+      p:=StrCopyEW(p,artist);

+      if title<>nil then

+        p:=StrCopyEW(p,' - ');

+      mFreeMem(artist);

+    end;

+    if title<>nil then

+    begin

+      StrCopyW(p,title);

+      mFreeMem(title);

+    end;

+  end

+  else

+    result:=nil;

+end;

+

+procedure SetStatus(hContact:THANDLE;status:integer);

+begin

+//  if Status=ID_STATUS_OFFLINE then

+//    MyStopBass;

+

+  if status=ID_STATUS_OFFLINE then

+  begin

+    if (AsOffline=BST_UNCHECKED) or (PluginStatus<>ID_STATUS_OFFLINE) then

+      status:=ID_STATUS_INVISIBLE;

+  end;

+

+  if hContact=0 then

+  begin

+    hContact:=CallService(MS_DB_CONTACT_FINDFIRST,0,0);

+    while hContact<>0 do

+    begin

+      if StrCmp(PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,hContact,0)),PluginName)=0 then

+      begin

+        DBWriteWord(hContact,PluginName,optStatus,status);

+      end;

+      hContact:=CallService(MS_DB_CONTACT_FINDNEXT,hContact,0);

+    end;

+  end

+  else

+    DBWriteWord(hContact,PluginName,optStatus,status);

+end;

+

+{$include i_search.inc}

+{$include i_bass.inc}

+{$include i_cc.inc}

+{$include i_variables.inc}

+{$include i_service.inc}

+{$include i_myservice.inc}

+{$include i_hotkey.inc}

+{$IFDEF KOL_MCK}

+  {$include i_frame.inc}

+{$ELSE}

+  {$include i_frameapi.inc}

+{$ENDIF}

+{$include i_tray.inc}

+{$include i_visual.inc}

+{$include i_optdlg.inc}

+

+function MirandaPluginInfoEx(mirandaVersion:DWORD):PPLUGININFOEX; cdecl;

+begin

+  result:=@PluginInfo;

+  PluginInfo.cbSize     :=SizeOf(TPLUGININFOEX);

+  PluginInfo.shortName  :='mRadio Mod';

+  PluginInfo.version    :=$00000202;

+  PluginInfo.description:='This plugin plays and records Internet radio streams.'+

+                          ' Also local media files can be played.';

+  PluginInfo.author     :='Awkward';

+  PluginInfo.authorEmail:='panda75@bk.ru; awk1975@ya.ru';

+  PluginInfo.copyright  :='(c) 2007-2012 Awkward';

+  PluginInfo.homepage   :='http://code.google.com/p/delphi-miranda-plugins/';

+  PluginInfo.flags      :=UNICODE_AWARE;

+  PluginInfo.uuid       :=MIID_MRADIO;

+end;

+

+function OnModulesLoaded(wParam:WPARAM;lParam:LPARAM):int;cdecl;

+var

+  nlu:TNETLIBUSER;

+  szTemp:array [0..255] of AnsiChar;

+  i:integer;

+begin

+  UnhookEvent(onloadhook);

+

+  DBWriteDWord(0,PluginName,optVersion,PluginInfo.version);

+

+  szTemp[0]:='E';

+  szTemp[1]:='Q';

+  szTemp[2]:='_';

+  szTemp[4]:=#0;

+  for i:=0 to 9 do

+  begin

+    szTemp[3]:=AnsiChar(ORD('0')+i);

+    eq[i].param.fGain:=DBReadByte(0,PluginName,szTemp,15)-15;

+  end;

+  LoadPresets;

+

+  RegisterIcons;

+  CreateMenu;

+  CreateMIMTrayMenu;

+

+  FillChar(nlu,SizeOf(nlu),0);

+  StrCopy(szTemp,Translate('%s server connection'));

+  StrReplace(szTemp,'%s',PluginName);

+  nlu.szDescriptiveName.a:=szTemp;

+  nlu.cbSize             :=SizeOf(nlu);

+  nlu.flags              :=NUF_HTTPCONNS or NUF_NOHTTPSOPTION or NUF_OUTGOING;

+  nlu.szSettingsModule   :=PluginName;

+  hNetLib:=CallService(MS_NETLIB_REGISTERUSER,0,tlparam(@nlu));

+

+//  CallService(MS_RADIO_COMMAND,MRC_RECORD,2); record off - not so necessary

+

+  recpath:=DBReadUnicode(0,PluginName,optRecPath);

+

+  sPreBuf:=DBReadWord(0,PluginName,optPreBuf,75);

+  BASS_SetConfig(BASS_CONFIG_NET_PREBUF,sPreBuf);

+

+  sBuffer:=DBReadWord(0,PluginName,optBuffer,5000);

+  BASS_SetConfig(BASS_CONFIG_NET_BUFFER,sBuffer);

+

+  sTimeout:=DBReadWord(0,PluginName,optTimeout,5000);

+  BASS_SetConfig(BASS_CONFIG_NET_TIMEOUT,sTimeout);

+

+  doLoop    :=DBReadByte(0,PluginName,optLoop);

+  doShuffle :=DBReadByte(0,PluginName,optShuffle);

+  doContRec :=DBReadByte(0,PluginName,optContRec);

+  PlayFirst :=DBReadByte(0,PluginName,optPlayFirst);

+  isEQ_OFF  :=DBReadByte(0,PluginName,optEQ_OFF);

+  AuConnect :=DBReadByte(0,PluginName,optConnect);

+  AuMute    :=DBReadByte(0,PluginName,optAutoMute);

+  AsOffline :=DBReadByte(0,PluginName,optOffline);

+  gVolume   :=DBReadByte(0,PluginName,optVolume,50);

+  NumTries  :=DBReadByte(0,PluginName,optNumTries,1);

+  ForcedMono:=DBReadByte(0,PluginName,optForcedMono);

+  if NumTries<1 then NumTries:=1;

+

+  SetStatus(0,ID_STATUS_OFFLINE);

+  

+  StatusTmpl:=DBReadUnicode(0,PluginName,optStatusTmpl,'%radio_title%');

+

+  CallService(MS_RADIO_COMMAND,MRC_STATUS,RD_STATUS_NOSTATION);

+

+  IsMultiThread:=true;

+

+  RegisterVariables;

+

+  if AuConnect<>BST_UNCHECKED then

+    ActiveContact:=LoadContact(PluginName,optLastStn)

+  else

+    ActiveContact:=0;

+

+  onsetting:=HookEvent(ME_DB_CONTACT_SETTINGCHANGED,@OnSettingsChanged);

+  ondelete :=HookEvent(ME_DB_CONTACT_DELETED       ,@OnContactDeleted);

+  randomize;

+  CreateFrame(0);

+

+  RegisterHotKey;

+

+  result:=0;

+end;

+

+function PreShutdown(wParam:WPARAM;lParam:LPARAM):int;cdecl;

+{

+var

+  buf:array [0..MAX_PATH-1] of AnsiChar;

+  fdata:WIN32_FIND_DATAA;

+  p:pAnsiChar;

+  fi:THANDLE;

+}

+begin

+  RemoveTrayItems;

+

+  CallService(MS_RADIO_COMMAND,MRC_STOP,1);

+  UnregisterHotKey;

+

+  DestroyProtoServices;

+  DestroyWindow(hiddenwindow);

+  DestroyFrame();

+  MyFreeBASS;

+  DBWriteByte(0,PluginName,optVolume,gVolume);

+

+  DestroyServiceFunction(hsTrayMenu);

+  DestroyServiceFunction(hsPlayStop);

+  DestroyServiceFunction(hsRecord);

+  DestroyServiceFunction(hsSettings);

+  DestroyServiceFunction(hsSetVol);

+  DestroyServiceFunction(hsGetVol);

+  DestroyServiceFunction(hsMute);

+  DestroyServiceFunction(hsCommand);

+  DestroyServiceFunction(hsEqOnOff);

+

+  DestroyServiceFunction(hsExport);

+  DestroyServiceFunction(hsImport);

+

+  DestroyHookableEvent(hhRadioStatus);

+

+  UnhookEvent(onsetting);

+  UnhookEvent(ondelete);

+  UnhookEvent(hHookShutdown);

+  UnhookEvent(hDblClick);

+  UnhookEvent(opthook);

+  UnhookEvent(contexthook);

+

+  CallService(MS_NETLIB_CLOSEHANDLE,hNetLib,0);

+  mFreeMem(storage);

+  mFreeMem(storagep);

+  mFreeMem(recpath);

+  mFreeMem(StatusTmpl);

+  mFreeMem(basspath);

+  FreePresets;

+{

+  //delete cover files

+  buf[0]:=#0;

+  GetTempPathA(MAX_PATH,buf);

+  p:=StrEnd(buf);

+  StrCopy(p,'mrAvt*.*');

+

+  fi:=FindFirstFileA(buf,fdata);

+  if fi<>THANDLE(INVALID_HANDLE_VALUE) then

+  begin

+    repeat

+      StrCopy(p,fdata.cFileName);

+      DeleteFileA(buf);

+    until not FindNextFileA(fi,fdata);

+    FindClose(fi);

+  end;

+}

+  result:=0;

+end;

+

+function Load(): int; cdecl;

+var

+  desc:TPROTOCOLDESCRIPTOR;

+  szTemp:array [0..MAX_PATH-1] of WideChar;

+  pc:pWideChar;

+  custom:pWideChar;

+begin

+  Langpack_register;

+

+  GetModuleFileNameW(0,szTemp,MAX_PATH-1);

+  pc:=StrEndW(szTemp);

+  repeat

+    dec(pc);

+  until pc^='\';

+  inc(pc);

+  pc^:=#0;

+

+  custom:=DBReadUnicode(0,PluginName,optBASSPath,nil);

+

+  if MyLoadBASS(szTemp,custom) then

+  begin

+    StrCopyW(pc,'plugins\mradio.ini');

+//    StrDup(storage,szTemp);

+    FastWideToAnsi(szTemp,storage);

+    mGetMem(storagep,MAX_PATH+32);

+    CallService(MS_DB_GETPROFILEPATH,MAX_PATH-1,lparam(storagep));

+    StrCat(storagep,'\mradio.ini');

+

+    FillChar(desc,SizeOf(desc),0);

+    desc.cbSize:=PROTOCOLDESCRIPTOR_V3_SIZE;//SizeOf(desc);

+    desc.szName:=PluginName;

+    desc._type :=PROTOTYPE_PROTOCOL;

+    CallService(MS_PROTO_REGISTERMODULE,0,lparam(@desc));

+

+    hhRadioStatus:=CreateHookableEvent(ME_RADIO_STATUS);

+

+    hsPlayStop:=CreateServiceFunction(MS_RADIO_PLAYSTOP,@Service_RadioPlayStop);

+    hsRecord  :=CreateServiceFunction(MS_RADIO_RECORD  ,@Service_RadioRecord);

+    hsSettings:=CreateServiceFunction(MS_RADIO_SETTINGS,@Service_RadioSettings);

+    hsSetVol  :=CreateServiceFunction(MS_RADIO_SETVOL  ,@Service_RadioSetVolume);

+    hsGetVol  :=CreateServiceFunction(MS_RADIO_GETVOL  ,@Service_RadioGetVolume);

+    hsMute    :=CreateServiceFunction(MS_RADIO_MUTE    ,@Service_RadioMute);

+    hsCommand :=CreateServiceFunction(MS_RADIO_COMMAND ,@ControlCenter);

+    hsEqOnOff :=CreateServiceFunction(MS_RADIO_EQONOFF ,@Service_EqOnOff);

+

+    hiddenwindow:=CreateHiddenWindow;

+    hsTrayMenu:=CreateServiceFunction(MS_RADIO_TRAYMENU,@CreateTrayMenu);

+

+    hsExport  :=CreateServiceFunction(MS_RADIO_EXPORT  ,@ExportAll);

+    hsImport  :=CreateServiceFunction(MS_RADIO_IMPORT  ,@ImportAll);

+

+

+    CreateProtoServices;

+    onloadhook   :=HookEvent(ME_SYSTEM_MODULESLOADED     ,@OnModulesLoaded);

+    hHookShutdown:=HookEvent(ME_SYSTEM_OKTOEXIT          ,@PreShutdown);

+    hDblClick    :=HookEvent(ME_CLIST_DOUBLECLICKED      ,@Service_RadioPlayStop{@DblClickProc});

+    opthook      :=HookEvent(ME_OPT_INITIALISE           ,@OnOptInitialise);

+    contexthook  :=HookEvent(ME_CLIST_PREBUILDCONTACTMENU,@OnContactMenu);

+

+    PluginStatus:=ID_STATUS_OFFLINE;

+  end;

+  mFreeMem(custom);

+

+  Result:=0;

+end;

+

+function Unload: int; cdecl;

+begin

+  Unload_BASSDLL;

+  Result:=0;

+end;

+

+exports

+  Load, Unload,

+  MirandaPluginInfoEx;

+

+begin

+end.