Форматирование текста - Общие вопросы Delphi - Страница 2

Stilet · 23.09.2009, 08:04

А че у меня получилось? Что я не так сделал?

Код:

unit Unit1;

interface

uses    ActiveX,  MSHTML,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WB: TWebBrowser;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Document: IHTMLDocument2;
  V: OleVariant;
begin
  // Документ необходимо создать только один раз за текущую сессию работы
  if WB.Document = nil then
    WB.Navigate('about:blank');
  // Ожидаем создания документа и позволяем обрабатывать все сообщения
  while WB.Document = nil do
    Application.ProcessMessages;
  Document := WB.Document as IHtmlDocument2;
  // Вставляем текст (до 2Гб)
  {следующие строчки внесены недавно - старый вариант функции не работал под XP}
  V := VarArrayCreate([0, 0], varVariant);
  V[0] := '<html><head><title></title></head><body> <font size="6" color="red">TEST</font></body></html>';
  Document.Write(PSafeArray(TVarData(v).VArray));
  Document.Close;
end;

end.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Форматирование текста	Tomoyo	HTML и CSS	2	18.07.2013 19:33
Форматирование текста.	Altera	Общие вопросы Delphi	3	11.05.2009 23:29
форматирование текста в ворде	vavilas	Microsoft Office Word	22	26.02.2009 17:10
Форматирование текста	MAcK	Общие вопросы Delphi	3	03.04.2008 11:38
Форматирование текста	rusif	Помощь студентам	1	17.12.2007 22:28