Das verstehe ich ja nun mal nicht ....

[Heiko Jerke]

Hallo Zusammen,

folgendes Pro, der Source unten, bringt statt des vollen Usernamens den
Fehler 2220 (The group name could not be found.) was mir ja nun irgend wie
nicht ganz einleuchtet, da ich USER angaben abfordere und keine Gruppen
Infos. Davon abgesehen entspricht der Soruce (der im ürbigen nicht
von mir stammt :-) genau den vorgaben aus der MSDN.

Könnte mir jemand verraten wo das Problem dabei ist?
Danke
Heiko
------- Source -----
procedure TForm1.FormCreate(Sender: TObject);
function GetUserFullName(username,server:string):string;
type user_info_10=record
namewidechar;
commentwidechar;
usr_commentwidechar;
full_namewidechar;
end;
var userw,serverwwidechar;
st:^user_info_10;
ret:dword;
begin
result:='';
if server <> '' then
server:=concat('\\',server);
userw:=allocmem(50);
StringToWidechar(username,userw,length(username)+1 );
serverw:=allocmem(50);
stringtowidechar(server,serverw,length(server)+1);
ret := NetUserGetInfo(serverw,userw,10,@st);
if ret = 0 then result:=widechartostring(st^.full_name)
else Result := 'Error : ' + inttostr(Ret);
freemem(userw);freemem(serverw);
NetApiBufferFree(st);
end;
begin
showmessage(getuserfullname('GAST', ''));
end;
end.
------- Source Ende ------

[Christian Seehase]

Moin Heiko,<br>
<br>
also bei mir funktioniert Dein Source ohne Probleme (D5pro SP1/W2K SP1)<br>
Wie sieht denn Deine Implementierung von NetUserGetInfo aus? Ich hab' dass so gemacht:<br>
<br>
<pre>
TcsNetUserGetInfo =
function(
const servername : PWideChar;
const username : PWideChar;
const level : DWord;
const bufptr : Pointer
) : NET_API_STATUS; stdcall;
</pre>
<br>
Ciao<br>
Chri