Discussion :

[fbalien]

Bonjour

lorsque que je cherche à lister les session sur un serveur TSE
via le code suivant en 64 bit cela marche bien mais en 32 bit WTSQuerySessionInformation me renvoie rien
et getlasterror me revoie ERROR_INVALID_PARAMETER
Voici la fonction pour avoir le nom du user ou son pc c'est là qu'en 32 çà marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function getStrInfo(fhserveur : cardinal;infoClass : _WTS_INFO_CLASS ; id : cardinal):string;
var
  ptemp : pointer ;
  inttemp : cardinal;
begin
  ptemp := nil;
  result := '';
  if WTSQuerySessionInformation(fhserveur,id ,infoClass,ptemp,inttemp) then
  try
    result := pchar(ptemp);
  finally
    WTSFreeMemory(ptemp);
  end;
end;

Voici un bout de la procedure qui liste les sessions
cette partie fonctionne bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
     fhserveur := WTSOpenServer(pchar(strNomServeur));
    booOk := WTSEnumerateSessions(fhserveur,0,1,ppsession,nbSession );
    if booOk and (nbsession > 0 )then
    begin
      fbooServeurOK := true;
      for indexSession := 0 to nbSession-1 do
      begin
        Session := PWTS_SESSION_INFO(integer(ppsession)+indexsession * sizeof(wts_session_info))^;
        strTemp := lowercase(session.pWinStationName);
        if (pos('ica-',strtemp)<> 0)and(pos('#',strtemp)<>0) then inc(fnbICA ,1);
        if pos('rdp-tcp#',strtemp)<> 0 then inc(fnbRDP ,1);
        if strTemp = 'ica-tcp' then fbooListenICA := session.State = WTSListen;
        if strTemp = 'rdp-tcp' then fbooListenRDP := session.State = WTSListen;
        ttemp := tfbSession.Create ;
        ttemp.fstrSession := strTemp;
        ttemp.fintID := session.SessionId;
        ttemp.fsrtetat := sessionstatetostr(Session.State);
        ttemp.fstrUtilistauer := getStrInfo(fhserveur,WTSUserName,Session.SessionId);
        ttemp.fstrClient := getStrInfo(fhserveur,WTSClientName,Session.SessionId);
        add(ttemp);
      end;
    end;
    WTSFreeMemory (ppsession );

cela fait un moment que je galère avec cette partie

[ShaiLeTroll]

à quel endroit tu mets le getlasterror ?

le WTSFreeMemory, je le mettrais dans le begin endde if booOk and (nbsession > 0 )then.
Pense que le 32 Bits c'est émulé, c'est assez isolé, il me semble normal qu'un processus 32bits ne voit pas ce qui se passe en 64Bits

[fbalien]

bonjour

juste apres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if WTSQuerySessionInformation(fhserveur,id ,infoClass,ptemp,inttemp) then

[ShaiLeTroll]

remplace ton arithmétique de pointeur par ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
  ppsession: PWTS_SESSION_INFO;
  ppsessionCurr: PWTS_SESSION_INFO;
...
begin
    fhserveur := WTSOpenServer(pchar(strNomServeur));
    booOk := WTSEnumerateSessions(fhserveur,0,1,ppsession,nbSession );
    if booOk and (nbsession > 0 )then
    begin
      fbooServeurOK := true;
      ppsessionCurr := ppsession;
 
      for indexSession := 0 to nbSession-1 do
      begin
        // Session := PWTS_SESSION_INFO(integer(ppsession)+indexsession * sizeof(wts_session_info))^; // devient la ligne du dessous
        Session := ppsessionCurr^;
        ... 
 
        add(ttemp);
 
        Inc(ppsessionCurr); // il va tout seul gérer le décalage nécessaire
      end;
    end;
    WTSFreeMemory (ppsession );

[fbalien]

Bonjour

j'ai modifié comme tu me l'a indiqué
mais toujours le même souci en compile 32Bits

[fbalien]

Bonjour

j'ai repris mes investigations
J’obtiens l'erreur Paramètre incorrect en mode debug 32Bits mais pas en mode Release 32Bits O_o
en compile 64 bits cela marche dans les deux modes
j'ai adapté ma fonctions qui pose problème pour m'afficher le syserromessage si WTSQuerySessionInformation NOK

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function tfbLstSession.getStrInfo(fhserveur : cardinal;infoClass : _WTS_INFO_CLASS ;id : cardinal):string;
var
  ptemp : pointer ;
  inttemp : dword;
begin
  ptemp := nil;
  result := '';
  if WTSQuerySessionInformation(fhserveur,id ,infoClass,ptemp,inttemp) then
  begin
    result := '[' + pchar(ptemp)+ ']';
    WTSFreeMemory(ptemp);
  end else
    result := '[' + syserrormessage(GetLastError)+ ']';
end;