| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как прочитать строку из MemoryStream? [D6, WinXP]

Voldemar ©   (2002-09-27 04:19:00) 

Доброе время суток!
Объясните мне, плз, как прочитать строку из MemoryStream...

имеется примерно такой код:
var MST: TMemoryStream;
str: string;
begin
...
str:="бла-бла";
MST.Position:=0;
MST.Write(str, Length(srt);
end;
...
begin
MST.Position:=0;
MST.Read(str,MST.Size);
end;


В строке получается абсолютная ерунда, которую я туда, что характерно, не назначал:)). Как же выволочь полезные данные?

---

MBo   (2002-09-27 07:00:00) [1]

строка ansistring устроена так - по адресу -4 хранится ее длина.
Если не установить длину, и записать какие-то данные, то строка о них ничего не знает. Более того, при этом можно выйти за пределы блока памяти, отведенного программе - тогда будет AV

---

Voldemar   (2002-09-27 06:48:00) [2]

>MBo © (27.09.02 06:28)

> Потому что строка пустая, при чтении в нее можешь получить AV

Так в том-то и дело, что AV нет. Просто в строке какая-то лабуда... Но в принципе вопрос решен, это я уже так, по инерции. Не люблю непонятного :)).

---

MBo   (2002-09-27 06:28:00) [3]

Чуть другой вариант
SetLength(S2, MemStream.Size);
MemStream.Read(S2[1], MemStream.Size);


>Только вот непонятно, почему без SetString не работает...
Потому что строка пустая, при чтении в нее можешь получить AV

---

Voldemar   (2002-09-27 06:13:00) [4]

Благодарю! Все работает.
Только вот непонятно, почему без SetString не работает...

---

kerk   (2002-09-27 05:22:00) [5]

примерно так:
var
S1, S2: String;
MemStream: TMemoryStream;
begin
MemStream := TMemoryStream.Create;
try
S1 := "Caramba !!!"; //Имеем стринг S1
MemStream.Position := 0;
MemStream.WriteBuffer(Pointer(S1)^, Length(S1)); //Пишем S1 в Stream
MemStream.Position := 0;
SetString(S2, nil, MemStream.Size);
MemStream.Read(Pointer(S2)^, MemStream.Size); ////Читаем из Stream и пишем в S2
ShowMessage(S2);
finally
MemStream.Free;
end;
end;

---

Наверх