48 lines
979 B
Plaintext
48 lines
979 B
Plaintext
{*******************************************************}
|
|
{ }
|
|
{ ManagerService }
|
|
{ }
|
|
{ Copyright (C) 2022 kku }
|
|
{ }
|
|
{*******************************************************}
|
|
|
|
unit ManagerService;
|
|
|
|
interface
|
|
|
|
uses
|
|
Tocsg.Obj, System.SysUtils, System.Classes;
|
|
|
|
type
|
|
TManagerService = class(TTgObject)
|
|
public
|
|
IsConnStatus: Boolean;
|
|
DestServerUrl: String;
|
|
Constructor Create;
|
|
Destructor Destroy; override;
|
|
end;
|
|
|
|
var
|
|
gMgSvc: TManagerService = nil;
|
|
|
|
implementation
|
|
|
|
{ TManagerService }
|
|
|
|
Constructor TManagerService.Create;
|
|
begin
|
|
Inherited Create;
|
|
IsConnStatus := false;
|
|
DestServerUrl := '';
|
|
ASSERT(gMgSvc = nil);
|
|
gMgSvc := Self;
|
|
end;
|
|
|
|
Destructor TManagerService.Destroy;
|
|
begin
|
|
gMgSvc := nil;
|
|
Inherited;
|
|
end;
|
|
|
|
end.
|