TServerConnectionChecker/uController.ServerConnection.pas at main · delmardelima/TServerConnectionChecker · 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
unit uController.ServerConnection;

interface

uses
  IdTCPClient,
  IdGlobal,
  SysUtils;

type
  TServerStatus = (ssConnected, ssDisconnected, ssError);

  TServerConnectionChecker = class(TObject)
  private
    FServerIP: string;
    FServerPort: Integer;
    FSocket: TIdTCPClient;
    FServerStatus: TServerStatus;
    procedure Connect;
    procedure Disconnect;
  public
    constructor Create(AServerIP: string; AServerPort: Integer);
    destructor Destroy; override;
    property ServerStatus: TServerStatus read FServerStatus;
    function Check: TServerStatus;
  end;

implementation

constructor TServerConnectionChecker.Create(AServerIP: string;
  AServerPort: Integer);
begin
  inherited Create;
  FServerIP := AServerIP;
  FServerPort := AServerPort;
  FSocket := TIdTCPClient.Create(nil);
  FServerStatus := ssDisconnected;
end;

destructor TServerConnectionChecker.Destroy;
begin
  FSocket.Free;
  inherited;
end;

procedure TServerConnectionChecker.Connect;
begin
  FSocket.Host := FServerIP;
  FSocket.Port := FServerPort;
  try
    FSocket.Connect;
    if FSocket.Connected then
      FServerStatus := ssConnected
    else
      FServerStatus := ssError;
  except
    FServerStatus := ssError;
  end;
end;

procedure TServerConnectionChecker.Disconnect;
begin
  FSocket.Disconnect;
  FServerStatus := ssDisconnected;
end;

function TServerConnectionChecker.Check: TServerStatus;
begin
  if FServerStatus = ssDisconnected then
    Connect;
  Result := FServerStatus;
end;

end.