| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TWebBrowser -> TBitmap [D7, Win2k, WinXP]
serg_new © (2007-03-15 18:55:00)Доброго времени суток!
Не подскажите каким образом можно преобразовать содержимое WebBrowser: TWebBrowser в картинку, в TBitmap?
homm (2007-03-17 22:22:00) [1]> 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).
RASkov (2007-03-17 21:52:00) [2]http://www.delphikingdom.com/asp/answer.asp?IDAnswer=49607
serg_new (2007-03-16 11:09:00) [3]пробовал, вот код:
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-15 23:58:00) [4]PaintTo?
| |
