Доброго времени суток! Задача: получить уменьшенное изображение html-страницы (thumbnail - в виде картинки). Загружаю в TWebBrowser страницу, а дальше..? Можно ли каким-нибудь образом заставить Webbrowser сохранить содержимое окна в картинку для дальнейшего ее уменьшения и сохранения? Спасибо за внимание.
Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице. Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.
24-01-2007 13:22 | Сообщение от автора вопроса
max2000, огромное спасибо, вторая ссылка - то, что доктор прописал!
Один из вариантов пришедших сразу в голову (конечно через дебри, но работает :-)):
Кидаем на форму TWebBrowser, TImage, и две кнопки.
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('D:\DEVELOPED\Delphi2006\install.htm');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Bitmap:TBitmap;
begin
Image1.Stretch:=true;//Чтобы изображение помещялось целиком в TImage
Image1.Proportional:=true;//Чтобы пропорционально растягивалось
Bitmap:=TBitmap.Create;
try
Bitmap.Width:=WebBrowser1.Width;
Bitmap.Height:=WebBrowser1.Height;
Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,Canvas,WebBrowser1.ClientRect);
Image1.Picture.Assign(Bitmap);
finally
Bitmap.Free;
end;
end;
Хм... поэкспериментировать не могу, но, если страничка в окно броузера загружена, то я бы начал с того, что попытлася бы скопировать изображение с DC TWebBrowser в DC специально созданного Bitmap.
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter. Функция может не работать в некоторых версиях броузеров.
