Executar uma URL ou Link

[RONESMEN]

Bom dia, a Todos!

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

Grato,

Rones

[JoséQuintas]

O que é "executar uma URL ou link" ?
Isso existe ?

[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.)

[JoséQuintas]

acho mais provável webservice, mas vamos aguardar.

[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.

[RONESMEN]

Bom dia, a todos.

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

Obrigado a todos.

Abraços

[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

[JoséQuintas]

Sei lá, dos tempos do Clipper, e mesmo efeito, é usar o comando RUN.
Ia colocar o fonte, mas o fórum bloqueia.