/jcl/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary_TLB.pas
Pascal | 97 lines | 32 code | 17 blank | 48 comment | 0 complexity | aa895b643cdeca8005aacfe75180a291 MD5 | raw file
Possible License(s): BSD-3-Clause
1unit StackTrackDLLsComLibrary_TLB; 2 3// ************************************************************************ // 4// WARNING 5// ------- 6// The types declared in this file were generated from data read from a 7// Type Library. If this type library is explicitly or indirectly (via 8// another type library referring to this type library) re-imported, or the 9// 'Refresh' command of the Type Library Editor activated while editing the 10// Type Library, the contents of this file will be regenerated and all 11// manual modifications will be lost. 12// ************************************************************************ // 13 14// PASTLWTR : $Revision$ 15// File generated on 1.8.2005 02:48:29 from Type Library described below. 16 17// ************************************************************************ // 18// Type Lib: D:\Quellen\jedi\jcl\examples\vcl\debug\stacktrack\StackTrackDLLsComLibrary.tlb (1) 19// IID\LCID: {D4935E5D-790E-48CA-B360-0165C1305153}\0 20// Helpfile: 21// DepndLst: 22// (1) v2.0 stdole, (F:\WINNT\system32\stdole2.tlb) 23// (2) v4.0 StdVCL, (F:\WINNT\system32\STDVCL40.DLL) 24// ************************************************************************ // 25{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 26interface 27 28uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL; 29 30// *********************************************************************// 31// GUIDS declared in the TypeLibrary. Following prefixes are used: 32// Type Libraries : LIBID_xxxx 33// CoClasses : CLASS_xxxx 34// DISPInterfaces : DIID_xxxx 35// Non-DISP interfaces: IID_xxxx 36// *********************************************************************// 37const 38 // TypeLibrary Major and minor versions 39 StackTrackDLLsComLibraryMajorVersion = 1; 40 StackTrackDLLsComLibraryMinorVersion = 0; 41 42 LIBID_StackTrackDLLsComLibrary: TGUID = '{D4935E5D-790E-48CA-B360-0165C1305153}'; 43 44 IID_IStackTrackDllsTest: TGUID = '{26473046-CCEB-4671-9AB1-2216EF4D2164}'; 45 CLASS_StackTrackDllsTest: TGUID = '{DA3AEC52-1481-4119-B140-2157C7ADEC5B}'; 46type 47 48// *********************************************************************// 49// Forward declaration of types defined in TypeLibrary 50// *********************************************************************// 51 IStackTrackDllsTest = interface; 52 53// *********************************************************************// 54// Declaration of CoClasses defined in Type Library 55// (NOTE: Here we map each CoClass to its Default Interface) 56// *********************************************************************// 57 StackTrackDllsTest = IStackTrackDllsTest; 58 59 60// *********************************************************************// 61// Interface: IStackTrackDllsTest 62// Flags: (256) OleAutomation 63// GUID: {26473046-CCEB-4671-9AB1-2216EF4D2164} 64// *********************************************************************// 65 IStackTrackDllsTest = interface(IUnknown) 66 ['{26473046-CCEB-4671-9AB1-2216EF4D2164}'] 67 function Error1: HResult; stdcall; 68 function Error2: HResult; stdcall; 69 end; 70 71// *********************************************************************// 72// The Class CoStackTrackDllsTest provides a Create and CreateRemote method to 73// create instances of the default interface IStackTrackDllsTest exposed by 74// the CoClass StackTrackDllsTest. The functions are intended to be used by 75// clients wishing to automate the CoClass objects exposed by the 76// server of this typelibrary. 77// *********************************************************************// 78 CoStackTrackDllsTest = class 79 class function Create: IStackTrackDllsTest; 80 class function CreateRemote(const MachineName: string): IStackTrackDllsTest; 81 end; 82 83implementation 84 85uses ComObj; 86 87class function CoStackTrackDllsTest.Create: IStackTrackDllsTest; 88begin 89 Result := CreateComObject(CLASS_StackTrackDllsTest) as IStackTrackDllsTest; 90end; 91 92class function CoStackTrackDllsTest.CreateRemote(const MachineName: string): IStackTrackDllsTest; 93begin 94 Result := CreateRemoteComObject(MachineName, CLASS_StackTrackDllsTest) as IStackTrackDllsTest; 95end; 96 97end.