Página 1 de 1
Abrir dentro do sistema uma pagina da internet
Enviado: 10 Abr 2024 17:22
por ANDRIL
Olá pessoal!
Consigo abrir uma URL usando o navegador padrão usando:
Teria alguma forma de abrir esta url dentro de uma janela do próprio sistema sem depender do navegador?
Pode ser usando lib gráfica, neste caso eu faço um exe separado.
O motivo de não quer usa o navegador é que vai ser acionada várias vezes esta função e para cada execução o navegador acaba criando uma nova aba.
Abrir dentro do sistema uma pagina da internet
Enviado: 10 Abr 2024 21:06
por JoséQuintas
Na sua assinatura mostra GTWVG.
Teste o controle activex
Mas acho melhor o normal mesmo, usando ShellExecuteOpen()
O usuário pode querer redimensionar janela, e tudo mais, deixar em janela do aplicativo acho perda de tempo.
Abrir dentro do sistema uma pagina da internet
Enviado: 15 Abr 2024 14:43
por clodoaldomonteiro
Quando preciso pegar o texto html de algum portal, faço o seguinte:
Código: Selecionar todos
Function SagresGetSituacaoMes(cEntidade, cAno, cMes)
Local aRet, mHtml, aTabela, mTabelas, aTr, aTd, i, x, mUrl, mValor, mString
mUrl := "https://www.tcepi.tc.br/fiscalizado/situacao-das-prestacoes-de-contas/?type=municipais&ug=" +;
cEntidade + "&ano=" + cAno + "&mes=" + cMes
mHtml := SendPostToUrl( mUrl, '', '', '' )
aTabela := MultipleNodeToArray( mHtml, 'table' )
mTabelas := aTabela[1]
aTr := MultipleNodeToArray( mTabelas, 'tr' )
... continua seu processamento
...
Return //
//*****************************************************************
//https://forums.fivetechsupport.com/viewtopic.php?f=3&t=37971
//SendPostToUrl( "https://xxxx.xxxx.com/aaa/bbbb", cJson, cContentTpe, cAuthorization )
//oOle:ResponseBody ou oOle:responseText - String, Retorna o HTML da pábina consultada
//oOle:status - Numeric, Retorna o Status atual. 200 = OK
//oOle:statusText - String, Retorna o texto de Status
//Enviando com Params: oOle:send("var1=" + str1 + "&var2=" + str2 + "&var3=" + str3)
//*****************************************************************
Function SendPostToUrl( cUrl, cParams, cContentType, cAuthorization )
Local oOle, cRet := '' //, cRet2
cContentType := "application/x-www-form-urlencoded"
cAuthorization := ""
Try
oOle := CreateObject( 'MSXML2.XMLHTTP' )
Catch
oOle := CreateObject( 'Microsoft.XMLHTTP' )
End
oOle:Open( 'POST', cUrl, .f. )
oOle:SetRequestHeader( "Content-Type",cContentType)
if !Empty( cAuthorization)
oOle:SetRequestHeader( "Authorization",cAuthorization)
end if
Try
oOle:Send( cParams )
//SysRefresh()
#ifdef __XHARBOUR__
cRet := oOle:ResponseBody
#Else
cRet := ""
hb_jsonDecode(oOle:ResponseBody, @cRet)
#EndIf
Catch
End
//cRet2 := ""
//hb_jsonDecode(oOle:ResponseBody, @cRet2)
//ADOStringGrava( cRet2 )
oOle := NIL
Return cRet