TWebBrowser

[Tema]

Такая проблема:
необходимо загрузить в WebBrowser данные из памяти, включая картинки. Или загрузить mht. Когда я пробовал mht загрузить, то у меня или при смене кодировки не мог найти страницу, или появлялся только текст файла.
Help, plz.

[ixania]

procedure TextToWebBrowser(Text: string; var WB: TWebBrowser_V1);
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;

[ixania]

Как загрузить потоковые(stream) данные в WebBrowser не прибегая к открытию файла  

function TForm1.LoadFromStream(const AStream: TStream): HRESULT;
begin
  AStream.seek(0, 0);
  Result := (WebBrowser1.Document as
          IPersistStreamInit).Load(TStreamAdapter.Create(AStream));
end;

[Tema]

Такого я навидался. Попробуй через свой код загрузить mht - получишь не страницу, а текст, который собирался загрузить.