Delphi-PRAXiS - Delphi Problem mit NetSessionEnum

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)

- - Delphi Problem mit NetSessionEnum (https://www.delphipraxis.net/3008-problem-mit-netsessionenum.html)

Problem mit NetSessionEnum

Delphi-Quellcode:

			var EntriesRead, TotalAvail: DWORD;

  Buf: Pointer;

  TempBuf:PSessionInfo502;

  i:integer;

begin

 NetSessionEnum('', nil, nil, 502,

    Buf, MAX_PREFERRED_LENGTH, EntriesRead, TotalAvail, nil);

 TempBuf:=Buf;

 for i:=1 to EntriesRead do begin

  re1.Lines.Add(TempBuf^.sesi502_cname); //Ausgabe in einen Richedit

  re1.Lines.Add(TempBuf^.sesi502_username); //Ausgabe in einen Richedit

  Inc(TempBuf);

 end;

 NetApiBufferFree(Buf);

end;

Warum wird nur der 1. Buchstabe des Computernamens (cname) und auch nur der 1. Buchstabe des Usernamen (username) angezeigt?

MfG Hitzi

Ich bin mir nicht ganz sicher, aber probiers mal mit:

Delphi-Quellcode:

re1.Lines.Add(string(TempBuf^.sesi502_cname));

Hilft leider auch nicht weiter :(
Immer noch das gleiche Problem.

MfG Hitzi

Kuck mal hier:

http://delphi.mastak.ru/articles/netmon/

da wird NetSessionEnum ein bisschen anders aufgerufen:

Delphi-Quellcode:

			procedure TMainForm.btnGetSessionsClick(Sender: TObject);

var

  OS: Boolean;

  FLibHandle : THandle;

  SessionInfo50: array [0..512] of TSessionInfo50;

  SessionInfo502 : PSessionInfo502Array;

  TotalEntries,EntriesReadNT: DWORD;

  EntriesRead,TotalAvial: Word;

  i:integer;

begin

  lvSessions.Items.Clear;

  if not IsNT(OS) then Close; //&#1042;&#1099;&#1103;&#1089;&#1085;&#1103;&#1077;&#1084; &#1090;&#1080;&#1087; &#1089;&#1080;&#1089;&#1090;&#1077;&#1084;&#1099;

  if OS then begin  //&#1050;&#1086;&#1076; &#1076;&#1083;&#1103; NT

    FLibHandle := LoadLibrary('NETAPI32.DLL');

    if FLibHandle = 0 then Exit;

    @NetSessionEnumNT := GetProcAddress(FLibHandle, 'NetSessionEnum');

    if not Assigned(NetSessionEnumNT) then

    begin

      FreeLibrary(FLibHandle);

      Exit;

    end;

    SessionInfo502 := nil;

    if NetSessionEnumNT(nil,nil,nil,502,@SessionInfo502,DWORD(-1),@entriesreadNT, @totalentries, nil)=0 then

    for i:=0 to EntriesReadNT-1 do

    begin

      with lvSessions.Items.Add do  //&#1047;&#1072;&#1087;&#1086;&#1083;&#1085;&#1077;&#1085;&#1080;&#1077; &#1076;&#1072;&#1085;&#1085;&#1099;&#1084;&#1080; &#1080;&#1079; &#1089;&#1090;&#1088;&#1091;&#1082;&#1090;&#1091;&#1088;&#1099;

      begin

        Caption := string(SessionInfo502^[i].sesi502_cname); //&#1048;&#1084;&#1103; &#1082;&#1086;&#1084;&#1087;&#1100;&#1102;&#1090;&#1077;&#1088;&#1072;

        SubItems.Add(SessionInfo502^[i].sesi502_username);   //&#1048;&#1084;&#1103; &#1087;&#1086;&#1083;&#1100;&#1079;&#1086;&#1074;&#1072;&#1090;&#1077;&#1083;&#1103;

        SubItems.Add(IntToStr(SessionInfo502^[i].sesi502_num_opens)); //&#1054;&#1090;&#1082;&#1088;&#1099;&#1090;&#1099;&#1093; &#1088;&#1077;&#1089;&#1091;&#1088;&#1089;&#1086;&#1074;

     SubItems.Add(CardinalToTimeStr(SessionInfo502^[i].Sesi502_Time)); //&#1042;&#1088;&#1077;&#1084;&#1103; &#1072;&#1082;&#1090;&#1080;&#1074;&#1085;&#1086;&#1077;

     SubItems.Add(CardinalToTimeStr(SessionInfo502^[i].sesi502_idle_time)); //&#1042;&#1088;&#1077;&#1084;&#1103; &#1085;&#1077; &#1072;&#1082;&#1090;&#1080;&#1074;&#1085;&#1086;&#1077;

      end;

    end;

Danke für den Link.

Der wird mir weiter helfen, da das dort vorgestellte Programm funktioniert.

MfG Hitzi

Moin Hitzi,

wenn ich mir so Deinen Sourcecode ansehe:

Wenn Du die Funktion selber deklariert hast, wäre es interessant wie, wenn Du eine vorgefertigte Deklaration verwendet hast: Welche?