Zugriffsverletzung ADSI, so was komisches hab ich noch nie..

[cherry]

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...??