Форум: "Основная";
Текущий архив: 2005.08.21;
Скачать: [xml.tar.bz2];
ВнизЗагрузка 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 вся ветка
Форум: "Основная";
Текущий архив: 2005.08.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.064 c