VPF::Delphi & ClamAV - Форум программистов

ASGDeveloper

Дата 2.10.2006, 16:12 (ссылка)

(нет голосов)

Загрузка ...

developer

Профиль
Группа: Участник
Сообщений: 389
Регистрация: 1.4.2006

Репутация: 1
Всего: 1

Пытаюсь подружить сабж.
Накатал юнит:

Код


type
  cl_node = record
  end;

  cl_limits = record
    maxreclevel, maxfiles, maxratio: Integer;
    archivememlim: SHORT;
    maxfilesize: LongInt;
  end;

const
// return codes
CL_CLEAN=0;
CL_VIRUS=1;

// error codes
CL_EMAXREC=10;
CL_EMAXSIZE=11;
CL_EMAXFILES=12;
CL_ERAR=100;
CL_EZIP=101;
CL_EMALFZIP=102;
CL_EGZIP=103;
CL_EBZIP=104;
CL_EOLE2=105;
CL_EMSCOMP=106;
CL_EMSCAB=107;
CL_EACCES=200;
CL_ENULLARG=300;
CL_ETMPFILE=-1;
CL_EFSYNC=-2;
CL_EMEM=-3;
CL_EOPEN=-4;
CL_EMALFDB=-5;
CL_EPATSHORT=-6;
CL_ETMPDIR=-7;
CL_ECVD=-8;
CL_ECVDEXTR=-9;
CL_EMD5=-10;
CL_EDSIG=-11;
CL_EIO=-12;
CL_EFORMAT=-13;

// options
CL_SCAN_RAW=0;
CL_SCAN_ARCHIVE=1;
CL_SCAN_MAIL=2;
CL_SCAN_DISABLERAR=4;
CL_SCAN_OLE2=8;
CL_SCAN_BLOCKENCRYPTED=16;
CL_SCAN_HTML=32;
CL_SCAN_PE=64;
CL_SCAN_BLOCKBROKEN=128;
CL_SCAN_MAILURL=256;
CL_SCAN_BLOCKMAX=512;

CL_SCAN_DEFAULT=CL_SCAN_ARCHIVE or CL_SCAN_MAIL and CL_SCAN_OLE2 or CL_SCAN_HTML or CL_SCAN_PE and CL_SCAN_DISABLERAR;

// backward compatibility
CL_RAW=CL_SCAN_RAW;
CL_ARCHIVE=CL_SCAN_ARCHIVE;
CL_MAIL=CL_SCAN_MAIL;
CL_DISABLERAR=CL_SCAN_DISABLERAR;
CL_OLE2=CL_SCAN_OLE2;
CL_ENCRYPTED=CL_SCAN_BLOCKENCRYPTED;
CL_DEFAULT=CL_SCAN_DEFAULT;

...

function cl_scanfile(filename: PChar; const virname: PChar; scanned: Integer;
                     root: cl_node; limits: cl_limits; options: Integer): Integer; stdcall;
    external 'libclamav.dll' name 'cl_scanfile';

Вызываю:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  ret: Integer;
  root: cl_node;
  limits: cl_limits;
begin
  ret := cl_scanfile('eicar.com', '*', 1, root, limits, CL_SCAN_PE);
  ShowMessage(IntToStr(ret));
end;

Может у кого есть свои наработки и может поделиться?

ЗЫ Кстати, инфу удалось нарыть здесь: http://www.salstar.sk/pub/antivir/sagator/...v/libclamav.pyx

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »