No artigo de hoje, vamos demonstrar em como buscar o IP e a Porta do AppServer que esta em execução via AdvPL.

Algumas vezes podemos precisar identificar se estamos conectados num determinado slave do Protheus.

Para ajudar nisso, existem as funções GetServerPort e GetServerIP, sendo que a primeira retorna o IP e a segunda retorna a Porta usados no servidor do AppServer.

Abaixo montamos um fonte bem simples para mostrar em uma mensagem as informações:

User Function zTestar()
    Local aArea     := FWGetArea()
    Local cServer   := GetServerIP()
    Local nPorta    := GetServerPort()
    Local cMensagem := ""

    //Monta a mensagem e exibe via ShowLog
    cMensagem := "Definições do Server:" + CRLF + CRLF
    cMensagem += "IP:    " + cServer + CRLF
    cMensagem += "Porta: " + cValToChar(nPorta) + CRLF
    ShowLog(cMensagem)

    FWRestArea(aArea)
Return

E abaixo um exemplo de como ficou o ShowLog:

Mensagem de resultado

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheus