Ir para conteúdo
  • Cadastre-se

dev botao

Chamada De Navegador


Ver Solução Respondido por EMBarbosa,
  • Este tópico foi criado há 1336 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde,

 

Uma divida, e ver se tem outro modo de fazer esta chamada.

Estou utilizando o componente webbrowser do delphi para fazer a chamada de um link com passagem de parametro por Post.

 

esta dessa forma : 

wbNavegador.Navigate('site', EmptyParam, EmptyParam, PostData, Headers);

 

onde a variavel PostData são os parametros.

ate entao ta funcionando. so que tem algumas funcoes do java script que começa a dar erros, pois o "navegador" equivale ao ie6 ( delphi 7 )

 

teria como atualizar este componente para chamar um ie mais atual ou algum componente ou outro modo de efetuar esta chamada ??

 

Link para o comentário
Compartilhar em outros sites

  • Consultores
  • Solution

O TWebBrowser é na verdade o IE instalado na máquina. Então basta atualizar o IE da máquina.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

Boa tarde,

 

Estou com ie11 na maquina instalado, so que ele carrega o TWebBrowser como se fosse o ie6. se eu efetuar o teste direto no navegador ... nao da erro algum, mas se eu faço a chamada no webbrowser começa a pipoca erro de java script.

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde,

 

Estou com ie11 na maquina instalado, so que ele carrega o TWebBrowser como se fosse o ie6. se eu efetuar o teste direto no navegador ... nao da erro algum, mas se eu faço a chamada no webbrowser começa a pipoca erro de java script.

 

Bem a ajuda do Delphi XE diz:

 

TWebBrowser provides access to the Web browser functionality of Microsoft's Shell Doc Object and Control Library (SHDOCVW.DLL).

TWebBrowser wraps the IWebBrowser2 interface from Microsoft's Shell Doc Object and Control Library (SHDOCVW.DLL) to allow you to create a customized Web browsing application or to add Internet, file and network browsing, document viewing, and data downloading capabilities to your applications.

Note: Because TWebBrowser wraps the SHDOCVW.DLL, you must have SHDOCVW.DLL installed to use this component. This DLL ships with Internet Explorer 4 and later.

 

Ou seja, no Delphi XE vai fazer uso da interface IWebBrowser2 disponível na SHDOCVW.DLL. Se esta dll estiver incorreta, pode ser esse o problema ou talvez a versão do seu Delphi seja antiga. Qual a versão do seu Delphi e sistema operacional?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

Boa tarde EMBarbosa

estou usando o Delphi 7 , win 7 ( 64bits)

 

 

Rafael Dias

instaslei esse componente que me indicou so que apresenta o seguinte erro isso so de eu colocar o componente na tela e mandar executar

post-640-0-52204500-1401908849.jpg

Editado por elrond
Link para o comentário
Compartilhar em outros sites

Aew Consegui Resolver os problemas do erro acima.

 

Bom vou colocar as instrucoes para quem for usar da mesma forma

 

Primeiro baixe o componente pelo svn .. abaixo esta o link

https://code.google....romiumembedded/

 

- instale baseado nas opcoes dos delphi que tem ( D7, D2010 e DXe2 )

-Copie os arquivo que estao em C:\Program Files (x86)\Borland\Delphi7\Componentes\Chromium\bin\Win32 e jogue eles na pasta c:\windows ou onde vai ficar o exe

-adicione na library o scr

 

esta pronto para ser usado.

 

para efetuar a utilização utilize

Uses  ceflib;

function TForm1.CreateField(const AValue: AnsiString): ICefPostDataElement;
begin
  Result := TCefPostDataElementRef.New;
  Result.SetToBytes(Length(AValue), PAnsiChar(AValue));
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  req: ICefRequest;
  data: ICefPostData;
  MainFrame : ICefFrame;
begin
  data := TCefPostDataRef.New;
  data.AddElement(CreateField(('Campo=Valor')));
  data.AddElement(CreateField(('&Campo2=Valor2')));

  req := TCefRequestRef.New;
  req.SetUrl( 'http://example.com/');
  req.SetMethod ( 'POST');
  req.SetFlags(WUR_FLAG_ALLOW_CACHED_CREDENTIALS + WUR_FLAG_ALLOW_COOKIES);
  req.SetPostData (data);

  MainFrame := Chromium1.Browser.GetMainFrame;
  MainFrame.LoadRequest(Req);
end;

Bom com isso ele vai fazer a chamada da pagina enviado via post os dados necessarios.

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Rafael, 

é que nesse link ai nao achei pra faze o download dos fontes atravez do svn , igual tem no outro link rs.

é que eles estão usando Git agora e não o SVN.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • 5 anos depois...
  • Consultores
Em 07/12/2019 at 17:10, araujojunior disse:

Alguem ainda usa esse componente? Ou conhece algum similar? Estou tentando utilizar, mas o mesmo não funciona com alguns sites.

Esse?

https://github.com/salvadordf/CEF4Delphi

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • 7 meses depois ...
Em 04/06/2014 at 18:12, elrond disse:

Aew Consegui Resolver os problemas do erro acima.

 

Bom vou colocar as instrucoes para quem for usar da mesma forma

 

Primeiro baixe o componente pelo svn .. abaixo esta o link

https://code.google....romiumembedded/

 

- instale baseado nas opcoes dos delphi que tem ( D7, D2010 e DXe2 )

-Copie os arquivo que estao em C:\Program Files (x86)\Borland\Delphi7\Componentes\Chromium\bin\Win32 e jogue eles na pasta c:\windows ou onde vai ficar o exe

-adicione na library o scr

 

esta pronto para ser usado.

 

para efetuar a utilização utilize


Uses  ceflib;

function TForm1.CreateField(const AValue: AnsiString): ICefPostDataElement;
begin
  Result := TCefPostDataElementRef.New;
  Result.SetToBytes(Length(AValue), PAnsiChar(AValue));
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  req: ICefRequest;
  data: ICefPostData;
  MainFrame : ICefFrame;
begin
  data := TCefPostDataRef.New;
  data.AddElement(CreateField(('Campo=Valor')));
  data.AddElement(CreateField(('&Campo2=Valor2')));

  req := TCefRequestRef.New;
  req.SetUrl( 'http://example.com/');
  req.SetMethod ( 'POST');
  req.SetFlags(WUR_FLAG_ALLOW_CACHED_CREDENTIALS + WUR_FLAG_ALLOW_COOKIES);
  req.SetPostData (data);

  MainFrame := Chromium1.Browser.GetMainFrame;
  MainFrame.LoadRequest(Req);
end;

Bom com isso ele vai fazer a chamada da pagina enviado via post os dados necessarios.

Boa tarde,

req.SetFlags(WUR_FLAG_ALLOW_CACHED_CREDENTIALS + WUR_FLAG_ALLOW_COOKIES);  

Apresenta erro, declarou como constante ou algo parecido?

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1336 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.