-
Notifications
You must be signed in to change notification settings - Fork 9
/
Copy pathPrescription_TLB.~pas
140 lines (121 loc) · 6.84 KB
/
Prescription_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
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
unit Prescription_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: 1.130.1.0.1.0.1.6 $
// File generated on 07/02/2013 4:13:03 PM from Type Library described below.
// ************************************************************************ //
// Type Lib: C:\Projects\DEV\RxSolutionCode - 1.2.7.1\Prescription.tlb (1)
// LIBID: {6BBB03C0-CF9C-4E35-8607-50F44176B339}
// LCID: 0
// Helpfile:
// DepndLst:
// (1) v2.0 stdole, (C:\Windows\system32\stdole2.tlb)
// (2) v4.0 StdVCL, (C:\Windows\system32\stdvcl40.dll)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface
uses Windows, ActiveX, Classes, Graphics, 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
PrescriptionMajorVersion = 1;
PrescriptionMinorVersion = 3;
LIBID_Prescription: TGUID = '{6BBB03C0-CF9C-4E35-8607-50F44176B339}';
IID_IRX: TGUID = '{DD0EB150-EE5F-48E4-8EAF-BCB364C261F9}';
CLASS_RX: TGUID = '{57168452-EBF4-4C0F-8CE0-CD16B83C1EB0}';
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IRX = interface;
IRXDisp = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
RX = IRX;
// *********************************************************************//
// Interface: IRX
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DD0EB150-EE5F-48E4-8EAF-BCB364C261F9}
// *********************************************************************//
IRX = interface(IDispatch)
['{DD0EB150-EE5F-48E4-8EAF-BCB364C261F9}']
procedure Initialize(const _conString: WideString); safecall;
function Get_ConnectionString: WideString; safecall;
procedure Set_ConnectionString(const Value: WideString); safecall;
procedure Edit(const _id: WideString; const _userRights: WordBool; const _userNameID: WideString;
const _editLabel: WordBool; const _userPin: WideString); safecall;
procedure Post(const _id: WideString); safecall;
procedure Revert(const _id: WideString); safecall;
procedure Delete(const _id: WideString); safecall;
procedure Add(const _patientId: WideString; const _userNameID: WideString;
const _userPin: WideString); safecall;
procedure Protocols(const _userRights: WordBool; const _userNameID: WideString; const _userPin: WideString); safecall;
procedure StandardDose(const _userRights: WordBool; const _userNameID: WideString; const _userPin: WideString); safecall;
function Get_DispenserID: WideString; safecall;
procedure Set_DispenserID(const Value: WideString); safecall;
procedure CopyRx(const _id: WideString; const _userNameID: WideString; const _userPin: WideString); safecall;
property ConnectionString: WideString read Get_ConnectionString write Set_ConnectionString;
property DispenserID: WideString read Get_DispenserID write Set_DispenserID;
end;
// *********************************************************************//
// DispIntf: IRXDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DD0EB150-EE5F-48E4-8EAF-BCB364C261F9}
// *********************************************************************//
IRXDisp = dispinterface
['{DD0EB150-EE5F-48E4-8EAF-BCB364C261F9}']
procedure Initialize(const _conString: WideString); dispid 1;
property ConnectionString: WideString dispid 2;
procedure Edit(const _id: WideString; const _userRights: WordBool; const _userNameID: WideString;
const _editLabel: WordBool; const _userPin: WideString); dispid 3;
procedure Post(const _id: WideString); dispid 4;
procedure Revert(const _id: WideString); dispid 5;
procedure Delete(const _id: WideString); dispid 6;
procedure Add(const _patientId: WideString; const _userNameID: WideString;
const _userPin: WideString); dispid 7;
procedure Protocols(const _userRights: WordBool; const _userNameID: WideString; const _userPin: WideString); dispid 8;
procedure StandardDose(const _userRights: WordBool; const _userNameID: WideString; const _userPin: WideString); dispid 9;
property DispenserID: WideString dispid 10;
procedure CopyRx(const _id: WideString; const _userNameID: WideString; const _userPin: WideString); dispid 11;
end;
// *********************************************************************//
// The Class CoRX provides a Create and CreateRemote method to
// create instances of the default interface IRX exposed by
// the CoClass RX. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoRX = class
class function Create: IRX;
class function CreateRemote(const MachineName: string): IRX;
end;
implementation
uses ComObj;
class function CoRX.Create: IRX;
begin
Result := CreateComObject(CLASS_RX) as IRX;
end;
class function CoRX.CreateRemote(const MachineName: string): IRX;
begin
Result := CreateRemoteComObject(MachineName, CLASS_RX) as IRX;
end;
end.