VPF::Использование Microsoft Antivirus API - Форум программистов

veterskv

Дата 22.6.2015, 13:13 (ссылка)

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

Загрузка ...

Новичок

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

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

тут и тут, собственно, сама тема, но они закрыты...

и два вопроса по ней, вернее одно замечание и один вопрос
замечание: в строке 243 кода
это

Код


TComObjectFactory.Create(ComServer, TMsoTest, Class_MsoTest,  
   'MsoTest', '', ciMultiInstance, tmApartment);

меняем на это

Код


TMSOAvFactory.Create(ComServer, TMsoTest, Class_MsoTest,  
   'MsoTest', '', ciMultiInstance, tmApartment);

и получаем библиотеку.... что и получилось, и ее даже удалось зарегистрировать...

а теперь вопрос (очень надеюсь на помощь). Как эту библиотеку использовать теперь в консольном приложении (собственно использовать хочу функцию Scan, которая описывается в umsoavtest.pas кода по ссылке) c передаваемым параметром "строка_путь_к_файлам".
Что у меня не получается... хочу хоть как-то увидеть, что функцию возможно использовать...

Код


program AVConsol;

{$APPTYPE CONSOLE}

uses
SysUtils, Windows,
Messages,
Variants,
Classes,
Graphics,
Controls,
System,
Forms,
Dialogs,
WinSock,
StdCtrls,ExtActns, ShellAPI;

var 
hndDLLHandle: THandle;

//function Scan(pmsoavinfo: PChar): HResult; stdcall; external 'AVapi.dll'; 
//{$R *.DFM}

begin
hndDLLHandle := LoadLibrary('AVapi.dll');
if LoadLibrary('AVapi.dll') <> 0 then
begin
   if addr ( getProcAddress ( hndDLLHandle, 'Scan' ) ) <> nil then
      begin
            if addr ( func_scan ) <> nil then showMessage ( 'Функция найдена.' );
      end;
   else showMessage ( 'Функция не найдена.' );
end
else MessageBox(GetForegroundWindow, 'AVapi.dll не загружена.', nil, $1010);

end.

... но не получается
Спасибо.

Это сообщение отредактировал(а) veterskv - 24.6.2015, 16:57

veterskv

Дата 24.6.2015, 11:21 (ссылка)

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

Загрузка ...

Новичок

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

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

открыла эту dll far-ом.... и не обнаружила там необходимую мне ф-ю Scan

народ.... может есть другие методы использовать ее?

Poseidon

Дата 25.6.2015, 11:33 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Не надо использовать библиотеку. Эта msoavtest.dll дана как пример использования кода, который в модуле msoav. Разбертесь что там к чему и используйте этот пример сразу в своем приложении. Вот тут более детально описан этот код.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

veterskv

Дата 25.6.2015, 15:39 (ссылка)

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

Загрузка ...

Новичок

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

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

спасибо за отклик smile

все-таки уточню (лучше перебдеть, чем недобдеть)... т.е. в мое консольное приложение нужно взять из этого кода в мое консольное приложение только то, что касается функции Scan?! и всё??? smile

спасибо)

Poseidon

Дата 26.6.2015, 09:25 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Основная работа ведется в модуле msoav. Он нам нужен целиком и как есть (возможно с некаторыми правками, код уже считается устаревшим). В msoav, по сути, все крутится вокруг интерфейса IOfficeAntiVirus, который содержит только один метод - Scan. Этот интерфейст и есть то, что нам надо.

Теперь изучаем внимательно umsoavtest. В этом модуле описано как конкретно пользоваться интерфейсом IOfficeAntiVirus. Показано как создать класс [TMSOTest] на основе этого интерфейса и что делать в Scan этого класса. Вам надо взять код из umsoavtest и внести его в свое приложение. Придется точно так же создать класс на основе IOfficeAntiVirus. Точно так же (возможно с правками) описать Scan этого класса и использовать его по мере надобности. Действовать нужно по алгоритму, описанному по ссылке выше:

Цитата

IE and MS Office implement the antivirus component as follows:

    1. Obtain the list of all the installed antivirus components registered as supporting the MSOfficeAntiVirus component category.
    2. Launch the installed components.
    3. Query for the IOfficeAntiVirus interface.
    4. Call the IOfficeAntiVirus.Scan method to obtain all the installed components.
    5. Continue to open the file after the virus scan, regardless of the HRESULT value. The antivirus software warns a user if a file has a known virus but opens the file after the warning. It is up to the user to take action concerning the warning.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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