Exibir origem

import.css=/download/attachments/6062824/tecnologia.css

Cria um objeto do tipo página de internet.

Hierarquia

TControl
- TIBrowser

Construtores

Métodos

Em builds iguais ou superiores a 170117A (Release 25) o componente TIBrowse não é mais suportado, devido a problemas de compatibilidade do Windows 10 com as ferramentas ActiveX utilizadas em sua construção.

Em substituição, a partir da build 170117A é necessário utilizar o componente TWebEngine, baseado no navegador Chromium®.

Para MacOS versão 10.6 ou superior este componente não é mais suportado, por incompatibilidade entre as bibliotecas do Wekbit utilizadas pelo Qt e o Sistema Operacional da Apple.

Observações relativas a builds inferiores à 170117A

Para utilizar esta classe é necessário incluir no arquivo de configuração smartclient.ini a chave BrowserEnabled=1.
Para o SmartClient HTML também é necessário incluir a chave BrowserEnabled=1.
Em ambiente Windows, build 121227P ou superior, quando o Internet Explorer estiver instalado na versão 10 ou superior, ocorre um problema ao abrir o Google Maps, este problema porém é em decorrência de uma incompatibilidade entre as tecnologias de terceiros. Para evitar esse problema com o google maps, altere o registro conforme indicado abaixo para mudar o modo de compatibilidade do Internet Explorer. A classe em questão não tem suporte para Java e/ou JavaScript.
Por padrão o objeto utilizará sempre o Internet Explorer no modo de compatibilidade do IE7. A única maneira de mudar isso é alterar o registro do windows (https://msdn.microsoft.com/en-us/library/ee330730.aspx#browser_emulation).

Exemplos

#include "TOTVS.CH"
 
MAIN FUNCTION testTIBrowse()
 
    DEFINE DIALOG oDlg TITLE "Exemplo TIBrowser" FROM 180,180 TO 550,700 PIXEL
     
        oTIBrowser := TIBrowser():New(0,0,260,170, "http://www.totvs.com.br", oDlg )
        TButton():New( 172, 002, "Navigate", oDlg,;
            {|| oTIBrowser:Navigate( "http://tdn.totvs.com/display/home/TDN+-+TOTVS+Developer+Network" ) },40,010,,,.F.,.T.,.F.,,.F.,,,.F. )
         
        TButton():New( 172, 052, "GoHome", oDlg,;
            {|| oTIBrowser:GoHome() },40,010,,,.F.,.T.,.F.,,.F.,,,.F. )
             
        TButton():New( 172, 102, "Print", oDlg,;
            {|| oTIBrowser:Print() },40,010,,,.F.,.T.,.F.,,.F.,,,.F. )
            
        // Disponível apenas em versões superiores a 7.00.170117A - 17.2.0.2
        TButton():New( 172, 152, "GetURL", oDlg,;
            {|| MsgAlert(oTIBrowser:GetURL()) },40,010,,,.F.,.T.,.F.,,.F.,,,.F. )
             
    ACTIVATE DIALOG oDlg CENTERED
 
Return

Resultado do Exemplo

Abrangência

Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server