Função: GetPvProfString
Recupera o conteúdo caractere de uma chave de um arquivo de configuração (*.INI) qualquer.
GetPvProfString ( < cSecao>, < cChave>, < cPadrao>, < cNomeArqCfg> ) --> cRet
| Nome | Tipo | Descrição | Obrigatório | Referência |
| cSecao | Caracter | Indica o nome da seção do arquivo a ser considerada. | X | |
| cChave | Caracter | Indica o nome da chave a ser considerada. | X | |
| cPadrao | Caracter | Indica o conteúdo padrão ( default ) a ser retornado , caso a chave não seja encontrada no arquivo de configuração. | X | |
| cNomeArqCfg | Caracter | Indica o nome do arquivo de configuração (*.INI) a ser utilizado. | X | |
| uParam5 | Numérico | Compatibilidade | ||
| uParam6 | Numérico | Compatibilidade |
cRet
- (caracter)
- Retorna o conteúdo da chave especificada, ou o seu valor padrão.
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.
#DEFINE CRLF Chr(13)+Chr(10)User Function Exemplo()Local cServerIni := "", cClientIni := "", cMensagem := ""Local cSecao := "", cChave := "", cPadrao := ""//+----------------------------------------------------------------------------+//|Exemplifica o uso da função GetPvProfString |//+----------------------------------------------------------------------------+ cServerIni := GetAdv97() cClientIni := GetRemoteIniName() cSecao := "Drivers" cChave := "Active" cPadrao := "undefined" cMensagem += "Arquivo de configuração do servidor: [" + cServerIni + "]" + CRLF cMensagem += " Seção [" + cSecao + "] Chave [" + cChave + "] Valor [" + ; GetPvProfString(cSecao, cChave, cPadrao, cServerIni) + "]" + CRLF cMensagem += "Arquivo de configuração da estação: [" + cClientIni + "]" + CRLF cMensagem += " Seção [" + cSecao + "] Chave [" + cChave + "] Valor [" + ; GetPvProfString(cSecao, cChave, cPadrao, cClientIni) + "]" + CRLF//+----------------------------------------------------------------------------+//|Apresenta uma mensagem com os resultados obtidos |//+----------------------------------------------------------------------------+Return MsgInfo(cMensagem, "Exemplo do GetPvProfString")
Exemplo da função GetPvProfString
Microsiga Protheus 8.11 , Protheus 10