| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Загрузка TStrings в TWebBrowser
DesWind © (2005-08-02 15:47:00)Может подскажите что я не так делаю? Текст в 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;
Суслик (2005-08-02 18:16:00) [1]TMemoryStream и TStringStream имеют разные методы write/read (формат в смысле разный). Видимо, в этом дело.
DesWind (2005-08-02 16:02:00) [2]Проблема решена заменой TMemoryStream на TStringStream. Пока не понял в чем разница.
| |
