Как напечатать HTML?

← →
ocean (2009-10-06 17:27) [0]

У меня в строке текст странички HTML. Как проще всего напечатать ее на текущий принтер?

← →
TIF © (2009-10-06 18:16) [1]

> текст странички HTML

Так что же всё-таки надо вывести на печать - HTML-код или страницу, которая после обработки этого кода должна получиться? :)

Если второе - я бы распечатал с использованием TWebBrowser

← →
ocean (2009-10-06 19:15) [2]

> я бы распечатал с использованием TWebBrowser
Это значит сохранить строку в файл, дать
WebBrowser1.Navigate(Filename);

и как печатать?

← →
palva © (2009-10-06 19:53) [3]

procedure TForm1.Button1Click(Sender: TObject); var HTMLDoc: IHTMLDocument2; HTMLWnd: IHTMLWindow2; HTMLWindow3: IHTMLWindow3; begin HTMLDoc := WebBrowser1.Document as IHTMLDocument2; HTMLWnd := HTMLDoc.parentWindow; HTMLWindow3 := HTMLWnd as IHTMLWindow3; HTMLWindow3.print; end;

← →
palva © (2009-10-06 19:53) [4]

uses MSHTML;

← →
TIF © (2009-10-06 22:27) [5]

> Это значит сохранить строку в файл

Это лишнее, можно передать код в веббраузер через OLE

> Это лишнее, можно передать код в веббраузер через OLE

Да и прямо строку можно Navigate, добавив перед ней указание протокола about:

← →
ocean (2009-10-07 17:05) [7]

Удивительно, это работает, но с 2 оговорками.
Я читал статью про WebBrowser и about, но у меня этот фокус не прошел:
procedure ShowHTMLString(HTMLText : String);
vText : OleVariant;
begin
vText := "about:" + HTMLText;
Form1.WebBrowser1.Navigate2(vText);
end;
срабатывает только на простых строках типа приведенной в статье, у меня показывает "Невозможно открыть страницу". Понятно, что надо анализировать строку, что-то убирать и т.д., "как раз на месяц плотной работы". И еще, в варианте > palva © (06.10.09 19:53) [3]
выскакивает диалог выбора принтера, хотелось автоматически. Но направление ясно, спасибо!

Как напечатать HTML? Найти похожие ветки