3 replies to this topic

[sir.dev.a.lot]

[TRUCO DELPHI] Leer la version de ADO.

delphi

uses
  ComObj;
 
function GetADOVersion: Double;
var
  ADO: OLEVariant;
begin
  try
    ADO := CreateOLEObject('adodb.connection');
    Result := StrToFloat(ADO.Version);
    ADO := null;
  except
    Result := 0.0;
  end;
end;

Saludos!

[Agustin Ortu]

No se deberia liberar la memoria asignando Unnasigned?
 
Eso mismo dice la wiki
 

Tip: As shown in the example, if the interface returned by [/size]CreateOleObject is assigned to a Variant, you can release the interface by assigning the Unassigned constant to that Variant.[/size]

Aunque yo prefiero usar el procedimiento VarClear

Edited by Agustin Ortu, 01 December 2016 - 03:45 PM.

[enecumene]

No se deberia liberar la memoria asignando Unnasigned?
 
Eso mismo dice la wiki
 

Aunque yo prefiero usar el procedimiento VarClear

 

Interesante, desconocía ese procedimiento.

[sir.dev.a.lot]

Quizas ADO:= null y VarClear tienen el mismo efecto... Habria que ver ambas en ejecucion.

 

Saludos!