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

[cherry]

Hmm super, da hab ich mich schon halbers mit den "DummyFunktionen" abgefunden, da tritt folgendes Phänomen auf:

Diese Funktion endet stets in einer Zugriffsverletung:

Delphi-Quellcode:

{******************************************************************************}
// UI: SAVE USER INFORMATION AFTER EDITING
{******************************************************************************}
procedure TFrameUsers.BtnSaveClick(Sender: TObject);
var
  txt: String;
begin
  txt := '';
  // CHANGE SAMACCOUNTNAME
  if sEditedFields.IndexOf('EdSAMAccountName') > -1 then
  begin
    if ChangeAccountName then
      txt := '- Kontoname wurde auf "'+EdSAMAccountName.Text+'" geändert.' + #13
    else
      txt := '<!> Kontoname konnte nicht geändert werden <!>' + #13;
  end;
  // CHANGE DESCRIPTION
  if sEditedFields.IndexOf('EdDescription') > -1 then  // <<<<<<<<<<<<<<<<<<< ZUGRIFFSVERLETZUNG
  begin
    if ChangeDescription then
      txt := txt + '- Beschreibung wurde erfolgreich geändert.' + #13
    else
      txt := txt + '<!> Beschreibung wurde nicht geändert <!>.' + #13;
  end;
  // CHANGE NAMES
  if (sEditedFields.IndexOf('EdLastName') > -1) or (sEditedFields.IndexOf('EdFirstName') > -1) then
  begin
    if ChangeNames then
    begin
      txt := txt + '- Benutzer heisst jetzt "'+EdLastName.Text+' '+EdFirstName.Text+'"' + #13;
      if ChangeCN then
        txt := txt + '  - CN wurde ebenfalls auf "'+EdLastName.Text+' '+EdFirstName.Text+'" geändert. ' + #13
      else
        txt := txt + '  <!> CN konnte nicht geändert werden <!>' + #13;
    end
    else
      txt := txt + '<!> Benutzername konnte nicht geändert werden <!>' + #13;
  end;
  // MOVE USER
  if sEditedFields.IndexOf('EdContainerPath') > -1 then
  begin
    if MoveUser then
      txt := txt + '- Benutzer wurde erfolgreich nach "'+EdContainerPath.Text+'" verschoben.' + #13
    else
      txt := txt + '<!> Benutzer konnte nicht verschoben werden <!>' + #13;
  end;
  // FINALIZE
  if txt = '' then
  begin
    txt := 'Sie haben keine Änderungen vorgenommen.'+#13+'Wenn Sie nichts ändern wollen, klicken Sie auf abbrechen.';
    ShowMessage(txt);
  end
  else
  begin
    ShowMessage(txt);
    FreeAndNil(sEditedFields);
    ShowFrame(mdDontClearFields);
  end;
end;

Diese nicht!!!!!!!!!!!!!

Delphi-Quellcode:

{******************************************************************************}
// UI: SAVE USER INFORMATION AFTER EDITING
{******************************************************************************}
procedure TFrameUsers.BtnSaveClick(Sender: TObject);
var
  txt: String;
  sf: TStringList;
begin
  txt := '';
  sf :=  sEditedFields;
  // CHANGE SAMACCOUNTNAME
  if sf.IndexOf('EdSAMAccountName') > -1 then
  begin
    if ChangeAccountName then
      txt := '- Kontoname wurde auf "'+EdSAMAccountName.Text+'" geändert.' + #13
    else
      txt := '<!> Kontoname konnte nicht geändert werden <!>' + #13;
  end;
  // CHANGE DESCRIPTION
  if sEditedFields.IndexOf('EdDescription') > -1 then
  begin
    if ChangeDescription then
      txt := txt + '- Beschreibung wurde erfolgreich geändert.' + #13
    else
      txt := txt + '<!> Beschreibung wurde nicht geändert <!>.' + #13;
  end;
  // CHANGE NAMES
  if (sEditedFields.IndexOf('EdLastName') > -1) or (sEditedFields.IndexOf('EdFirstName') > -1) then
  begin
    if ChangeNames then
    begin
      txt := txt + '- Benutzer heisst jetzt "'+EdLastName.Text+' '+EdFirstName.Text+'"' + #13;
      if ChangeCN then
        txt := txt + '  - CN wurde ebenfalls auf "'+EdLastName.Text+' '+EdFirstName.Text+'" geändert. ' + #13
      else
        txt := txt + '  <!> CN konnte nicht geändert werden <!>' + #13;
    end
    else
      txt := txt + '<!> Benutzername konnte nicht geändert werden <!>' + #13;
  end;
  // MOVE USER
  if sEditedFields.IndexOf('EdContainerPath') > -1 then
  begin
    if MoveUser then
      txt := txt + '- Benutzer wurde erfolgreich nach "'+EdContainerPath.Text+'" verschoben.' + #13
    else
      txt := txt + '<!> Benutzer konnte nicht verschoben werden <!>' + #13;
  end;
  // FINALIZE
  if txt = '' then
  begin
    txt := 'Sie haben keine Änderungen vorgenommen.'+#13+'Wenn Sie nichts ändern wollen, klicken Sie auf abbrechen.';
    ShowMessage(txt);
  end
  else
  begin
    ShowMessage(txt);
    FreeAndNil(sEditedFields);
    ShowFrame(mdDontClearFields);
  end;
end;

)=+"?ç(+&"ç+"()*(+"(*ç/ Was ist denn jetzt schon wieder?! Wie ihr bemerkt habt, verwende ich nur in der ersten if abfrage mein "kopiertes" Objekt sEditedFields' und das klappt schon.
Wenn ich allerdings wie in der ersten Funktion sEditedFields verwende, gibts ne schreeeecklicke Zugriffsverletzung!

Für den Test änderte ich immer nur den sAMAccountName und die Beschreibung, dann tritt die Zugriffsverletung an der markierten Stelle.

Ich meine: Es scheint irgendwie meine StringList "sEditedFields" zu zerstören, nur wie und warum, die gebe ich ja nirgens an eine Funktion weiter die ADSGetObject oder so aufruft, woher die Zerstörungswut????

Ich glaub ich kündige

PS: Hier noch die Dummy Functions:

Delphi-Quellcode:

{******************************************************************************}
// MOVE USER [DUMMY FUNCTION]
{******************************************************************************}
function TFrameUsers.MoveUser: Boolean;
begin
  result := AdsMgr.ADSObject.MoveTo(ADSPATH_OF_CURRENT_USER, EdContainerPath.Text);
end;

{******************************************************************************}
// CHANGE ACCOUNT NAME [DUMMY FUNCTION]
{******************************************************************************}
function TFrameUsers.ChangeAccountName: Boolean;
begin
  result := AdsMgr.ADSUsers.ChangeAccountName(ADSPATH_OF_CURRENT_USER, EdSAMAccountName.Text);
end;

{******************************************************************************}
// CHANGE NAMES [DUMMY FUNCTION]
{******************************************************************************}
function TFrameUsers.ChangeNames;
begin
  result := AdsMgr.ADSUsers.ChangeNames(ADSPATH_OF_CURRENT_USER, EdFirstName.Text, EdLastName.Text);
end;

{******************************************************************************}
// CHANGE USERS CN [DUMMY FUNCTION]
{******************************************************************************}
function TFrameUsers.ChangeCN;
begin
  result := AdsMgr.ADSUsers.ChangeCN(ADSPATH_OF_CURRENT_USER, EdFirstName.Text+' '+EdLastName.Text);
end;

{******************************************************************************}
// CHANGE USERS DESCRIPTION [DUMMY FUNCTION]
{******************************************************************************}
function TFrameUsers.ChangeDescription;
begin
  result := AdsMgr.ADSUsers.ChangeDescription(ADSPATH_OF_CURRENT_USER, EdDescription.Text);
end;