forked from VE3NEA/OmniRig
-
Notifications
You must be signed in to change notification settings - Fork 1
/
AutoPort.pas
89 lines (66 loc) · 1.97 KB
/
AutoPort.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
//------------------------------------------------------------------------------
//This Source Code Form is subject to the terms of the Mozilla Public
//License, v. 2.0. If a copy of the MPL was not distributed with this
//file, You can obtain one at http://mozilla.org/MPL/2.0/.
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
// Omni-Rig
//
// Copyright (c) 2003 Alex Shovkoplyas, VE3NEA
//
//------------------------------------------------------------------------------
unit AutoPort;
interface
uses
Windows, ComObj, ActiveX, OmniRig_TLB, StdVcl, AlComPrt;
type
TPortBits = class(TAutoObject, IPortBits)
protected
function Get_Cts: WordBool; safecall;
function Get_Dsr: WordBool; safecall;
function Get_Dtr: WordBool; safecall;
function Get_Rts: WordBool; safecall;
function Lock: WordBool; safecall;
procedure Set_Dtr(Value: WordBool); safecall;
procedure Set_Rts(Value: WordBool); safecall;
procedure Unlock; safecall;
public
FPort: TAlCommPort;
end;
implementation
uses ComServ, Main;
function TPortBits.Lock: WordBool;
begin
end;
procedure TPortBits.Unlock;
begin
end;
function TPortBits.Get_Cts: WordBool;
begin
Result := FPort.CtsBit;
end;
function TPortBits.Get_Dsr: WordBool;
begin
Result := FPort.DsrBit;
end;
function TPortBits.Get_Dtr: WordBool;
begin
Result := FPort.DtrBit;
end;
function TPortBits.Get_Rts: WordBool;
begin
Result := FPort.RtsBit;
end;
procedure TPortBits.Set_Dtr(Value: WordBool);
begin
FPort.DtrBit := Value;
end;
procedure TPortBits.Set_Rts(Value: WordBool);
begin
FPort.RtsBit := Value;
end;
initialization
TAutoObjectFactory.Create(ComServer, TPortBits, Class_PortBits,
ciInternal, tmApartment);
end.