testinterface2.pro

来自「Visual Prolog 7.1的一些学习资料,希望对您有用」· PRO 代码 · 共 38 行

/*****************************************************************************

		Copyright (c) Prolog Developement Center

 Written by: Visual Prolog
******************************************************************************/

implement testInterface2 inherits unknownSupport
facts
    delegateInterface : testInterface2_prolog.
	    lastHresult : core::hresult := comExceptionCheck::e_unexpected.
    supportErrorInfo : supportErrorInfoManager.

clauses
    new(Unknown, Outer, SupportErrorInfo, X):-
        unknownSupport::new(Unknown, Outer, iTestInterface2::iid, This),
        delegateInterface := X,
        supportErrorInfo := SupportErrorInfo.

clauses
    method1(Input, Output) = comExceptionCheck::s_ok:-
        trap( (delegateInterface:method1(Input, PrologString), Output = comMemory::allocString(PrologString)),
            TraceID,
            ( lastHresult := comExceptionCheck::processTraceID( supportErrorInfo,
                iTestInterface2::iid, customComServer::componentProgId, TraceID ), fail) ),
        !.
    method1(_, "" ) = lastHresult.

clauses
    method_Interface2(Output) = comExceptionCheck::s_ok:-
        trap( delegateInterface:method_Interface2(Output), TraceID,
            ( lastHresult := comExceptionCheck::processTraceID( supportErrorInfo,
                iTestInterface2::iid, customComServer::componentProgId, TraceID ), fail) ),
        !.
    method_Interface2(0) = lastHresult.

end implement testInterface2