summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--include/delphi/interfaces.inc1
-rw-r--r--include/delphi/m_addcontact.inc2
-rw-r--r--include/delphi/m_clist.inc4
-rw-r--r--include/delphi/m_clistint.inc2
-rw-r--r--include/delphi/m_core.inc29
-rw-r--r--include/delphi/m_database.inc10
-rw-r--r--include/delphi/m_db_int.inc24
-rw-r--r--include/delphi/m_protoint.inc6
-rw-r--r--include/delphi/m_protosvc.inc10
-rw-r--r--plugins/ExternalAPI/delphi/m_historypp.inc4
-rw-r--r--plugins/ExternalAPI/delphi/m_ieview.inc4
-rw-r--r--plugins/QuickSearch/i_ok.inc2
-rw-r--r--plugins/Utils.pas/editwrapper.pas2
-rw-r--r--plugins/Utils.pas/mirevents.pas38
14 files changed, 69 insertions, 69 deletions
diff --git a/include/delphi/interfaces.inc b/include/delphi/interfaces.inc
index c3cae74ad1..c0e660bf82 100644
--- a/include/delphi/interfaces.inc
+++ b/include/delphi/interfaces.inc
@@ -24,6 +24,7 @@ const MIID_AUTOAWAY :MUUID='{9C87F7DC-3BD7-4983-B7FB-B848FDBC91F0}';
const MIID_USERONLINE :MUUID='{130829E0-2463-4FF8-BBC8-CE73C0188442}';
const MIID_IDLE :MUUID='{296F9F3B-5B6F-40E5-8FB0-A6496C18BF0A}';
const MIID_CRYPTO :MUUID='{415CA6E1-895F-40E6-87BD-9B396016D0E5}';
+const MIID_SSL :MUUID='{3BBBBD20-20E6-479B-BD4B-E84DE2627120}';
// Common plugin interfaces (core plugins)
const MIID_DATABASE :MUUID='{AE77FD33-E484-4DC7-8CBC-099FEDCCCFDD}';
diff --git a/include/delphi/m_addcontact.inc b/include/delphi/m_addcontact.inc
index f6fb8834d8..dd4bc0a3dd 100644
--- a/include/delphi/m_addcontact.inc
+++ b/include/delphi/m_addcontact.inc
@@ -32,7 +32,7 @@ type
PADDCONTACTSTRUCT = ^TADDCONTACTSTRUCT;
TADDCONTACTSTRUCT = record
handleType: int;
- handle : HDBEVENT; // HDBEVENT, SearchResult
+ handle : TMEVENT; // TMEVENT, TMCONTACT, SearchResult
szProto : PAnsiChar; // used by search result only
psr : pointer; // @PROTOSEARCHRESULT
end;
diff --git a/include/delphi/m_clist.inc b/include/delphi/m_clist.inc
index bf14ee784c..e3940e143d 100644
--- a/include/delphi/m_clist.inc
+++ b/include/delphi/m_clist.inc
@@ -230,7 +230,7 @@ type
hContact : TMCONTACT; // handle to the contact to put the icon by
hIcon : HICON; // icon to flash!
flags : dword;
- hDBEvent : THANDLE; // caller defined, but should be unique for hContact
+ hDBEvent : TMEVENT; // caller defined, but should be unique for hContact
// or pszProtocol:PAnsiChar
lParam : LPARAM;
pszService: PAnsiChar; // name of service to call on activation
@@ -268,7 +268,7 @@ const
{
wParam : TMCONTACT
- lParam : HDBEVENT
+ lParam : TMEVENT
Affect : Remove an event from the contact list queue
Returns: 0 on success, [non zero] on failure
}
diff --git a/include/delphi/m_clistint.inc b/include/delphi/m_clistint.inc
index 3a0b478a44..1d21e9d942 100644
--- a/include/delphi/m_clistint.inc
+++ b/include/delphi/m_clistint.inc
@@ -458,7 +458,7 @@ type
pfnAddEvent : function (_para1:PCLISTEVENT):PCListEvent; cdecl;
pfnGetEvent : function (hContact:TMCONTACT; idx:int):PCLISTEVENT; cdecl;
- pfnRemoveEvent : function (hContact:TMCONTACT; hDbEvent:HDBEVENT):int; cdecl;
+ pfnRemoveEvent : function (hContact:TMCONTACT; hDbEvent:TMEVENT):int; cdecl;
pfnGetImlIconIndex : function (hIcon:HICON):int; cdecl;
(*************************************************************************************
diff --git a/include/delphi/m_core.inc b/include/delphi/m_core.inc
index 53e9886a49..983cbb903d 100644
--- a/include/delphi/m_core.inc
+++ b/include/delphi/m_core.inc
@@ -55,12 +55,11 @@ const
type
PMCONTACT = ^TMCONTACT;
TMCONTACT = dword;
-
const
INVALID_CONTACT_ID = TMCONTACT(-1);
type
- HDBEVENT = dword;
+ TMEVENT = dword;
PDBVARIANT = ^TDBVARIANT;
TDBVARIANT = record
_type: byte;
@@ -126,7 +125,7 @@ modules are free to define their own, beginning at 2000
DBEVENTINFO.timestamp is in GMT, as returned by time(). There are services
db/time/x below with useful stuff for dealing with it.
}
-function db_event_add(hContact:TMCONTACT; dbei:PDBEVENTINFO):HDBEVENT; stdcall;
+function db_event_add(hContact:TMCONTACT; dbei:PDBEVENTINFO):TMEVENT; stdcall;
external CoreDLL name 'db_event_add';
{
@@ -144,7 +143,7 @@ hDbEvent should have been returned by db_event_add/first/last/next/prev()
Returns 0 on success, or nonzero if hDbEvent was invalid
Triggers a db/event/deleted event just *before* the event is deleted
}
-function db_event_delete(hContact:TMCONTACT; hDbEvent:HDBEVENT):int; stdcall;
+function db_event_delete(hContact:TMCONTACT; hDbEvent:TMEVENT):int; stdcall;
external CoreDLL name 'db_event_delete';
{
@@ -152,7 +151,7 @@ Retrieves a handle to the first event in the chain for hContact
Returns the handle, or NULL if hContact is invalid or has no events
Events in a chain are sorted chronologically automatically
}
-function db_event_first(hContact:TMCONTACT):HDBEVENT; stdcall;
+function db_event_first(hContact:TMCONTACT):TMEVENT; stdcall;
external CoreDLL name 'db_event_first';
{
@@ -166,7 +165,7 @@ should be checked individually with db_event_next() and db_event_get()
This service is designed for startup, reloading all the events that remained
unread from last time
}
-function db_event_firstUnread(hContact:TMCONTACT):HDBEVENT; stdcall;
+function db_event_firstUnread(hContact:TMCONTACT):TMEVENT; stdcall;
external CoreDLL name 'db_event_firstUnread';
{
@@ -183,7 +182,7 @@ and then dbe.cbBlob is set to the required size of data to go in dbe.pBlob
On return, dbe.szModule is a pointer to the database module's own internal list
of modules. Look but don't touch.
}
-function db_event_get(hDbEvent:HDBEVENT; dbei:PDBEVENTINFO):int; stdcall;
+function db_event_get(hDbEvent:TMEVENT; dbei:PDBEVENTINFO):int; stdcall;
external CoreDLL name 'db_event_get';
{
@@ -191,7 +190,7 @@ Retrieves the space in bytes required to store the blob in hDbEvent
hDbEvent should have been returned by db_event_add/first/last/next/prev()
Returns the space required in bytes, or -1 if hDbEvent is invalid
}
-function db_event_getBlobSize(hDbEvent:HDBEVENT):int; stdcall;
+function db_event_getBlobSize(hDbEvent:TMEVENT):int; stdcall;
external CoreDLL name 'db_event_getBlobSize';
{
@@ -203,7 +202,7 @@ success
This service is exceptionally slow. Use only when you have no other choice at
all.
}
-function db_event_getContact(hDbEvent:HDBEVENT):TMCONTACT; stdcall;
+function db_event_getContact(hDbEvent:TMEVENT):TMCONTACT; stdcall;
external CoreDLL name 'db_event_getContact';
{
@@ -211,7 +210,7 @@ Retrieves a handle to the last event in the chain for hContact
Returns the handle, or NULL if hContact is invalid or has no events
Events in a chain are sorted chronologically automatically
}
-function db_event_last(hContact:TMCONTACT):HDBEVENT; stdcall;
+function db_event_last(hContact:TMCONTACT):TMEVENT; stdcall;
external CoreDLL name 'db_event_last';
{
@@ -222,7 +221,7 @@ is invalid.
This is the one database write operation that does not trigger an event.
Modules should not save flags states for any length of time.
}
-function db_event_markRead(hContact:TMCONTACT; hDbEvent:HDBEVENT):int; stdcall;
+function db_event_markRead(hContact:TMCONTACT; hDbEvent:TMEVENT):int; stdcall;
external CoreDLL name 'db_event_markRead';
{
@@ -230,7 +229,7 @@ Retrieves a handle to the next event in a chain after hDbEvent
Returns the handle, or NULL if hDbEvent is invalid or is the last event
Events in a chain are sorted chronologically automatically
}
-function db_event_next(hContact:TMCONTACT; hDbEvent:HDBEVENT):HDBEVENT; stdcall;
+function db_event_next(hContact:TMCONTACT; hDbEvent:TMEVENT):THANDLE; stdcall;
external CoreDLL name 'db_event_next';
{
@@ -238,7 +237,7 @@ Retrieves a handle to the previous event in a chain before hDbEvent
Returns the handle, or NULL if hDbEvent is invalid or is the first event
Events in a chain are sorted chronologically automatically
}
-function db_event_prev(hContact:TMCONTACT; hDbEvent:HDBEVENT):HDBEVENT; stdcall;
+function db_event_prev(hContact:TMCONTACT; hDbEvent:TMEVENT):THANDLE; stdcall;
external CoreDLL name 'db_event_prev';
function db_free(dbv:PDBVARIANT):int_ptr; stdcall;
@@ -595,8 +594,8 @@ function mir_writeLogW(hLogger:THANDLE; format:PWideChar):int; cdecl;
type
pmir_md5_state_t = ^mir_md5_state_t;
mir_md5_state_t = record
- count:array [0.. 1] of cardinal; // message length in bits, lsw first
- abcd :array [0.. 3] of cardinal; // digest buffer
+ count:array [0.. 1] of longword; // message length in bits, lsw first
+ abcd :array [0.. 3] of longword; // digest buffer
buf :array [0..63] of byte; // accumulate block
end;
diff --git a/include/delphi/m_database.inc b/include/delphi/m_database.inc
index 20d78fe556..0ca504eec1 100644
--- a/include/delphi/m_database.inc
+++ b/include/delphi/m_database.inc
@@ -326,13 +326,13 @@ const
{
wParam : TMCONTACT
- lParam : HDBEVENT
+ lParam : TMEVENT
Affect : Called when a new event has been added to the event chain
for a contact, TMCONTACT contains the contact who added the event,
- HDBEVENT a handle to what was added.
+ TMEVENT a handle to what was added.
see notes
notes : since events are sorted chronologically, you can not guarantee
- that HDBEVENT is in any particular position in the chain.
+ that TMEVENT is in any particular position in the chain.
}
ME_DB_EVENT_ADDED:PAnsiChar = 'DB/Event/Added';
@@ -355,14 +355,14 @@ const
{
wParam : TMCONTACT
- lParam : HDBEVENT
+ lParam : TMEVENT
Affect : Called when an event is marked read
}
ME_DB_EVENT_MARKED_READ:PAnsiChar = 'DB/Event/Marked/Read';
{
wParam : TMCONTACT
- lParam : HDBEVENT
+ lParam : TMEVENT
Affect : Called when an event is about to be deleted from the event chain
for a contact, see notes
notes : Returning non zero from your hook will NOT stop the deletion,
diff --git a/include/delphi/m_db_int.inc b/include/delphi/m_db_int.inc
index 753c4ea5ec..29ffc6844e 100644
--- a/include/delphi/m_db_int.inc
+++ b/include/delphi/m_db_int.inc
@@ -83,17 +83,17 @@ type
GetContactSize:function():long; stdcall;
GetEventCount:function(contactID:TMCONTACT):long; stdcall;
- AddEvent:function(contactID:TMCONTACT; dbe:PDBEVENTINFO):HDBEVENT; stdcall;
- DeleteEvent:function(contactID:TMCONTACT; hDbEvent:HDBEVENT):bool; stdcall;
- GetBlobSize:function(hDbEvent:HDBEVENT):long; stdcall;
- GetEvent:function(hDbEvent:HDBEVENT; dbe:PDBEVENTINFO):bool; stdcall;
- MarkEventRead:function(contactID:TMCONTACT; hDbEvent:HDBEVENT):bool; stdcall;
- GetEventContact:function(hDbEvent:HDBEVENT):TMCONTACT; stdcall;
- FindFirstEvent:function(contactID:TMCONTACT):HDBEVENT; stdcall;
- FindFirstUnreadEvent:function(contactID:TMCONTACT):HDBEVENT; stdcall;
- FindLastEvent:function(contactID:TMCONTACT):HDBEVENT; stdcall;
- FindNextEvent:function(contactID:TMCONTACT;hDbEvent:HDBEVENT):HDBEVENT; stdcall;
- FindPrevEvent:function(contactID:TMCONTACT;hDbEvent:HDBEVENT):HDBEVENT; stdcall;
+ AddEvent:function(contactID:TMCONTACT; dbe:PDBEVENTINFO):TMEVENT; stdcall;
+ DeleteEvent:function(contactID:TMCONTACT; hDbEvent:TMEVENT):bool; stdcall;
+ GetBlobSize:function(hDbEvent:TMEVENT):long; stdcall;
+ GetEvent:function(hDbEvent:TMEVENT; dbe:PDBEVENTINFO):bool; stdcall;
+ MarkEventRead:function(contactID:TMCONTACT; hDbEvent:TMEVENT):bool; stdcall;
+ GetEventContact:function(hDbEvent:TMEVENT):TMCONTACT; stdcall;
+ FindFirstEvent:function(contactID:TMCONTACT):TMEVENT; stdcall;
+ FindFirstUnreadEvent:function(contactID:TMCONTACT):TMEVENT; stdcall;
+ FindLastEvent:function(contactID:TMCONTACT):TMEVENT; stdcall;
+ FindNextEvent:function(contactID:TMCONTACT;hDbEvent:TMEVENT):TMEVENT; stdcall;
+ FindPrevEvent:function(contactID:TMCONTACT;hDbEvent:TMEVENT):TMEVENT; stdcall;
EnumModuleNames:function(pFunc:TDBMODULEENUMPROC; pParam:pointer):bool; stdcall;
@@ -162,7 +162,7 @@ const
EGROKPRF_UNKHEADER = 2; // header not supported, not a supported profile
EGROKPRF_VERNEWER = 3; // header correct, version in profile newer than reader/writer
EGROKPRF_DAMAGED = 4; // header/version fine, other internal data missing, damaged.
- EGROKPRF_OBSOLETE = 5; // obsolete database version detected, requiring conversion
+ EGROKPRF_OBSOLETE = 5; // obsolete database version detected, requiring conversion
// makeDatabase() error codes
EMKPRF_CREATEFAILED = 1; // for some reason CreateFile() didnt like something
diff --git a/include/delphi/m_protoint.inc b/include/delphi/m_protoint.inc
index 2d1f49d22a..1c1fce8af1 100644
--- a/include/delphi/m_protoint.inc
+++ b/include/delphi/m_protoint.inc
@@ -56,10 +56,10 @@ type
// Virtual functions
AddToList :function(intf:PPROTO_INTERFACE;flags:int; var psr:TPROTOSEARCHRESULT):TMCONTACT; cdecl;
- AddToListByEvent:function(intf:PPROTO_INTERFACE;flags:int; iContact:int; hDbEvent:HDBEVENT):TMCONTACT; cdecl;
+ AddToListByEvent:function(intf:PPROTO_INTERFACE;flags:int; iContact:int; hDbEvent:TMEVENT):TMCONTACT; cdecl;
- Authorize :function(intf:PPROTO_INTERFACE;hDbEvent:HDBEVENT):int; cdecl;
- AuthDeny :function(intf:PPROTO_INTERFACE;hDbEvent:HDBEVENT;const szReason:TChar):int; cdecl;
+ Authorize :function(intf:PPROTO_INTERFACE;hDbEvent:TMEVENT):int; cdecl;
+ AuthDeny :function(intf:PPROTO_INTERFACE;hDbEvent:TMEVENT;const szReason:TChar):int; cdecl;
AuthRecv :function(intf:PPROTO_INTERFACE;hContact:TMCONTACT;var ptr:TPROTORECVEVENT):int; cdecl;
AuthRequest:function(intf:PPROTO_INTERFACE;hContact:TMCONTACT;szMessage:TChar):int; cdecl;
diff --git a/include/delphi/m_protosvc.inc b/include/delphi/m_protosvc.inc
index 542ca78a9f..315e5222c9 100644
--- a/include/delphi/m_protosvc.inc
+++ b/include/delphi/m_protosvc.inc
@@ -349,7 +349,7 @@ const
PS_GETSTATUS = '/GetStatus';
{
- wParam : HDBEVENT
+ wParam : TMEVENT
lParam : 0
Affect : allow 'somebody' to add the user to their contact list, see notes
Returns: 0 on success, [non zero] on failure
@@ -359,13 +359,13 @@ const
protocolSpecific: dword;
nick, firstname, lastName, e-mail, requestReason: ASCIIZ;
-
- HDBEVENT musts be the handle of such an event, one or more
+ TMEVENT musts be the handle of such an event, one or more
fields may be empty if the protocol doesn't support them
}
PS_AUTHALLOW = '/Authorize';
{
- wParam : HDBEVENT
+ wParam : TMEVENT
lParam : TChar - Reason
Affect : Deny an authorisation request
Returns: 0 on success, [non zero] on failure
@@ -503,10 +503,10 @@ const
{
wParam : MAKEWPARAM(flags, iContact)
- lParam : HDBEVENT
+ lParam : TMEVENT
Affects: Add a contact to the contact list given an auth/added/contacts events, see notes
Returns: A TMCONTACT or NULL(0) on failure
- Notes : HDBEVENT must be either EVENTTYPE_AUTHREQ or EVENTTYPE_ADDED
+ Notes : TMEVENT must be either EVENTTYPE_AUTHREQ or EVENTTYPE_ADDED
flags are the same as PS_ADDTOLIST,
-
iContacts is only used for contacts vents, it is 0-based index
diff --git a/plugins/ExternalAPI/delphi/m_historypp.inc b/plugins/ExternalAPI/delphi/m_historypp.inc
index 9e0bbec4ea..042b44c692 100644
--- a/plugins/ExternalAPI/delphi/m_historypp.inc
+++ b/plugins/ExternalAPI/delphi/m_historypp.inc
@@ -93,7 +93,7 @@ type
TItemRenderDetails = record
cbSize : DWord; // size of the structure in bytes
hContact : TMCONTACT; // handle to the contact for which the event is processed
- hDBEvent : THANDLE; // handle to the event which is processed
+ hDBEvent : TMEVENT; // handle to the event which is processed
dwEventTime : DWord; // timestamp of the event
wEventType : Word; // Event's flags (see m_database, EVENTTYPE_*; m_icq, ICQEVENTTYPE_*)
IsEventSent : ByteBool; // Outgoing event. True if DBEF_SENT event flag is present (see m_database)
@@ -150,7 +150,7 @@ const
TOpenEventParams = record
cbSize : DWord;
hContact : TMCONTACT;
- hDBEvent : THANDLE;
+ hDBEvent : TMEVENT;
pPassword: PAnsiChar;
end;
diff --git a/plugins/ExternalAPI/delphi/m_ieview.inc b/plugins/ExternalAPI/delphi/m_ieview.inc
index bcb41f8049..72de71299b 100644
--- a/plugins/ExternalAPI/delphi/m_ieview.inc
+++ b/plugins/ExternalAPI/delphi/m_ieview.inc
@@ -160,8 +160,8 @@ const
type
tagIEVIEWEVENT = record
case byte of
- 0: (hDbEventFirst: THANDLE);
- 1: (eventData :PIEVIEWEVENTDATA);
+ 0: (hDbEventFirst:TMEVENT);
+ 1: (eventData :PIEVIEWEVENTDATA);
end;
PIEVIEWEVENT = ^TIEVIEWEVENT;
diff --git a/plugins/QuickSearch/i_ok.inc b/plugins/QuickSearch/i_ok.inc
index 81dfd125c0..00918a0ffb 100644
--- a/plugins/QuickSearch/i_ok.inc
+++ b/plugins/QuickSearch/i_ok.inc
@@ -262,7 +262,7 @@ procedure LoadOneItem(hContact:THANDLE;column:pcolumnitem;proto:integer; var res
var
tmp:int_ptr;
lmodule,srv:PAnsiChar;
- DbEvent:HDBEVENT;
+ DbEvent:TMEVENT;
cni:TCONTACTINFO;
dbei:TDBEVENTINFO;
b:bool;
diff --git a/plugins/Utils.pas/editwrapper.pas b/plugins/Utils.pas/editwrapper.pas
index c5a8c3702f..6572db56e4 100644
--- a/plugins/Utils.pas/editwrapper.pas
+++ b/plugins/Utils.pas/editwrapper.pas
@@ -32,7 +32,7 @@ function ShowEditBox(parent:HWND;var text:PWideChar;title:PWideChar):int_ptr;
implementation
-uses messages,commctrl,common,wrapper;
+uses messages,common,wrapper;
{$R editwrapper.res}
{$include 'i_text_const.inc'}
diff --git a/plugins/Utils.pas/mirevents.pas b/plugins/Utils.pas/mirevents.pas
index 3dbc22d191..7eada51593 100644
--- a/plugins/Utils.pas/mirevents.pas
+++ b/plugins/Utils.pas/mirevents.pas
@@ -30,29 +30,29 @@ const
//----- Event info -----
-procedure GetEventInfo (hDBEvent: THANDLE; var EventInfo: TDBEventInfo);
-function GetEventTimestamp(hDBEvent: THANDLE): DWord;
-function GetEventDateTime (hDBEvent: THANDLE): TDateTime;
+procedure GetEventInfo (hDBEvent: TMEVENT; var EventInfo: TDBEventInfo);
+function GetEventTimestamp(hDBEvent: TMEVENT): DWord;
+function GetEventDateTime (hDBEvent: TMEVENT): TDateTime;
function GetEventCoreText (const EventInfo: TDBEventInfo; cp: integer = CP_ACP): PWideChar;
//----- Event check -----
function IsIncomingEvent(const EventInfo: TDBEventInfo):boolean; overload;
-function IsIncomingEvent(hDBEvent: THANDLE):boolean; overload;
+function IsIncomingEvent(hDBEvent: TMEVENT):boolean; overload;
function IsOutgoingEvent(const EventInfo: TDBEventInfo):boolean; overload;
-function IsOutgoingEvent(hDBEvent: THANDLE):boolean; overload;
+function IsOutgoingEvent(hDBEvent: TMEVENT):boolean; overload;
function IsReadedEvent (const EventInfo: TDBEventInfo):boolean; overload;
-function IsReadedEvent (hDBEvent: THANDLE):boolean; overload;
+function IsReadedEvent (hDBEvent: TMEVENT):boolean; overload;
function GetEventBaseType(EventInfo: TDBEventInfo): TBaseEventType; overload;
-function GetEventBaseType(hDBEvent : THANDLE ): TBaseEventType; overload;
+function GetEventBaseType(hDBEvent : TMEVENT ): TBaseEventType; overload;
//----- Custom events processing -----
-//procedure ReadEvent (hDBEvent: THANDLE; var EventInfo: TDBEventInfo; UseCP: Cardinal = CP_ACP);
+//procedure ReadEvent (hDBEvent: TMEVENT; var EventInfo: TDBEventInfo; UseCP: Cardinal = CP_ACP);
//function GetEventName(const Hi: THistoryItem):PAnsiChar;
-function GetEventText(hDBEvent: THANDLE ; custom:boolean; cp:integer=CP_ACP):PWideChar; overload;
+function GetEventText(hDBEvent: TMEVENT ; custom:boolean; cp:integer=CP_ACP):PWideChar; overload;
function GetEventText(const EventInfo: TDBEventInfo; custom:boolean; cp:integer=CP_ACP):PWideChar; overload;
@@ -64,7 +64,7 @@ uses
//----- Event info -----
-procedure GetEventInfo(hDBEvent: THANDLE; var EventInfo: TDBEventInfo);
+procedure GetEventInfo(hDBEvent: TMEVENT; var EventInfo: TDBEventInfo);
var
BlobSize: integer;
begin
@@ -113,7 +113,7 @@ var
RecentEvent: THANDLE = 0;
RecentEventInfo: TDBEventInfo;
-procedure CheckRecent(hDBEvent: THANDLE);
+procedure CheckRecent(hDBEvent: TMEVENT);
begin
if RecentEvent <> hDBEvent then
begin
@@ -125,13 +125,13 @@ begin
end;
end;
-function GetEventTimestamp(hDBEvent: THANDLE): DWord;
+function GetEventTimestamp(hDBEvent: TMEVENT): DWord;
begin
CheckRecent(hDBEvent);
Result := RecentEventInfo.timestamp;
end;
-function GetEventDateTime(hDBEvent: THANDLE): TDateTime;
+function GetEventDateTime(hDBEvent: TMEVENT): TDateTime;
begin
Result := TimestampToDateTime(GetEventTimestamp(hDBEvent));
end;
@@ -144,7 +144,7 @@ begin
Result:=(EventInfo.flags and DBEF_SENT) = 0
end;
-function IsIncomingEvent(hDBEvent: THANDLE):boolean;
+function IsIncomingEvent(hDBEvent: TMEVENT):boolean;
begin
CheckRecent(hDBEvent);
Result:=(RecentEventInfo.flags and DBEF_SENT) = 0
@@ -156,7 +156,7 @@ begin
result:=(EventInfo.flags and DBEF_SENT) <> 0;
end;
-function IsOutgoingEvent(hDBEvent: THANDLE):boolean;
+function IsOutgoingEvent(hDBEvent: TMEVENT):boolean;
begin
CheckRecent(hDBEvent);
result:=(RecentEventInfo.flags and DBEF_SENT) <> 0;
@@ -168,7 +168,7 @@ begin
result:=(EventInfo.flags and DBEF_READ) <> 0;
end;
-function IsReadedEvent(hDBEvent: THANDLE):boolean;
+function IsReadedEvent(hDBEvent: TMEVENT):boolean;
begin
CheckRecent(hDBEvent);
result:=(RecentEventInfo.flags and DBEF_READ) <> 0;
@@ -215,7 +215,7 @@ begin
Result := BuiltinEventTable[EventIndex].MessageType;
end;
-function GetEventBaseType(hDBEvent: THANDLE): TBaseEventType;
+function GetEventBaseType(hDBEvent: TMEVENT): TBaseEventType;
begin
CheckRecent(hDBEvent);
Result := GetEventBaseType(RecentEventInfo);
@@ -306,7 +306,7 @@ end;
// reads all THistoryItem fields
// *EXCEPT* Proto field. Fill it manually, plz
(*
-procedure ReadEvent(hDBEvent: THANDLE; var hi: THistoryItem; UseCP: Cardinal = CP_ACP);
+procedure ReadEvent(hDBEvent: TMEVENT; var hi: THistoryItem; UseCP: Cardinal = CP_ACP);
var
EventInfo: TDBEventInfo;
EventIndex: integer;
@@ -493,7 +493,7 @@ begin
end;
end;
-function GetEventText(hDBEvent: THANDLE; custom:boolean; cp:integer=CP_ACP):PWideChar;
+function GetEventText(hDBEvent: TMEVENT; custom:boolean; cp:integer=CP_ACP):PWideChar;
var
EventInfo: TDBEventInfo;
begin
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-15 03:55:35 +0000