| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как напечатать HTML? [D7, WinXP]
ocean © (2009-10-06 17:27:00)У меня в строке текст странички HTML. Как проще всего напечатать ее на текущий принтер?
ocean (2009-10-07 17:05:00) [1]Удивительно, это работает, но с 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]
выскакивает диалог выбора принтера, хотелось автоматически. Но направление ясно, спасибо!
palva (2009-10-06 23:01:00) [2]
> Это лишнее, можно передать код в веббраузер через OLE
Да и прямо строку можно Navigate, добавив перед ней указание протокола about:
TIF (2009-10-06 22:27:00) [3]> Это значит сохранить строку в файл
Это лишнее, можно передать код в веббраузер через OLE
palva (2009-10-06 19:53:00) [4]
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:00) [5]uses MSHTML;
ocean (2009-10-06 19:15:00) [6]> я бы распечатал с использованием TWebBrowser
Это значит сохранить строку в файл, дать
WebBrowser1.Navigate(Filename);
и как печатать?
TIF (2009-10-06 18:16:00) [7]> текст странички HTML
Так что же всё-таки надо вывести на печать - HTML-код или страницу, которая после обработки этого кода должна получиться? :)
Если второе - я бы распечатал с использованием TWebBrowser
| |
