AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

AV bei LookupAccountName

Ein Thema von Luckie · begonnen am 9. Nov 2005 · letzter Beitrag vom 9. Nov 2005
Antwort Antwort
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#1

AV bei LookupAccountName

  Alt 9. Nov 2005, 16:51
Ich bekomme mit diesem Code:
Delphi-Quellcode:
const
  MAX_NAME_STRING = 1024;

procedure TForm1.Button3Click(Sender: TObject);
var
  SID: PSID;
  lenSID: DWORD;
  RefDomain: ARRAY[0..MAX_NAME_STRING] OF Char;
  lenRefDomain: DWORD;
  peUse: SID_NAME_USE;
  strSID: String;
begin
  SID := nil;
  LookupAccountName('hal9000', 'Michael', SID, lenSID, RefDomain, lenRefDomain, peUse);
  ConvertSidToStringSidW(SID, strSID);
  ShowMessage(strSID);
end;
bei LookupAccountName eine AccessViolation, ich weiß aber nicht warum.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Ultimator
Ultimator

Registriert seit: 17. Feb 2004
Ort: Coburg
1.860 Beiträge
 
FreePascal / Lazarus
 
#2

Re: AV bei LookupAccountName

  Alt 9. Nov 2005, 17:02
Wenns dich tröstet, ich bekomm auch eine
Julian J. Pracht
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#3

Re: AV bei LookupAccountName

  Alt 9. Nov 2005, 17:05
Es liegt an ConvertSidToStringSidW habe ich gemerkt. Hier mein neuer Code:
Delphi-Quellcode:
function GetAccountSid(const Server, User: WideString; var Sid: PSID): DWORD;
var
  dwDomainSize, dwSidSize: DWord;
  R : LongBool;
  wDomain : WideString;
  Use : DWord;
begin
  Result := 0;
  SetLastError(0);
  dwSidSize := 0;
  dwDomainSize := 0;
  R := LookupAccountNameW(PWideChar(Server), PWideChar(User), nil, dwSidSize, nil, dwDomainSize, Use);
  if (not R) and (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
  begin
    SetLength(wDomain, dwDomainSize);
    Sid := GetMemory(dwSidSize);
    R := LookupAccountNameW(PWideChar(Server), PWideChar(User), Sid, dwSidSize, PWideChar(wDomain), dwDomainSize, Use);
    if not R then
    begin
      FreeMemory(Sid);
      Sid := nil;
    end;
  end
  else
    Result := GetLastError;
end;
Delphi-Quellcode:
function ConvertSidToStringSidW(Sid: PSID; var StringSid: String): Bool; stdcall;

implementation

function ConvertSidToStringSidW; external advapi32 name 'ConvertSidToStringSidW';
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
  SID: PSID;
  strSID: String;
begin
  SID := nil;
  GetAccountSid('hal9000', 'Michael', SID);
  ConvertSidToStringSidW(SID, strSID);
  ShowMessage(strSID);
end;
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Flocke
Flocke

Registriert seit: 9. Jun 2005
Ort: Unna
1.172 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#4

Re: AV bei LookupAccountName

  Alt 9. Nov 2005, 17:06
Setze mal vorher lenRefDomain := MAX_NAME_STRING.
//EDIT: Ok, das hast du korrigiert

var StringSid: String <-- das kann nicht sein - eine API-Funktion mit dem Typen "string"?
Volker
Besucht meine Garage
Aktuell: RtfLabel 1.3d, PrintToFile 1.4
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#5

Re: AV bei LookupAccountName

  Alt 9. Nov 2005, 17:10
Ups, habe es so geändert:
function ConvertSidToStringSidW(Sid: PSID; var StringSid: LPCWSTR): Bool; stdcall; Jetzt bekomme ich aber beim Aufruf:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
  SID: PSID;
  strSID: WideString;
begin
  SID := nil;
  GetAccountSid('hal9000', 'Michael', SID);
  ConvertSidToStringSidW(SID, PWideChar(strSID));
  ShowMessage(strSID);
end;
den Fehler:
Zitat:
[Error] Unit1.pas(99): Constant object cannot be passed as var parameter


Kommando zurück, so geht es:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
  SID: PSID;
  strSID: PWideChar;
begin
  SID := nil;
  GetAccountSid('hal9000', 'Michael', SID);
  ConvertSidToStringSidW(SID, strSID);
  ShowMessage(strSID);
end;
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:56 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz