TWebBrowser.CaptureBitmap No funciona.

[jhonalone]

Hola a todos.
Otro problema que seguro nadie más que yo ha tenido. La función del título no me funciona.

Seguro que es por que no sé hacerlo.

Bueno. Os cuento:

Código Delphi [-]
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;

Con este código, Imagen.Bitmap no es nill y ambos mensajes retornan CERO.


Otra prueba:

Código Delphi [-]
 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;

Qué curioso, los dos mensajes retornan CERO.

Tres cosas me quedan claras después de estas pruebas:

1.- Imagen.BitMap, nunca es Nill, no importa si le asignamos el mapa de bits o no.

2.- Que seguramente debe haber algún truco, que yo no conozco, para que esto funcione.

3.- Si nadie se ha quejado de ello. No en la búsqueda de Google, ni en en este foro, ni en el foro de ayuda de Embarcadero es que el INÚTIL SOY YO. ( O nadie lo ha usado)

Por favor si alguien lo ha usado con éxito, que tenga la caridad de decirme cómo se hace.

Gracias de antemano. Y perdón por haberme metido en otro marrón más.

Saludos.