mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
41 lines
778 B
ObjectPascal
41 lines
778 B
ObjectPascal
unit Services.ConnectionU;
|
|
|
|
interface
|
|
|
|
uses Services.InterfacesU;
|
|
|
|
type
|
|
TConnectionService = class(TInterfacedObject, IConnectionService)
|
|
protected
|
|
function GetConnectionName: string;
|
|
public
|
|
constructor Create; virtual;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
MVCFramework.Logger, System.SysUtils;
|
|
|
|
{ TConnectionService }
|
|
|
|
constructor TConnectionService.Create;
|
|
begin
|
|
inherited;
|
|
LogI('Service ' + ClassName + ' created [' + IntToHex(NativeUInt(Pointer(Self))) + ']');
|
|
end;
|
|
|
|
destructor TConnectionService.Destroy;
|
|
begin
|
|
LogI('Service ' + ClassName + ' destroyed [' + IntToHex(NativeUInt(Pointer(Self))) + ']');
|
|
inherited;
|
|
end;
|
|
|
|
function TConnectionService.GetConnectionName: string;
|
|
begin
|
|
Result := 'MyDemoConnection';
|
|
end;
|
|
|
|
end.
|