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);
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.