A mellékelt példaprogram megnyitása előtt az ODBCDatasources.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
A TODBCDatasources komponens egyetlen metódussal rendelkezik. Ez a GetDatasources.
function GetDatasources: TStringList;
A függvény visszatérési értéke TStringList, amely egy lista számítógépünk ODBC-n keresztül elérhető adatforrásairól. A különböző adatforrások külön elemet képeznek a TStringList-ben.
Komponensünket a TComponent osztályból származtatjuk. Egyetlen metódussal kell ellátnunk, ez a GetDatasources.
Az ODBC adatforrásainak listáját a registry állományból olvashatjuk ki. A kiolvasást csak két részletben tudjuk végrehajtani, mert a bejegyzések egyik fele a HKEY_LOCAL_MACHINE, a másik a HKEY_CURRENT_USER bejegyzés alatt található.
A registry állományhoz a TRegistry osztály használatával férhetünk hozzá.
A RootKey tulajdonságban adhatjuk meg a keresés helyét.
Registry.RootKey:=HKEY_LOCAL_MACHINE;
Egy kulcshoz az alábbi módon tudunk hozzáférni a registry-ben.
Registry.OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources',False)
A False paraméter azt jelenti, hogy egy már létező kulcsot akarunk megnyitni. Ha a helyén True érték állna, akkor létrehoznánk egy új kulcsot.
A kulcs elemeit a GetValueNames metódussal kérdezhetjük le.
Registry.GetValueNames(Result);
A függvény egy TStringList-be menti el az eredményt, nekünk pedig éppen erre van szükségünk.