TWebBrowser -> TBitmap

← →
serg_new (2007-03-15 18:55) [0]

Доброго времени суток!
Не подскажите каким образом можно преобразовать содержимое WebBrowser: TWebBrowser в картинку, в TBitmap?

← →
RASkov (2007-03-15 23:58) [1]

PaintTo?

← →
serg_new (2007-03-16 11:09) [2]

пробовал, вот код:

VBitmap := TBitmap.Create;
VBitmap.Width := WebBrowser1.ClientRect.Right - WebBrowser1.ClientRect.Left;
VBitmap.Height := WebBrowser1.ClientRect.Bottom - WebBrowser1.ClientRect.Top;
VBitmap.Canvas.Lock;
WebBrowser1.PaintTo(VBitmap.Canvas.Handle, 1, 1);
VBitmap.Canvas.Unlock;
VBitmap.SaveToFile("c:\temp\1.bmp");
VBitmap.Free;

в результате получаем пустой битмеп(

← →
RASkov (2007-03-17 21:52) [3]

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=49607

> VBitmap.Width := WebBrowser1.ClientRect.Right - WebBrowser1.ClientRect.Left;
> VBitmap.Height := WebBrowser1.ClientRect.Bottom - WebBrowser1.ClientRect.Top;

WebBrowser1.ClientRect.Left и WebBrowser1.ClientRect.Top всегда равны нулю, плюс 4 вызова GetClientRect.
Лучше так:
with WebBrowser1.ClientRect do begin VBitmap.Width := Right; VBitmap.Height := Bottom; end;

> WebBrowser1.PaintTo(VBitmap.Canvas.Handle, 1, 1);

Почему (1,1)??? (0,0).

TWebBrowser -> TBitmap Найти похожие ветки