SoloCodigo

Programación General => Delphi => Mensaje iniciado por: RedChaos en Martes 2 de Agosto de 2005, 13:52

Título: Webbrowser
Publicado por: RedChaos en Martes 2 de Agosto de 2005, 13:52

Ya q estoy haciendo uno mas o menos, ire poniendo aki mis avances y descubrimientos, asi quedara una discusion muy util para todo aquel q quiera hacer algo asi en el futuro.

El WebBrowser de Delphi esta enganchado al Internet Explorer pero para aquellos q quieran usar Mozila tienen aki la direccion para un plugin para el Mozila, para ponerlo en activex y una libreria de Delphi con el MozillaBrowser.

http://www.iol.ie/~locka/mozilla/mozilla.htm (http://www.iol.ie/~locka/mozilla/mozilla.htm)


Un truco para q los botones de adelante y atras siempre tengan una direccion correcta es poner en OnStatusChange del WebBroser o MozillaBrowser esta función:


procedure TFormPrincipal.CambioEstado(Sender: TObject; Command: Integer; Enable: WordBool);
const
  CSC_NAVIGATEFORWARD = $00000001;
  CSC_NAVIGATEBACK = $00000002;

begin
  if (Command = CSC_NAVIGATEFORWARD) then begin
    ToolButtonAdelante.Enabled := Enable;
    Adelante2.Enabled := Enable;
    end
  else if (Command = CSC_NAVIGATEBACK) then begin
    ToolButtonAtras.Enabled := Enable;
    Atrs2.Enabled:= Enable;
    end;
end;



Procedimiento para poner el nombre de la pagina en la barra de estado, este procedimiento se ejecutara en Ontextchange del Web o Mozilla Browser

procedure TFormPrincipal.StatusBar(Server: TObject; const Text: WideString);
begin
  StatusBarPrincipal.Panels[1].Text := Text;
end;

Para mostrar el progreso de carga en una barra de progreso en OnProgressChange del navegador ponemos esto

procedure TFormPrincipal.Progreso(Sender: TObject; Progress, ProgressMax: Integer);
begin
  ProgressBarPrincipal.Position := Round((ProgressMax / Progress) * 100);
  ProgressBarPrincipal.Max := 100;
end;

Seguire luego

Título: Re: Webbrowser
Publicado por: Enko en Martes 2 de Agosto de 2005, 14:57

Muy Buena idea.
Estaré pendiente de los avances :)