testinterface2.pro

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

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

    Copyright (c) Prolog Developement Center

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

implement testInterface2 inherits comInterface
facts
    nativeInterface : iTestInterface2 .%release of interface is handled inside ccomInterface class

clauses
    newComponent(ComponentClassID) :-
        CompIF = comCreation::createInstance(ComponentClassID, iTestInterface2::iid),
        nativeInterface := uncheckedConvert(iTestInterface2, CompIF),
        comInterface::new(nativeInterface).

clauses
    new(ImportedInterface):-
        nativeInterface := uncheckedConvert(iTestInterface2, ImportedInterface:queryInterface(iTestInterface2::iid)),
        comInterface::new(nativeInterface).

clauses
    method1(Input, Output):-
        comExceptionCheck::check(
            comExceptionCheck::classInfo,
            "method1",
            nativeInterface:method1(Input, ComOutput),
            []),
        Output = string::createCopy(ComOutput),
        comMemory::taskMemFree(uncheckedConvert(pointer,ComOutput)).

clauses
    method_Interface2(Output) :-
        comExceptionCheck::check(
            comExceptionCheck::classInfo,
            "method_Interface2",
            nativeInterface:method_Interface2(Output),
            []).
end implement testInterface2