blob: 7a9b9cc935c83c76ed746ab6bfccd06541d20221 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
unit ImportT;
interface
uses windows;
type
RHeader = record
Pattern:String;
Incoming:integer;
Outgoing:integer;
InNick:integer;
OutNick:integer;
InUID:integer;
OutUID:integer;
end;
RPreMessage = record
PreRN:integer;
AfterRN:integer;
PreSP:integer;
AfterSP:integer;
end;
RMessage = record
Pattern:String;
Incoming:String;
Outgoing:String;
Direction:integer;
Day:integer;
Month:integer;
Year:integer;
Hours:integer;
Minutes:integer;
Seconds:integer;
end;
RFileName = record
Pattern:String;
InNick:integer;
OutNick:integer;
InUID:integer;
OutUID:integer;
end;
pRTxtPattern = ^RTxtPattern;
RTxtPattern = record
Name:String;
IType:byte; //1 -text,2- binary, 3 - ...
Charset:word;
Codepage:Cardinal;
DefExtension:String;
BinProc:word;
UseHeader:Byte;
UseFileName:ByteBool;
UsePreMsg:ByteBool;
Msg:RMessage;
Header:RHeader;
PreMsg:RPreMessage;
FName:RFileName;
end;
const
inANSI = 1;
inUTF8 = 2;
inUCS2 = 3;
type
PDestProto = ^TDestProto;
TDestProto = record
ProtoName: AnsiString;
ProtoUID: WideString;
ProtoNick: WideString;
end;
type
PDestContact = ^TDestContact;
TDestContact = record
hContact: THandle;
ProtoName: AnsiString;
ContactUID: AnsiString;
ContactNick: WideString;
end;
implementation
end.
|
