mRadio moved to protocols

in fpc.cfg added pathes for protocols folder

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

1 files changed, 444 insertions, 0 deletions

diff --git a/protocols/mRadio/i_search.inc b/protocols/mRadio/i_search.inc
new file mode 100644
index 0000000000..d4330e84d1
--- /dev/null
+++ b/protocols/mRadio/i_search.inc
@@ -0,0 +1,444 @@
+{search station code}

+(*

+procedure SetAvatar(hContact:THANDLE);

+var

+  success:boolean;

+  fname:pAnsiChar;

+  url:pWideChar;

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

+  ext:array [0..15] of AnsiChar;

+  section:pAnsiChar;

+  pc:pAnsiChar;

+  i:integer;

+begin

+  // get url

+  url:=DBReadUnicode(hContact,PluginName,optStationURL);

+  // translate to Ansi

+  FastWideToAnsiBuf(url,buf);

+  mFreeMem(url);

+

+  // search in INI

+  i:=GetFSize(storage);

+  if i=0 then

+    i:=32767;

+  mGetMem(pc,i+1);

+  pc^:=#0;

+  GetPrivateProfileSectionNamesA(pc,i,storage);

+  section:=pc;

+

+  while section^<>#0 do

+  begin

+    GetPrivateProfileStringA(section,'URL','',buf1,SizeOf(buf1),storage);

+    if StrCmp(@buf,@buf1)=0 then

+      break;

+

+    while section^<>#0 do inc(section);

+    inc(section);

+  end;

+  mFreeMem(pc);

+

+  if section^<>#0 then

+  begin

+    // get avatar link

+    buf[0]:=#0;

+    GetPrivateProfileStringA(section,'Avatar','',buf,SizeOf(buf),storage);

+

+    if buf[0]<>#0 then

+    begin

+      // Here we trying to get Avatar chache directory

+      // (create it if needs)

+      // and copy (load) owr avatars there

+      // in : buf = source avatar path

+      // out: fname = destination (file name in cache)

+      // rule for name is?..

+

+

+      if StrPos(buf,'://')=nil then

+      begin

+        fname:=@buf;

+        success:=FileExists(fname);

+        // need to copy this file to avatar cache

+      end

+      else

+      begin

+        // download file

+{

+        GetTempPathA(MAX_PATH,pAnsiChar(@buf1));

+        pc:=extract(pAnsiChar(@buf),true);

+        StrCat(pAnsiChar(@buf1),pc);

+        mFreeMem(pc);

+}

+        //mrAvt

+

+        GetExt(pAnsiChar(@buf),pAnsiChar(@ext));

+        GetTempPathA(MAX_PATH,pAnsiChar(@buf2));

+        GetTempFileNameA(pAnsiChar(@buf2),'mrAvt',GetCurrentTime,pAnsiChar(@buf1));

+        ChangeExt(pAnsiChar(@buf1),PAnsiChar(@ext));

+        //

+        fname:=@buf1;

+        success:=GetFile(pAnsiChar(@buf),fname);

+      end;

+

+      if success then

+        CallService(MS_AV_SETAVATAR,hContact,LPARAM(fname));

+    end;

+  end;

+end;

+*)

+type

+  TMySearchFilter = record

+    lStation,

+    lStationURL,

+    lGenre:PAnsiChar;

+    lBitrate:integer;

+    lBitrateMode:integer;

+  end;

+

+const

+  AckHandle = 427;

+

+// Since mRadio is unicode version only now, translate all strings to Wide

+// coz f*cking jinn will set unicode flag in any cases

+procedure LoadOneStation(section:pointer;const filter:TMySearchFilter);

+var

+  bitrate:integer;

+  l:bool;

+  columns:array [0..3] of TCHAR;

+  csr:CUSTOMSEARCHRESULTS;

+  pc:pAnsiChar;

+  buf:array [0..127] of AnsiChar;

+begin

+  pc:=GetParamSectionStr(section,'URL');

+  if pc<>nil then

+  begin

+    if (filter.lStationURL=nil) or (StrPos(CharLowerA(pc),filter.lStationURL)<>nil) then

+    begin

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

+      csr.psr.cbSize:=SizeOf(csr.psr);

+      csr.psr.Flags:=PSR_UNICODE;

+      AnsiToWide(pc,csr.psr.firstname.w,MirandaCP);

+      pc:=GetParamSectionStr(section,optBitrate,'0');

+      bitrate:=StrToInt(pc);

+      if (bitrate<>0) and (filter.lBitrate<>0) then

+      begin

+        if      filter.lBitrateMode<0 then l:=bitrate<=filter.lBitrate

+        else if filter.lBitrateMode=0 then l:=bitrate =filter.lBitrate

+        else{if filter.lBitrateMode>0}     l:=bitrate>=filter.lBitrate;

+      end

+      else

+        l:=true;

+      if l then

+      begin

+        AnsiToWide(pc,csr.psr.email.w,MirandaCP);

+

+        StrCopy(buf,GetParamSectionStr(section,'Name',GetSectionName(section)),127);

+        if (filter.lStation=nil) or (StrPos(CharLowerA(@buf),filter.lStation)<>nil) then

+        begin

+          AnsiToWide(@buf,csr.psr.nick.w,MirandaCP);

+

+          StrCopy(buf,GetParamSectionStr(section,optGenre,'unknown'),127);

+          if (filter.lGenre=nil) or (StrPos(CharLowerA(@buf),filter.lGenre)<>nil) then

+            AnsiToWide(@buf,csr.psr.lastname.w,MirandaCP)

+          else

+            l:=false;

+        end

+        else

+          l:=false;

+        if l then

+        begin

+          columns[0].w:=csr.psr.nick.w;      // Station name

+          columns[1].w:=csr.psr.firstname.w; // URL

+          columns[2].w:=csr.psr.lastname.w;  // Genre

+          columns[3].w:=csr.psr.email.w;     // Bitrate

+

+          csr.nSize      :=SizeOf(csr);

+          csr.nFieldCount:=4;

+          csr.szFields   :=@columns;

+          ProtoBroadcastAck(PluginName,0,ACKTYPE_SEARCH,ACKRESULT_SEARCHRESULT,AckHandle,lparam(@csr));

+        end;

+      end;

+      // initial value - nil, so we don't worry

+      mFreeMem(csr.psr.nick);

+      mFreeMem(csr.psr.firstname);

+      mFreeMem(csr.psr.lastname);

+      mFreeMem(csr.psr.email);

+    end;

+  end;

+end;

+

+procedure ProcessSearch(var filter:TMySearchFilter;ini:PAnsiChar);

+var

+  pc:PAnsiChar;

+  csr:CUSTOMSEARCHRESULTS;

+  columns:array [0..3] of TCHAR;

+  lstorage,section,list:pointer;

+begin

+  columns[0].w:='Station Name';

+  columns[1].w:='Station URL';

+  columns[2].w:='Genre';

+  columns[3].w:='Bitrate';

+

+  csr.nSize      :=SizeOf(csr);

+  csr.nFieldCount:=4;

+  csr.szFields   :=@columns;

+  csr.psr.cbSize :=0;

+  ProtoBroadcastAck(PluginName,0,ACKTYPE_SEARCH,ACKRESULT_SEARCHRESULT,AckHandle,lparam(@csr));

+

+  lstorage:=OpenStorage(ini);

+  if lstorage<>nil then

+  begin

+    list:=GetSectionList(lstorage);

+    pc:=list;

+

+    while pc^<>#0 do

+    begin

+      section:=SearchSection(lstorage,pc);

+      LoadOneStation(section,filter); //!!

+      while pc^<>#0 do inc(pc);

+      inc(pc);

+    end;

+

+    FreeSectionList(list);

+    CloseStorage(lstorage);

+  end;

+

+  ProtoBroadcastAck(PluginName,0,ACKTYPE_SEARCH,ACKRESULT_SUCCESS,AckHandle,0);

+  mFreeMem(filter.lStation);

+  mFreeMem(filter.lStationURL);

+  mFreeMem(filter.lGenre);

+end;

+

+procedure BasicSearch(name:PAnsiChar); cdecl;

+var

+  filter:TMySearchFilter;

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

+begin

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

+  StrCopy(ini,storage);

+

+  StrDup(filter.lStation,name);

+  if filter.lStation<>nil then

+    CharLowerA(filter.lStation);

+

+  ProcessSearch(filter,ini);

+end;

+

+procedure ExtSearch(wnd:HWND); cdecl;

+var

+  filter:TMySearchFilter;

+  ltmp:longbool;

+  ini1,ini:array [0..MAX_PATH-1] of AnsiChar;

+begin

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

+  ini1[0]:=#0;

+  GetDlgItemTextA(wnd,IDC_CUSTOMINI,@ini1,SizeOf(ini1));

+  if ini1[0]=#0 then

+    StrCopy(ini,storage)

+  else

+    ConvertFileName(ini1,ini);

+

+  with filter do

+  begin

+//      CallService(MS_UTILS_PATHTOABSOLUTE,dword(@ini1),dword(@ini));

+    lBitrate:=GetDlgItemInt(wnd,IDC_BITRATE,ltmp,false);

+    if      IsDlgButtonChecked(wnd,IDC_LT)=BST_CHECKED then lBitrateMode:=-1

+    else if IsDlgButtonChecked(wnd,IDC_EQ)=BST_CHECKED then lBitrateMode:=0

+    else{if IsDlgButtonChecked(lParam,IDC_GT)=BST_CHECKED}  lBitrateMode:=1;

+

+    lStation:=GetDlgText(wnd,IDC_STATION,true);

+    if lStation<>nil then

+      CharLowerA(lStation);

+

+    lStationURL:=GetDlgText(wnd,IDC_STATIONURL,true);

+    if lStationURL<>nil then

+      CharLowerA(lStationURL);

+

+    lGenre:=GetDlgText(wnd,IDC_GENRE,true);

+    if lGenre<>nil then

+      CharLowerA(lGenre);

+  end;

+

+  ProcessSearch(filter,ini);

+end;

+

+function Service_SearchBasic(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl;

+begin

+  if lParam=0 then

+    result:=0

+  else

+  begin

+    result:=AckHandle;

+    CloseHandle(mir_forkthread(@BasicSearch,StrDup(PAnsiChar(lParam),PAnsiChar(lParam))));

+  end;

+end;

+

+function Service_SearchByAdvanced(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl;

+begin

+  if lParam=0 then

+    result:=0

+  else

+  begin

+    result:=AckHandle;

+    CloseHandle(mir_forkthread(@ExtSearch,pointer(lParam)));

+  end;

+end;

+

+function Service_GetCaps(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl; forward;

+

+function ExtSearchProc(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;

+var

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

+begin

+  result:=0;

+  case hMessage of

+    WM_INITDIALOG: begin

+      CheckDlgButton(Dialog,IDC_EQ,BST_CHECKED);

+      TranslateDialogDefault(Dialog);

+    end;

+

+    WM_COMMAND: if (wParam shr 16)=BN_CLICKED then

+    begin

+      if loword(wParam)=IDOK then

+      begin

+        SendMessage(GetParent(Dialog),WM_COMMAND,IDOK+(BN_CLICKED) shl 16,

+            GetDlgItem(GetParent(Dialog),IDOK));

+      end

+      else if loword(wParam)=IDC_BN_INIPATH then

+      begin

+        if ShowDlg(@buf,storage,'*.ini'#0'*.ini'#0#0) then

+          SetDlgItemTextA(Dialog,IDC_CUSTOMINI,@buf);

+      end;

+    end;

+  end;

+end;

+

+function Service_ExtSearchUI(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl;

+type

+  PDLGTEMPLATEEX = ^TDLGTEMPLATEEX;

+  TDLGTEMPLATEEX = packed record

+    dlgVer:word;

+    signature:word;

+    helpID:dword;

+    exStyle:dword;

+    style:dword;

+    cDlgItems:word;

+    x:word;

+    y:word;

+    cx:word;

+    cy:word;

+{

+    sz_Or_Ord menu;

+    sz_Or_Ord windowClass;

+    title:array [0..titleLen] of WideChar;

+    pointsize:word;

+    weight:word;

+    italic:byte;

+    charset:byte;

+    typeface:array [0..stringLen] of WideChar;

+}

+  end;

+

+var

+  hr:HRSRC;

+  pdte:PDLGTEMPLATEEX;

+begin

+  result:=0;

+  if lParam<>0 then

+  begin

+    hr:=FindResource(hInstance,MAKEINTRESOURCE(IDD_SEARCH),RT_DIALOG);

+    if hr<>0 then

+    begin

+      pdte:=PDLGTEMPLATEEX(LoadResource(hInstance,hr));

+      if pdte<>nil then

+      begin

+        if (Service_GetCaps(PFLAGNUM_1,0) and PF1_EXTSEARCHUI)<>0 then

+          pdte^.style:=(pdte^.style and not WS_CHILD) or WS_POPUP or WS_BORDER;

+        result:=CreateDialogIndirect(hInstance,

+            PDlgTemplate(pdte){$IFNDEF FPC}^{$ENDIF},lParam,@ExtSearchProc);

+      end;

+    end;

+  end;

+end;

+

+function Service_AddToList(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl;

+var

+  hContact:THANDLE;

+  p:PWideChar;

+  lurl:pWideChar;

+begin

+  result:=0;

+  if lParam<>0 then

+  begin

+    with PPROTOSEARCHRESULT(lParam)^ do

+    begin

+      if id.w<>nil then

+        lurl:=id.w

+      else

+        lurl:=firstname.w;

+

+      if lurl<>nil then

+      begin

+{

+// find contact

+        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

+            p:=DBReadString(hContact,PluginName,optStationURL);

+            l:=StrCmp(p,lurl)=0;

+            mFreeMem(p);

+            if l then

+            begin

+              DBDeleteSetting(hContact,strCList,'NotOnList');

+              DBDeleteSetting(hContact,strCList,'Hidden');

+              result:=hContact;

+              exit;

+            end;

+          end;

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

+        end;

+// if not found

+}

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

+        if hContact<>0 then

+        begin

+          CallService(MS_PROTO_ADDTOCONTACT,hContact,tlparam(PluginName));

+          // URL

+          DBWriteUnicode(hContact,PluginName,optStationURL,lurl);

+          DBWriteUnicode(hContact,PluginName,optFirstName ,lurl);

+

+          // Name

+          if nick.w=nil then

+            p:=lurl

+          else

+            p:=nick.w;

+          DBWriteUnicode(hContact,strCList  ,optMyHandle,p);

+          DBWriteUnicode(hContact,PluginName,optNick    ,p);

+

+          // Bitrate

+          if email.w<>nil then

+          begin

+            DBWriteWord   (hContact,PluginName,optAge    ,StrToInt(email.w));

+            DBWriteUnicode(hContact,PluginName,optBitrate,email.w);

+          end;

+

+          // Genre

+          if lastname.w<>nil then

+          begin

+            DBWriteUnicode(hContact,PluginName,optGenre   ,lastname.w);

+            DBWriteUnicode(hContact,PluginName,optLastName,lastname.w);

+          end;

+

+          SetStatus(hContact,ID_STATUS_OFFLINE);

+

+//          SetAvatar(hContact);

+

+          CallService(MS_IGNORE_IGNORE,hContact,IGNOREEVENT_USERONLINE{IGNOREEVENT_ALL});

+          result:=hContact;

+        end;

+      end;

+    end;

+  end;

+end;