unneeded delphi folder removed

git-svn-id: http://miranda-plugins.googlecode.com/svn/trunk@107 e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb

1 files changed, 0 insertions, 1026 deletions

diff --git a/delphi/Awkward/utils/mirutils.pas b/delphi/Awkward/utils/mirutils.pas
deleted file mode 100644
index efca1fe..0000000
--- a/delphi/Awkward/utils/mirutils.pas
+++ /dev/null
@@ -1,1026 +0,0 @@
-{$Include compilers.inc}

-unit mirutils;

-

-interface

-

-uses windows,m_api;

-

-function ConvertFileName(src:pAnsiChar;hContact:THANDLE=0):pAnsiChar; overload;

-function ConvertFileName(src:pWideChar;hContact:THANDLE=0):pWideChar; overload;

-function ConvertFileName(src:pAnsiChar;dst:pAnsiChar;hContact:THANDLE=0):pAnsiChar; overload;

-function ConvertFileName(src:pWideChar;dst:pWideChar;hContact:THANDLE=0):pWideChar; overload;

-

-function RegisterSingleIcon(resname,ilname,descr,group:PAnsiChar):int;

-procedure ShowPopupW(text:pWideChar;title:pWideChar=nil);

-function GetAddonFileName(prefix,altname,path:PAnsiChar;ext:PAnsiChar):PAnsiChar;

-function TranslateA2W(sz:PAnsiChar):PWideChar;

-function MirandaCP:integer;

-

-function isVarsInstalled:bool;

-function ParseVarString(astr:pAnsiChar;aContact:THANDLE=0;extra:pAnsiChar=nil):pAnsiChar; overload;

-function ParseVarString(astr:pWideChar;aContact:THANDLE=0;extra:pWideChar=nil):pWideChar; overload;

-function ShowVarHelp(dlg:HWND;id:integer=0):integer;

-

-function  IsChat(hContact:THANDLE):bool;

-procedure SendToChat(hContact:THANDLE;pszText:PWideChar);

-

-function SetCListSelContact(hContact:THANDLE):THANDLE;

-function GetCListSelContact:THANDLE; {$IFDEF DELPHI10_UP}inline;{$ENDIF}

-function GetContactProtoAcc(hContact:THANDLE):PAnsiChar;

-function  IsMirandaUser(hContact:THANDLE):integer; // >0=Miranda; 0=Not miranda; -1=unknown

-procedure ShowContactDialog(hContact:THANDLE;DblClk:boolean=true;anystatus:boolean=true);

-function  FindContactHandle(proto:pAnsiChar;const dbv:TDBVARIANT;is_chat:boolean=false):THANDLE;

-function  WndToContact(wnd:hwnd):integer; overload;

-function  WndToContact:integer; overload;

-function  GetContactStatus(hContact:THANDLE):integer;

-// -2 - deleted account, -1 - disabled account, 0 - hidden

-// 1 - metacontact, 2 - submetacontact, positive - active

-function  IsContactActive(hContact:THANDLE;var proto:pAnsiChar):integer; overload;

-function  IsContactActive(hContact:THANDLE):integer; overload;

-

-function CreateGroupW(name:pWideChar;hContact:THANDLE):integer;

-function CreateGroup (name:pAnsiChar;hContact:THANDLE):integer;

-function MakeGroupMenu(idxfrom:integer=100):HMENU;

-function GetNewGroupName(parent:HWND):pWideChar;

-

-const

-  HKMT_CORE       = 1;

-  HKMT_HOTKEYPLUS = 2;

-  HKMT_HK         = 3;

-  HKMT_HKSERVICE  = 4;

-

-function DetectHKManager:dword;

-

-const

-  MAX_REDIRECT_RECURSE = 4;

-

-function GetFile(url:PAnsiChar;save_file:PAnsiChar;

-                 hNetLib:THANDLE=0;recurse_count:integer=0):bool; overload;

-// next is just wrapper

-function GetFile(url:PWideChar;save_file:PWideChar;

-                 hNetLib:THANDLE=0;recurse_count:integer=0):bool; overload;

-

-function GetProxy(hNetLib:THANDLE):PAnsiChar;

-function LoadImageURL(url:pAnsiChar;size:integer=0):HBITMAP;

-

-implementation

-

-uses dbsettings,common,io,syswin,freeimage,kol;

-

-function ConvertFileName(src:pWideChar;dst:pWideChar;hContact:THANDLE=0):pWideChar; overload;

-var

-  pc,pc1:pWideChar;

-  dat:TREPLACEVARSDATA;

-begin

-  result:=dst;

-  dst^:=#0;

-  if (src<>nil) and (src^<>#0) then

-  begin

-    pc:=nil;

-    if PluginLink^.ServiceExists(MS_UTILS_REPLACEVARS)<>0 then

-    begin

-      FillChar(dat,SizeOf(TREPLACEVARSDATA),0);

-      dat.cbSize:=SizeOf(TREPLACEVARSDATA);

-      dat.dwflags:=RVF_UNICODE;

-      pc:=pWideChar(PluginLink^.CallService(MS_UTILS_REPLACEVARS,dword(src),dword(@dat)));

-    end;

-    if isVarsInstalled then

-    begin

-      if pc<>nil then src:=pc;

-      pc1:=pc;

-      pc:=ParseVarString(src,hContact);

-      if pc1<>nil then mFreeMem(pc1);

-    end;

-    if pc<>nil then src:=pc;

-    PluginLink^.CallService(MS_UTILS_PATHTOABSOLUTEW,dword(src),dword(dst));

-    if pc<>nil then mFreeMem(pc);

-  end;

-end;

-

-function ConvertFileName(src:pWideChar;hContact:THANDLE=0):pWideChar; overload;

-var

-  buf1:array [0..511] of WideChar;

-begin

-  if (src<>nil) and (src^<>#0) then

-    StrDupW(result,ConvertFileName(src,buf1,hContact))

-  else

-    result:=nil;

-end;

-

-function ConvertFileName(src:pAnsiChar;dst:pAnsiChar;hContact:THANDLE=0):pAnsiChar; overload;

-var

-  pc,pc1:pAnsiChar;

-  dat:TREPLACEVARSDATA;

-begin

-  result:=dst;

-  dst^:=#0;

-  if (src<>nil) and (src^<>#0) then

-  begin

-    pc:=nil;

-    if PluginLink^.ServiceExists(MS_UTILS_REPLACEVARS)<>0 then

-    begin

-      FillChar(dat,SizeOf(TREPLACEVARSDATA),0);

-      dat.cbSize:=SizeOf(TREPLACEVARSDATA);

-      pc:=pAnsiChar(PluginLink^.CallService(MS_UTILS_REPLACEVARS,dword(src),dword(@dat)));

-    end;

-    if isVarsInstalled then

-    begin

-      if pc<>nil then src:=pc;

-      pc1:=pc;

-      pc:=ParseVarString(src,hContact);

-      if pc1<>nil then mFreeMem(pc1);

-    end;

-    if pc<>nil then src:=pc;

-    PluginLink^.CallService(MS_UTILS_PATHTOABSOLUTE,dword(src),dword(dst));

-    if pc<>nil then mFreeMem(pc);

-  end;

-end;

-

-function ConvertFileName(src:pAnsiChar;hContact:THANDLE=0):pAnsiChar; overload;

-var

-  buf1:array [0..511] of AnsiChar;

-begin

-  if (src<>nil) and (src^<>#0) then

-    StrDup(result,ConvertFileName(src,buf1,hContact))

-  else

-    result:=nil;

-end;

-

-const

-  IsVars:integer=-1;

-  MirCP:integer=-1;

-const

-  HKManager:integer=-1;

-

-function MirandaCP:integer;

-begin

-  if MirCP<0 then

-    MirCP:=CallService(MS_LANGPACK_GETCODEPAGE,0,0);

-  result:=MirCP;

-end;

-

-function IsChat(hContact:THANDLE):bool;

-begin

-  result:=DBReadByte(hContact,

-    PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,hContact,0)),

-    'ChatRoom',0)=1;

-end;

-

-function isVarsInstalled:bool;

-begin

-  if IsVars<0 then

-    IsVars:=PluginLink^.ServiceExists(MS_VARS_FORMATSTRING);

-  result:=IsVars<>0;

-end;

-

-function ParseVarString(astr:pAnsiChar;aContact:THANDLE=0;extra:pAnsiChar=nil):pAnsiChar;

-var

-  tfi:TFORMATINFO;

-  tmp:pAnsiChar;

-begin

-  if isVarsInstalled then

-  begin

-    FillChar(tfi,SizeOf(tfi),0);

-    with tfi do

-    begin

-      cbSize       :=SizeOf(TFORMATINFO);

-      szFormat.a   :=astr;

-      szExtraText.a:=extra;

-      hContact     :=aContact;

-    end;

-    tmp:=pointer(CallService(MS_VARS_FORMATSTRING,dword(@tfi),0));

-    StrDup(result,tmp);

-    PluginLink^.CallService(MS_VARS_FREEMEMORY,int(tmp),0);

-  end

-  else

-  begin

-    StrDup(result,astr);

-  end;

-end;

-

-function ParseVarString(astr:pWideChar;aContact:THANDLE=0;extra:pWideChar=nil):pWideChar;

-var

-  tfi:TFORMATINFO;

-  tmp:pWideChar;

-begin

-  if isVarsInstalled then

-  begin

-    FillChar(tfi,SizeOf(tfi),0);

-    with tfi do

-    begin

-      cbSize       :=SizeOf(TFORMATINFO);

-      flags        :=FIF_UNICODE;

-      szFormat.w   :=astr;

-      szExtraText.w:=extra;

-      hContact     :=aContact;

-    end;

-    tmp:=pointer(CallService(MS_VARS_FORMATSTRING,dword(@tfi),0));

-    StrDupW(result,tmp);

-    PluginLink^.CallService(MS_VARS_FREEMEMORY,int(tmp),0);

-  end

-  else

-  begin

-    StrDupW(result,astr);

-  end;

-end;

-

-function ShowVarHelp(dlg:HWND;id:integer=0):integer;

-var

-  vhi:TVARHELPINFO;

-begin

-  FillChar(vhi,SizeOf(vhi),0);

-  with vhi do

-  begin

-    cbSize:=SizeOf(vhi);

-    if id=0 then

-      flags:=VHF_NOINPUTDLG

-    else

-    begin

-      flags   :=VHF_FULLDLG or VHF_SETLASTSUBJECT;

-      hwndCtrl:=GetDlgItem(dlg,id);

-    end;

-  end;

-  result:=PluginLink^.CallService(MS_VARS_SHOWHELPEX,dlg,dword(@vhi));

-end;

-

-function DetectHKManager:dword;

-begin

-  if HKManager<0 then

-  begin

-    with PluginLink^ do

-      if      ServiceExists('CoreHotkeys/Register'       )<>0 then HKManager:=HKMT_CORE

-      else if ServiceExists('HotkeysPlus/Add'            )<>0 then HKManager:=HKMT_HOTKEYPLUS

-      else if ServiceExists('HotKey/CatchHotkey'         )<>0 then HKManager:=HKMT_HK

-      else if ServiceExists('HotkeysService/RegisterItem')<>0 then HKManager:=HKMT_HKSERVICE

-      else HKManager:=0;

-  end;

-  result:=HKManager;

-//  else if (CallService(MS_SYSTEM_GETVERSION,0,0) and $FFFF0000)>=$00080000 then // core

-end;

-

-procedure ShowPopupW(text:pWideChar;title:pWideChar=nil);

-var

-  ppdu:TPOPUPDATAW;

-begin

-  FillChar(ppdu,SizeOf(TPOPUPDATAW),0);

-  if CallService(MS_POPUP_ISSECONDLINESHOWN,0,0)<>0 then

-  begin

-    StrCopyW(ppdu.lpwzText,text,MAX_SECONDLINE-1);

-    if title<>nil then

-      StrCopyW(ppdu.lpwzContactName,title,MAX_CONTACTNAME-1)

-    else

-      ppdu.lpwzContactName[0]:=' ';

-  end

-  else

-  begin

-    StrCopyW(ppdu.lpwzContactName,text,MAX_CONTACTNAME-1);

-    ppdu.lpwzText[0]:=' ';

-  end;

-  PluginLink^.CallService(MS_POPUP_ADDPOPUPW,DWORD(@ppdu),APF_NO_HISTORY);

-end;

-

-function TranslateA2W(sz:PAnsiChar):PWideChar;

-var

-  tmp:pWideChar;

-begin

-  mGetMem(tmp,(StrLen(sz)+1)*SizeOf(WideChar));

-  Result:=PWideChar(PluginLink^.CallService(MS_LANGPACK_TRANSLATESTRING,LANG_UNICODE,

-          lParam(FastAnsiToWideBuf(sz,tmp))));

-  if Result<>tmp then

-  begin

-    StrDupW(Result,Result);

-    mFreeMem(tmp);

-  end;

-end;

-

-function GetContactProtoAcc(hContact:THANDLE):PAnsiChar;

-begin

-  if PluginLink^.ServiceExists(MS_PROTO_GETCONTACTBASEACCOUNT)<>0 then

-    result:=PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEACCOUNT,hContact,0))

-  else

-    result:=PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,hContact,0));

-end;

-

-function IsMirandaUser(hContact:THANDLE):integer; // >0=Miranda; 0=Not miranda; -1=unknown

-var

-  sz:PAnsiChar;

-begin

-  sz:=PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,hContact,0));

-  sz:=DBReadString(hContact,sz,'MirVer');

-  if sz<>nil then

-  begin

-    result:=integer(StrPos(sz,'Miranda'));

-    mFreeMem(sz);

-  end

-  else

-    result:=-1;

-end;

-

-function WndToContact(wnd:hwnd):integer; overload;

-var

-  hContact:integer;

-  mwid:TMessageWindowInputData;

-  mwod:TMessageWindowOutputData;

-begin

-  wnd:=GetParent(wnd); //!!

-  hContact:=PluginLink^.CallService(MS_DB_CONTACT_FINDFIRST,0,0);

-  with mwid do

-  begin

-    cbSize:=SizeOf(mwid);

-    uFlags:=MSG_WINDOW_UFLAG_MSG_BOTH;

-  end;

-  mwod.cbSize:=SizeOf(mwod);

-  while hContact<>0 do

-  begin

-    mwid.hContact:=hContact;

-    if PluginLink^.CallService(MS_MSG_GETWINDOWDATA,dword(@mwid),dword(@mwod))=0 then

-    begin

-      if {((mwod.uState and MSG_WINDOW_STATE_FOCUS)<>0) and} (mwod.hwndWindow=wnd) then

-      begin

-        result:=mwid.hContact;

-        exit;

-      end

-    end;

-    hContact:=PluginLink^.CallService(MS_DB_CONTACT_FINDNEXT,hContact,0);

-  end;

-  result:=0;

-end;

-

-function SetCListSelContact(hContact:THANDLE):THANDLE;

-var

-  wnd:HWND;

-begin

-  wnd:=CallService(MS_CLUI_GETHWNDTREE,0,0);

-  result:=hContact;

-//  hContact:=SendMessage(wnd,CLM_FINDCONTACT  ,hContact,0);

-  SendMessage(wnd,CLM_SELECTITEM   ,hContact,0);

-//  SendMessage(wnd,CLM_ENSUREVISIBLE,hContact,0);

-end;

-

-function GetCListSelContact:THANDLE;

-begin

-  result:=SendMessageW(CallService(MS_CLUI_GETHWNDTREE,0,0),CLM_GETSELECTION,0,0);

-end;

-

-function WndToContact:integer; overload;

-var

-  wnd:HWND;

-begin

-  wnd:=GetFocus;

-  if wnd=0 then

-    wnd:=WaitFocusedWndChild(GetForegroundWindow);

-  if wnd<>0 then

-    result:=WndToContact(wnd)

-  else

-    result:=0;

-  if result=0 then

-    result:=GetCListSelContact;

-end;

-

-function GetContactStatus(hContact:THANDLE):integer;

-var

-  szProto:PAnsiChar;

-begin

-  szProto:=PAnsiChar(PluginLink^.CallService(MS_PROTO_GETCONTACTBASEPROTO,hContact,0));

-  if szProto=NIL then

-    result:=ID_STATUS_OFFLINE

-  else

-    result:=DBReadWord(hContact,szProto,'Status',ID_STATUS_OFFLINE);

-end;

-

-function CheckPath(filename,profilepath,path:PAnsiChar):PAnsiChar;

-var

-  buf:array [0..511] of AnsiChar;

-  f:THANDLE;

-  p:PAnsiChar;

-begin

-  result:=nil;

-  if profilepath<>nil then

-    StrCopy(buf,profilepath)

-  else

-    buf[0]:=#0;

-  StrCat(buf,filename);

-  f:=Reset(buf);

-  if dword(f)=INVALID_HANDLE_VALUE then

-  begin

-    if path<>nil then

-    begin

-      CallService(MS_UTILS_PATHTOABSOLUTE,dword(path),dword(@buf));

-      p:=StrEnd(buf);

-      if p^<>'\' then

-      begin

-        p^:='\';

-        inc(p);

-        p^:=#0;

-      end;

-    end

-    else if profilepath=nil then

-      exit

-    else

-      buf[0]:=#0;

-    StrCat(buf,filename); //path\prefix+name

-    f:=Reset(buf);

-  end;

-  if dword(f)<>INVALID_HANDLE_VALUE then

-  begin

-    CloseHandle(f);

-    StrDup(result,buf);

-  end;

-end;

-

-function GetAddonFileName(prefix,altname,path:PAnsiChar;ext:PAnsiChar):PAnsiChar;

-var

-  profilepath:array [0..511] of AnsiChar;

-  altfilename,filename:array [0..127] of AnsiChar;

-  p:PAnsiChar;

-begin

-  CallService(MS_DB_GETPROFILEPATH,300,dword(@profilepath));

-  p:=StrEnd(profilepath);

-  p^:='\'; inc(p);

-  p^:=#0;

-  if prefix<>nil then

-  begin

-    StrCopy(filename,prefix);

-    p:=StrEnd(filename);

-    CallService(MS_DB_GETPROFILENAME,SizeOf(filename)-integer(p-@filename),dword(p));

-    ChangeExt(filename,ext);

-    result:=CheckPath(filename,profilepath,path);

-  end

-  else

-    result:=nil;

-

-  if (result=nil) and (altname<>nil) then

-  begin

-    StrCopy(altfilename,altname);

-    ChangeExt(altfilename,ext);

-    result:=CheckPath(altfilename,profilepath,path);

-  end;

-  if result=nil then

-  begin

-    StrCat(profilepath,filename);

-    StrDup(result,profilepath);

-  end;

-end;

-

-procedure ShowContactDialog(hContact:THANDLE;DblClk:boolean=true;anystatus:boolean=true);

-var

-  pc:array [0..127] of AnsiChar;

-begin

-{

-CallService(MS_CLIST_CONTACTDOUBLECLICKED,hContact,0);

-}

-  if (hContact<>0) and (CallService(MS_DB_CONTACT_IS,hContact,0)<>0) then

-  begin

-    StrCopy(pc,PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,hContact,0)));

-    if DblClk or (DBReadByte(hContact,pc,'ChatRoom',0)=1) then // chat room

-    begin

-      if not anystatus then

-      begin

-        StrCat(pc,PS_GETSTATUS);

-        anystatus:=(CallService(pc,0,0)<>ID_STATUS_OFFLINE);

-      end;

-      if anystatus then

-      begin

-        CallService(MS_CLIST_CONTACTDOUBLECLICKED,hContact,0); //??

-      // if chat exist, open chat

-      // else create new session

-      end;

-    end

-    else

-    begin

-      if PluginLink^.ServiceExists(MS_MSG_CONVERS)<>0 then // Convers compat.

-        CallService(MS_MSG_CONVERS,hContact,0)

-      else

-        CallService(MS_MSG_SENDMESSAGE,hContact,0)

-    end;

-  end;

-end;

-

-procedure SendChatText(pszID:pointer;pszModule:PAnsiChar;pszText:pointer);

-var

-  gcd:TGCDEST;

-  gce:TGCEVENT;

-begin

-  gcd.pszModule:=pszModule;

-  gcd.iType    :=GC_EVENT_SENDMESSAGE;

-  gcd.szID.w   :=pszID;

-

-  FillChar(gce,SizeOf(TGCEVENT),0);

-  gce.cbSize  :=SizeOf(TGCEVENT);

-  gce.pDest   :=@gcd;

-  gce.bIsMe   :=true;

-  gce.szText.w:=pszText;

-  gce.dwFlags :=GCEF_ADDTOLOG+GC_UNICODE;

-  gce.time    :=GetCurrentTime;

-  

-  PluginLink^.CallServiceSync(MS_GC_EVENT,0,dword(@gce));

-end;

-

-procedure SendToChat(hContact:THANDLE;pszText:PWideChar);

-var

-  gci:TGC_INFO;

-  pszModule:PAnsiChar;

-  i,cnt:integer;

-begin

-  pszModule:=PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,hContact,0));

-  cnt:=CallService(MS_GC_GETSESSIONCOUNT,0,dword(pszModule));

-  i:=0;

-  gci.pszModule:=pszModule;

-  while i<cnt do

-  begin

-    gci.iItem:=i;

-    gci.Flags:=GCI_BYINDEX+GCI_HCONTACT+GCI_ID;

-    CallService(MS_GC_GETINFO,0,dword(@gci));

-    if gci.hContact=hContact then

-    begin

-      SendChatText(gci.pszID.w,pszModule,pszText);

-      break;

-    end;

-    inc(i);

-  end;

-end;

-

-function FindContactHandle(proto:pAnsiChar;const dbv:TDBVARIANT;is_chat:boolean=false):THANDLE;

-var

-  uid:pAnsiChar;

-  ldbv:TDBVARIANT;

-  hContact:THANDLE;

-  pw:pWideChar;

-begin

-  result:=0;

-  if not is_chat then

-  begin

-    uid:=pAnsiChar(CallProtoService(proto,PS_GETCAPS,PFLAG_UNIQUEIDSETTING,0));

-    if dword(uid)=CALLSERVICE_NOTFOUND then exit;

-  end;

-

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

-  while hContact<>0 do

-  begin

-    if is_chat then

-    begin

-      if IsChat(hContact) then

-      begin

-        pw:=DBReadUnicode(hContact,proto,'ChatRoomID');

-        if StrCmpW(pw,dbv.szVal.W)=0 then result:=hContact;

-        mFreeMem(pw);

-      end

-    end

-    else

-    begin

-      if DBReadSetting(hContact,proto,uid,@ldbv)=0 then

-      begin

-        if dbv._type=ldbv._type then

-        begin

-          case dbv._type of

-            DBVT_DELETED: ;

-            DBVT_BYTE   : if dbv.bVal=ldbv.bVal then result:=hContact;

-            DBVT_WORD   : if dbv.wVal=ldbv.wVal then result:=hContact;

-            DBVT_DWORD  : if dbv.dVal=ldbv.dVal then result:=hContact;

-            DBVT_UTF8,

-            DBVT_ASCIIZ : if StrCmp (dbv.szVal.A,ldbv.szVal.A)=0 then result:=hContact;

-            DBVT_WCHAR  : if StrCmpW(dbv.szVal.W,ldbv.szVal.W)=0 then result:=hContact;

-            DBVT_BLOB   : begin

-              if dbv.cpbVal = ldbv.cpbVal then

-              begin

-                if CompareMem(dbv.pbVal,ldbv.pbVal,dbv.cpbVal) then

-                  result:=hContact;

-              end;

-            end;

-          end;

-          if result<>0 then break;

-        end;

-        DBFreeVariant(@ldbv);

-      end;

-    end;

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

-  end;

-end;

-

-function IsContactActive(hContact:THANDLE;var proto:pAnsiChar):integer; overload;

-var

-  p:PPROTOACCOUNT;

-  dbv  :TDBVARIANT;

-  dbcgs:TDBCONTACTGETSETTING;

-  name: array [0..31] of AnsiChar;

-begin

-

-  dbv._type  :=DBVT_ASCIIZ;

-  dbv.szVal.a:=@name;

-  dbv.cchVal :=SizeOf(name);

-  dbcgs.pValue   :=@dbv;

-  dbcgs.szModule :='Protocol';

-  dbcgs.szSetting:='p';

-

-  if PluginLink^.CallService(MS_DB_CONTACT_GETSETTINGSTATIC,hContact,dword(@dbcgs))=0 then

-  begin

-    result:=0;

-

-    if PluginLink^.ServiceExists(MS_PROTO_GETACCOUNT)<>0 then

-    begin

-      p:=PPROTOACCOUNT(CallService(MS_PROTO_GETACCOUNT,0,dword(dbv.szVal.a)));

-      if p=nil then

-        result:=-2 // deleted

-      else if (p^.bIsEnabled=0) or p^.bDynDisabled then

-        result:=-1; // disabled

-    end

-    else

-    begin

-      if CallService(MS_PROTO_ISPROTOCOLLOADED,0,dword(dbv.szVal.a))=0 then

-        result:=-1;

-    end;

-

-    if (result=0) and (DBReadByte(hContact,strCList,'Hidden',0)=0) then

-    begin

-      result:=255;

-      if PluginLink^.ServiceExists(MS_MC_GETMETACONTACT)<>0 then

-      begin

-        if CallService(MS_MC_GETMETACONTACT,hContact,0)<>0 then

-          result:=2;

-        if StrCmp(

-           PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,hContact,0)),

-           PAnsiChar(CallService(MS_MC_GETPROTOCOLNAME,0,0)))=0 then

-         result:=1;

-      end;

-    end;

-    if @proto<>nil then

-      StrDup(proto,dbv.szVal.a);

-  end

-  else

-  begin

-    result:=-2;

-    if @proto<>nil then

-      proto:=nil;

-  end;

- 

-end;

-

-function IsContactActive(hContact:THANDLE):integer; overload;

-type

-  ppAnsiChar = ^pAnsiChar;

-begin

-  result:=IsContactActive(hContact,ppAnsiChar(nil)^);

-end;

-

-// Import plugin function adaptation

-function CreateGroupW(name:pWideChar;hContact:THANDLE):integer;

-var

-  groupId:integer;

-  groupIdStr:array [0..10] of AnsiChar;

-  dbv:TDBVARIANT;

-  cgs:TDBCONTACTGETSETTING;

-  grbuf:array [0..127] of WideChar;

-  p:pWideChar;

-begin

-  if (name=nil) or (name^=#0) then

-  begin

-    result:=0;

-    exit;

-  end;

-

-  StrCopyW(@grbuf[1],name);

-  grbuf[0]:=WideChar(1 or GROUPF_EXPANDED);

-

-  // Check for duplicate & find unused id

-  groupId:=0;

-  cgs.szModule:='CListGroups';

-  cgs.pValue  :=@dbv;

-  repeat

-    dbv._type:=DBVT_WCHAR;

-    cgs.szSetting:=IntToStr(groupIdStr,groupId);

-    if PluginLink^.CallService(MS_DB_CONTACT_GETSETTING_STR,0,lParam(@cgs))<>0 then

-      break;

-

-    if StrCmpW(dbv.szVal.w+1,@grbuf[1])=0 then

-    begin

-      if hContact<>0 then

-        DBWriteUnicode(hContact,strCList,'Group',@grbuf[1]);

-

-      DBFreeVariant(@dbv);

-      result:=0;

-      exit;

-    end;

-

-    DBFreeVariant(@dbv);

-    inc(groupid);

-  until false;

-

-  DBWriteUnicode(0,'CListGroups',groupIdStr,grbuf);

-

-  if hContact<>0 then

-    DBWriteUnicode(hContact,strCList,'Group',@grbuf[1]);

-

-  p:=StrRScanW(grbuf,'\');

-  if p<>nil then

-  begin

-    p^:=#0;

-    CreateGroupW(grbuf+1,0);

-  end;

-

-  result:=1;

-end;

-

-function CreateGroup(name:pAnsiChar;hContact:THANDLE):integer;

-var

-  groupId:integer;

-  groupIdStr:array [0..10] of AnsiChar;

-  dbv:TDBVARIANT;

-  cgs:TDBCONTACTGETSETTING;

-  grbuf:array [0..127] of AnsiChar;

-  p:pAnsiChar;

-begin

-  if (name=nil) or (name^=#0) then

-  begin

-    result:=0;

-    exit;

-  end;

-

-  StrCopy(@grbuf[1],name);

-  grbuf[0]:=CHAR(1 or GROUPF_EXPANDED);

-

-  // Check for duplicate & find unused id

-  groupId:=0;

-  cgs.szModule:='CListGroups';

-  cgs.pValue  :=@dbv;

-  repeat

-    dbv._type:=DBVT_ASCIIZ;

-    cgs.szSetting:=IntToStr(groupIdStr,groupId);

-    if PluginLink^.CallService(MS_DB_CONTACT_GETSETTING_STR,0,lParam(@cgs))<>0 then

-      break;

-

-    if StrCmp(dbv.szVal.a+1,@grbuf[1])=0 then

-    begin

-      if hContact<>0 then

-      DBWriteString(hContact,strCList,'Group',@grbuf[1]);

-

-      DBFreeVariant(@dbv);

-      result:=0;

-      exit;

-    end;

-

-    DBFreeVariant(@dbv);

-    inc(groupid);

-  until false;

-

-  DBWriteString(0,'CListGroups',groupIdStr,grbuf);

-

-  if hContact<>0 then

-    DBWriteString(hContact,strCList,'Group',@grbuf[1]);

-

-  p:=StrRScan(grbuf,'\');

-  if p<>nil then

-  begin

-    p^:=#0;

-    CreateGroup(grbuf+1,0);

-  end;

-

-  result:=1;

-end;

-

-function MakeGroupMenu(idxfrom:integer=100):HMENU;

-var

-  sl:PWStrList;

-  i:integer;

-  b:array [0..15] of AnsiChar;

-  p:pWideChar;

-begin

-  result:=CreatePopupMenu;

-  i:=0;

-  AppendMenuW(result,MF_STRING,idxfrom,TranslateW('<Root Group>'));

-  AppendMenuW(result,MF_SEPARATOR,0,nil);

-  sl:=NewWStrList;

-  repeat

-    p:=DBReadUnicode(0,'CListGroups',IntToStr(b,i),nil);

-    if p=nil then break;

-    sl.Add(p+1);

-    mFreeMem(p);

-    inc(i);

-  until false;

-  sl.Sort(false);

-  for i:=0 to sl.Count-1 do

-  begin

-    AppendMenuW(result,MF_STRING,idxfrom+1,pWideChar(sl.Items[i]));

-  end;

-  sl.Clear;

-  sl.Free;

-end;

-

-function GetNewGroupName(parent:HWND):pWideChar;

-var

-  mmenu:HMENU;

-  i:integer;

-  buf:array [0..63] of WideChar;

-  pt:TPoint;

-begin

-  mmenu:=MakeGroupMenu;

-  GetCursorPos(pt);

-  i:=integer(TrackPopupMenu(mmenu,TPM_RETURNCMD+TPM_NONOTIFY,pt.x,pt.y,0,parent,nil));

-  if i>0 then

-  begin

-    GetMenuStringW(mmenu,i,buf,HIGH(buf)+1,MF_BYCOMMAND);

-    StrDupW(result,buf);

-  end;

-  DestroyMenu(mmenu);

-end;

-

-(*

-static int __inline NLog(AnsiChar *msg) {

-  return CallService(MS_NETLIB_LOG, (WPARAM)hNetlibUser, (LPARAM)msg);

-}

-*)

-function GetFile(url:PAnsiChar;save_file:PAnsiChar;

-                 hNetLib:THANDLE=0;recurse_count:integer=0):bool;

-var

-  nlu:TNETLIBUSER;

-  req :TNETLIBHTTPREQUEST;

-  resp:PNETLIBHTTPREQUEST;

-  hSaveFile:THANDLE;

-  i:integer;

-begin

-  result:=false;

-  if recurse_count>MAX_REDIRECT_RECURSE then

-    exit;

-  if (url=nil) or (url^=#0) or (save_file=nil) or (save_file^=#0) then

-    exit;

-

-  FillChar(req,SizeOf(req),0);

-  req.cbSize     :=SizeOf(req);

-  req.requestType:=REQUEST_GET;

-  req.szUrl      :=url;

-  req.flags      :=NLHRF_NODUMP;

-

-

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

-  if hNetLib=0 then

-  begin

-    nlu.cbSize          :=SizeOf(nlu);

-    nlu.flags           :=NUF_HTTPCONNS or NUF_NOHTTPSOPTION or NUF_OUTGOING or NUF_NOOPTIONS;

-    nlu.szSettingsModule:='dummy';

-    hNetlib:=CallService(MS_NETLIB_REGISTERUSER,0,dword(@nlu));

-  end;

-

-  resp:=pointer(CallService(MS_NETLIB_HTTPTRANSACTION,hNetlib,dword(@req)));

-

-  if resp<>nil then

-  begin

-    if resp^.resultCode=200 then

-    begin

-      hSaveFile:=Rewrite(save_file);

-      if dword(hSaveFile)<>INVALID_HANDLE_VALUE then

-      begin

-        BlockWrite(hSaveFile,resp^.pData^,resp^.dataLength);

-        CloseHandle(hSaveFile);

-        result:=true;

-      end

-    end

-    else if (resp.resultCode>=300) and (resp.resultCode<400) then

-    begin

-      // get new location

-      for i:=0 to resp^.headersCount-1 do

-      begin

-        //MessageBox(0,resp^.headers[i].szValue, resp^.headers[i].szName,MB_OK);

-        if StrCmp(resp^.headers^[i].szName,'Location')=0 then

-        begin

-          result:=GetFile(resp^.headers^[i].szValue,save_file,hNetLib,recurse_count+1);

-          break;

-        end

-      end;

-    end

-    else

-    begin

-{

-      _stprintf(buff, TranslateT("Failed to download \"%s\" - Invalid response, code %d"), plugin_name, resp->resultCode);

-

-      ShowError(buff);

-      AnsiChar *ts = GetAString(buff);

-      NLog(ts);

-}

-    end;

-    CallService(MS_NETLIB_FREEHTTPREQUESTSTRUCT,0,dword(resp));

-

-    if nlu.cbSize<>0 then

-      CallService(MS_NETLIB_CLOSEHANDLE,hNetLib,0);

-  end;

-end;

-

-function GetFile(url:PWideChar;save_file:PWideChar;

-                 hNetLib:THANDLE=0;recurse_count:integer=0):bool;

-var

-  aurl,asave:array [0..MAX_PATH-1] of AnsiChar;

-begin

-  FastWideToAnsiBuf(url,aurl);

-  FastWideToAnsiBuf(save_file,asave);

-  result:=GetFile(aurl,asave,hNetLib,0);

-end;

-

-function GetProxy(hNetLib:THANDLE):PAnsiChar;

-var

-  nlus:TNETLIBUSERSETTINGS;

-  pc:PAnsiChar;

-  proxy:array [0..127] of AnsiChar;

-begin

-  result:=nil;

-  nlus.cbSize:=SizeOf(nlus);

-  if CallService(MS_NETLIB_GETUSERSETTINGS,hNetLib,dword(@nlus))<>0 then

-  begin

-    if nlus.useProxy<>0 then

-    begin

-      if nlus.proxyType<>PROXYTYPE_IE then

-      begin

-        pc:=@proxy;

-        if nlus.szProxyServer<>nil then

-        begin

-          if nlus.useProxyAuth<>0 then

-          begin

-            if nlus.szProxyAuthUser<>nil then

-            begin

-              pc:=StrCopyE(proxy,nlus.szProxyAuthUser);

-              if nlus.szProxyAuthPassword<>nil then

-              begin

-                pc^:=':'; inc(pc);

-                pc:=StrCopyE(pc,nlus.szProxyAuthPassword);

-              end;

-              pc^:='@';

-              inc(pc);

-            end;

-          end;

-          pc:=StrCopyE(pc,nlus.szProxyServer);

-          if nlus.wProxyPort<>0 then

-          begin

-            pc^:=':'; inc(pc);

-            IntToStr(pc,nlus.wProxyPort);

-          end;

-        end;

-        StrDup(result,proxy);

-      end

-      else // use IE proxy

-      begin

-        mGetMem(result,1);

-        result^:=#0;

-      end;

-    end;

-  end;

-end;

-

-function LoadImageURL(url:pAnsiChar;size:integer=0):HBITMAP;

-var

-  nlu:TNETLIBUSER;

-  req :TNETLIBHTTPREQUEST;

-  resp:PNETLIBHTTPREQUEST;

-  hNetLib:THANDLE;

-  im:TIMGSRVC_MEMIO;

-begin

-  result:=0;

-  if (url=nil) or (url^=#0) then

-    exit;

-

-  FillChar(req,SizeOf(req),0);

-  req.cbSize     :=SizeOf(req);

-  req.requestType:=REQUEST_GET;

-  req.szUrl      :=url;

-  req.flags      :=NLHRF_NODUMP;

-

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

-  nlu.cbSize          :=SizeOf(nlu);

-  nlu.flags           :=NUF_HTTPCONNS or NUF_NOHTTPSOPTION or NUF_OUTGOING or NUF_NOOPTIONS;

-  nlu.szSettingsModule:='dummy';

-  hNetlib:=CallService(MS_NETLIB_REGISTERUSER,0,dword(@nlu));

-

-  resp:=pointer(CallService(MS_NETLIB_HTTPTRANSACTION,hNetlib,dword(@req)));

-

-  if resp<>nil then

-  begin

-    if resp^.resultCode=200 then

-    begin

-      im.iLen :=resp.dataLength;

-      im.pBuf :=resp.pData;

-      im.flags:=size shl 16;

-      im.fif  :=FIF_JPEG;

-      result  :=CallService(MS_IMG_LOADFROMMEM,dword(@im),0);

-//      if result<>0 then

-//        DeleteObject(SendMessage(wnd,STM_SETIMAGE,IMAGE_BITMAP,result)); //!!

-    end;

-    CallService(MS_NETLIB_FREEHTTPREQUESTSTRUCT,0,dword(resp));

-  end;

-  CallService(MS_NETLIB_CLOSEHANDLE,hNetLib,0);

-end;

-

-function RegisterSingleIcon(resname,ilname,descr,group:PAnsiChar):int;

-var

-  sid:TSKINICONDESC;

-begin

-  FillChar(sid,SizeOf(TSKINICONDESC),0);

-  sid.cbSize     :=SizeOf(TSKINICONDESC);

-  sid.cx         :=16;

-  sid.cy         :=16;

-  sid.flags      :=0;

-  sid.szSection.a:=group;

-

-  sid.hDefaultIcon   :=LoadImage(hInstance,resname,IMAGE_ICON,16,16,0);

-  sid.pszName        :=ilname;

-  sid.szDescription.a:=descr;

-  result:=PluginLink^.CallService(MS_SKIN2_ADDICON,0,dword(@sid));

-  DestroyIcon(sid.hDefaultIcon);

-end;

-

-end.