TWebBrowser и TStream

← →
*Стажер* (2006-10-09 18:40) [0]

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

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

Пытался попробовать, но программа вылетает с EAccessViolation

var
ST : TMemoryStream ;
begin
ST := TMemoryStream.Create;
ST.LoadFromFile("D:\TEMP\Рабочий стол\w.txt");
LoadFromStream(ST);
ST.Free;
Я если честно еще не работал с TStream, поэтому даже и не понятно где , что сделал неправильно.

← →
ProgRAMmer Dimonych © (2006-10-09 18:45) [1]

А если убрать const перед стримом? Мало ли чего там StreamAdapter с ним делает?

← →
*Стажер* (2006-10-09 18:51) [2]

> ProgRAMmer Dimonych ©

> const

???

← →
ProgRAMmer Dimonych © (2006-10-09 18:52) [3]

Function LoadFromStream(const AStream: TStream): HRESULT;
Эта процедура создаётся в этой программе?

← →
*Стажер* (2006-10-09 18:57) [4]

> Эта процедура создаётся в этой программе?

Да

Без const Delphi ругаться начинает
Declaration of "LoadFromStream" differs from previous declaration

Сначала надо сделать WebBrowser1.Navigate[2]("about:blank"), а уже потом работать со свойством Document.

← →
*Стажер* (2006-10-09 19:07) [6]

Спасибо большое, теперь все работает.

TWebBrowser и TStream Найти похожие ветки