Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TWebBrowser и TStream [D7, XP]

*Стажер* © (2006-10-09 18:40:00)
Вот обнаружил:
Как загрузить потоковые(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, поэтому даже и не понятно где , что сделал неправильно.

*Стажер* (2006-10-09 19:07:00) [1]
Спасибо большое, теперь все работает.

*Стажер* (2006-10-09 18:57:00) [2]

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

Да

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

Плохиш (2006-10-09 18:57:00) [3]
Сначала надо сделать WebBrowser1.Navigate [2]('about:blank'), а уже потом работать со свойством Document.

ProgRAMmer Dimonych (2006-10-09 18:52:00) [4]
Function LoadFromStream(const AStream: TStream): HRESULT;
Эта процедура создаётся в этой программе?

*Стажер* (2006-10-09 18:51:00) [5]

> ProgRAMmer Dimonych ©

> const

???

ProgRAMmer Dimonych (2006-10-09 18:45:00) [6]
А если убрать const перед стримом? Мало ли чего там StreamAdapter с ним делает?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »