Question

我有一个需要测试的方法。我想从控制台这样做。以下是该方法，以及该类中的一些元数据：

Include HS.Common

Class Custom.class Extends Ens.BusinessOperation
{
    Parameter ADAPTER = "EnsLib.EMail.OutboundAdapter";

    Property Adapter As EnsLib.EMail.OutboundAdapter;

    Method SendMessage(pSubject As %String, pMessage As %String, pEmailAddresses) As %Status
    {
        set tSC=$$$OK
        set tMailMessage=##class(%Net.MailMessage).%New()
        do tMailMessage.To.Insert($PIECE(pEmailAddresses,",",1))
        for tI=2:1:$LENGTH(pEmailAddresses,",") {
            do tMailMessage.Cc.Insert($PIECE(pEmailAddresses,",",tI))
        }

        set tMailMessage.Subject=pSubject
        set tMailMessage.Charset="iso-8859-1"
        set tSC=tMailMessage.TextData.Write(pMessage)
        quit:'tSC
        Set tSC1=..Adapter.SendMail(tMailMessage)
        if 'tSC1 {
            //Log warning about being unable to send mail.
            do $SYSTEM.Status.DecomposeStatus(tSC1,.err)
            $$$LOGWARNING("Could not send email: "_err(err))
            kill err
        }

        quit tSC
    }

    ...other methods here...

}

但是当我执行此命令时：

set tResult = ##class(Custom.class).SendMessage("Test Subject","Test Message","my@email.com")

我收到此错误：

 Set tSC1=..Adapter.SendMail(tMailMessage)
 ^
<NO CURRENT OBJECT>zSendMessage+11^Custom.class.1

我尝试在调用方法之前实例化适配器，就像属性定义一样，但是没有用。 如何从控制台会话中调用此方法？

Answer 1

此方法是一种实例方法，您无法直接为某个类调用它。之前，您应该创建一个对象，然后对于该对象，您可以调用任何实例方法。但是你仍然试图调用Ensemble类，它并不那么容易，因为你应该准备环境，比如配置和启动Ensemble Production，你的类应该作为Operation添加，配置和激活。

set oper=##class(Custom.class).%New("configName")

其中configName - 生产中该操作的名称，默认情况下与类名相同（例如＆＃34; Custom.class＆＃34;）。现在你可以打电话给你的方法。

write oper.SendMessage("testSubj","test body","my@mail.com")

但我不推荐这样的方式。如果你通过生产测试它会更好，只是将测试消息发送到此操作。

从控制台调用方法：＆＃34;没有当前对象＆＃34;

1 个答案: