Hoje vou mostrar uma dica útil para quem deseja abrir um link em um navegador usando AdvPL.
Supondo que você queira abrir uma página de help, ou que você queira incluir um TButton / TSay que ao clicar o usuário seja redirecionado para um link da internet, como fazer de forma simples utilizando AdvPL?
Primeiramente, montamos o nosso link em uma variável caractere, por exemplo, cLink.
Depois do link montado, basta usarmos a função ShellExecute, passando o parâmetro como OPEN, e passar esse link montado anteriormente.
Abaixo a exemplificação do que foi explicado:
cLink := "https://terminaldeinformacao.com"
ShellExecute("Open", cLink, "", "", 1)
Bom pessoal, por hoje é só.
Abraços e até a próxima.
Boa tarde Atilio, e se caso quisesse adicionar esse link a um texto? Por exemplo, uma mensagem “clique aqui” eai redirecionando direto para o site? como poderia ser feito?
Bom dia Victor, tudo joia?
A lógica seria mais ou menos a seguinte (supondo que você tenha uma Dialog customizada):
1. Criar um TSay() com o texto “clique aqui”, exemplo:
oSayLink := TSay():New(nSuaLinha, nSuaColuna, {|| “clique aqui”}, o[… resto do seu código …]
2. Nesse seu TSay, ai você define o conteúdo do atributo bLClicked (clique com o botão esquerdo do mouse), apontando para a abertura do link
oSayLink:bLClicked := {|| ShellExecute(“Open”, cLink, “”, “”, 1)}
Tenha uma ótima e abençoada sexta feira.
Um grande abraço.
Obrigado pela dica!
Abraços
Bom dia Victor, tudo joia?
Acha, nós que agradecemos o comentário.
Tenha uma ótima e abençoada sexta feira.
Um grande abraço.