testinterface1.pro

Visual Prolog 7.1的一些学习资料,希望对您有用

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

		Copyright (c) Prolog Developement Center

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

implement testInterface1 inherits unknownSupport
facts
    delegateInterface : testInterface1_prolog.
	lastHresult : core::hresult := comExceptionCheck::e_unexpected.
    supportErrorInfo : supportErrorInfoManager.

clauses
    new(Unknown, Outer, SupportErrorInfo, X):-
        unknownSupport::new(Unknown, Outer, iTestInterface1::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,
                iTestInterface1::iid, customComServer::componentProgId, TraceID ), fail) ),
        !.
    method1(_, "" ) = lastHresult.

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

end implement testInterface1