| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как ;HTML ;перегнать в BMP или другой графический формат?
w342 © (2002-08-20 12:57:00)Дело в том что программа генерирует документы в HTML, но есть необходимость в получение этих же документов в графическом формате. Пробовал открывать в Explorer-e и копировать с DC на другои , но копируется только видемая на экране часть документа. Подскажити идею!
int64 (2002-08-20 14:00:00) [1]uses ..., ActiveX;
...
procedure TForm1.Button1Click(Sender: TObject);
var WB1: TWebBrowser;
r: TRect;
begin
r:=Rect(10,10,200,400);
WB1 := TWebBrowser.Create(nil);//можно и через CreateOleObject
TControl(WB1).Parent := Panel1; //где нет скроллбаров
WB1.Left:= 4000; WB1.Top:= 4000; // чтобы спрятать
WB1.Height:= 500; // поэкспирементируй с размерами
WB1.Navigate("c:\temp\1.htm");
while WB1.ReadyState<>READYSTATE_COMPLETE do
Forms.Application.ProcessMessages;
{WB1.OleObject.Document.body.style.borderStyle:="none";
WB1.OleObject.Document.body.scroll:="no";}
(WB1.Document as IViewObject).Draw(DVASPECT_CONTENT,
1, nil, nil, Self.Handle,
Self.Canvas.Handle, @r, nil, nil, 0);
WB1.Free;
end;
8down (2002-08-20 13:36:00) [2]Открыть в Word
Переслать в PowerPoint
Сохранить как jpg
| |
