![]() |
NetUserEnum die 2.
Hi,
entweder ich bin blöd, oder der Kompiler ist kaputt. Also, ersteinmal meine Definition der NetUserEnum aus JwaLM:
Delphi-Quellcode:
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.
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; Nun aber mein Source (nachdem ich alles in eine Funktion schreiben wollte, ging nix mehr):
Delphi-Quellcode:
So, wenn ich nun ausführe: Es gibt ne saftige AccessViolation mit folgendem Inhalt:
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;
Code:
Dann wird das Programm zurückgesetzt und Ende.
---------------------------
Application Error --------------------------- Exception EAccessViolation in module OSInfo.exe at 000037C3. Access violation at address 004037C3 in module 'OSInfo.exe'. Read of address BAADF00D. --------------------------- OK --------------------------- Was mache ich nur falsch. :cry::cry::cry::cry::cry: Chris |
Code:
Du läufst 2 Stellen zu weit. Du mußt die Schleife von 0 bis dwEntriesRead-1 laufen lassen.
for i:=1 to dwEntriesRead do begin
|
Wie bereits per ICQ mitgeteilt: hat nix gebracht...
Chris |
Nach ein paar Unterredungen in ICQ ist folgendes herausgekommen:
Delphi-Quellcode:
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).
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; Nochmal danke @ Luckie.. Chris |
Moin Chris,
das hier ist schlicht falsch:
Delphi-Quellcode:
Es muss schlicht
inc(aWorkBuffer, sizeOf(PUSER_INFO_0));
Delphi-Quellcode:
heissen.
inc(aWorkBuffer);
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. |
Hi Christian,
habe das gerade noch geändert... Lese mir aber gleich nochmal alle Threads zu diesem Thema durch... Chris |
Stimmt hast recht, Aber bei solchen for-Schleifen hab eich mir das imme rangewöhnt, dann vergist man es an anderer Stelle nicht. :wink:
|
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 ;-) |
Oops: Es muss wohl eher
Delphi-Quellcode:
heißen, da sonst:
inc(integer(aWorkBuffer));
Zitat:
|
Dafür kann man aber bei meiner Lösung die Jedi-Header-Übersetzungen in Ruhe lassen. :wink:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:55 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz