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

[nahpets]

Hallo,

Zitat von cherry:

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

meine Vermutung geht dahin, dass MoveTo Dir (wie auch immer) EdContainerPath.Text zerschießt. Die passt ja auch zu den andernorts schon genannten Vermutungen in Bezug auf den Einsatz von Variabeln.

Was passiert denn bei der folgenden Änderung?

Delphi-Quellcode:

Var
    sContainerPath : String;
...
  sContainerPath := EdContainerPath.Text;
if AdsMgr.ADSObject.MoveTo(ADSPATH_OF_CURRENT_USER, sContainerPath) then
      txt := '- Benutzer wurde erfolgreich nach "'+EdContainerPath.Text+'" verschoben.' + #13 // <--- ZUGRIFFSVERLETZUNG jetzt weg?
    else
      txt := '<!> Benutzer konnte nicht verschoben werden <!>' + #13;
...

und was passiert hier?

Delphi-Quellcode:

Var
    sContainerPath : String;
...
  sContainerPath := EdContainerPath.Text;
if AdsMgr.ADSObject.MoveTo(ADSPATH_OF_CURRENT_USER, sContainerPath) then
      txt := '- Benutzer wurde erfolgreich nach "'+sContainerPath+'" verschoben.' + #13 // <--- ZUGRIFFSVERLETZUNG nicht weg?
    else
      txt := '<!> Benutzer konnte nicht verschoben werden <!>' + #13;
...

und einen hab' ich noch:

Delphi-Quellcode:

Var
    sContainerPath : String;
...
  sContainerPath := EdContainerPath.Text;
if AdsMgr.ADSObject.MoveTo(ADSPATH_OF_CURRENT_USER, EdContainerPath.Text) then
      txt := '- Benutzer wurde erfolgreich nach "'+sContainerPath+'" verschoben.' + #13 // <--- ZUGRIFFSVERLETZUNG jetzt weg?
    else
      txt := '<!> Benutzer konnte nicht verschoben werden <!>' + #13;
...
  ShowMessage(EdContainerPath.Text);  // <--- ZUGRIFFSVERLETZUNG jetzt hier?

und noch einen:

Delphi-Quellcode:

Var
    sContainerPath : String;
...
  sContainerPath := EdContainerPath.Text;
if AdsMgr.ADSObject.MoveTo(ADSPATH_OF_CURRENT_USER, sContainerPath) then
      txt := '- Benutzer wurde erfolgreich nach "'+EdContainerPath.Text+'" verschoben.' + #13 // <--- ZUGRIFFSVERLETZUNG jetzt weg?
    else
      txt := '<!> Benutzer konnte nicht verschoben werden <!>' + #13;
...
  ShowMessage(sContainerPath);  // <--- ZUGRIFFSVERLETZUNG jetzt hier?

Irgendwie meine ich mich daran erinnern zu können, dass auf Variabeln, die im Zusammenhang mit ADSObject benutzt wurden, nachher nicht mehr zugegriffen werden konnten, ohne auf eine Zugriffsverletzung zu stoßen.
Da war mal in irgendeinem meiner Programme mal was, aber da komme ich nicht mehr an die Sourcen