Как HTML перегнать в BMP или другой графический формат?

← →
w342 (2002-08-20 12:57) [0]

Дело в том что программа генерирует документы в HTML, но есть необходимость в получение этих же документов в графическом формате. Пробовал открывать в Explorer-e и копировать с DC на другои , но копируется только видемая на экране часть документа. Подскажити идею!

← →
8down (2002-08-20 13:36) [1]

Открыть в Word
Переслать в PowerPoint
Сохранить как jpg

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;

Как HTML перегнать в BMP или другой графический формат? Найти похожие ветки