A telepített ADO verziószámának lekérdezése

A mellékelt példaprogram megnyitása előtt az ADOVersion.pas-ban levő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.

A komponens egyetlen függvényből áll, melyet GetADOVersion-nak neveztünk el. Ez szöveges formátumban adja vissza a telepített ADO verziószámát. Ahhoz, hogy mindezt le tudjuk kérdezni, szükségünk lesz a ComObj unit-ra, melyet a uses kulcsszó után kell megadnunk. Ezután deklarálnunk kell egy OLEVariant típusú változót, melyen keresztül elérjük az ADO egyes tulajdonságait.

  ADO: OLEVariant;

Miután ez megtörtént, kapcsolódnunk kell az ADO-hoz a CreateOLEObject segítségével. A függvény visszatérési értékének átadjuk az ADO verziószámát. Amennyiben az nincs a gépre telepítve, nullát kapunk eredményként.

  try
    ADO:=CreateOLEObject('adodb.connection');
    Result:=ADO.Version;
    ADO:=Null;
  except
    Result:='0.0';
  end;

A mellékelt példaprogramban csak meg kell hívnunk a GetADOVersion függvényt, és kiíratnunk a kapott eredményt.