VPF::Как загрузить mht из БД в Браузер

Firebird

Дата 30.11.2007, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 30.3.2007

Репутация: нет
Всего: нет

  Необходимо загрузить данные из БД в браузер. В БД данные хранятся в формате mht.

  Если загружать данные из БД и сохранить их в файле c:/temp.mht, а затем открыть этот файл в браузере, то работает:

Код


    procedure GetData;
    var sl: TStringList;
    begin
       sl:= TStringList.Create;
       sl.Assign(Table.FieldByName('data'));
       sl.SaveToFile('c:/temp.mht');
       WebBrowser.Navigate('c:/temp.mht');
       sl.Free;
    end;

Хотел загрузить данные напрямую в браузер, но не получается, данные выводятся в текстовом виде. Использовал код:

Код


  uses ActiveX;
  procedure GetData;
  var sl: TStringList;
        ms: TMemoryStream;
  begin
    sl:= TStringList.Create;
    sl.Assign(Table.FieldByName('data'));

    ms:= TMemoryStream.Create;
    sl.SaveToStream(ms);
    ms.Seek(0, 0);

    WebBrowser.Navigate('about:blank');
    (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));    
    sl.Free;
    ms.Free;
  end;

Как выполнить загрузку напрямую из БД, избегая создание временного файла, и его открытия в браузере?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »