Last change
on this file was 413, checked in by chronos, 12 years ago |
- Modified: Classes using TCommPin class now inherits from TCommNode which inherits from TComponent. All TCommNodes are now registred as components in PinConnection group on component palette.
- Modified: TCommPin now have reference to parent TCommNode.
|
File size:
552 bytes
|
Line | |
---|
1 | unit UPinConnection;
|
---|
2 |
|
---|
3 | {$mode delphi}{$H+}
|
---|
4 |
|
---|
5 | interface
|
---|
6 |
|
---|
7 | uses
|
---|
8 | Classes, SysUtils;
|
---|
9 |
|
---|
10 | procedure Register;
|
---|
11 |
|
---|
12 |
|
---|
13 | implementation
|
---|
14 |
|
---|
15 | uses
|
---|
16 | UCommMark, UCommSerialPort, UCommTCPServer, UCommTCPClient, UCommFrame,
|
---|
17 | UPacketBurst, UCommThread, UCommDelay, UCommHub, UCommConcentrator,
|
---|
18 | UCommTelnet;
|
---|
19 |
|
---|
20 | procedure Register;
|
---|
21 | begin
|
---|
22 | RegisterComponents('PinConnection', [TCommMark, TCommSerialPort, TCommTCPServer,
|
---|
23 | TCommTCPClient, TCommFrame, TPacketBurst, TCommThread, TCommDelay, TCommHub,
|
---|
24 | TCommConcentrator, TCommTelnet]);
|
---|
25 | end;
|
---|
26 |
|
---|
27 | end.
|
---|
28 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.