WebBrowser não funciona

[Arnaldo Cruz]

Estou tentando abrir alguns link no webbrowser  Delphi XE7 , os links abaixo.

1 http://www1.teledocumentos.com.br/sistema2/
1 https://portalservicos.denatran.serpro.gov.br
1 https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/CPF/ConsultaPublica.asp
1 http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao.asp
1 e 2 -http://cna.oab.org.br/
2 - http://www.portal.cfm.org.br/
3 - https://www.certisign.com.br/atendimento-suporte/certificado-digital/teste-certificado
3 - https://email.bol.uol.com.br/login#

 

1 - ALguns abrem porem não executam a consulta.

2 - A Pagina abre desconfigurada(O menu da pagina fica por baixo do Body)

3 - Não abre a pagina

Os links acima são de consultas, alguem sabe se estas paginas podem ter algum impeditivo que impeçam

que elas sejam abertas pelo webbrowser ?

 

Obrigado

[edu]

Não sei se isso o ajudará porque quase não uso WebBrowser e meu Delphi é 2009, mas algum tempo atrás tive problemas de compatibilidade. Meu programa rodava bem no Windows 7 mas quando migrei para o 10 os sites ficavam desfigurados. Após pesquisar descobri que o problema estava relacionado a emulação do Internet Explorer, o WebBrowser do meu programa trabalha de forma a emular o Internet Explorer 7. Para resolver é preciso fazer um ajuste no registro do Windows, com base nas informações do site da Microsoft criei uma função para automatizar isso: https://msdn.microsoft.com/en-us/library/ee330730(v=vs.85).aspx:

// versões IE: 7, 8, 9 10 e 11
Procedure SetIEEmulation(VersaoIE : Integer);
Var
   R : TRegistry;
   V : Integer;
Begin
   V := 11001;
   Case VersaoIE Of
      7 : V := 7000;
      8 : V := 8888;
      9 : V := 9999;
      10 : V := 10001;
      11 : V := 11001;
   End;
   // internet explorer 11 = 11000 ou 11001
   // internet explorer 10 = 10000 ou 10001
   // internet explorer 9 = 9000 ou 9999
   // internet explorer 8 = 8000 ou 8888
   // internet explorer 7 = 7000
   // https://msdn.microsoft.com/en-us/library/ee330730%28v=vs.85%29.aspx
   // resumidamente, esta função grava um valor no registro que força a emulação da versão do Internet Explorer para o programa indicado
   // só é preciso o nome do programa, não é necessário o path completo
   R := TRegistry.Create;
   Try
      R.RootKey := HKEY_CURRENT_USER;
      R.OpenKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\',False);
      // código para emular o internet explorer 11
      R.WriteInteger(ExtractFileName(ParamStr(0)),V);
   Finally
      R.CloseKey;
      R.Free;
   End;
End;

Para emular o Internet Explorer 11 chame a função do seu programa apenas uma vez, desta forma:

SetIEEmulation(11);

Não testei se isso funcionará no seu caso (também não tenho o XE7), mas talvez ajude.

[EMBarbosa]

O TWebBrowser é um componente que acessa uma interface para o Internet Explorer.

Então a primeira coisa a fazer é verificar os sites no Internet Explorer na máquina com problemas.

Além disso use um Internet Explorer atualizado na máquina com problemas.

[Miro Callai]

Em 28/04/2017 at 08:33, edu disse:

Não sei se isso o ajudará porque quase não uso WebBrowser e meu Delphi é 2009, mas algum tempo atrás tive problemas de compatibilidade. Meu programa rodava bem no Windows 7 mas quando migrei para o 10 os sites ficavam desfigurados. Após pesquisar descobri que o problema estava relacionado a emulação do Internet Explorer, o WebBrowser do meu programa trabalha de forma a emular o Internet Explorer 7. Para resolver é preciso fazer um ajuste no registro do Windows, com base nas informações do site da Microsoft criei uma função para automatizar isso: https://msdn.microsoft.com/en-us/library/ee330730(v=vs.85).aspx:

// versões IE: 7, 8, 9 10 e 11
Procedure SetIEEmulation(VersaoIE : Integer);
Var
   R : TRegistry;
   V : Integer;
Begin
   V := 11001;
   Case VersaoIE Of
      7 : V := 7000;
      8 : V := 8888;
      9 : V := 9999;
      10 : V := 10001;
      11 : V := 11001;
   End;
   // internet explorer 11 = 11000 ou 11001
   // internet explorer 10 = 10000 ou 10001
   // internet explorer 9 = 9000 ou 9999
   // internet explorer 8 = 8000 ou 8888
   // internet explorer 7 = 7000
   // https://msdn.microsoft.com/en-us/library/ee330730%28v=vs.85%29.aspx
   // resumidamente, esta função grava um valor no registro que força a emulação da versão do Internet Explorer para o programa indicado
   // só é preciso o nome do programa, não é necessário o path completo
   R := TRegistry.Create;
   Try
      R.RootKey := HKEY_CURRENT_USER;
      R.OpenKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\',False);
      // código para emular o internet explorer 11
      R.WriteInteger(ExtractFileName(ParamStr(0)),V);
   Finally
      R.CloseKey;
      R.Free;
   End;
End;

Para emular o Internet Explorer 11 chame a função do seu programa apenas uma vez, desta forma:

SetIEEmulation(11);

Não testei se isso funcionará no seu caso (também não tenho o XE7), mas talvez ajude.

 

Tive o problema mencionado aqui e resolvi facilmente com este código do colega Edu.

É necessário declarar:

USES Registry

[jaspion99]

Tente testar com site ao lado. Nao funciona no webbrowser https://apps2.correios.com.br/efi/app/ncm/ncm.php