customcomserver.cl

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

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

		Copyright (c) Prolog Developement Center

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

class customComServer : customComServer
constants
    componentClassID : comDomains::nativeIID = core::nativeGuid(
        0xF81ECF14, 0x11A3, 0x48C8, 0x99, 0xC5, 0xAB, 0xF0, 0x63, 0x63, 0x84, 0xB1).

    /* Registration information for the component */
    componentProgId : comDomains::progID = comDomains::progID("Vendor", "Component", comDomains::version(1, 0)).
    componentInfo : comRegistration::componentInfo_list =
        [ comRegistration::programmaticIdentifier(componentProgId),
          comRegistration::version(comDomains::version(1,0))
        ].

    /* Human readable name of the component */
    readableName = "Readable name".

    /* Threading model of apartment component server can run in */
    threadingModel : comRegistration::threadingModel = comRegistration::apartment().
end class customComServer