Página 1 de 1

Executar uma URL ou Link

Enviado: 23 Nov 2022 08:28
por RONESMEN
Bom dia, a Todos!

Tem algum comando ou forma de executar uma URL ou Link no harbour.

Grato,

Rones

Executar uma URL ou Link

Enviado: 23 Nov 2022 13:04
por JoséQuintas
O que é "executar uma URL ou link" ?
Isso existe ?

Executar uma URL ou Link

Enviado: 23 Nov 2022 14:56
por sygecom
Acho que quiz dizer abrir um link.

exemplo:

Código: Selecionar todos

FUNC MAIN()
ABRE_LINK('https://pctoledo.org/')
RETURN(.T.)

************************
FUNCTION ABRE_LINK(cURL)
/*
Abre um link qualquer da internet no navegador padrão
e retorna se consegui abrir um navegador ou não
*/
************************
LOCAL hInstance

IF cURL=Nil
   MsgStop("Endereço de URL inválido, Favor revisar")
   RETURN(.F.)
ENDIF

IF len(alltrim(cURL))=0
   MsgStop("Endereço de URL inválido, Favor revisar")
   RETURN(.F.)
ENDIF

hInstance := SHELLEXECUTE( cURL, "open", NIL, NIL, 2 )

IF hInstance < 33
   ShowMsg('Erro ao tentar abrir o link: ' + cURL )
   RETURN(.F.)
ENDIF
RETURN(.T.)

Executar uma URL ou Link

Enviado: 23 Nov 2022 18:43
por JoséQuintas
acho mais provável webservice, mas vamos aguardar.

Executar uma URL ou Link

Enviado: 23 Nov 2022 18:49
por Itamar M. Lins Jr.
Olá!
Pensei da mesma forma. Na Hwgui:

Código: Selecionar todos

 @ 20,230 SAY "Hwgui international Forum"        ;
   LINK "https://pctoledo.org/forum/posting.php?mode=reply&f=4&t=26643" ;
       SIZE 320, 22 STYLE SS_CENTER  ;
        COLOR hwg_ColorC2N("0000FF") ;
        VISITCOLOR hwg_ColorRgb2N(241,249,91) 
Como ele não disse nada a respeito de libs gráficas, eu não respondi.

Saudações,
Itamar M. Lins Jr.

Executar uma URL ou Link

Enviado: 24 Nov 2022 07:21
por RONESMEN
Bom dia, a todos.

Amigos, na realmente e abrir um link, vou fazer um teste com os exemplos.

Obrigado a todos.

Abraços

Executar uma URL ou Link

Enviado: 25 Nov 2022 07:45
por RONESMEN
bom dia a Todos,

Executei os testes e realmente funcionou, mudando o terceiro parâmetro, segue o exemplo:

hInstance := SHELLEXECUTE( cURL, "open", cURL, NIL, 2 )

Obrigado a todos.

Rones

Executar uma URL ou Link

Enviado: 25 Nov 2022 14:33
por JoséQuintas
Sei lá, dos tempos do Clipper, e mesmo efeito, é usar o comando RUN.
Ia colocar o fonte, mas o fórum bloqueia.