Nesse vídeo demonstraremos a conversão entre string e hexadecimal utilizando as funções cBIStr2Hex e cBIHex2Str.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe073
Exemplo para conversão entre strings para hexadecimal e vice versa
@type Function
@author Atilio
@since 07/12/2022
@obs 
    Função cBIStr2Hex
    Parâmetros
        + String a ser convertida
    Retorno
        + String convertida em hexadecimal

    Função cBIHex2Str
    Parâmetros
        + String em hexadecimal a ser convertida (tem que ser passado tudo maiúsculo)
    Retorno
        + String convertida

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe073()
    Local aArea   := FWGetArea()
    Local cString := ""
    Local cHexa   := ""

    //Convertendo e mostrando o resultado (de string para hexa)
    cString := "Daniel"
    cHexa   := cBIStr2Hex(cString)
    FWAlertInfo("A conversão de '" + cString + "' deu '" + cHexa + "' em hexa", "Exemplo cBIStr2Hex")

    //Convertendo e mostrando o resultado (de hexa para string)
    cHexa   := "4174696C696F"
    cString := cBIHex2Str(cHexa)
    FWAlertInfo("A conversão de '" + cHexa + "' deu a string '" + cString + "' ", "Exemplo cBIHex2Str")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++