Hola soy nueva en Delphi, he visto que este no tiene un recolector de basura como java, a excepción de implementar una interfaz, las he probado y he notado que si se libera la memoria de manera automatica pero quise llegar un punto más allá al utilizarlas en conjunto con TComponent y me lleve la gran sorpresa de que no me libera la memoria, ¿saben de alguna manera de lograr que la memoria si se libere de manera automática implementando TComponente y una interfaz en una clase? mi código es el siguiente:
IGestor = Interface
['{F057668C-2228-4DE2-A974-314788CE26EC}']
procedure Conectar(nombreUsuario:string;contrasena:string;puerto: integer);
end;
TMasterDBMS = class (TComponent)
function Activar(gestor:string; num1: integer):String; virtual;
end;
TOracle = class(TMasterDBMS, IGestor)
procedure Conectar(nombreUsuario:string;contrasena:string;puerto: integer);
function Activar(gestor:string; num1: integer):String; override;
constructor create();
end;
TSQLServer = class(TInterfacedObject, IGestor)
procedure Conectar(nombreUsuario:string;contrasena:string;puerto: integer);
constructor create();
end;
TConection = class
DBMS:IGestor;
constructor create();
function AsignarGestor(num:integer):string;
procedure ConectarDBMS(DBMS1:IGestor);
end;
// Componentes del Form
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
Conectar: TConection;
Master: TMasterDBMS;
Ora: TOracle;
ciclo: integer;
implementation
{$R *.dfm}
function TMasterDBMS.Activar(gestor:string; num1: integer):String;
begin
Result:='Activar Master (padre)';
showmessage(Result);
end;
constructor TConection.Create();
begin
showmessage('Se creo Conection');
end;
function TConection.AsignarGestor(num:integer):string;
begin
if num=1 then begin
Self.DBMS := TOracle.create();
Self.ConectarDBMS(Self.DBMS);
result := 'oracle';
Form1.Label1.Caption := result;
end else begin
Self.DBMS := TSQLServer.create();
Self.ConectarDBMS(Self.DBMS);
result := 'sql server';
Form1.Label1.Caption:=result;
end;
end;
procedure TConection.ConectarDBMS(DBMS1: IGestor);
begin
DBMS1.Conectar('Nombre_BD','1234',1433);
end;
constructor TOracle.Create();
begin
showmessage('Se creo Oracle');
end;
procedure TOracle.Conectar(nombreUsuario:string;contrasena:string;puerto: integer);
begin
ShowMessage('Conexion Oracle Usuario:'+nombreUsuario+' Contraseña:'+contrasena);
end;
function TOracle.Activar(gestor:string; num1: integer):String;
begin
inherited Activar(gestor,num1);
Result:='Activar Oracle (hijo)';
showmessage(Result);
end;
constructor TSQLServer.Create();
begin
showmessage('Se creo SQLServer');
end;
procedure TSQLServer.Conectar(nombreUsuario:string;contrasena:string;puerto: integer);
begin
ShowMessage('Conexion SQL Server, Usuario:'+nombreUsuario+' Contraseña:'+contrasena);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Conectar := nil;
ciclo:=1;
while ciclo <=100000 do
begin
try
Conectar := TConection.Create();
Conectar.AsignarGestor(StrToInt(Edit1.Text));
finally
FreeAndNil(Conectar);
end;
inc(ciclo);
end;
ShowMessage(IntToStr(ciclo));
Label1.Caption:='';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Ora:=nil;
try
Ora := TOracle.Create();
Ora.Activar('Oracle',1);
finally
FreeAndNil(Ora);
end;
end;
end.
Muchas gracias de antemano
TInterfacedObject
?