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, 0 insertions, 444 deletions

diff --git a/plugins/mRadio/i_search.inc b/plugins/mRadio/i_search.inc
deleted file mode 100644
index d4330e84d1..0000000000
--- a/plugins/mRadio/i_search.inc
+++ /dev/null
@@ -1,444 +0,0 @@
-{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;