Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
Pagetitle |
---|
...
|
...
...
...
|
Informa
...
se
...
o Application
...
Server
...
está
...
sendo
...
executado
...
em
...
ambiente
...
Unix, Linux ou Microsoft Windows.
Sintaxe
Bloco de código | ||
---|---|---|
| ||
IsSrvUnix() --> lRet
|
Retorno
Nome | Tipo | Descrição |
---|---|---|
lRet |
...
lógico | Retorna verdadeiro (.T.), se o Application Server estiver sendo executado em |
...
Unix ou |
...
Linux; caso contrário, retornará falso (.F.), se estiver sendo executado em ambiente Microsoft |
...
Windows. |
Exemplos
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
user function Exemplo ()
Local lSrvUnix // Exemplo 1IsSrvUnix() // Resultado: .F./////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Exemplo 2//Através do exemplo abaixo, podemos obter o path de execução do Remote.#include "totvs.ch"Function TstRmtPath()Local cIniName:= GetRemoteIniName() Local lUnix:= IsSrvUnix() LocalnPos:= Rat( IIf(lUnix,"/","\"),cIniName )Local cPathRmt if ( lSrvUnix ) conout( "Application Server running on Linux" ) else conout( "Application Server running on Windows" )if nPos!=0 cPathRmt:= Substr( cIniName,1,nPos-1 )else cPathRmt:=""endifQOut( cPathRmt )Return
endif
Return
|
Abrangência
Advanced Protheus 6.09, Advanced Protheus 7.10, Microsiga Protheus 8.11, Protheus 10, TOTVS Application Server 10, ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas