Chamada De Navegador

[elrond]

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 ??

 

[EMBarbosa]

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

[elrond]

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.

[Rafael Dias]

Testa este componente ele é usa o navegador do google chrome como engine.

 

https://code.google.com/p/delphichromiumembedded/

https://code.google.com/p/dcef3/

[elrond]

Ok Rafael Dias

vou efetuar o teste com esse componente obrigado, depois eu posto se deu certo

[EMBarbosa]

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?

[elrond]

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

Editado 4 Junho, 2014 por elrond

[elrond]

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.

[Rafael Dias]

o outro link é o mesmo componente só q mais atualizado

 

https://code.google.com/p/dcef3/

[elrond]

o outro link é o mesmo componente só q mais atualizado

 

https://code.google.com/p/dcef3/

Bom dia Rafael, 

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

[EMBarbosa]

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.

[Rafael Dias]

é so ir em source/Browse e baixar o zip ou pode usar o link abaixo

 

https://dcef3.googlecode.com/archive/24038bd3a600df2feb349cd0cffd68a8da40bd12.zip

[araujojunior]

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

[EMBarbosa]

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

[Vanderlei Caetano da Cunha]

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?