LookupAccountSidW und Datenbereich zu klein

[Luckie]

Wenn ich folgenden Code ausführe:

Delphi-Quellcode:

function StrSIDToName(const StrSID: Widestring; var Name: WideString; var SIDType: DWORD): DWORD;
var
  SID               : PSID;
  Buffer            : PWideChar;
  NameLen, TempLen  : Cardinal;
  err               : Boolean;
begin
  SID := nil;
  err := ConvertStringSIDToSID(PWideChar(StrSID), SID);
  if err then
  begin
    NameLen := 0;
    TempLen := 0;
    if LookupAccountSidW(nil, SID, nil, NameLen, nil, TempLen, SIDType) then
    begin
      GetMem(Buffer, NameLen);
      try
        err := LookupAccountSidW(nil, SID, Buffer, NameLen, nil, TempLen, SIDType);
        if err then
        begin
          SetString(Name, Buffer, Namelen);
          SetLastError(0);
        end;
      finally
        FreeMem(Buffer);
      end;
    end;
  end;
  if Assigned(SID) then
    LocalFree(Cardinal(SID));
  result := GetLastError;
end;

fliege ich beim ersten Aufruf von LookupAccountSidW und erhalten den Fehler:

Zitat:

Der an einen Systemaufruf übergebene Datenbereich ist zu klein.

Aber ich will doch die Größe des Datenbereichs ermitteln? Wie kann da der Datenbereich schon zu klein sein?

[mirage228]

Wird denn für "NameLen" trotzdem was vernünftiges zurückgegeben?

mfG
mirage228

[Luckie]

Es ist zumindest größer null.

[mirage228]

Zitat von Luckie:

Es ist zumindest größer null.

Hm und so wie ich den MSDN-Eintrag zu der Funktion gelesen habe, könnte man das ggf. auch so intrepetieren, dass die Funktion zwar fehlschlägt, jedoch aufgrund des zu kleinen Datenbereich aber trotzdem die erforderliche Länge in die Variable speichert - denn das verhalten für lpName = NULL ist ja eindeutig festgelegt.

mfG
mriage228

[Luckie]

So hatte ich es ja auch. Aber marabu meinte hier: http://www.delphipraxis.net/internal...=691800#691800 , dass ich eine falsche Fehlermeldung bekäme, weil ich beim Ermitteln der nötigen Buffergröße den Rückgabewert der Funktion nicht auswerten würde.

Ich habe es jetzt also so:

Delphi-Quellcode:

function StrSIDToName(const StrSID: Widestring; var Name: WideString; var SIDType: DWORD): DWORD;
var
  SID               : PSID;
  Buffer            : PWideChar;
  NameLen, TempLen  : Cardinal;
  err               : Boolean;
begin
  SID := nil;
  err := ConvertStringSIDToSID(PWideChar(StrSID), SID);
  if err then
  begin
    NameLen := 0;
    TempLen := 0;
    LookupAccountSidW(nil, SID, nil, NameLen, nil, TempLen, SIDType);
    NameLen := NameLen * 2 + 1;
    GetMem(Buffer, NameLen);
    try
      err := LookupAccountSidW(nil, SID, Buffer, NameLen, nil, TempLen, SIDType);
      if err then
      begin
        SetString(Name, Buffer, Namelen);
        SetLastError(0);
      end;
    finally
      FreeMem(Buffer);
    end;
  end;
  if Assigned(SID) then
    LocalFree(Cardinal(SID));
  result := GetLastError;
end;

Aber jetzt fliege ich beim zweiten Aufruf raus und zwar ganz. Das Programm beendet sich im Debugger. Nehme ich die Ansi-Version der Funktion geht es.

[himitsu]

Und was wenn du den Rückgabewert berücksichtigst?

Bringt zwar beim Ansi-Wide-Problem nichts, aber marabu sollte zumindestens nicht meckern.

Delphi-Quellcode:

function StrSIDToName(const StrSID: Widestring; var Name: WideString; var SIDType: DWORD): DWORD; 
var 
  SID               : PSID; 
  Buffer            : PWideChar; 
  NameLen, TempLen  : Cardinal; 
begin 
  SID := nil; 
  if ConvertStringSIDToSID(PWideChar(StrSID), SID) then begin 
    NameLen := 0; 
    TempLen := 0; 
    if LookupAccountSidW(nil, SID, nil, NameLen, nil, TempLen, SIDType) then
      result := 0 else result := GetLastError;
    if (result = 0) or (result = WasWeißIch) then begin
      GetMem(Buffer, NameLen); 
      try 
        if LookupAccountSidW(nil, SID, Buffer, NameLen, nil, TempLen, SIDType) then begin 
          SetString(Name, Buffer, Namelen); 
          result := 0; 
        end else result := GetLastError;
      finally 
        FreeMem(Buffer); 
      end; 
    end; 
  end else result := GetLastError;
  if Assigned(SID) then LocalFree(Cardinal(SID)); 
end;

[Luckie]

Hm, das überlege ich mir noch mal, denn schön sieht es nicht aus.

[himitsu]

Na es soll doch wohl "nur" funktionieren und nich in 'ner Galerie ausgestellt werden

[Luckie]

marabu hat hier http://www.delphipraxis.net/internal...=691954#691954 folgenden Vorscchlag gemacht:

Delphi-Quellcode:

function StrSIDToName(const StrSID: Widestring; var Name: WideString; var SIDType: DWORD): DWORD;
var
  SID               : PSID;
  Buffer            : PWideChar;
  NameLen, TempLen  : Cardinal;
  ErrSuccess        : Boolean;
begin
  SID := nil;
  ErrSuccess := ConvertStringSIDToSID(PWideChar(StrSID), SID);
  if ErrSuccess then
  begin
    NameLen := 0;
    TempLen := 0;
    LookupAccountSidW(nil, SID, nil, NameLen, nil, TempLen, SIDType);
    if NameLen > 0 then
    begin
      GetMem(Buffer, NameLen + 2);
      try
        ErrSuccess := LookupAccountSidW(nil, SID, Buffer, NameLen, nil, TempLen, SIDType);
        if ErrSuccess then
        begin
          SetString(Name, Buffer, Namelen);
          SetLastError(0);
        end;
      finally
        FreeMem(Buffer);
      end;
    end;
  end;
  if Assigned(SID) then
    LocalFree(Cardinal(SID));
  result := GetLastError;
end;

Das Problem bleibt aber das gleiche, beim zweiten Aufruf fliege ich einfach ohne Fehlermeldung aus dem Programm.

[himitsu]

NameLen = Chars
oder
NameLen = Bytes?



GetMem(Buffer, (NameLen + 1) * 2);