Hallo alter Mann... Erstmal Danke das du dich auch dem Problem angenommen hast...
nur leider ist das nicht mein eigentliches Problem. Ursprünglich ist mein Problem: Unerklärbare Zugriffsverletzungen...
Zum Beispiel endet mein Programm auch nach dieser Methode in einer unerklärbaren Zugriffsverletzung...
Delphi-Quellcode:
function TEADSObject.MoveTo(AdsPathObject, AdsPathNewContainer: string): Boolean;
var
container: IADsContainer;
obj: IADs;
hr: Integer;
r: Boolean;
begin
result := true;
try
if SUCCEEDED(ADSGetObject(AdsPathObject, IID_IADs, obj)) then
begin
if SUCCEEDED(ADSGetObject(AdsPathNewContainer, IID_IADsContainer, container)) then
container.MoveHere(obj.ADsPath, 'cn='+ExtractValue(obj.ADsPath))
else
result := false;
end
else
result := false;
except
result := false;
end;
end;
So wird die Funktion aufgerufen:
Delphi-Quellcode:
...
if AdsMgr.ADSObject.MoveTo(ADSPATH_OF_CURRENT_USER, EdContainerPath.Text) then
txt := '- Benutzer wurde erfolgreich nach "'+EdContainerPath.Text+'" verschoben.' + #13 // <--- ZUGRIFFSVERLETZUNG
else
txt := '<!> Benutzer konnte nicht verschoben werden <!>' + #13;
...
Ich geh schon fast wieder die Wände hoch... das Problem besteht schon seit Wochen und ich kriegs einfach nicht raus... !!!
Es scheint, als ob die Function "MoveTo" etwas nicht richtig frei gibt oder so.... ich schnalls nicht... Wo kann das her kommen???
Und gerade Witzig daran ist, der Benutzer wird tatsächlich korrekt verschoben...
Wenn ich die Funktion in einer DUMMY-Funktion aufrufe erhalte ich auch KEINE Zugriffsverletzung...
Delphi-Quellcode:
function TFrameUsers.ChangeAccountName: Boolean;
begin
result := AdsMgr.ADSUsers.ChangeAccountName(ADSPATH_OF_CURRENT_USER, EdSAMAccountName.Text);
end;
Sowas gibts doch gar nicht?!
Hmmm.....
Hab grad nochmal was rausgekriegt:
Wenn in der Zeile wo die Zugriffsverletzung auftritt nur Text steht, also ohne EdContainerPath.Text... dann gibts dort keine Zugriffsverletzung...
Also scheints fast so, dass die Funktion auf dem Parameter sitzt...
Was muss ich bloss ändern...??