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

		Copyright (c) Prolog Developement Center

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

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

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

clauses
    new(ImportedInterface):-
        nativeInterface := uncheckedConvert(iTestInterface1, ImportedInterface:queryInterface(iTestInterface1::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_Interface1(Output) :-
        comExceptionCheck::check(
            comExceptionCheck::classInfo,
            "method_Interface1 ",
            nativeInterface:method_interface1(Output),
            []).
end implement testInterface1