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

diff --git a/plugins/Utils.pas/old/ini.pas b/plugins/Utils.pas/old/ini.pas
new file mode 100644
index 0000000000..8746b51c53
--- /dev/null
+++ b/plugins/Utils.pas/old/ini.pas
@@ -0,0 +1,857 @@
+unit INI;

+

+interface

+

+uses windows;

+

+{+}function SetStorage(name:PAnsiChar;inINI:boolean):cardinal;

+{+}procedure FreeStorage(aHandle:cardinal);

+

+{+}procedure SetDefaultSection(aHandle:cardinal;name:PAnsiChar);

+{+}procedure SetCurrentSection(aHandle:cardinal;sect:PAnsiChar);

+

+{+}procedure FlushSettings(aHandle:cardinal);

+{+}procedure FlushSection(aHandle:cardinal);

+

+{+}procedure WriteNCInt(aHandle:cardinal;sect:PAnsiChar;param:PAnsiChar;value:integer);

+{+}procedure WriteNCStr(aHandle:cardinal;sect:PAnsiChar;param:PAnsiChar;value:PAnsiChar);

+

+{+}procedure WriteNCStruct(aHandle:cardinal;sect:PAnsiChar;param:PAnsiChar;ptr:pointer;size:integer);

+{*}procedure WriteStruct(aHandle:cardinal;param:PAnsiChar;ptr:pointer;size:integer);

+{+}function  ReadStruct (aHandle:cardinal;param:PAnsiChar;ptr:pointer;size:integer):boolean;

+

+{+}procedure WriteFlag(aHandle:cardinal;param:PAnsiChar;value:integer);

+{+}procedure WriteInt (aHandle:cardinal;param:PAnsiChar;value:integer);

+{+}procedure WriteStr (aHandle:cardinal;param:PAnsiChar;value:PWideChar);

+procedure WriteAnsiStr(aHandle:cardinal;param:PAnsiChar;value:PAnsiChar);

+{+}function  ReadFlag(aHandle:cardinal;param:PAnsiChar; default:integer):integer;

+{+}function  ReadInt (aHandle:cardinal;param:PAnsiChar; default:integer):integer;

+procedure ReadStr (aHandle:cardinal;var dst:PWideChar;param:PAnsiChar;default:PWideChar);

+procedure ReadAnsiStr(aHandle:cardinal;var dst:PAnsiChar;param:PAnsiChar;default:PAnsiChar);

+

+procedure WriteSect(aHandle:cardinal;src:PAnsiChar);

+procedure ReadSect (aHandle:cardinal;var dst:PAnsiChar);

+

+{*}procedure ClearSection(aHandle:cardinal);

+{+}procedure DeleteParam(aHandle:cardinal;param:PAnsiChar);

+

+implementation

+

+uses common,io,m_api,dbsettings;

+

+type

+  PStorage = ^TStorage;

+  TStorage = record

+    SName     :PAnsiChar;

+    SType     :bool;

+    SHandle   :THANDLE;

+    DefSection:PAnsiChar;

+    Section   :Array [0..127] of AnsiChar;

+    ParOffset :integer;

+    Buffer    :PAnsiChar;

+    INIBuffer :PAnsiChar;

+  end;

+  PStHeap = ^TStHeap;

+  TStHeap = array [0..10] of TStorage;

+

+const

+  Storage:PStHeap=nil;

+  NumStorage:cardinal=0;

+

+type

+  pbrec=^brec;

+  brec=record

+    ptr:PAnsiChar;

+    handle:cardinal;

+  end;

+

+const

+  DefDefSection:PAnsiChar = 'default';

+

+{+}function SetStorage(name:PAnsiChar;inINI:boolean):cardinal;

+var

+  i:integer;

+  tmp:PStHeap;

+begin

+  if Storage=nil then

+  begin

+    mGetMem(Storage,SizeOf(TStorage));

+    FillChar(Storage^,SizeOf(TStorage),0);

+    NumStorage:=1;

+    result:=0;

+  end

+  else

+  begin

+    integer(result):=-1;

+    for i:=0 to NumStorage-1 do

+    begin

+      if Storage^[i].SName=nil then // free cell

+      begin

+        result:=i;

+        break;

+      end;

+    end;

+    if integer(result)<0 then

+    begin

+      mGetMem(tmp,SizeOf(TStorage)*(NumStorage+1));

+      move(Storage^,tmp^,SizeOf(TStorage)*NumStorage);

+      mFreeMem(Storage);

+      Storage:=tmp;

+      FillChar(Storage^[NumStorage],SizeOf(TStorage),0);

+      result:=NumStorage;

+      inc(NumStorage);

+    end

+  end;

+  with Storage^[result] do

+  begin

+    StrDup(SName,name);

+    SType:=inINI;

+  end;

+end;

+

+{+}procedure FreeStorage(aHandle:cardinal);

+begin

+  if aHandle>=NumStorage then

+    exit;

+  with Storage^[aHandle] do

+  begin

+    mFreeMem(SName);

+    mFreeMem(DefSection);

+    mFreeMem(Buffer);

+    mFreeMem(INIBuffer);

+  end;

+end;

+

+{+}procedure WriteNCStruct(aHandle:cardinal;sect:PAnsiChar;param:PAnsiChar;ptr:pointer;size:integer);

+var

+  cws:TDBCONTACTWRITESETTING;

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

+  i:integer;

+begin

+  if aHandle>=NumStorage then

+    exit;

+  with Storage^[aHandle] do

+    if SType then

+    begin

+      if (sect=nil) or (sect^=#0) then

+        sect:=DefSection;

+      if sect=nil then

+        sect:=DefDefSection;

+      WritePrivateProfileStructA(sect,param,ptr,size,SName);

+    end

+    else

+    begin

+      if (sect<>nil) and (sect^<>#0) then

+      begin

+        i:=StrLen(sect);

+        move(sect^,pn,i);

+        pn[i]:='/';

+        inc(i);

+      end

+      else

+        i:=0;

+      StrCopy(pn+i,param);

+      cws.szModule    :=SName;

+      cws.szSetting   :=pn;

+      cws.value._type :=DBVT_BLOB;

+      cws.value.pbVal :=ptr;

+      cws.value.cpbVal:=size;

+      PluginLink^.CallService(MS_DB_CONTACT_WRITESETTING,0,lParam(@cws));

+    end

+end;

+

+{*}procedure WriteStruct(aHandle:cardinal;param:PAnsiChar;ptr:pointer;size:integer);

+const

+  hex:array [0..15] of AnsiChar = '0123456789ABCDEF';

+var

+  lptr:PAnsiChar;

+  buf,buf1:PAnsiChar;

+  i:integer;

+  crc:integer;

+  cws:TDBCONTACTWRITESETTING;

+begin

+  if aHandle>=NumStorage then

+    exit;

+  with Storage^[aHandle] do

+    if SType then

+    begin

+      mGetMem(buf,(size+1)*2);

+      crc:=0;

+      buf1:=buf;

+      for i:=0 to size-1 do

+      begin

+        inc(crc,PByte(ptr)^);

+        buf1^    :=hex[pbyte(ptr)^ shr 4];

+        (buf1+1)^:=hex[pbyte(ptr)^ and $0F];

+        inc(buf1,2);

+        inc(pbyte(ptr));

+      end;

+      buf1^    :=hex[(crc and $FF) shr 4];

+      (buf1+1)^:=hex[(crc and $0F)];

+

+      StrCat(Buffer,param);

+      lptr:=StrEnd(Buffer);

+      lptr^:='=';

+      inc(lptr);

+      move(buf^,lptr^,(size+1)*2);

+      mFreeMem(buf);

+      inc(lptr,(size+1)*2);

+      lptr^    :=#13;

+      (lptr+1)^:=#10;

+      (lptr+2)^:=#0;

+    end

+    else

+    begin

+      StrCopy(Section+ParOffset,param);

+      cws.szModule    :=SName;

+      cws.szSetting   :=Section;

+      cws.value._type :=DBVT_BLOB;

+      cws.value.pbVal :=ptr;

+      cws.value.cpbVal:=size;

+      PluginLink^.CallService(MS_DB_CONTACT_WRITESETTING,0,lParam(@cws));

+    end

+end;

+

+{+}function ReadStruct(aHandle:cardinal;param:PAnsiChar;ptr:pointer;size:integer):boolean;

+var

+  dbv:TDBVariant;

+begin

+  if aHandle>=NumStorage then

+  begin

+    result:=false;

+    exit;

+  end;

+  with Storage^[aHandle] do

+    if SType then

+    begin

+      result:=GetPrivateProfileStructA(Section,param,ptr,size,SName);

+    end

+    else

+    begin

+      dbv._type:=DBVT_BLOB;

+      dbv.pbVal:=nil;

+      StrCopy(Section+ParOffset,param);

+      if (DBReadSetting(0,SName,Section,@dbv)=0) and

+         (dbv.pbVal<>nil) and (dbv.cpbVal=size) then

+      begin

+        move(dbv.pbVal^,ptr^,size);

+        DBFreeVariant(@dbv);

+        result:=true;

+      end

+      else

+        result:=false;

+    end

+end;

+

+{+}procedure WriteNCInt(aHandle:cardinal;sect:PAnsiChar;param:PAnsiChar;value:integer);

+var

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

+  i:integer;

+begin

+  if aHandle>=NumStorage then

+    exit;

+  with Storage^[aHandle] do

+    if Stype then

+    begin

+      if (sect=nil) or (sect^=#0) then

+        sect:=DefSection;

+      if sect=nil then

+        sect:=DefDefSection;

+      WritePrivateProfileStringA(sect,param,IntToStr(pn,value),SName);

+    end

+    else

+    begin

+      if (sect<>nil) and (sect^<>#0) then

+      begin

+        i:=StrLen(sect);

+        move(sect^,pn,i);

+        pn[i]:='/';

+        inc(i);

+      end

+      else

+        i:=0;

+      StrCopy(pn+i,param);

+      DBWriteDWord(0,SName,pn,value)

+    end

+end;

+

+{+}procedure WriteNCStr(aHandle:cardinal;sect:PAnsiChar;param:PAnsiChar;value:PAnsiChar);

+var

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

+  i:integer;

+begin

+  if aHandle>=NumStorage then

+    exit;

+  with Storage^[aHandle] do

+    if SType then

+    begin

+      if (sect=nil) or (sect^=#0) then

+        sect:=DefSection;

+      if sect=nil then

+        sect:=DefDefSection;

+      WritePrivateProfileStringA(sect,param,value,SName);

+    end

+    else

+    begin

+      if (sect<>nil) and (sect^<>#0) then

+      begin

+        i:=StrLen(sect);

+        move(sect^,pn,i);

+        pn[i]:='/';

+        inc(i);

+      end

+      else

+        i:=0;

+      StrCopy(pn+i,param);

+      DBWriteString(0,SName,pn,value);

+    end

+end;

+

+{+}procedure SetDefaultSection(aHandle:cardinal;name:PAnsiChar);

+begin

+  if aHandle>=NumStorage then

+    exit;

+  with Storage^[aHandle] do

+  begin

+    mFreeMem(DefSection);

+    StrDup(DefSection,name);

+  end;

+end;

+

+{+}procedure SetCurrentSection(aHandle:cardinal;sect:PAnsiChar);

+begin

+  if aHandle>=NumStorage then

+    exit;

+  with Storage^[aHandle] do

+  begin

+    if sect=nil then

+      sect:=DefSection;

+    if sect=nil then

+      sect:='';

+    if SType then

+    begin

+      if (sect=nil) or (sect^=#0) then

+        sect:=DefDefSection;

+      StrCopy(Section,sect);

+      mGetMem(Buffer,16384);

+      Buffer^    :=#13;

+      (Buffer+1)^:=#10;

+      (Buffer+2)^:=#0;

+    end

+    else

+    begin

+      if sect<>nil then

+      begin

+        StrCopy(Section,sect);

+        ParOffset:=StrLen(Section);

+        Section[ParOffset]:='/';

+        inc(ParOffset);

+      end

+      else

+        ParOffset:=0;

+    end

+  end;

+end;

+

+{+}procedure FlushSettings(aHandle:cardinal);

+var

+  size:integer;

+  ptr:PAnsiChar;

+begin

+  if aHandle>=NumStorage then

+    exit;

+  with Storage^[aHandle] do

+  begin

+    if SType then

+    begin

+      if INIBuffer=nil then

+        exit;

+      ptr:=INIBuffer+1;

+      size:=StrLen(ptr);

+      seek(SHandle,0);

+      BlockWrite(SHandle,ptr^,size);

+      SetEndOfFile(SHandle);

+      mFreeMem(INIBuffer);

+      CloseHandle(SHandle);

+    end;

+  end;

+end;

+

+{+}procedure FlushSection(aHandle:cardinal);

+var

+  size,i:integer;

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

+  ptr1,ptr:PAnsiChar;

+begin

+  if aHandle>=NumStorage then

+    exit;

+  with Storage^[aHandle] do

+    if SType then

+    begin

+      if INIBuffer=nil then

+      begin

+        mGetMem(INIBuffer,32768);

+        INIBuffer[0]:=#10;

+        SHandle:=Reset(SName);

+        if thandle(SHandle)=INVALID_HANDLE_VALUE then

+          INIBuffer[1]:=#0

+        else

+        begin

+          size:=FileSize(SHandle);

+          INIBuffer[size+1]:=#0;

+          BlockRead(SHandle,(INIBuffer+1)^,size);

+          CloseHandle(SHandle);

+        end;

+        SHandle:=ReWrite(SName);

+      end;

+      // construct section name

+      sect[0]:=#10;

+      sect[1]:='[';

+      size:=StrLen(Section);

+      move(Section,sect[2],size);

+      sect[size+2]:=']';

+      sect[size+3]:=#0;

+      // search section

+      ptr:=StrPos(INIBuffer,sect);

+      // delete section

+      if ptr<>nil then

+      begin

+        ptr1:=ptr;

+//!!        inc(ptr);

+        while (ptr^<>#0) and ((ptr^<>#10) or ((ptr+1)^<>'[')) do inc(ptr);

+        if ptr^<>#0 then

+          StrCopy(ptr1,ptr+1)

+        else

+          ptr1^:=#0;

+      end;

+      // append section

+      if (Buffer<>nil) and (StrLen(Buffer)>0) then

+      begin

+        i:=StrLen(INIBuffer);

+        if INIBuffer[i-1]<>#10 then

+        begin

+          INIBuffer[i]  :=#13;

+          INIBuffer[i+1]:=#10;

+          inc(i,2);

+        end;

+        StrCopy(INIBuffer+i,sect+1);

+        StrCat(INIBuffer,Buffer);

+      end;

+      mFreeMem(Buffer);

+    end;

+end;

+

+{+}procedure WriteFlag(aHandle:cardinal;param:PAnsiChar;value:integer);

+var

+  ptr:PAnsiChar;

+begin

+  if aHandle>=NumStorage then

+    exit;

+  with Storage^[aHandle] do

+    if SType then

+    begin

+      StrCat(Buffer,param);

+      ptr:=StrEnd(Buffer);

+      ptr^:='=';

+      (ptr+1)^:=CHR((value and 1)+ORD('0'));

+      inc(ptr,2);

+      ptr^    :=#13;

+      (ptr+1)^:=#10;

+      (ptr+2)^:=#0;

+    end

+    else

+    begin

+      StrCopy(Section+ParOffset,param);

+      DBWriteByte(0,SName,Section,value)

+    end;

+end;

+

+{+}procedure WriteInt(aHandle:cardinal;param:PAnsiChar;value:integer);

+var

+  ptr:PAnsiChar;

+begin

+  if aHandle>=NumStorage then

+    exit;

+  with Storage^[aHandle] do

+    if SType then

+    begin

+      StrCat(Buffer,param);

+      ptr:=StrEnd(Buffer);

+      ptr^:='=';

+      IntToStr(ptr+1,value);

+      ptr:=StrEnd(Buffer);

+      ptr^    :=#13;

+      (ptr+1)^:=#10;

+      (ptr+2)^:=#0;

+    end

+    else

+    begin

+      StrCopy(Section+ParOffset,param);

+      DBWriteDWord(0,SName,Section,value)

+    end;

+end;

+

+procedure WriteStrInt(aHandle:cardinal;param:PAnsiChar;value:pointer;wide:bool);

+var

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

+  ptr:PAnsiChar;

+  lval:PAnsiChar;

+begin

+  if aHandle>=NumStorage then

+    exit;

+  with Storage^[aHandle] do

+    if SType then

+    begin

+      StrCat(Buffer,param);

+      ptr:=StrEnd(Buffer);

+      ptr^:='=';

+      inc(ptr);

+      if (value<>nil) then

+      begin

+        buf[0]:=#0;

+        if wide then

+        begin

+          if PWideChar(value)^<>#0 then

+          begin

+            WideToUTF8(value,lval);

+            StrCopy(buf,lval,SizeOf(buf)-1);

+            mFreeMem(lval);

+          end

+        end

+        else if PAnsiChar(value)^<>#0 then

+          StrCopy(buf,value,SizeOf(buf)-1);

+        if buf[0]<>#0 then

+        begin

+          Escape(buf);

+          StrCopy(ptr,buf);

+          ptr:=StrEnd(Buffer);

+        end;

+      end;

+      ptr^    :=#13;

+      (ptr+1)^:=#10;

+      (ptr+2)^:=#0;

+    end

+    else

+    begin

+      StrCopy(Section+ParOffset,param);

+      if wide then

+        DBWriteUnicode(0,SName,Section,value)

+      else

+        DBWriteString(0,SName,Section,value)

+    end;

+end;

+

+{+}procedure WriteStr(aHandle:cardinal;param:PAnsiChar;value:PWideChar);

+begin

+  WriteStrInt(aHandle,param,value,true);

+end;

+

+{+}procedure WriteAnsiStr(aHandle:cardinal;param:PAnsiChar;value:PAnsiChar);

+begin

+  WriteStrInt(aHandle,param,value,false);

+end;

+

+{+}function ReadFlag(aHandle:cardinal; param:PAnsiChar; default:integer):integer;

+begin

+  if aHandle>=NumStorage then

+  begin

+    result:=default;

+    exit;

+  end;

+  with Storage^[aHandle] do

+    if SType then

+    begin

+      result:=GetPrivateProfileIntA(Section,param,default,SName)

+    end

+    else

+    begin

+      StrCopy(Section+ParOffset,param);

+      result:=DBReadByte(0,SName,Section,default)

+    end;

+end;

+

+{+}function ReadInt(aHandle:cardinal; param:PAnsiChar; default:integer):integer;

+begin

+  if aHandle>=NumStorage then

+  begin

+    result:=default;

+    exit;

+  end;

+  with Storage^[aHandle] do

+    if SType then

+    begin

+      result:=GetPrivateProfileIntA(Section,param,default,SName)

+    end

+    else

+    begin

+      StrCopy(Section+ParOffset,param);

+      result:=DBReadDWord(0,SName,Section,default)

+    end;

+end;

+

+procedure ReadStrInt(aHandle:cardinal;var dst;param:PAnsiChar;default:pointer;wide:bool);

+

+  function EnumSettingsProc(const szSetting:PAnsiChar;lParam:LPARAM):int; cdecl;

+  var

+    p:pbrec;

+    i:integer;

+  begin

+    p:=pbrec(lparam);

+    if StrCmp(Storage^[p^.handle].Section,szSetting,Storage^[p^.handle].ParOffset)=0 then

+    begin

+      i:=StrLen(szSetting)+1;

+      move(szSetting^,p^.ptr^,i);

+      inc(p^.ptr,i);

+    end;

+    result:=0;

+  end;

+

+var

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

+  p:brec;

+  ces:TDBCONTACTENUMSETTINGS;

+  def:PAnsiChar;

+  i:integer;

+begin

+  if aHandle>=NumStorage then

+  begin

+    if wide then

+      StrDupW(pWideChar(dst),pWideChar(default))

+    else

+      StrDup(PAnsiChar(dst),PAnsiChar(default));

+    exit;

+  end;

+  with Storage^[aHandle] do

+    if SType then

+    begin

+      if wide then

+      begin

+        if default=nil then

+          StrDup(def,'')

+        else

+          WideToUTF8(default,def);

+      end

+      else

+      begin

+        if default=nil then

+          def:=''

+        else

+          def:=default;

+      end;

+      i:=GetPrivateProfileStringA(Section,param,def,buf,4095,SName)+1;

+      mFreeMem(def);

+      if param<>nil then

+      begin

+        if buf[0]<>#0 then

+        begin

+          Unescape(buf);

+          if wide then

+            UTF8ToWide(buf,pWideChar(dst))

+          else

+            StrDup(PAnsiChar(dst),buf);

+        end

+        else

+          PAnsiChar(dst):=nil;

+      end

+      else //!! full section

+      begin

+        mGetMem(dst,i);

+        move(buf,PAnsiChar(dst)^,i);

+        buf[i-1]:=#0;

+      end;

+    end

+    else

+    begin

+      if param<>nil then

+      begin

+        StrCopy(Section+ParOffset,param);

+        if wide then

+          pWideChar(dst):=DBReadUnicode(0,SName,Section,pWideChar(default))

+        else

+          PAnsiChar(dst):=DBReadString(0,SName,Section,PAnsiChar(default));

+      end

+      else

+      begin

+        p.ptr:=@buf;

+        p.handle:=aHandle;

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

+        ces.pfnEnumProc:=@EnumSettingsProc;

+        ces.lParam     :=lparam(@p);

+        ces.szModule   :=SName;

+        ces.ofsSettings:=0;

+        PluginLink^.CallService(MS_DB_CONTACT_ENUMSETTINGS,0,lparam(@ces));

+        mGetMem(dst,p.ptr-PAnsiChar(@buf)+1);

+        move(buf,PAnsiChar(dst)^,p.ptr-PAnsiChar(@buf)+1);

+      end;

+    end;

+end;

+

+procedure ReadStr(aHandle:cardinal;var dst:PWideChar;param:PAnsiChar;default:PWideChar);

+begin

+  ReadStrInt(aHandle,dst,param,default,true);

+end;

+

+procedure ReadAnsiStr(aHandle:cardinal;var dst:PAnsiChar;param:PAnsiChar;default:PAnsiChar);

+begin

+  ReadStrInt(aHandle,dst,param,default,false);

+end;

+

+{*}procedure ClearSection(aHandle:cardinal);

+

+  function EnumSettingsProc(const szSetting:PAnsiChar;lParam:LPARAM):int; cdecl;

+  var

+    db:TDBCONTACTGETSETTING;

+  begin

+    with Storage^[lParam] do

+    begin

+      db.szModule:=SName;

+      StrCopy(Section+ParOffset,szSetting);

+      db.szSetting:=Section;

+    end;

+    PluginLink^.CallService(MS_DB_CONTACT_DELETESETTING,0,tlparam(@db));

+    result:=0;

+  end;

+

+var

+  ces:TDBCONTACTENUMSETTINGS;

+begin

+  if aHandle>=NumStorage then

+    exit;

+  with Storage^[aHandle] do

+    if SType then

+      WritePrivateProfileStringA(Section,nil,nil,SName)

+    else

+    begin

+      ces.pfnEnumProc:=@EnumSettingsProc;

+      ces.lParam     :=aHandle;

+      ces.szModule   :=SName;

+      ces.ofsSettings:=0;

+      PluginLink^.CallService(MS_DB_CONTACT_ENUMSETTINGS,0,lparam(@ces));

+    end;

+end;

+

+{*}procedure WriteSect(aHandle:cardinal;src:PAnsiChar);

+var

+  p:PAnsiChar;

+begin

+  if aHandle>=NumStorage then

+    exit;

+  with Storage^[aHandle] do

+    if SType then

+      WritePrivateProfileSectionA(Section,src,SName)

+    else

+    begin

+      ClearSection(aHandle);

+      while src^<>#0 do

+      begin

+        // write as strings

+        p:=src;

+        while src^<>'=' do inc(src);

+        inc(src);

+        DBWriteString(0,SName,p,src);

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

+        inc(src);

+      end;

+    end;

+end;

+

+procedure ReadSect(aHandle:cardinal;var dst:PAnsiChar);

+

+  function EnumSettingsProc(const szSetting:PAnsiChar;lParam:LPARAM):int; cdecl;

+  var

+    dbv:TDBVariant;

+    i:integer;

+    p:pbrec;

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

+  begin

+    result:=1;

+

+    p:=pbrec(lparam);

+    if (DBReadSetting(0,Storage^[p^.handle].Section,szSetting,@dbv)=0) then

+    begin

+      i:=StrLen(szSetting);

+      move(szSetting^,p^.ptr^,i);

+      inc(p^.ptr,i);

+      p^.ptr^:='=';

+      case dbv._type of

+        DBVT_ASCIIZ: begin

+          if dbv.szVal.a<>nil then

+          begin

+            i:=StrLen(dbv.szVal.a)+1;

+            move(dbv.szVal.a^,(p^.ptr+1)^,i);

+            DBFreeVariant(@dbv);

+          end

+        end;

+        DBVT_BYTE,DBVT_WORD,DBVT_DWORD: begin

+          case dbv._type of

+            DBVT_BYTE : i:=dbv.bVal;

+            DBVT_WORD : i:=dbv.wVal;

+            DBVT_DWORD: i:=dbv.dVal;

+          end;

+          i:=StrLen(IntToStr(buf,i))+1;

+          move(buf,(p^.ptr+1)^,i);

+        end;

+      else

+        exit;

+      end;

+      inc(p^.ptr,i{+1});

+    end;

+  end;

+

+var

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

+  p:brec;

+  ces:TDBCONTACTENUMSETTINGS;

+  i:integer;

+begin

+  if aHandle>=NumStorage then

+  begin

+    dst:=nil;

+    exit;

+  end;

+  with Storage^[aHandle] do

+  begin

+    if SType then

+    begin

+      i:=GetPrivateProfileSectionA(Section,buf,SizeOf(buf),SName)+1;

+    end

+    else

+    begin

+      p.ptr:=@buf;

+      p.handle:=aHandle;

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

+

+      ces.pfnEnumProc:=@EnumSettingsProc;

+      ces.lParam     :=lparam(@p);

+      ces.szModule   :=SName;

+      ces.ofsSettings:=0;

+      PluginLink^.CallService(MS_DB_CONTACT_ENUMSETTINGS,0,lparam(@ces));

+      i:=p.ptr-PAnsiChar(@buf)+1;

+    end;

+    mGetMem(dst,i);

+    move(buf,dst^,i);

+    buf[i-1]:=#0;

+  end;

+end;

+

+{+}procedure DeleteParam(aHandle:cardinal;param:PAnsiChar);

+var

+  db:TDBCONTACTGETSETTING;

+begin

+  if aHandle>=NumStorage then

+    exit;

+  with Storage^[aHandle] do

+  begin

+    if SType then

+      WritePrivateProfileStringA(Section,param,nil,SName)

+    else

+    begin

+      StrCopy(Section+ParOffset,param);

+      db.szModule :=SName;

+      db.szSetting:=Section;

+      PluginLink^.CallService(MS_DB_CONTACT_DELETESETTING,0,lparam(@db));

+    end;

+  end;

+end;

+

+end.