PageRenderTime 24ms CodeModel.GetById 22ms app.highlight 1ms RepoModel.GetById 0ms app.codeStats 0ms

/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
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.