1 | unit UCommMark;
|
---|
2 |
|
---|
3 | {$mode delphi}{$H+}
|
---|
4 |
|
---|
5 | interface
|
---|
6 |
|
---|
7 | uses
|
---|
8 | Classes, SysUtils, UCommPin, SpecializedList;
|
---|
9 |
|
---|
10 | type
|
---|
11 |
|
---|
12 | { TCommMark }
|
---|
13 |
|
---|
14 | TCommMark = class(TCommNode)
|
---|
15 | private
|
---|
16 | FMarkIndex: Integer;
|
---|
17 | FFrameData: TListByte;
|
---|
18 | procedure RawDataReceive(Sender: TCommPin; Stream: TListByte);
|
---|
19 | procedure RawSetStatus(Sender: TCommPin; Status: Integer);
|
---|
20 | procedure FrameDataReceive(Sender: TCommPin; Stream: TListByte);
|
---|
21 | procedure FrameSetStatus(Sender: TCommPin; Status: Integer);
|
---|
22 | protected
|
---|
23 | procedure SetActive(const AValue: Boolean); override;
|
---|
24 | public
|
---|
25 | PinRaw: TCommPin;
|
---|
26 | PinFrame: TCommPin;
|
---|
27 | Mark: TListByte;
|
---|
28 | procedure Reset;
|
---|
29 | constructor Create(AOwner: TComponent); override;
|
---|
30 | destructor Destroy; override;
|
---|
31 | end;
|
---|
32 |
|
---|
33 | implementation
|
---|
34 |
|
---|
35 | { TCommMark }
|
---|
36 |
|
---|
37 | procedure TCommMark.RawDataReceive(Sender: TCommPin; Stream: TListByte);
|
---|
38 | var
|
---|
39 | I: Integer;
|
---|
40 | begin
|
---|
41 | for I := 0 to Stream.Count - 1 do
|
---|
42 | if (Mark.Count > 0) and (Stream[I] = Mark[FMarkIndex]) then begin
|
---|
43 | Inc(FMarkIndex);
|
---|
44 | if FMarkIndex >= Mark.Count then begin
|
---|
45 | PinFrame.Send(FFrameData);
|
---|
46 | FFrameData.Count := 0;
|
---|
47 | FMarkIndex := 0;
|
---|
48 | end;
|
---|
49 | end else begin
|
---|
50 | FFrameData.Count := FFrameData.Count + 1;
|
---|
51 | FFrameData[FFrameData.Count - 1] := Stream[I];
|
---|
52 | FMarkIndex := 0;
|
---|
53 | if Mark.Count = 0 then begin
|
---|
54 | PinFrame.Send(FFrameData);
|
---|
55 | FFrameData.Count := 0;
|
---|
56 | end;
|
---|
57 | end;
|
---|
58 | end;
|
---|
59 |
|
---|
60 | procedure TCommMark.RawSetStatus(Sender: TCommPin; Status: Integer);
|
---|
61 | begin
|
---|
62 | PinFrame.Status := Status;
|
---|
63 | end;
|
---|
64 |
|
---|
65 | procedure TCommMark.FrameDataReceive(Sender: TCommPin; Stream: TListByte);
|
---|
66 | begin
|
---|
67 | PinRaw.Send(Stream);
|
---|
68 | PinRaw.Send(Mark);
|
---|
69 | end;
|
---|
70 |
|
---|
71 | procedure TCommMark.FrameSetStatus(Sender: TCommPin; Status: Integer);
|
---|
72 | begin
|
---|
73 | PinRaw.Status := Status;
|
---|
74 | end;
|
---|
75 |
|
---|
76 | procedure TCommMark.SetActive(const AValue: Boolean);
|
---|
77 | begin
|
---|
78 | if FActive = AValue then Exit;
|
---|
79 | FActive := AValue;
|
---|
80 | if FActive then Reset;
|
---|
81 | inherited;
|
---|
82 | end;
|
---|
83 |
|
---|
84 | procedure TCommMark.Reset;
|
---|
85 | begin
|
---|
86 | FMarkIndex := 0;
|
---|
87 | FFrameData.Clear;
|
---|
88 | end;
|
---|
89 |
|
---|
90 | constructor TCommMark.Create(AOwner: TComponent);
|
---|
91 | begin
|
---|
92 | inherited;
|
---|
93 | PinRaw := TCommPin.Create;
|
---|
94 | PinRaw.OnReceive := RawDataReceive;
|
---|
95 | PinRaw.OnSetSatus := RawSetStatus;
|
---|
96 | PinRaw.Node := Self;
|
---|
97 | PinFrame := TCommPin.Create;
|
---|
98 | PinFrame.OnReceive := FrameDataReceive;
|
---|
99 | PinFrame.OnSetSatus := FrameSetStatus;
|
---|
100 | PinFrame.Node := Self;
|
---|
101 | Mark := TListByte.Create;
|
---|
102 | FMarkIndex := 0;
|
---|
103 | FFrameData := TListByte.Create;
|
---|
104 | end;
|
---|
105 |
|
---|
106 | destructor TCommMark.Destroy;
|
---|
107 | begin
|
---|
108 | FFrameData.Free;
|
---|
109 | Mark.Free;
|
---|
110 | PinRaw.Free;
|
---|
111 | PinFrame.Free;
|
---|
112 | inherited Destroy;
|
---|
113 | end;
|
---|
114 |
|
---|
115 | end.
|
---|
116 |
|
---|