customcom.pro

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

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

		Copyright (c) Prolog Developement Center

 Written by: Visual Prolog
******************************************************************************/
implement customCom inherits mainDllCom
clauses
    % Implementation of class constructor
    new():-
        mainDllCom::new(),
        addComponent(
            customComServer::componentClassID,
            customComServer::readableName,
            customComServer::threadingModel,
            customComServer::componentInfo,
            createComponent).

predicates
    createComponent : classFactory::creator.

clauses
    createComponent(Outer, _) = Unknown:-
        Unknown = unknownManager::newComponent(Outer),
        SupportErrorInfo = Unknown:getSupportErrorInfoManager(),
        Server = customComServer::new(),
        _ = testInterface1::new(Unknown, Outer, SupportErrorInfo, Server),
        _ = testInterface2::new(Unknown, Outer, SupportErrorInfo, Server).
end implement customCom