| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Изображение в WebBrowser [D7, WinXP]
Ertong © (2004-12-26 20:32:00)В WebBrowser загружено страницу. Нужно извлечь какой-нибудь рисунок (по номеру или по имени), например, в TBitmap.
Пробовал использовать IHTMLImgElement, но там и намека нет на само изображение.
Может кто-то сталкивался с этой проблемой?
Seeker (2004-12-28 12:26:00) [1]
> Ertong ©
А ты придумай по другому.Как придумаешь - напиши.
Ertong (2004-12-27 17:56:00) [2]Спасибо за помощь.
Но метод, все-таки, не очень "провельный", но мне подходит.
Seeker (2004-12-27 11:25:00) [3]Делай так, и учись юзать поиск...
uses ClipBrd;
...
procedure TForm1.LoadImage(N:integer);
var body, imgs, controlRange: olevariant;
begin
body := WebBrowser1.OleObject.document.body;
imgs := WebBrowser1.OleObject.document.images.item(N);//нужный img
controlRange := body.createControlRange;
controlRange.add(imgs);// вместо imgs можно сразу вставить WebBrowser1.OleObject.document.images.item(N)
controlRange.execCommand('Copy', False, EmptyParam);//копируем
if ClipBoard.HasFormat(CF_BITMAP) then begin
Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);//вставляем
Clipboard.Clear;//по желанию чистим буфер...
end;
end;
...
initialization
OleInitialize(nil);
finalization
OleUninitialize;
end.
| |
