From f51995e13679a37851baef8e7f52f2d993cbc7c1 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Tue, 13 Sep 2016 17:11:58 +0000 Subject: mode old database junk to die git-svn-id: http://svn.miranda-ng.org/main/trunk@17291 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- include/delphi/m_database.inc | 80 ++++--------------------------------------- 1 file changed, 6 insertions(+), 74 deletions(-) (limited to 'include/delphi/m_database.inc') diff --git a/include/delphi/m_database.inc b/include/delphi/m_database.inc index 24eedfa197..15b8755073 100644 --- a/include/delphi/m_database.inc +++ b/include/delphi/m_database.inc @@ -258,83 +258,15 @@ function db_unset(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting: function db_set_resident(const szModule:PAnsiChar; const szSetting:PAnsiChar; bEnable:int):int; stdcall; external CoreDLL name 'db_set_resident'; -// deprecated Aliases -function DBFreeVariant(dbv:PDBVARIANT):int_ptr; stdcall; - external CoreDLL name 'db_free'; -function DBDeleteContactSetting(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting:PAnsiChar):int_ptr; stdcall; - external CoreDLL name 'db_unset'; -function DBGetContactSettingByte(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting:PAnsiChar; errorValue:int):int; stdcall; - external CoreDLL name 'db_get_b'; -function DBGetContactSettingWord(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting:PAnsiChar; errorValue:int):int; stdcall; - external CoreDLL name 'db_get_w'; -function DBGetContactSettingDWord(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting:PAnsiChar; errorValue:dword):dword; stdcall; - external CoreDLL name 'db_get_dw'; -function DBGetContactSetting(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting:PAnsiChar; dbv:PDBVARIANT):int_ptr; stdcall; - external CoreDLL name 'db_get'; -function DBGetContactSettingStr(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting:PAnsiChar; dbv:PDBVARIANT; const nType:int=DBVT_ASCIIZ):int_ptr; stdcall; - external CoreDLL name 'db_get_s'; -function DBGetContactSettingString(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting:PAnsiChar):PAnsiChar; stdcall; - external CoreDLL name 'db_get_sa'; -function DBGetContactSettingWString(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting:PAnsiChar):PWideChar; stdcall; - external CoreDLL name 'db_get_wsa'; - -function DBWriteContactSettingByte(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting:PAnsiChar; val:byte):int_ptr; stdcall; - external CoreDLL name 'db_set_b'; -function DBWriteContactSettingWord(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting:PAnsiChar; val:word):int_ptr; stdcall; - external CoreDLL name 'db_set_w'; -function DBWriteContactSettingDWord(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting:PAnsiChar; val:dword):int_ptr; stdcall; - external CoreDLL name 'db_set_dw'; -function DBWriteContactSettingString(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting:PAnsiChar; const val:PAnsiChar):int_ptr; stdcall; - external CoreDLL name 'db_set_s'; -function DBWriteContactSettingWString(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting:PAnsiChar; const val:PWideChar):int_ptr; stdcall; - external CoreDLL name 'db_set_ws'; -function DBWriteContactSettingUTF8String(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting:PAnsiChar; const val:PAnsiChar):int_ptr; stdcall; - external CoreDLL name 'db_set_utf'; -function DBWriteContactSettingBlob(hContact:TMCONTACT; const szModule:PAnsiChar; const szSetting:PAnsiChar; val:pointer; len:uint):int_ptr; stdcall; - external CoreDLL name 'db_set_blob'; - - -const - { - wParam : size of the buffer to be filled - lParam : pointer to the buffer to be filled - affect : Get's the name of the current profile being used by the database - module -- this is the same as the filename of the profile without - the .ext - return : 0 on success, non zero on failure - } - MS_DB_GETPROFILENAME :PAnsiChar = 'DB/GetProfileName'; - MS_DB_GETPROFILENAMEW:PAnsiChar = 'DB/GetProfileNameW'; +/////////////////////////////////////////////////////////////////////////////// - { - wParam : size of buffer pointed to by lParam - lParam : pointer to a buffer to be filled - affect : Get the path of the base folder where Miranda will store all individual profiles - The returned path does NOT include a trailing backslash. - Essentially this is what has been set in mirandaboot.ini as ProfileDir. - For more options to retrieve profile paths check MS_UTILS_REPLACEVARS - return : 0 on success, non zero on failure - version: 0.3a only - } - MS_DB_GETPROFILEPATH :PAnsiChar = 'DB/GetProfilePath'; - MS_DB_GETPROFILEPATHW:PAnsiChar = 'DB/GetProfilePathW'; +function Profile_GetNameA(cbLen:cardinal; pDest:PAnsiChar) : int; stdcall; external AppDll; +function Profile_GetNameW(cbLen:cardinal; pDest:PWideChar) : int; stdcall; external AppDll; - { - Sets the default profile name programmatically - Analog of Database/DefaultProfile in mirandaboot.ini - wParam = (WPARAM)(TCHAR*)ptszProfileName - lParam = 0 (unused) - } - MS_DB_SETDEFAULTPROFILE:PAnsiChar = 'DB/SetDefaultProfile'; - - { - Checks the specified profile like dbtool did. - Implemented in the dbchecker plugins, thus it might not exist - wParam = (WPARAM)(TCHAR*)ptszProfileName - lParam = (BOOL)bConversionMode - } +function Profile_GetPathA(cbLen:cardinal; pDest:PAnsiChar) : int; stdcall; external AppDll; +function Profile_GetPathW(cbLen:cardinal; pDest:PWideChar) : int; stdcall; external AppDll; - MS_DB_CHECKPROFILE:PAnsiChar = 'DB/CheckProfile'; +/////////////////////////////////////////////////////////////////////////////// type PDBCONTACTWRITESETTING = ^TDBCONTACTWRITESETTING; -- cgit v1.2.3