F�rum Problema com o metodo PaintTo #323243

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

Curtir t�pico

+ 0

Responder

Posts

14/06/2006

Makotoiguchi

eita... ningu�m sabe? :)

agrade�o qualquer ajuda :):):):)

abra�os,
Makoto.

Responder

Gostei + 0