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
|
{$ifdef BIN_IMPORT_}
var j:integer;
{$else}
begin
pt:=integer(pFileText);
if FileLen>=10 then
if true {(PWORD(pt)^=$4248) and (PDWORD(pt+2)^=$FFFFFFFF)} then
begin
//ñìîòðèì åñòü ëè ó íàñ êîíòàêò íàçíà÷åíèÿ
if (DContact.hContact=0) or (DContact.hContact=INVALID_HANDLE_VALUE) then
if (fContact.hContact<>0) and (fContact.hContact<>INVALID_HANDLE_VALUE) then
DContact:=fContact;
if (DContact.hContact<>0) and (DContact.hContact<>INVALID_HANDLE_VALUE) then
begin
proto:=GetContactProto(DContact.hContact);
DoMessage(ITXT_THREAD_DEST_CONTACT,DContact.hContact,0);
DoMessage(ITXT_THREAD_START,0,0);
fsz:=FileLen-2; //ðàçìåð äàííûõ â ôàéëå
DoMessage(ITXT_THREAD_MAXPROGRESS,0,fsz);
inc(pt,2);
i:=0;
while i<fsz do
begin
with dbei do
begin
fillchar(dbei,sizeof(dbei),0);
cbSize:=sizeof(dbei);
szModule:=PChar(proto);
timestamp:=ImportTU.TimeStamp(
RLWORD(pt+i+5),
PByte(pt+i+4)^,
PByte(pt+i+3)^,
PByte(pt+i)^,
PByte(pt+i+1)^,
PByte(pt+i+2)^);
if PByte(pt+i+$7)^=$00 then flags:=DBEF_READ
else flags:=DBEF_SENT or DBEF_READ;
eventType:= EVENTTYPE_MESSAGE;
cbBlob:=(RLWORD(pt+i+$8)+1);
s:='';
for j:=0 to RLWORD(pt+i+$8) do
s:=s+WideChar(RLWORD(pt+i+$0A+(j*2)));
if IsMirandaUnicode then
begin
flags:=flags or DBEF_UTF;
cbBlob:=cbBlob*SizeOf(WideChar);
pBlob:=PByte(WideToUTF8(PWideChar(S),PChar(pBlob)));
end
else
pBlob:=PByte(WideToANSI(PWideChar(S),PChar(pBlob),cp));
end;
if not IsDuplicateEvent(DContact.hContact,dbei) then
if pluginLink^.CallService(MS_DB_EVENT_ADD, wParam(DContact.hContact), lParam(@dbei))<>0 then Inc(AddedMessages)
else begin
s:= 'Error adding message to DB';
DoMessage(ITXT_THREAD_ERROR,integer(PWideChar(s)),0); break; end
else Inc(Duplicates);
inc(i,dbei.cbBlob+$0C);
FreeMem(dbei.pBlob);
DoMessage(ITXT_THREAD_PROGRESS,i,0);
end;
end
else
begin
s:=TranslateWideString('Can''t determine destination contact');
DoMessage(ITXT_THREAD_ERROR,integer(PWideChar(s)),0);
end;
end
else
begin
s:=WideFormat(TranslateWideString('Its not %s file'),['bayanICQ']);
DoMessage(ITXT_THREAD_ERROR,integer(PWideChar(s)),0);
end
else //file len
end;
{$endif}
|
