Função: GetPvProfileInt
Recupera o conteúdo numérico de uma chave, do arquivo de configuração (*.INI), qualquer.
GetPvProfileInt ( < cSecao>, < cChave>, < nPadrao>, < cNomeArqCfg> ) --> nRet
Nome | Tipo | Descrição | Obrigatório | Referência |
cSecao | Caracter | Indica o nome da seção em que um valor será recuperado. | X | |
cChave | Caracter | Indica o nome da chave em que um valor será recuperado. | X | |
nPadrao | Numérico | Indica o conteúdo padrão que será recuperado. | X | |
cNomeArqCfg | Caracter | Indica o nome do arquivo de configuração (*.INI) em que o valor será recuperado. | X | |
uParam5 | Numérico | Compatibilidade | ||
uParam6 | Numérico | Compatibilidade |
nRet
- (numerico)
- Retorna o conteúdo da chave especificada ou o seu valor padrão.
- Se o parâmetro <cNomeArqCfg> for informado sem o caminho, o arquivo será procurado na pasta de instalação do TOTVS Application Server.
- Se o parâmetro <cNomeArqCfg> for informado com o caminho, o arquivo será procurado na estação que executou a função.
#DEFINE CRLF Chr(13)+Chr(10)User Function Exemplo()Local cServerIni := "", cClientIni := "", cMensagem := ""Local cSecao := "", cChave := ""Local nPadrao := 0//+----------------------------------------------------------------------------+//|Exemplifica o uso da função GetPvProfInt |//+----------------------------------------------------------------------------+ cServerIni := GetAdv97() cClientIni := GetRemoteIniName() cSecao := "TCP" cChave := "Port" nPadrao := 0 cMensagem += "Arquivo de configuração do servidor: [" + cServerIni + "]" + CRLF cMensagem += " Seção [" + cSecao + "] Chave [" + cChave + "] Valor [" + ; NToC(GetPvProfileInt(cSecao, cChave, nPadrao, cServerIni), 10) + "]" + CRLF cMensagem += "Arquivo de configuração da estação: [" + cClientIni + "]" + CRLF cMensagem += " Seção [" + cSecao + "] Chave [" + cChave + "] Valor [" + ; NToC(GetPvProfileInt(cSecao, cChave, nPadrao, cClientIni), 10) + "]" + CRLF//+----------------------------------------------------------------------------+//|Apresenta uma mensagem com os resultados obtidos |//+----------------------------------------------------------------------------+Return MsgInfo(cMensagem, "Exemplo do GetPvProfInt")
Exemplo da função GetPvProfInt()
Microsiga Protheus 8.11 , Protheus 10
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas