ImportTXT moved to deprecated

1 files changed, 0 insertions, 145 deletions

diff --git a/plugins/ImportTXT/BqhfIP.inc b/plugins/ImportTXT/BqhfIP.inc
deleted file mode 100644
index cd99bbfaa3..0000000000
--- a/plugins/ImportTXT/BqhfIP.inc
+++ /dev/null
@@ -1,145 +0,0 @@
-{$IFDEF BIN_IMPORT_}

-

-var

-  qhfver: byte;

-  szMsgHd: word;

-  UIDstr: UTF8String;

-  UIDLen, NickLen: word;

-  NickStr: UTF8String;

-

-function DecodeQHFMsg(ver: byte; adr: integer; cSize: word): AnsiString;

-

-  function get1(c: AnsiChar): byte;

-  begin

-    if ShortInt(c) >= 0 then

-      Result := byte(c)

-    else

-      Result := byte(c) + 256;

-  end;

-

-  function get2(b: byte): AnsiChar;

-  begin

-    if b < 128 then

-      Result := AnsiChar(b)

-    else

-      Result := AnsiChar(b - 256);

-  end;

-

-var

-  i: integer;

-begin

-  SetLength(Result, cSize);

-  for i := 1 to cSize do

-  begin

-    Result[i] := PAnsiChar(adr + i - 1)^;

-    if ver <> $01 then

-    begin

-      inc(Result[i], i);

-      Result[i] := get2(255 - get1(Result[i]));

-    end

-  end;

-end;

-

-{$ELSE}

-

-begin

-  pt := uint_ptr(pFileText);

-  if FileLen >= $2E then

-    if (PAnsiChar(pt)^ = 'Q') and (PAnsiChar(pt + 1)^ = 'H') and (PAnsiChar(pt + 2)^ = 'F') then

-    begin

-      qhfver := PByte(pt + 3)^;

-      if qhfver >= $03 then

-        szMsgHd := $23

-      else

-        szMsgHd := $21;

-      fsz := RLInteger(pt + $04);

-

-      UIDLen := RLWord(pt + $2C);

-      SetLength(UIDstr, UIDLen);

-      if qhfver <= 2 then

-        lstrcpynA(PAnsiChar(UIDstr), PAnsiChar(pt + $2E), UIDLen)

-      else

-        lstrcpynA(PAnsiChar(UIDstr), PAnsiChar(pt + $2E), UIDLen + 1);

-

-      NickLen := RLWord(pt + $2E + UIDLen);

-      SetLength(NickStr, NickLen);

-      if qhfver <= 2 then

-        lstrcpynA(PAnsiChar(NickStr), PAnsiChar(pt + $2E + UIDLen + 2), UIDLen)

-      else

-        lstrcpynA(PAnsiChar(NickStr), PAnsiChar(pt + $2E + UIDLen + 2), UIDLen + 1);

-

-      inc(pt, $2E + UIDLen + 2 + NickLen);

-      if fsz <> FileLen - ($2E + UIDLen + 2 + NickLen) then

-        fsz := FileLen - ($2E + UIDLen + 2 + NickLen);

-

-      if (DContact.hContact = 0) or (DContact.hContact = INVALID_HANDLE_VALUE)

-      then

-      begin

-        DContact.ContactUID := UIDstr;

-        DContact.ContactNick := UTF8Decode{UTF8ToWideString}(NickStr);

-        TryDetermContact(DContact);

-      end;

-      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);

-        DoMessage(ITXT_THREAD_MAXPROGRESS, 0, fsz);

-        i := 0;

-        while Cardinal(i) < fsz do

-        begin

-          fillchar(dbei, sizeof(dbei), 0);

-          dbei.szModule := PAnsiChar(proto);

-          dbei.timestamp := RLInteger(pt + i + $12);

-          dbei.timestamp := dbei.timestamp -

-            (Cardinal(TimeZone_ToLocal(dbei.timestamp)) - dbei.timestamp); // приводим к GMT

-          if PByte(pt + i + $1A)^ = $00 then

-            dbei.flags := DBEF_READ or DBEF_UTF

-          else

-            dbei.flags := DBEF_READ or DBEF_UTF or DBEF_SENT;

-          // в файлах лежат в utf8 и импортируются без изменений

-          dbei.eventType := EVENTTYPE_MESSAGE;

-          dbei.cbBlob := RLWord(pt + i + szMsgHd - 2) + 1;

-          // размер текста сообщения с #0

-          dbei.pBlob := AllocMem(dbei.cbBlob);

-

-          try

-            Move(DecodeQHFMsg(qhfver, pt + i + szMsgHd, dbei.cbBlob - 1)[1],

-              dbei.pBlob^, dbei.cbBlob - 1);

-            if not IsDuplicateEvent(DContact.hContact, dbei) then

-              if db_event_add(DContact.hContact, @dbei) <> 0 then

-                inc(AddedMessages)

-              else

-              begin

-                s := 'Error adding message to database';

-                DoMessage(ITXT_THREAD_ERROR, wparam(PWideChar(s)), 0);

-                break;

-              end

-

-            else

-              inc(Duplicates);

-

-          finally

-            inc(i, szMsgHd + dbei.cbBlob - 1);

-            FreeMem(dbei.pBlob);

-          end;

-          DoMessage(ITXT_THREAD_PROGRESS, i, 0);

-        end;

-      end

-      else

-      begin

-        s := TranslateWideString('Can''t determine destination contact');

-        DoMessage(ITXT_THREAD_ERROR, wparam(PWideChar(s)), 0);

-      end;

-    end

-    else

-    begin

-      s := WideFormat(TranslateWideString('It''s not %s file'), ['QHF']);

-      DoMessage(ITXT_THREAD_ERROR, wparam(PWideChar(s)), 0);

-    end

-  else // file len

-end;

-{$ENDIF}