CryptoNetworkExplorer/PeerNodeUnit.pas at main · ildemartinez/CryptoNetworkExplorer · GitHub

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
unit PeerNodeUnit;

interface

uses
  classes,
  IPeerNodeUnit,
  NodeObserverPattern;

type
  TPeerNode = class(TComponent, INode, INodeObservable)
  strict private
    fImplNodeObsevable: TNodeObservable;
    fIP: string;
    function GetAgent: string;
    function GetIP: string;
    procedure SetPeerIP(const Value: string);
  protected
    fConnected: boolean;
    fServerConnected: boolean;
    fUserAgent: string;
    procedure GetPeers(); virtual;
    property ImplNodeObsevable: TNodeObservable
      read fImplNodeObsevable write fImplNodeObsevable
      implements INodeObservable;
  public
    constructor Create(Owner: TComponent); override;
    function Connected: boolean;
    function ServerConnected: boolean;
  published
    property Agent: string read GetAgent;
    property PeerIp: string read GetIP write SetPeerIP;
  end;

implementation

constructor TPeerNode.Create(Owner: TComponent);
begin
  inherited;

  fServerConnected := false;
  fConnected := false;
  fUserAgent := '';

  fImplNodeObsevable := TNodeObservable.Create;
end;

function TPeerNode.Connected: boolean;
begin
  result := fConnected;
end;

function TPeerNode.GetAgent: string;
begin
  result := fUserAgent;
end;

function TPeerNode.GetIP: string;
begin
  result := fIP;
end;

procedure TPeerNode.GetPeers;
begin

end;

function TPeerNode.ServerConnected: boolean;
begin
  result := fServerConnected;
end;

procedure TPeerNode.SetPeerIP(const Value: string);
begin
  fIP := Value;
end;

end.