Синапс Tstream

[Зод]

Всем здравствуйте.
У меня в делфи есть примерно такой код:

HTTP.Document.SaveToStream(p5);

Далее для чего мне и нужен стрим:

Memo1.Lines.LoadFromStream(p5);

Могу ошибаться потому что пишу код на память.
Обьявление переменной идет так:

...
var
p5: Tstream;
begin
...

Не выполняется такой метод кода. Но очень хочется загрузить документ из сети для парсинга напрямую в мемо так как использовать сохранение вначале в файл а потом его загрузка слишком не удобный процесс.
Я думаю что не правильно обьявляю переменную p5 но в чем ошибка? Вроде правильно...

[Аватар]

var p5: TMemoryStream;
...
p5:=TMemoryStream.Create;
... тут с ним работаем
p5.Free;

[Зод]

  HTTP.Document.SaveToStream(p5);
  Memo1.Lines.LoadFromStream(p5);

Вот так делаю + то что написано выше. Мемо все равно пустое в итоге хотя при сохранении через файл все работает..

[veniside]

p5.Seek(0, soFromBeginning);

[Аватар]

Попробуйте еще перед записью в Memo Stream.Position в 0 установить. Бывают такие грабли

[Mifody]

эм, а зачем извращения с TStream? Не проще сразу?:

Memo1.Lines.LoadFromStream(HTTP.Document)

Просто у синапса Document:TStream

Насчет предварительного перемещения - все верно, можно проверить через свойство Position. Только все равно не понятно зачем использовать промежуточный TStream

хотя при сохранении через файл все работает

Естественно. Ведь перед загрузкой закрываете поток? В таком случае указатель при открытии автоматом ставится на начало.

[Зод]

Сделал сразу загрузку в Мемо, заработало. Но вот ради собственного интереса и саморазвития почему так? Что я делал с промежуточным не так?

[Mifody]

Так Вам уже писали: p5.Seek(0, soFromBeginning) надо было сделать предварительно.

Просто принцип такой: когда пишите в поток, указатель перемещается. Так что получается, после Вашей записи, указатель стоит в конце. Чтение, соответственно, происходит с позиции указателя, т.е. с конца потока и далее .

[Зод]

Спасибо. Запомню)