From ae30cd958593fae5c4d385045f5ba669b9dd4b50 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Thu, 18 Jun 2015 18:29:39 +0000 Subject: protocol platform-independent code moved back to mir_app git-svn-id: http://svn.miranda-ng.org/main/trunk@14247 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- include/delphi/m_core.inc | 41 ++++++++++++----------------------------- 1 file changed, 12 insertions(+), 29 deletions(-) (limited to 'include/delphi') diff --git a/include/delphi/m_core.inc b/include/delphi/m_core.inc index fb3a57e2be..7a3cb5d8e7 100644 --- a/include/delphi/m_core.inc +++ b/include/delphi/m_core.inc @@ -404,63 +404,46 @@ function mir_vsnwprintf(buffer:PWideChar;count:size_t;fmt:PWideChar;va:va_list): // protocol functions function ProtoBroadcastAck(const szModule:PAnsiChar; hContact:TMCONTACT; type_:int; result_:int; hProcess:THANDLE; lParam:LPARAM): int_ptr; stdcall; - external CoreDLL name 'ProtoBroadcastAck'; + external AppDLL name 'ProtoBroadcastAck'; function ProtoServiceExists(const szModule, szName:PAnsiChar):int; stdcall; external AppDLL name 'ProtoServiceExists'; procedure ProtoWindowAdd(pThis:pointer; wnd:HWND); stdcall; - external CoreDLL name 'ProtoWindowAdd'; + external AppDLL name 'ProtoWindowAdd'; procedure ProtoWindowRemove(pThis:pointer; wnd:HWND); stdcall; - external CoreDLL name 'ProtoWindowRemove'; + external AppDLL name 'ProtoWindowRemove'; // Call it in the very beginning of your proto's constructor -procedure ProtoConstructor(pThis:pointer{PPROTO_INTERFACE}; const pszModuleName:PAnsiChar; - ptszUserName:PWideChar); stdcall; - external CoreDLL name 'ProtoConstructor'; +procedure ProtoConstructor(pThis:pointer{PPROTO_INTERFACE}; const pszModuleName:PAnsiChar; ptszUserName:PWideChar); stdcall; + external AppDLL name 'ProtoConstructor'; // Call it in the very end of your proto's destructor procedure ProtoDestructor(pThis:pointer{PPROTO_INTERFACE}); stdcall; - external CoreDLL name 'ProtoDestructor'; - -{!! -typedef void (__cdecl PROTO_INTERFACE::*ProtoThreadFunc)(void*); -procedure ProtoForkThread(PROTO_INTERFACE *pThis, ProtoThreadFunc, void *param); -function ProtoForkThreadEx(PROTO_INTERFACE *pThis, ProtoThreadFunc, void *param, uint* threadID):THANDLE; - -typedef int (__cdecl PROTO_INTERFACE::*ProtoEventFunc)(WPARAM, LPARAM); -procedure ProtoHookEvent(PROTO_INTERFACE *pThis, const char* szName, ProtoEventFunc pFunc); -function ProtoCreateHookableEvent(PROTO_INTERFACE *pThis, const char* szService):THANDLE; - -typedef INT_PTR (__cdecl PROTO_INTERFACE::*ProtoServiceFunc)(WPARAM, LPARAM); -procedure ProtoCreateService(PROTO_INTERFACE *pThis, const char* szService, ProtoServiceFunc); - -typedef INT_PTR (__cdecl PROTO_INTERFACE::*ProtoServiceFuncParam)(WPARAM, LPARAM, LPARAM); -procedure ProtoCreateServiceParam(PROTO_INTERFACE *pThis, const char* szService, ProtoServiceFuncParam, LPARAM); -} + external AppDLL name 'ProtoDestructor'; procedure ProtoLogA(pThis:pointer{PPROTO_INTERFACE}; szFormat :PAnsiChar; args:va_list); stdcall; - external CoreDLL name 'ProtoLogA'; + external AppDLL name 'ProtoLogA'; procedure ProtoLogW(pThis:pointer{PPROTO_INTERFACE}; wszFormat:PWideChar; args:va_list); stdcall; - external CoreDLL name 'ProtoLogW'; + external AppDLL name 'ProtoLogW'; // returns image extension by a PA_* constant or empty string for PA_FORMAT_UNKNOWN function ProtoGetAvatarExtension(format:int):PWideChar; stdcall; - external CoreDLL name 'ProtoGetAvatarExtension'; + external AppDLL name 'ProtoGetAvatarExtension'; // detects image format by extension function ProtoGetAvatarFormat(const szFileName:PWideChar):int; stdcall; - external CoreDLL name 'ProtoGetAvatarFormat'; + external AppDLL name 'ProtoGetAvatarFormat'; // detects image format by its contents function ProtoGetAvatarFileFormat(const szFileName:PWideChar):int; stdcall; - external CoreDLL name 'ProtoGetAvatarFileFormat'; + external AppDLL name 'ProtoGetAvatarFileFormat'; // returns the image format and extension by the first bytes of picture // ptszExtension might be NULL function ProtoGetBufferFormat(const buf:PByte; var ext:PWideChar):int; stdcall; - external CoreDLL name 'ProtoGetBufferFormat'; + external AppDLL name 'ProtoGetBufferFormat'; /////////////////////////////////////////////////////////////////////////////// -- cgit v1.2.3