Главная страница
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.04 c
2-1144663168
Alex_C
2006-04-10 13:59
2006.04.23
Каким сообщением восстановить размер окна после минимизации?


6-1136889525
antoxa2005
2006-01-10 13:38
2006.04.23
Подскажите. 2-а компьютера в разных городах, у обоих выделенная


15-1144093886
Petr V. Abramov
2006-04-03 23:51
2006.04.23
Oracle 10 Release 2


15-1144042656
Ega23
2006-04-03 09:37
2006.04.23
С Днём рождения! 3 апреля


8-1128977517
Alko
2005-10-11 00:51
2006.04.23
Обратный отсчте времени