NetUserEnum die 2.

[CalganX]

Hi,
entweder ich bin blöd, oder der Kompiler ist kaputt. Also, ersteinmal meine Definition der NetUserEnum aus JwaLM:

Delphi-Quellcode:

function NetUserEnum(
  const servername: LPCWSTR;
  const level: DWORD;
  const filter: DWORD;
  const bufptr: Pointer;
  const prefmaxlen: DWORD;
  var entriesread: DWORD;
  var totalentries: DWORD;
  const resume_handle: PDWORD
 ): NET_API_STATUS; stdcall;

Ich habe mir bereits Christian's Definition aus dem Ursprungsthread angesehen. Allerdings kann ich damit nix anfangen. Darum bitte ich euch mir hier nochmal zu helfen, denn ich steige nicht mehr durch.
Nun aber mein Source (nachdem ich alles in eine Funktion schreiben wollte, ging nix mehr):

Delphi-Quellcode:

procedure ListAllUsers(hTreeView: DWORD; hMasterParent: Cardinal; var iEntriesRead: Cardinal);
type
  PUSER_INFO_0  = ^_USER_INFO_0;
//  PUSER_INFO_11 = ^_USER_INFO_11; <= für später...
var
  aTempIStruct: TTVInsertStruct;
  aUserBuffer, aWorkBuffer: PUSER_INFO_0;
  dwEntriesRead: Cardinal;
  i: integer;
  sTemp: string;
begin
  if NetUserEnum(nil, 0, FILTER_NORMAL_ACCOUNT, @aUserBuffer, MAX_PREFERRED_LENGTH,
                 dwEntriesRead, dwEntriesRead, nil) = NERR_SUCCESS then begin
    aWorkBuffer := aUserBuffer;
    for i:=1 to dwEntriesRead do begin
      aTempIStruct.hParent := Pointer(hMasterParent);
      sTemp := aWorkBuffer.usri0_name;
      aTempIStruct.item.pszText := @sTemp[1];
      SendMessage(hTreeView, TVM_INSERTITEM, 0, integer(@aTempIStruct));

      inc(aWorkBuffer, sizeOf(PUSER_INFO_0));
    end;
  end;
  NetAPIBufferFree(aUserBuffer);
end;

So, wenn ich nun ausführe: Es gibt ne saftige AccessViolation mit folgendem Inhalt:

Code:

---------------------------
Application Error
---------------------------
Exception EAccessViolation in module OSInfo.exe at 000037C3.
Access violation at address 004037C3 in module 'OSInfo.exe'. Read of address BAADF00D.
---------------------------
OK   
---------------------------

Dann wird das Programm zurückgesetzt und Ende.

Was mache ich nur falsch. :cry::cry::cry::cry::cry:

Chris

[Luckie]

Code:

for i:=1 to dwEntriesRead do begin

Du läufst 2 Stellen zu weit. Du mußt die Schleife von 0 bis dwEntriesRead-1 laufen lassen.

[CalganX]

Wie bereits per ICQ mitgeteilt: hat nix gebracht...

Chris

[CalganX]

Nach ein paar Unterredungen in ICQ ist folgendes herausgekommen:

Delphi-Quellcode:

procedure ListAllUsers(hTreeView: DWORD; hMasterParent: Cardinal; var iEntriesRead: Cardinal);
{type
  PUSER_INFO_0  = ^_USER_INFO_0;
  PUSER_INFO_11 = ^_USER_INFO_11;}
var
  aTempIStruct: TTVInsertStruct;
  aUserBuffer, aWorkBuffer: Pointer; //PUSER_INFO_0;
  dwEntriesRead: Cardinal;
  i: integer;
  sTemp: string;
begin
  aTempIStruct.item.mask := TVIF_TEXT;
  if NetUserEnum(nil, 0, FILTER_NORMAL_ACCOUNT, aUserBuffer, MAX_PREFERRED_LENGTH,
                 dwEntriesRead, dwEntriesRead, nil) = NERR_SUCCESS then begin
    aWorkBuffer := aUserBuffer;
    for i:=0 to dwEntriesRead-1 do begin
      aTempIStruct.hParent := Pointer(hMasterParent);
      sTemp := PUserInfo0(aWorkBuffer)^.usri0_name;
      aTempIStruct.item.pszText := @sTemp[1];
      SendMessage(hTreeView, TVM_INSERTITEM, 0, integer(@aTempIStruct));

      inc(Integer(aWorkBuffer), sizeOf(aWorkBuffer));
    end;
  end;
  NetAPIBufferFree(aUserBuffer);
end;

Allerdings ist hier die ursprüngliche Deklaration von NetUserEnum bei zubehalten. Ich hatte sie geändert, da Christian das so gepostet hat (oder ich habe ihn missverstanden).
Nochmal danke @ Luckie..

Chris

[Christian Seehase]

Moin Chris,

das hier ist schlicht falsch:

Delphi-Quellcode:

 inc(aWorkBuffer, sizeOf(PUSER_INFO_0));

Es muss schlicht

Delphi-Quellcode:

 inc(aWorkBuffer);

heissen.

Da aWorkBuffer typisiert ist (eben PUSER_INFO_O), zählt der Compiler bei einem inc(aWorkBuffer) automatisch um SizeOf(PUSER_INFO_0) hoch.
Nur wenn der Typ Pointer ist, muss man sich um die Grösse der Struktur selber Gedanken machen.
Das kannst Du auch in meinen Beiträgen zu dem Ursprungsthread auch schon sehen (auch wenn ich es dort wohl nicht explizit dazugeschrieben hatte. ;-)

@Luckie:
Da man mit i hier nicht direkt einen Tabelleneintrag indiziert spielt es keine Rolle, ob man i nun von 0 bis dwEntriesRead-1, von 1 bis dwEntriesRead oder von 278 bis dwEntriesRead+277 laufen lässt. Hauptsache die Gesamtzahl der Schleifendurchläuft ist korrekt.

[CalganX]

Hi Christian,
habe das gerade noch geändert... Lese mir aber gleich nochmal alle Threads zu diesem Thema durch...

Chris

[Luckie]

Stimmt hast recht, Aber bei solchen for-Schleifen hab eich mir das imme rangewöhnt, dann vergist man es an anderer Stelle nicht. :wink:

[Christian Seehase]

Moin Chris,

die Lösung, die Du gepostet hast, während ich meinen Beitrag geschrieben habe funktioniert natürlich auch.
Ich würde diese allerdings in die Rubrik: "Warum einfach, wenn's umständlich geht" einsortieren ;-)

[CalganX]

Oops: Es muss wohl eher

Delphi-Quellcode:

inc(integer(aWorkBuffer));

heißen, da sonst:

Zitat:

[Error] UserInfo.pas(29): Ordinal type required

Chris

[Luckie]

Dafür kann man aber bei meiner Lösung die Jedi-Header-Übersetzungen in Ruhe lassen. :wink: