Added plugin MirandaNGHistoryToDB (www.im-history.ru)

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

1 files changed, 211 insertions, 0 deletions

diff --git a/plugins/MirandaNGHistoryToDB/Contacts.pas b/plugins/MirandaNGHistoryToDB/Contacts.pas
new file mode 100644
index 0000000000..8d95b5f3bc
--- /dev/null
+++ b/plugins/MirandaNGHistoryToDB/Contacts.pas
@@ -0,0 +1,211 @@
+{ ################################################################################ }

+{ #                                                                              # }

+{ #  MirandaNG HistoryToDB Plugin v2.5                                           # }

+{ #                                                                              # }

+{ #  License: GPLv3                                                              # }

+{ #                                                                              # }

+{ #  Author: Grigorev Michael (icq: 161867489, email: sleuthhound@gmail.com)     # }

+{ #                                                                              # }

+{ ################################################################################ }

+

+{ ################################################################################ }

+{ #                                                                              # }

+{ # History++ plugin for Miranda IM: the free IM client for Microsoft* Windows*  # }

+{ #                                                                              # }

+{ # Copyright (C) 2006-2009 theMIROn, 2003-2006 Art Fedorov.                     # }

+{ # History+ parts (C) 2001 Christian Kastner                                    # }

+{ #                                                                              # }

+{ # This program is free software; you can redistribute it and/or modify         # }

+{ # it under the terms of the GNU General Public License as published by         # }

+{ # the Free Software Foundation; either version 2 of the License, or            # }

+{ # (at your option) any later version.                                          # }

+{ #                                                                              # }

+{ # This program is distributed in the hope that it will be useful,              # }

+{ # but WITHOUT ANY WARRANTY; without even the implied warranty of               # }

+{ # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                # }

+{ # GNU General Public License for more details.                                 # }

+{ #                                                                              # }

+{ # You should have received a copy of the GNU General Public License            # }

+{ # along with this program; if not, write to the Free Software                  # }

+{ # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA    # }

+{ #                                                                              # }

+{ ################################################################################ }

+

+unit Contacts;

+

+interface

+

+uses

+  Windows, SysUtils, Forms, Classes, Global;

+

+function GetContactDisplayName(hContact: THandle; Proto: AnsiString = ''; Contact: Boolean = False): String;

+function GetContactProto(hContact: THandle): AnsiString; overload;

+function GetContactProto(hContact: THandle; var SubContact: THandle; var SubProtocol: AnsiString): AnsiString; overload;

+function GetContactID(hContact: THandle; Proto: AnsiString = ''; Contact: boolean = false): AnsiString;

+function TranslateAnsiW(const S: AnsiString): WideString;

+function GetMyContactDisplayName(Proto: AnsiString): String;

+function GetMyContactID(Proto: AnsiString): String;

+

+implementation

+

+uses m_api;

+

+function GetContactProto(hContact: THandle): AnsiString;

+begin

+  Result := PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO, hContact, 0));

+end;

+

+function GetContactProto(hContact: THandle; var SubContact: THandle; var SubProtocol: AnsiString): AnsiString;

+begin

+  Result := PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO, hContact, 0));

+  if MetaContactsEnabled and (Result = MetaContactsProto) then

+  begin

+    SubContact := CallService(MS_MC_GETMOSTONLINECONTACT, hContact, 0);

+    SubProtocol := PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO, SubContact, 0));

+  end

+  else

+  begin

+    SubContact := hContact;

+    SubProtocol := Result;

+  end;

+end;

+

+function GetContactDisplayName(hContact: THandle; Proto: AnsiString = ''; Contact: Boolean = False): String;

+var

+  ci: TContactInfo;

+  RetPWideChar, UW: PChar;

+begin

+  if (hContact = 0) and Contact then

+    Result := TranslateW('Server')

+  else

+  begin

+    if Proto = '' then

+      Proto := GetContactProto(hContact);

+    if Proto = '' then

+      Result := TranslateW('Unknown Contact')

+    else

+    begin

+      ci.cbSize := SizeOf(ci);

+      ci.hContact := hContact;

+      ci.szProto := PAnsiChar(Proto);

+      ci.dwFlag := CNF_DISPLAY + CNF_UNICODE;

+      if CallService(MS_CONTACT_GETCONTACTINFO, 0, LPARAM(@ci)) = 0 then

+      begin

+        RetPWideChar := ci.retval.szVal.w;

+        UW := TranslateW('Unknown Contact');

+        if WideCompareText(RetPWideChar, UW) = 0 then

+          Result := AnsiToWideString(GetContactID(hContact, Proto), CP_ACP)

+        else

+          Result := RetPWideChar;

+      end

+      else

+        Result := String(GetContactID(hContact, Proto));

+      if Result = '' then

+        Result := TranslateAnsiW(Proto);

+    end;

+  end;

+end;

+

+function GetContactID(hContact: THandle; Proto: AnsiString = ''; Contact: Boolean = False): AnsiString;

+var

+  uid: PAnsiChar;

+  dbv: TDBVARIANT;

+  cgs: TDBCONTACTGETSETTING;

+  tmp: String;

+begin

+  Result := '';

+  if not((hContact = 0) and Contact) then

+  begin

+    if Proto = '' then

+      Proto := GetContactProto(hContact);

+    uid := PAnsiChar(CallProtoService(PAnsiChar(Proto), PS_GETCAPS, PFLAG_UNIQUEIDSETTING, 0));

+    if (Cardinal(uid) <> CALLSERVICE_NOTFOUND) and (uid <> nil) then

+    begin

+      cgs.szModule := PAnsiChar(Proto);

+      cgs.szSetting := uid;

+      cgs.pValue := @dbv;

+      try

+        if CallService(MS_DB_CONTACT_GETSETTING, hContact, LPARAM(@cgs)) = 0 then

+        begin

+          case dbv._type of

+            DBVT_BYTE:

+              Result := AnsiString(intToStr(dbv.bVal));

+            DBVT_WORD:

+              Result := AnsiString(intToStr(dbv.wVal));

+            DBVT_DWORD:

+              Result := AnsiString(intToStr(dbv.dVal));

+            DBVT_ASCIIZ:

+              Result := AnsiString(dbv.szVal.a);

+            DBVT_UTF8:

+              begin

+                tmp := AnsiToWideString(dbv.szVal.a, CP_UTF8);

+                Result := WideToAnsiString(tmp, hppCodepage);

+              end;

+            DBVT_WCHAR:

+              Result := WideToAnsiString(dbv.szVal.w, hppCodepage);

+          end;

+          DBFreeVariant(@dbv);

+        end;

+      except

+      end;

+    end;

+  end;

+end;

+

+function TranslateAnsiW(const S: AnsiString): WideString;

+begin

+  Result := AnsiToWideString(Translate(PAnsiChar(S)),hppCodepage);

+end;

+

+function GetMyContactDisplayName(Proto: AnsiString): String;

+var

+  ci: TContactInfo;

+  RetPWideChar, UW: PChar;

+begin

+  ci.cbSize := SizeOf(ci);

+  ci.hContact := 0;

+  ci.szProto := PAnsiChar(Proto);

+  ci.dwFlag := CNF_DISPLAY + CNF_UNICODE;

+  if CallService(MS_CONTACT_GETCONTACTINFO, 0, LPARAM(@ci)) = 0 then

+  begin

+    RetPWideChar := ci.retval.szVal.w;

+    UW := TranslateW('Unknown Contact');

+    if WideCompareText(RetPWideChar, UW) = 0 then

+      Result := TranslateW('Unknown Contact')

+    else

+      Result := RetPWideChar;

+  end

+  else

+      Result := TranslateW('Unknown Contact');

+end;

+

+function GetMyContactID(Proto: AnsiString): String;

+var

+  ci: TContactInfo;

+  RetPWideChar, UW: PChar;

+  TmpContactID: AnsiString;

+begin

+  ci.cbSize := SizeOf(ci);

+  ci.hContact := 0;

+  ci.szProto := PAnsiChar(Proto);

+  ci.dwFlag := CNF_DISPLAY + CNF_UNICODE;

+  if CallService(MS_CONTACT_GETCONTACTINFO, 0, LPARAM(@ci)) = 0 then

+  begin

+    RetPWideChar := ci.retval.szVal.w;

+    UW := TranslateW('Unknown Contact');

+    if WideCompareText(RetPWideChar, UW) = 0 then

+      Result := TranslateW('Unknown Contact')

+    else

+    begin

+      TmpContactID := GetContactID(ci.hContact, Proto);

+      if TmpContactID <> '' then

+        Result := TmpContactID

+      else

+        Result := TranslateW('Unknown Contact');

+    end;

+  end

+  else

+      Result := TranslateW('Unknown Contact');

+end;

+

+end.