Forum AtoutFox : Re: Variable system SESSIONNAME et Win 10 pro   

jeu. 17 décembre 2015, 18h39

GLS
France
atoutfox.public.association

Re: Variable system SESSIONNAME et Win 10 pro

Gregory,

l'exécutable que j'ai fabriqué en VFP9SP2 tourne correctement sur ma machine Win10 PRO installé à partir d'un Win7 PRO, mais sur la machine native en Win10 PRO du client il plante..
Je vais devoir ajouter une gestion des erreurs avec trace dans le fichier log de l'application pour déterminer d’où vient le plantage..

* MAIN.PRG
#DEFINE CRLF CHR(13)+CHR(10)
SET PROC TO tse_info ADDITIVE
LOCAL obj AS OBJECT, cmessage AS STRING

DO CASE
  CASE !TSE_Session()
    cmessage = 'not running under TSE'

  CASE !tse_info_object(@m.obj)
    cmessage = 'error creating object'

  OTHERWISE
    WITH m.obj

      cmessage = 'InitialProgram: ' + .InitialProgram + CRLF;
        +'ApplicationName: ' + .ApplicationName + CRLF;
        +'WorkingDirectory: ' + .WorkingDirectory + CRLF;
        +'SessionId: ' + .SessionId + CRLF;
        +'UserName: ' + .UserName + CRLF;
        +'WinStationName: ' + .WinStationName + CRLF;
        +'DomainName: ' + .DomainName + CRLF;
        +'ConnectState: ' + .ConnectState + CRLF;
        +'ConnectStateString: ' + .ConnectStateString + CRLF;
        +'ClientBuildNumber: ' + .ClientBuildNumber + CRLF;
        +'ClientName: ' + .ClientName + CRLF;
        +'ClientDirectory: ' + .ClientDirectory + CRLF;
        +'ClientProductId: ' + .ClientProductId + CRLF;
        +'ClientHardwareId: ' + .ClientHardwareId + CRLF;
        +'ClientAddress: ' + .ClientAddress + CRLF;
        +'ClientDisplay_Horizontal: ' + .ClientDisplay_Horizontal + CRLF;
        +'ClientDisplay_Vertical: ' + .ClientDisplay_Vertical + CRLF;
        +'ClientDisplay_ColorDepth: ' + .ClientDisplay_ColorDepth + CRLF;
        +'ClientProtocolType: ' + .ClientProtocolType + CRLF

    ENDWITH
ENDCASE
=STRTOFILE(m.cmessage, 'TEST_TSE.LOG', 0)

Merci de ta piste..

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000016986