Не создается экземпляр SysMailer в RunBaseBatch

[pvito]

Добрый день!

Может кто сталкивался с подобной проблемой.
AOS Application и Клиент - установлены на одной машине.
Пытаюсь создать экземпляр класса SysMailer в методе run в классе наследованом от RunBaseBatch

public void run()
{

 SysMailer mailer;
 ;
 
 mailer = new SysMailer();
 mailer.SMTPRelayServer("*****",25, "******", "*****", true);
 mailer.quickSend("***@***.**", "***@***.**", "test", "test");

}

Ставим задание на пакет.
Запускаем второго клиента.
Запускаем на втором клиенте пакетный обработчик.
При исполнении задания валится ошибка


Сбой запроса на разрешение типа "InteropPermission".
(S)\Classes\InteropPermission\demand
(S)\Classes\COM\new
(S)\Classes\SysMailer\new - line 1
(S)\Classes\NAT_T2MailSender\run - line 7 - здесь mailer = new SysMailer();
(S)\Classes\BatchRun\runJobStatic - line 63
(S)\Classes\BatchRun\runJob - line 55
(S)\Classes\BatchRun\do - line 54
(C)\Forms\BatchRun\Methods\doBatch - line 18
(C)\Forms\BatchRun\Methods\setStart - line 8
(C)\Forms\BatchRun\Methods\setRunning - line 7
(S)\Classes\BatchRun\run - line 26
(C)\Classes\BatchRun\main - line 10

Если же запустить данный код просто в Job:

static void Job_test_SysMailer(Args _args)
{

 SysMailer mailer;
 ;
 
 mailer = new SysMailer();
 mailer.SMTPRelayServer("*****",25, "******", "*****", true);
 mailer.quickSend("***@***.**", "***@***.**", "test", "test");

}

То все выполняется нормально.

Заранее спасибо !

[gl00mie]

Цитата:

Сообщение от pvito

Пытаюсь создать экземпляр класса SysMailer в методе run в классе наследованом от RunBaseBatch. При исполнении задания валится ошибка
Сбой запроса на разрешение типа "InteropPermission".
(S)\Classes\InteropPermission\demand
(S)\Classes\COM\new
(S)\Classes\SysMailer\new - line 1
(S)\Classes\NAT_T2MailSender\run - line 7 - здесь mailer = new SysMailer();
Если же запустить данный код просто в Job то все выполняется нормально.

Есть чудесный документ Writing Secure X++ Code, где рассказывается, как в 4-ке ввели ограничения на выполнение unmanaged code, и как с этими ограничениями жить. Смысл в том, что когда код выполняется на сервере (как происходит, судя по приведенному стеку вызовов, в случае с пакетным заданием), то для использования ряда возможностей, вроде DLLFunction, COM-объектов и т.п. необходимо явно проверять (запрашивать) наличие разрешений на это. Когда же код (Job, к примеру) выполняется на клиенте, Аксапте на такие вещи наплевать. В приведенном случае класс SysMailer пытается создать экземляр COM-объекта, так что код работы с ним необходимо обрамить примерно так:

InteropPermission comPermission = new InteropPermission(InteropKind::ComInterop);
SysMailer         mailer;
;
comPermission.assert();
mailer = new SysMailer();
// ... работа с SysMailer...
CodeAccessPermission::revertAssert();  // опционально, но явный вызов - это теперь тоже Best Practices

PS. К слову, о SysMailer: вроде в SP2 это исправили, но раньше в нем был один баг

[pvito]

Спасибо огромное за помощь !!!

[leva]

Цитата:

Сообщение от gl00mie

К слову, о SysMailer: вроде в SP2 это исправили, но раньше в нем был один баг

Не знаю на каком этапе это появилось, я смотрю в AX2009, но кажется есть там ещё один баг.

Метод new в в SysMailer делает assert в начале, так что его как бы можно вызывать уже не делая это в своем коде. Только они забыли про параметр по-умолчанию.

void new(COM c = new COM('CDO.Message'))
{
    InteropPermission permission = new InteropPermission(InteropKind::ComInterop);
    ;
    permission.assert();
    //пропущено
}

Тут и происходит ошибка, если вызвать его из своего кода без параметров и предварительного assert-а.
Должно быть что-то вроде:

void new(COM c = null)
{
    InteropPermission permission = new InteropPermission(InteropKind::ComInterop);
    ;
    permission.assert();

    if (prmIsDefault(c))
        c = new COM('CDO.Message');
    //пропущено
}