Главная страница
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.035 c
1-1142584661
alles
2006-03-17 11:37
2006.04.23
Вопрос по array of ...


8-1132137370
artyonkil
2005-11-16 13:36
2006.04.23
Форматирование и нумерация строк


1-1142839820
tigra
2006-03-20 10:30
2006.04.23
Работа с принтером


15-1142922769
Ученик чародея
2006-03-21 09:32
2006.04.23
213 вещей, которые запрещено делать в ВС США.


15-1143758823
Andy BitOff
2006-03-31 02:47
2006.04.23
Интересная статья о птичьем гриппе.