Скачать: CL | DM;

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

---

← →
Плохиш ©   (2006-10-09 18:57) [5]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.973 c