TOTVSTEC

Árvore de páginas

Recupera o conteúdo numérico de uma chave, do arquivo de configuração (*.INI), qualquer.

Sintaxe

GetPvProfileInt( < cSecao >, < cChave >, < nPadrao >, < cNomeArqCfg >, [ uParam5 ], [ uParam6 ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cSecao

caractere

Indica o nome da seção do arquivo a ser considerada.

X


cChave

caractere

Indica o nome da chave a ser considerada.

X


nPadrao

numérico

Indica o conteúdo padrão ( default ) a ser retornado , caso a chave não seja encontrada no arquivo de configuração.

X


cNomeArqCfg

caractere

Indica o nome do arquivo de configuração (*.INI) a ser utilizado.

X


uParam5

numérico

Compatibilidade



uParam6

numérico

Compatibilidade



Retorno

Nome

Tipo

Descrição

nRet

numérico

Retorna o conteúdo da chave especificada, ou o seu valor padrão

Observações

Localização do arquivo de configuração a ser pesquisado

  • Se <cNomeArqCfg> for informado sem caminho, o arquivo será procurado na pasta de instalação do TOTVS Application Server.
  • Se <cNomeArqCfg> for informado com caminho, o arquivo será procurado na estação que executou a função.

Exemplos

#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")

Veja também

  • Sem rótulos