TWebBrowser.CaptureBitmap No funciona.

[jhonalone]

Hola, de nuevo.

No se me ocurre, qué permiso o permisos tengo que activar.

Probando esto:

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

el resultado es que no emite ningún mensaje. Lo que está claro es que BitMap es nil. O sea, que no lo carga.

Saludos.