Problema com o metodo PaintTo

Delphi

12/06/2006

Ola pesssoal,

eu jah li varios topicos por aih na net e aqui mesmo no forum ensinando como fazer para salvar um ´screenshot´ de um componente em uma imagem BMP/JPEG/...

o problema é que eu tentei aqui e não consegui de jeito nenhum salvar o conteudo de um TWebBrowser em uma figura!
segue o codigo:
procedure TForm1.Button6Click(Sender: TObject);
var
  bmp : TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.Height := WebBrowser1.Height;
    bmp.Width := WebBrowser1.Width;
    bmp.Canvas.Lock;
    WebBrowser1.PaintTo(bmp.Canvas.Handle,0,0);
    bmp.Canvas.Unlock;
    Image1.Picture.Graphic := bmp;
  finally
    bmp.Free;
  end;
end;

no caso, estou usando:
:arrow: WebBrowser: meu TWebBrowser;
:arrow: Image1 para mostrar o BMP salvo.

eu li no site da BDN ([url]http://qc.borland.com/wc/qcmain.aspx?d=13150[/url]) que na verdade este problema existe para outros componentes alem do TWebBrowser.
E outra, parece que este problema existe ha muito tempo:
[url]http://info.borland.com/devsupport/delphi/fixes/delphi4/vcl.html[/url]
Reference Number: 234 (Published: 7/22/98 )


Alguém ai sabe uma outra maneira de exportar o WebBrowser para uma imagem???

Abraços,
Makoto.


Makotoiguchi

Makotoiguchi

Curtidas 0

Respostas

Makotoiguchi

Makotoiguchi

12/06/2006

eita... ninguém sabe? :)


agradeço qualquer ajuda :):):):)

abraços,
Makoto.


GOSTEI 0
POSTAR