| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Кусок Webbrowser в Bitmap

:-)) ©   (2006-03-13 21:40:00) 

У меня в WEBBROWSER1 загружена страница а нужно получить битмап содержащий определенную прямоугольную область Webbrowser1 (например прямоугольник 400 420 500 520), но у webbrowser нет св-ва canvas. Помогите, пожалуйста, решить эту проблему. Спасибо

---

:-))   (2006-03-16 20:35:00) [1]

Лучше задам такой вопрос. Как сохранить определенный рисунок с сайта, загруженного в Webbrowser

---

Ihor Osov'yak   (2006-03-14 23:54:00) [2]

webbrowser.document

---

:-))   (2006-03-14 20:34:00) [3]

У меня впечатление, что такой вариант я уже видел и мне он не понравился, но все-равно спасибо, еще раз посмотрю.
И вопрос, что указывать при вызове в iDoc?

---

Ihor Osov'yak   (2006-03-13 22:43:00) [4]

что то примерно так -

procedure TFormCopyPicture.DoProcess(iDoc: IDispatch;
 top, left,  height, width: integer;
 YMax,XMax:integer);

var
 ViewObject: IViewObject;
 sourceDrawRect,srcRect,destRect: TRect;

begin

if not assigned(iDoc) then Exit;

iDoc.QueryInterface(IViewObject, ViewObject);
if not assigned(ViewObject) then exit;

ImageMain.Align := alNone;

ImageMain.Width := xMax;
ImageMain.Height := yMax;
imgTask.Width:= width;
imgTask.Height:=height;
sourceDrawRect := Rect(0, 0, ImageMain.Width, ImageMain.Height);
ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Self.Handle,
         imageMain.Canvas.Handle, @sourceDrawRect, nil, nil, 0);
ViewObject := nil;

srcRect:=Rect(left,top,left+width,top+height);
destRect:=Rect(0,0,width,height);
imgTask.Canvas.CopyRect(destRect,ImageMain.Canvas,srcRect);

//inc(ii);
//imgTask.Picture.SaveToFile('c:\y'+IntToStr(ii)+'.bmp');

....

---

Наверх