Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];

Вниз

Кусок 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.011 c
1-1142768719
Jean Claude
2006-03-19 14:45
2006.04.23
Сборка линкером от M$


2-1144297950
Alex_C
2006-04-06 08:32
2006.04.23
Как запустить программу и подождать пока откроется основное окно?


1-1142560956
Nostradamus
2006-03-17 05:02
2006.04.23
Многоязычные русурсы


15-1143653618
Kolan
2006-03-29 21:33
2006.04.23
Совместимось bpl пакетов Delphi 2006 с Delphi 7.


15-1141567010
psa247
2006-03-05 16:56
2006.04.23
Парсинг пути к файлу





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский