Hallo zusammen,
ich stehe gerade völlig auf dem Schlauch und finde den Fehler nicht. Ich versuche in Delphe 2010 mit Hilfe der
Unit ADSI (gefunden auf
https://stackoverflow.com/questions/...tive-directory) die Gruppenzugehörigkeit des gerade angemeldetn Benutzers zu ermitteln. Der Aufruf von getUser() gibt auch völlig korrekt die Daten zurück. Anschließend führt aber jeder weitere Schritt im Programm zu einer Zugriffsverletzung (readViolation).
Um zu prüfen, ob es an meiner Applikation oder an der Verwendung der ADSI-
Unit, habe ich die
Unit mal in einem ganz einfachen Programm zum Test eingefügt. Dort tritt der selbe Fehler auf, ist also kein Folgefehler andere in meiner eigentliche Applikation verwendeten Codes sonder liegt nur in einer irgendwie falschen Nutzung der ADSI-
Unit.
Zum Test habe ich folgendes Mini-Programm erzeugt:
- neue Dephi
VCL-Anwendung
- eine Form mit einem Memo und einem Button
- im Button folgender Code auf dem Click-Event:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var
aUser: TADSIUserInfo;
AD:TADSI;
begin
ad:=TADSI.Create(self);
if ad.GetUser('','', aUser) then // hier könnte man auch Domäne und User übergeben, macht aber keinen Unterschied. Mit Leerstrings wird der aktuell angemeldete User verwendet
begin
showMessage(aUser.Groups); // --> da stehen die Gruppen korrekt drin
memo1.Lines.Add(aUser.Groups) // --> das führt zu
end;
end;
Ich suche jetzt schon Stunden nach dem Fehler (vermutlich irgendein falsch verwendeter Pointer / null-terminiertet String) komme aber nicht weiter.
Sobald in der ADSI-
Unit die Code-Zeile zum Aufruf von ADsGetObject ausgeführt wird, tritt an einer nicht vorhersehbaren Stelle im weiteren Verlauf der Applikation eine Zugriffsverltezung auf. Im obigen simplen Beispiel ist es der Zugriff auf das TMemo.
Nachfolgender Code aus ADSI.pas verkürzt auf die relevanten Zeilen, ADsGetObject() steckt in der in Delphi erzeugten ActiveDs_TLB-
Unit:
Delphi-Quellcode:
...
type
TADSIUserInfo =
record
UID:
string;
UserName:
string;
Description:
string;
Password: TPassword;
Disabled: boolean;
LockedOut: boolean;
Groups:
string;
//CSV
end;
...
function TADSI.GetUser(Domain, UserName:
string;
var ADSIUser: TADSIUserInfo): boolean;
var
usr : IAdsUser;
dom1, uid1:
string;
begin
...
Result:=false;
uid1:=FCurrentUser
dom1:=FCurrentDomain
...
ADsGetObject(PWideChar('
WinNT://' + dom1 + '
/' + uid1), IADsUser, usr);
...
Hat jemand einen Tipp für mich, wo der Fehler stecken könnte?
Werden weitere Informationen benötigt?
Vielen Dank schon mal
Siggi