Форум: "Основная";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];

Вниз

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

---

← →
homm ©   (2007-03-17 22:22) [4]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.046 c