TWebBrowser.CaptureBitmap No funciona.

[jhonalone]

Muchas gracias. Dec.

Con TBitMap ya lo había probado. Con el mismo resultado.

Voy a ver cómo resuelvo lo de la carga de la página.

Inmediatamente antes tengo este código. Después se muestra la página cuando la solicito.

Código Delphi [-]
 WebBrowser1.Navigate('file://'+TPath.Combine(TPath.GetDocumentsPath, 'Pagina.htm'));
Sleep(5000);

Puede que no le haya dado tiempo de cargarla... Lo había pensado y había puesto el sleep por ése motivo.

Ahora acabo de probar lo siguiente:

Código Delphi [-]
procedure TForm1.WebBrowser1DidFinishLoad(ASender: TObject);
begin
  Imagen := TImage.Create(Self);
 Imagen.Bitmap := WebBrowser1.CaptureBitmap;
 if Imagen.BitMap <> nil
 then  begin
         ShowMessage(WebBrowser1.Canvas.Height.ToString);
         ShowMessage(Imagen.Bitmap.Height.ToString);
       end;
end;

Con idéntico resultado.

Gracias por tus observaciones y por confirmarme que en Windows funciona.

Voy a intentarlo con los permisos, que no se me había ocurrido.

Saludos cordiales.