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.