diff options
Diffstat (limited to 'plugins/MirandaNGHistoryToDB/Contacts.pas')
| -rw-r--r-- | plugins/MirandaNGHistoryToDB/Contacts.pas | 211 |
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.
|