TWebBrowser saber cuando se cargo la pagina

[ivan022481]

Si, gracias, de echo, desde ese ejemplo descubri que el lio viene de los frames, pero lamentablemente no me sirvio mucho, por ahora lo que estoy haciendo es una pausa en la ejecucion de un procedimento "CargarPagina" creado "a mano" , la pausa es de unos 3 segundos y asi cargo la pagina, si encuentro algo mejor lo posteo aca, gracias.

[roman]

¿Y qué pasó con la sugerencia que te pasé? ¿No valió ni un comentario?

[mazinger]

El siguiente código te permite saber cuando se termina de cargar totalment un página:

Código Delphi [-]
procedure TForm1.NavegadorDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin

  if (pDisp = CurDispatch) then
  begin
    CurDispatch := nil; {clear the global variable }
  end;

end;


procedure TForm1.NavegadorNavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if CurDispatch = nil then
    CurDispatch := pDisp;
end;

[ivan022481]

Roman: lo implemente, pero se disparo varias veces y eso era lo que quiero evitar, por ahora implemente esa "solucion" obvio que no es la adecuada, sigo buscando la manera correcta, gracias por el interes.

[mazinger]

Sigue buscando si quieres, pero la respuesta la tienes más arriba.
O bien no he entendido lo que necesitas...

[roman]

Y más arriba todavía ya que es el mismo código que viene en la ayuda de Delphi y que le indiqué desde un principio. Así que posiblemente la ayuda esté equivocada y no funcione la técnica. Veré si más tarde puedo probarlo.

// Saludos

[mazinger]

Si que funciona, de hecho la utilizo en mi programa.