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

Загрузка TStrings в TWebBrowser   Найти похожие ветки 

← →
DesWind ©   (2005-08-02 15:47) [0]

Может подскажите что я не так делаю? Текст в WebBrowser не отображаеться.



procedure LoadText(Text: TStrings);
var
PersistStream: IPersistStreamInit;
TextStream: TStream;
Stream: IStream;

begin
web.Navigate("about:blank");
PersistStream:=web.Document as IPersistStreamInit;
TextStream:=TMemoryStream.Create;
Text.SaveToStream(TextStream);
try
 Stream:=TStreamAdapter.Create(TextStream) as IStream;
 PersistStream.InitNew;
 PersistStream.Load(Stream);
finally
 TextStream.Free;
end;
end;


---

← →
DesWind ©   (2005-08-02 16:02) [1]

Проблема решена заменой TMemoryStream на TStringStream. Пока не понял в чем разница.

---

← →
Суслик ©   (2005-08-02 18:16) [2]

TMemoryStream и TStringStream имеют разные методы write/read (формат в смысле разный). Видимо, в этом дело.

---

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

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



Память: 0.45 MB
Время: 0.054 c