-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathdirectum_debugger_TLB.pas
125 lines (105 loc) · 5.04 KB
/
directum_debugger_TLB.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
unit directum_debugger_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.
// ************************************************************************ //
// $Rev: 31855 $
// File generated on 20.07.2012 16:47:41 from Type Library described below.
// ************************************************************************ //
// Type Lib: C:\Documents and Settings\Ðàçðàáîò÷èê\Ðàáî÷èé ñòîë\directum_debugger\directum_debugger (1)
// LIBID: {65B57E38-A336-41BC-92A8-BC376497EDF0}
// LCID: 0
// Helpfile:
// HelpString:
// DepndLst:
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// (2) v4.0 StdVCL, (stdvcl40.tlb)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
{$ALIGN 4}
interface
uses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, Variants;
// *********************************************************************//
// 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
directum_debuggerMajorVersion = 1;
directum_debuggerMinorVersion = 0;
LIBID_directum_debugger: TGUID = '{65B57E38-A336-41BC-92A8-BC376497EDF0}';
IID_IDebugger: TGUID = '{B9EB683D-FEA3-4219-8E6D-99AA22B4D84E}';
CLASS_Debugger: TGUID = '{9337CC4E-E520-4BEA-A3D7-8F2EC229593F}';
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IDebugger = interface;
IDebuggerDisp = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
Debugger = IDebugger;
// *********************************************************************//
// Interface: IDebugger
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B9EB683D-FEA3-4219-8E6D-99AA22B4D84E}
// *********************************************************************//
IDebugger = interface(IDispatch)
['{B9EB683D-FEA3-4219-8E6D-99AA22B4D84E}']
procedure StartDebug(InterpreterID: Integer; const ProgramCaption: WideString;
const Text: WideString; const CallStack: WideString); safecall;
procedure FinishDebug(InterpreterID: Integer); safecall;
procedure GotoLine(InterpreterID: Integer; LineNumber: Integer; Variables: OleVariant;
EnvironmentVariables: OleVariant); safecall;
procedure Ping; safecall;
end;
// *********************************************************************//
// DispIntf: IDebuggerDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {B9EB683D-FEA3-4219-8E6D-99AA22B4D84E}
// *********************************************************************//
IDebuggerDisp = dispinterface
['{B9EB683D-FEA3-4219-8E6D-99AA22B4D84E}']
procedure StartDebug(InterpreterID: Integer; const ProgramCaption: WideString;
const Text: WideString; const CallStack: WideString); dispid 201;
procedure FinishDebug(InterpreterID: Integer); dispid 202;
procedure GotoLine(InterpreterID: Integer; LineNumber: Integer; Variables: OleVariant;
EnvironmentVariables: OleVariant); dispid 203;
procedure Ping; dispid 204;
end;
// *********************************************************************//
// The Class CoDebugger provides a Create and CreateRemote method to
// create instances of the default interface IDebugger exposed by
// the CoClass Debugger. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoDebugger = class
class function Create: IDebugger;
class function CreateRemote(const MachineName: string): IDebugger;
end;
implementation
uses ComObj;
class function CoDebugger.Create: IDebugger;
begin
Result := CreateComObject(CLASS_Debugger) as IDebugger;
end;
class function CoDebugger.CreateRemote(const MachineName: string): IDebugger;
begin
Result := CreateRemoteComObject(MachineName, CLASS_Debugger) as IDebugger;
end;
end.