MirandaNGHistoryToDB moved to deprecated

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

1 files changed, 0 insertions, 207 deletions

diff --git a/plugins/MirandaNGHistoryToDB/Contacts.pas b/plugins/MirandaNGHistoryToDB/Contacts.pas
deleted file mode 100644
index 6ecb7f7eec..0000000000
--- a/plugins/MirandaNGHistoryToDB/Contacts.pas
+++ /dev/null
@@ -1,207 +0,0 @@
-{ ################################################################################ }

-{ #                                                                              # }

-{ #  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;

-  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

-      try

-        if db_get(hContact, PAnsiChar(Proto), uid, @dbv) = 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.