задать html текст в webbrowser

[пауэрлифтинг]

как установить свой хтмл текст в webbrowser для просмотра

[Arigato]

Один из вариантов - открыть его из файла.

[пауэрлифтинг]

нашел в интернете ответ но он у меня не работает

Вопрос: Как загрузить строковые данные в WebBrowser не прибегая к открытию файла?

Ответ: Загрузите строку массив Variant, а затем запишите в документ (Document):
...

var
v: Variant;
HTMLDocument: IHTMLDocument2;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
v := VarArrayCreate([0, 0], varVariant);
v[0] := HTMLString; // Это Ваша HTML строка
HTMLDocument.Write(PSafeArray(TVarD ata(v).VArray));
HTMLDocument.Close;

...
end;

...

[пауэрлифтинг]

нашел рабочею процедуру:

procedure TextToWebBrowser(Text: string; var WB: TWebBrowser);
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] := Text;
  Document.Write(PSafeArray(TVarData(v).VArray));
  Document.Close;
end;

[Vahmur]

Сообщение от пауэрлифтинг

нашел рабочею процедуру:

procedure TextToWebBrowser(Text: string; var WB: TWebBrowser);
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] := Text;
  Document.Write(PSafeArray(TVarData(v).VArray));
  Document.Close;
end;

У меня так не компилируется, подчёркивает строку

Document := WB.Document as IHtmlDocument2;

Но если её заменить на

Document := WebBrowser1.Document as IHTMLDocument2;

, то компиляция проходит успешно, правда всё-равно програмка при попытке запуска пишет ошибку в строке

Document.Write(PSafeArray(TVarData(v).VArray));

[apromix]

WebBrowser1.Navigate('about:blank') ; лучше вынеси в FormCreate

А остальное сократи до:

  Document := WebBrowser1.Document as IHtmlDocument2;
  V := VarArrayCreate([0, 0], varVariant);
  V[0] := 'Текст';
  Document.Write(PSafeArray(TVarData(v).VArray));
  Document.Close;

И не забудь подключить требуемые модули в uses, как ShellAPI, Mshtml, ActiveX, OleCtrls, SHDocVw и др.