从控制台调用方法："No current object"

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","[e-mail]")

我得到这个错误：

 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-生产中该操作的名称，默认情况下与类名（例如"Custom.class"）相同。现在您可以调用您的方法。

write oper.SendMessage("testSubj","test body","[e-mail]")

但我不建议这样做。如果您通过生产来测试它，只需向该操作发送测试消息，那会更好。