Diese Mal: Man setzt den Focus auf ein Edit-Feld und möchte am Ende des darin enthaltenen Texts fortfahren:

cbb_kaufm_besitzer.SetFocus;
cbb_kaufm_besitzer.SelStart := length(cbb_kaufm_besitzer.Text);

Geht auch mit Comboboxen und anderen Objekten mit .Text Eigenschaft. Eigentlich eher banal, allerdings muss man erstmal die passende Eigenschaft finden.

Selbst bei dem Einsatz auf ausschließlich deutschen Systemen, wird es spätestens in einer Mischumgebung aus Windows XP, Vista und 7 notwendig das Programmverzeichnis dynamisch zu ermitteln.

Für grundlegenden Zugriff auf ein Active Directory bringt Delphi 7 bereits alles benötigte von Haus aus mit. Benötigt wird dafür die ADO-Komponente. Bei ADO (ActiveX Data Objects) handelt es sich um eine proprietäre Schnittstelle aus dem Hause Microsoft, mit der Zugriffe auf eine Vielzahl von Datenbanken wie Oracle, Microsoft Access und Active Directory möglich ist.

Zuerst fügt man dem eigenen Projekt eine ADOConnection hinzu. Diese findet man unter dem Menüpunkt ADO. Über die ADOConnection wir die eigentliche Datenbankverbindung aufgebaut die man später für die Abfragen nutzt.Die Verbindung wird über den sogenannten ConnectionString konfiguriert. Dafür steht ein Assistent bereit der nach dem Füttern mit Daten einen ConnectionString erstellt.

Im ersten Punkt wird als OLE DB-Provider “OLE DB-Provider for Microsoft Directory Services” ausgewählt.

Im nächsten Schritt gibt man als Datenquelle z.B. den primären Domänencontroller an. Unter Punkt zwei kann man die Art der Authentifizierung am Domänencontroller wählen.

• Integrierte Sicherheit von Windows NT verwenden
  Diese Authentifizierungsart verwendet das Benutzerkonto des Nutzers der die Anwendung ausführt.

• Spezifischen Benutzernamen und Kennwort verwenden
  Oder man gibt einen bestimmten Benutzernamen vor z.B. wenn alle Nutzer der Anwendung einen bestimmten Account verwenden sollen.

Im Anschluss daran kann mit über den Button “Verbindung testen” überprüfen ob alle Einstellungen richtig vorgenommen wurden.

Der daraus erstellte ConnectionString könnte z.B. folgendermaßen aussehen:

Provider=ADsDSOObject;Encrypt Password=False;Integrated Security=SSPI;Data Source=meindomänencontroller;Mode=Read;Bind Flags=0;ADSI Flag=-2147483648

Um jetzt auch wirklich Datensätze aus dem Active Directory auszulesen fügt man seinem Projekt ein ADODataset Objekt hinzu, welches sich ebenfalls im Menü ADO befindet.

Dieses Objekt bekommt zuersteinmal mitgeteilt über welche Verbindung es auf das Active Directory zugreifen soll. Und zwar über den Wert “Connection” der im Drop-Down Menü bereits unser ADOConnection Objekt bereithalten sollte.

Als nächstes kommt die eigentliche Abfrage, die über die Eigenschaft “CommandText” des ADODataSet Objekts definiert wird. Wählt man die Eigenschaft “CommandText” aus erhält man eine Art SQL Editor in den wir jetzt den LDAP -Query eintragen.

Als Beispiel nehme ich hier mal eine simple Abfrage aller inetOrgPerson-Objekte.

SELECT displayname

FROM ‘LDAP://dc=domäne,dc=local’

WHERE objectClass=’inetOrgPerson’

Wichtig sind hier die Anführungszeichen und natürlich die richtige Domäne als Datenbank unter FROM. Wenn man jetzt die Eigenschaft Active des ADO DataSet Objekts auf True stellt fragt er bereits das Active Directory ab, bzw. sollte es tun. Allerdings bekommt man davon noch nicht wirklich viel zu sehen. Deshalb bringen wir jetzt zwei neue Objekte in unser Projekt ein. Zuerst DataSource, welches sich unter “Data Access” befindet und ein DBGrid welches man unter “Data Controls” findet.

Dem DataSource Objekt wird als DataSet “ADODataSet1″ zugewiesen, und dem DBGrid als DataSource “DataSource1″ . Wenn man jetzt das ADODataSet1 auf Active = True setzt wird das DB Grid mit Inhalt gefüllt.

Soviel erstmal dazu vieleicht schreibe ich noch etwas mehr über Filtermöglichkeiten sobald ich mich damit näher auseinandergesetzt habe. Ich finde es jedenfalls sehr interessant, mit einfachen Mitteln auf ein Active Directory zuzugreifen und auch noch SQL-ähnliche Syntax verwenden zu können.