diff options
Diffstat (limited to 'plugins/MirandaNGHistoryToDB/Menu.pas')
| -rw-r--r-- | plugins/MirandaNGHistoryToDB/Menu.pas | 326 |
1 files changed, 326 insertions, 0 deletions
diff --git a/plugins/MirandaNGHistoryToDB/Menu.pas b/plugins/MirandaNGHistoryToDB/Menu.pas new file mode 100644 index 0000000000..15d51a11b7 --- /dev/null +++ b/plugins/MirandaNGHistoryToDB/Menu.pas @@ -0,0 +1,326 @@ +{ ################################################################################ }
+{ # # }
+{ # MirandaNG HistoryToDB Plugin v2.5 # }
+{ # # }
+{ # License: GPLv3 # }
+{ # # }
+{ # Author: Grigorev Michael (icq: 161867489, email: sleuthhound@gmail.com) # }
+{ # # }
+{ ################################################################################ }
+
+unit Menu;
+
+{$I jedi.inc}
+
+interface
+
+uses
+ Windows, Classes, SysUtils, ShellApi, MsgExport, m_api, Database, Global;
+
+type
+ TMenuItem = record
+ Name: String;
+ Icon: String;
+ Position: Integer;
+ Proc: TMIRANDASERVICEPARAM;
+ Flags: DWord;
+ end;
+
+var
+ MainMenuItems: Array [1..9] of TMenuItem;
+ MainMenuHandle: Array [1..9] of THandle;
+ MenuHandle: Array [1..9] of THandle;
+ ChildExport: TExportForm;
+
+procedure MenuMainItemsInit; cdecl; forward;
+procedure RebuildMainMenu; cdecl; forward;
+{$ifdef DELPHIXE_UP}
+function MainMenuSync(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl; forward;
+function MainMenuGetContactList(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl; forward;
+function MainMenuCheckUpdate(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl; forward;
+function MainMenuExportAllHistory(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl; forward;
+function MainMenuCheckMD5Hash(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl; forward;
+function MainMenuCheckAndDeleteMD5Hash(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl; forward;
+function MainMenuUpdateContactList(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl; forward;
+function MainMenuSettings(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl; forward;
+function MainMenuAbout(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl; forward;
+{$ELSE}
+function MainMenuSync(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl; forward;
+function MainMenuGetContactList(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl; forward;
+function MainMenuCheckUpdate(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl; forward;
+function MainMenuExportAllHistory(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl; forward;
+function MainMenuCheckMD5Hash(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl; forward;
+function MainMenuCheckAndDeleteMD5Hash(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl; forward;
+function MainMenuUpdateContactList(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl; forward;
+function MainMenuSettings(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl; forward;
+function MainMenuAbout(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl; forward;
+{$endif DELPHIXE_UP}
+
+implementation
+
+uses Contacts, About, FSMonitor;
+
+{ Активируем меню }
+procedure MenuMainItemsInit;
+begin
+ MainMenuItems[1].Name := WideStringToString(GetLangStr('SyncButton'), CP_ACP);
+ MainMenuItems[1].Icon := 'ICON_0';
+ MainMenuItems[1].Position := 000000;
+ MainMenuItems[1].Proc := MainMenuSync;
+
+ MainMenuItems[2].Name := WideStringToString(GetLangStr('ExportAllHistoryButton'), CP_ACP);
+ MainMenuItems[2].Icon := '';
+ MainMenuItems[2].Position := 100000;
+ MainMenuItems[2].Proc := MainMenuExportAllHistory;
+
+ MainMenuItems[3].Name := WideStringToString(GetLangStr('GetContactListButton'), CP_ACP);
+ MainMenuItems[3].Icon := '';
+ MainMenuItems[3].Position := 100001;
+ MainMenuItems[3].Proc := MainMenuGetContactList;
+
+ MainMenuItems[4].Name := WideStringToString(GetLangStr('CheckMD5Hash'), CP_ACP);
+ MainMenuItems[4].Icon := '';
+ MainMenuItems[4].Position := 100002;
+ MainMenuItems[4].Proc := MainMenuCheckMD5Hash;
+
+ MainMenuItems[5].Name := WideStringToString(GetLangStr('CheckAndDeleteMD5Hash'), CP_ACP);
+ MainMenuItems[5].Icon := '';
+ MainMenuItems[5].Position := 100003;
+ MainMenuItems[5].Proc := MainMenuCheckAndDeleteMD5Hash;
+
+ MainMenuItems[6].Name := WideStringToString(GetLangStr('UpdateContactListButton'), CP_ACP);
+ MainMenuItems[6].Icon := '';
+ MainMenuItems[6].Position := 100004;
+ MainMenuItems[6].Proc := MainMenuUpdateContactList;
+
+ MainMenuItems[7].Name := WideStringToString(GetLangStr('CheckUpdateButton'), CP_ACP);
+ MainMenuItems[7].Icon := '';
+ MainMenuItems[7].Position := 100004;
+ MainMenuItems[7].Proc := MainMenuCheckUpdate;
+
+ MainMenuItems[8].Name := WideStringToString(GetLangStr('SettingsButton'), CP_ACP);
+ MainMenuItems[8].Icon := '';
+ MainMenuItems[8].Position := 200000;
+ MainMenuItems[8].Proc := MainMenuSettings;
+
+ MainMenuItems[9].Name := WideStringToString(GetLangStr('AboutButton'), CP_ACP);
+ MainMenuItems[9].Icon := '';
+ MainMenuItems[9].Position := 300000;
+ MainMenuItems[9].Proc := MainMenuAbout;
+end;
+
+{ Перестройка пунктов в основном меню }
+procedure RebuildMainMenu;
+var
+ I: Integer;
+ Mi: TCListMenuItem;
+begin
+ // Инициализация основного меню
+ MenuMainItemsInit;
+ // Модифицируем меню
+ for I := Low(MenuHandle) to High(MenuHandle) do
+ begin
+ ZeroMemory(@Mi, SizeOf(Mi));
+ Mi.cbSize := SizeOf(Mi);
+ Mi.flags := CMIM_FLAGS;
+ Mi.flags := Mi.flags or CMIM_NAME;
+ Mi.szName.a := pAnsiChar(AnsiString(MainMenuItems[I].Name));
+ CallService(MS_CLIST_MODIFYMENUITEM, MenuHandle[I], Windows.LPARAM(@Mi));
+ if EnableDebug then WriteInLog(ProfilePath, FormatDateTime('dd.mm.yy hh:mm:ss', Now) + ' - Процедура RebuildMainMenu: ' + 'MainMenuName = ' + MainMenuItems[I].Name, 2);
+ end;
+end;
+
+{ Синхронизировать историю }
+{$ifdef DELPHIXE_UP}
+function MainMenuSync(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl;
+{$ELSE}
+function MainMenuSync(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl;
+{$endif DELPHIXE_UP}
+begin
+ Result := 0;
+ OnSendMessageToOneComponent('HistoryToDBSync for ' + htdIMClientName + ' ('+MyAccount+')', '002');
+end;
+
+{ Экспорт истории }
+{$ifdef DELPHIXE_UP}
+function MainMenuExportAllHistory(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl;
+{$ELSE}
+function MainMenuExportAllHistory(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl;
+{$endif DELPHIXE_UP}
+begin
+ Result := 0;
+ if ExportFormDestroy then
+ ChildExport := TExportForm.Create(nil);
+ if not ChildExport.Showing then
+ ChildExport.Show
+ else
+ ChildExport.BringFormToFront(ChildExport);
+end;
+
+{ Сохранить список протоколов и контакт лист }
+{$ifdef DELPHIXE_UP}
+function MainMenuGetContactList(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl;
+{$ELSE}
+function MainMenuGetContactList(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl;
+{$endif DELPHIXE_UP}
+var
+ hContact: Cardinal;
+ ContactProto, ContactID, ContactName, GroupName: AnsiString;
+ AccountCount: Integer;
+ AccountName: ^PPROTOACCOUNT;
+begin
+ // Получаем список контактов
+ hContact := CallService(MS_DB_CONTACT_FINDFIRST, 0, 0);
+ while hContact <> 0 do
+ begin
+ ContactProto := GetContactProto(hContact);
+ ContactID := GetContactID(hContact, ContactProto);
+ ContactName := GetContactDisplayName(hContact, '', True);
+ GroupName := GetDBStr(hContact , 'CList' , 'Group' , GetLangStr('ContactNotInTheList'));
+ if ContactName = '' then
+ ContactName := TranslateW('Unknown Contact');
+ if ContactID = '' then
+ ContactID := TranslateW('Unknown Contact');
+ if not ((MatchStrings(LowerCase(ContactProto), 'skype*')) or (ContactID = TranslateW('Unknown Contact')) or MatchStrings(LowerCase(ContactProto), 'metacontacts*')) then
+ WriteInLog(ProfilePath, Format('%s;%s;%s;%d', [ContactID, ContactName, GroupName, StrContactProtoToInt(ContactProto)]), 3);
+ hContact := CallService(MS_DB_CONTACT_FINDNEXT, hContact, 0);
+ end;
+ AccountCount := 0;
+ // Выгружаем список протоколов в файл ProtoList.csv
+ if (CallService(MS_PROTO_ENUMACCOUNTS, Integer(@AccountCount), Integer(@AccountName)) = 0) and (AccountCount <> 0) then
+ begin
+ while AccountCount > 0 do
+ begin
+ if not((AccountName^.szModuleName = 'MetaContacts') or (MatchStrings(LowerCase(AccountName^.szModuleName), 'skype*'))) then
+ //if not MatchStrings(LowerCase(AccountName^.szModuleName), 'skype*') then
+ WriteInLog(ProfilePath, Format('%s;%s;%d;%s;%s;%s', [AccountName^.szModuleName, GetMyContactID(AccountName^.szModuleName), StrContactProtoToInt(AccountName^.szProtoName), GetMyContactDisplayName(AccountName^.szModuleName), '', '']), 4);
+ Inc(AccountName);
+ Dec(AccountCount);
+ end;
+ end;
+ // Закрываем файлы
+ if ContactListLogOpened then
+ CloseLogFile(3);
+ if ProtoListLogOpened then
+ CloseLogFile(4);
+ Result := 0;
+ if (FileExists(ProfilePath + ContactListName)) and (FileExists(ProfilePath + ProtoListName)) then
+ MsgInf(htdPluginShortName, GetLangStr('SaveContactListCompleted'))
+ else
+ MsgInf(htdPluginShortName, GetLangStr('SaveContactListErr'));
+end;
+
+{ Запустить перерасчет MD5-хешей }
+{$ifdef DELPHIXE_UP}
+function MainMenuCheckMD5Hash(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl;
+{$ELSE}
+function MainMenuCheckMD5Hash(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl;
+{$endif DELPHIXE_UP}
+begin
+ Result := 0;
+ OnSendMessageToOneComponent('HistoryToDBSync for ' + htdIMClientName + ' ('+MyAccount+')', '0050');
+end;
+
+{ Запустить перерасчет MD5-хешей и удаления дубликатов }
+{$ifdef DELPHIXE_UP}
+function MainMenuCheckAndDeleteMD5Hash(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl;
+{$ELSE}
+function MainMenuCheckAndDeleteMD5Hash(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl;
+{$endif DELPHIXE_UP}
+begin
+ Result := 0;
+ OnSendMessageToOneComponent('HistoryToDBSync for ' + htdIMClientName + ' ('+MyAccount+')', '0051');
+end;
+
+{ Запрос на обновление контакт листа }
+{$ifdef DELPHIXE_UP}
+function MainMenuUpdateContactList(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl;
+{$ELSE}
+function MainMenuUpdateContactList(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl;
+{$endif DELPHIXE_UP}
+begin
+ Result := 0;
+ if FileExists(ProfilePath+ContactListName) then
+ OnSendMessageToOneComponent('HistoryToDBSync for ' + htdIMClientName + ' ('+MyAccount+')', '007')
+ else
+ MsgInf(htdPluginShortName, Format(GetLangStr('SendUpdateContactListErr'), [ContactListName]));
+end;
+
+{ Запустить обновление }
+{$ifdef DELPHIXE_UP}
+function MainMenuCheckUpdate(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl;
+{$ELSE}
+function MainMenuCheckUpdate(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl;
+{$endif DELPHIXE_UP}
+var
+ WinName: String;
+begin
+ // Ищем окно HistoryToDBUpdater
+ WinName := 'HistoryToDBUpdater';
+ if not SearchMainWindow(pWideChar(WinName)) then // Если HistoryToDBUpdater не найден, то ищем другое окно
+ begin
+ WinName := 'HistoryToDBUpdater for ' + htdIMClientName + ' ('+MyAccount+')';
+ if not SearchMainWindow(pWideChar(WinName)) then // Если HistoryToDBUpdater не запущен, то запускаем
+ begin
+ if FileExists(PluginPath + 'HistoryToDBUpdater.exe') then
+ begin
+ // Отправлен запрос
+ ShellExecute(0, 'open', PWideChar(PluginPath + 'HistoryToDBUpdater.exe'), PWideChar(' "'+ProfilePath+'"'), nil, SW_SHOWNORMAL);
+ end
+ else
+ MsgInf(htdPluginShortName, Format(GetLangStr('ERR_NO_FOUND_UPDATER'), [PluginPath + 'HistoryToDBUpdater.exe']));
+ end
+ else // Иначе посылаем запрос
+ OnSendMessageToOneComponent(WinName, '0040');
+ end
+ else // Иначе посылаем запрос
+ OnSendMessageToOneComponent(WinName, '0040');
+end;
+
+{ Показываем окно Настроек плагина }
+{$ifdef DELPHIXE_UP}
+function MainMenuSettings(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl;
+{$ELSE}
+function MainMenuSettings(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl;
+{$endif DELPHIXE_UP}
+var
+ WinName: String;
+begin
+ Result := 0;
+ // Ищем окно HistoryToDBViewer
+ WinName := 'HistoryToDBViewer';
+ if not SearchMainWindow(pWideChar(WinName)) then // Если HistoryToDBViewer не найден, то ищем другое окно
+ begin
+ WinName := 'HistoryToDBViewer for ' + htdIMClientName + ' ('+MyAccount+')';
+ if not SearchMainWindow(pWideChar(WinName)) then // Если HistoryToDBViewer не запущен, то запускаем
+ begin
+ if FileExists(PluginPath + 'HistoryToDBViewer.exe') then
+ begin
+ // Отправлен запрос на показ настроек
+ StopWatch;
+ WriteCustomINI(ProfilePath, 'SettingsFormRequestSend', '1');
+ StartWatch(ProfilePath, FILE_NOTIFY_CHANGE_LAST_WRITE, False, @ProfileDirChangeCallBack);
+ ShellExecute(0, 'open', PWideChar(PluginPath + 'HistoryToDBViewer.exe'), PWideChar(' "'+PluginPath+'" "'+ProfilePath+'" 4'), nil, SW_SHOWNORMAL);
+ end
+ else
+ MsgInf(htdPluginShortName, Format(GetLangStr('ERR_NO_FOUND_VIEWER'), [PluginPath + 'HistoryToDBViewer.exe']));
+ end
+ else // Иначе посылаем запрос
+ OnSendMessageToOneComponent(WinName, '005');
+ end
+ else // Иначе посылаем запрос на показ настроек
+ OnSendMessageToOneComponent(WinName, '005');
+end;
+
+{ Показываем окно О плагине }
+{$ifdef DELPHIXE_UP}
+function MainMenuAbout(wParam: wParam; lParam: lParam; lParam1: LPARAM): int_ptr; cdecl;
+{$ELSE}
+function MainMenuAbout(wParam: wParam; lParam: lParam; lParam1: integer): integer; cdecl;
+{$endif DELPHIXE_UP}
+begin
+ Result := 0;
+ AboutForm.Show;
+end;
+
+end.
|