/jcl/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary_TLB.pas
https://github.com/the-Arioch/jcl · Pascal · 97 lines · 32 code · 17 blank · 48 comment · 0 complexity · aa895b643cdeca8005aacfe75180a291 MD5 · raw file
- unit StackTrackDLLsComLibrary_TLB;
- // ************************************************************************ //
- // WARNING
- // -------
- // The types declared in this file were generated from data read from a
- // Type Library. If this type library is explicitly or indirectly (via
- // another type library referring to this type library) re-imported, or the
- // 'Refresh' command of the Type Library Editor activated while editing the
- // Type Library, the contents of this file will be regenerated and all
- // manual modifications will be lost.
- // ************************************************************************ //
- // PASTLWTR : $Revision$
- // File generated on 1.8.2005 02:48:29 from Type Library described below.
- // ************************************************************************ //
- // Type Lib: D:\Quellen\jedi\jcl\examples\vcl\debug\stacktrack\StackTrackDLLsComLibrary.tlb (1)
- // IID\LCID: {D4935E5D-790E-48CA-B360-0165C1305153}\0
- // Helpfile:
- // DepndLst:
- // (1) v2.0 stdole, (F:\WINNT\system32\stdole2.tlb)
- // (2) v4.0 StdVCL, (F:\WINNT\system32\STDVCL40.DLL)
- // ************************************************************************ //
- {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
- interface
- uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;
- // *********************************************************************//
- // GUIDS declared in the TypeLibrary. Following prefixes are used:
- // Type Libraries : LIBID_xxxx
- // CoClasses : CLASS_xxxx
- // DISPInterfaces : DIID_xxxx
- // Non-DISP interfaces: IID_xxxx
- // *********************************************************************//
- const
- // TypeLibrary Major and minor versions
- StackTrackDLLsComLibraryMajorVersion = 1;
- StackTrackDLLsComLibraryMinorVersion = 0;
- LIBID_StackTrackDLLsComLibrary: TGUID = '{D4935E5D-790E-48CA-B360-0165C1305153}';
- IID_IStackTrackDllsTest: TGUID = '{26473046-CCEB-4671-9AB1-2216EF4D2164}';
- CLASS_StackTrackDllsTest: TGUID = '{DA3AEC52-1481-4119-B140-2157C7ADEC5B}';
- type
- // *********************************************************************//
- // Forward declaration of types defined in TypeLibrary
- // *********************************************************************//
- IStackTrackDllsTest = interface;
- // *********************************************************************//
- // Declaration of CoClasses defined in Type Library
- // (NOTE: Here we map each CoClass to its Default Interface)
- // *********************************************************************//
- StackTrackDllsTest = IStackTrackDllsTest;
- // *********************************************************************//
- // Interface: IStackTrackDllsTest
- // Flags: (256) OleAutomation
- // GUID: {26473046-CCEB-4671-9AB1-2216EF4D2164}
- // *********************************************************************//
- IStackTrackDllsTest = interface(IUnknown)
- ['{26473046-CCEB-4671-9AB1-2216EF4D2164}']
- function Error1: HResult; stdcall;
- function Error2: HResult; stdcall;
- end;
- // *********************************************************************//
- // The Class CoStackTrackDllsTest provides a Create and CreateRemote method to
- // create instances of the default interface IStackTrackDllsTest exposed by
- // the CoClass StackTrackDllsTest. The functions are intended to be used by
- // clients wishing to automate the CoClass objects exposed by the
- // server of this typelibrary.
- // *********************************************************************//
- CoStackTrackDllsTest = class
- class function Create: IStackTrackDllsTest;
- class function CreateRemote(const MachineName: string): IStackTrackDllsTest;
- end;
- implementation
- uses ComObj;
- class function CoStackTrackDllsTest.Create: IStackTrackDllsTest;
- begin
- Result := CreateComObject(CLASS_StackTrackDllsTest) as IStackTrackDllsTest;
- end;
- class function CoStackTrackDllsTest.CreateRemote(const MachineName: string): IStackTrackDllsTest;
- begin
- Result := CreateRemoteComObject(MachineName, CLASS_StackTrackDllsTest) as IStackTrackDllsTest;
- end;
- end.