Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.23;
Скачать: CL | DM;

Вниз

Кусок Webbrowser в Bitmap   Найти похожие ветки 

 
:-))   (2006-03-13 21:40) [0]

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


 
Ihor Osov'yak ©   (2006-03-13 22:43) [1]

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

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");

....


 
:-))   (2006-03-14 20:34) [2]

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


 
Ihor Osov'yak ©   (2006-03-14 23:54) [3]

webbrowser.document


 
:-))   (2006-03-16 20:35) [4]

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



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

Текущий архив: 2006.04.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
3-1141045807
toha
2006-02-27 16:10
2006.04.23
Помогите новичку. Работа с БД в Делфи


6-1129828797
Windows
2005-10-20 21:19
2006.04.23
Отправить сообщение на ICQ


3-1141049036
FH
2006-02-27 17:03
2006.04.23
Внутренняя ошибка программирования объектов (Access)


15-1143738356
Кручен-Верчен
2006-03-30 21:05
2006.04.23
На кого пойти учиться?


9-1128556694
X-Disa
2005-10-06 03:58
2006.04.23
32-битная графика в DelphiX