Как прочитать строку из MemoryStream?

← →
Voldemar (2002-09-27 04:19) [0]

Доброе время суток!
Объясните мне, плз, как прочитать строку из 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;

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

← →
kerk (2002-09-27 05:22) [1]

примерно так:
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;

← →
Voldemar (2002-09-27 06:13) [2]

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

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

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

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

← →
Voldemar (2002-09-27 06:48) [4]

>MBo © (27.09.02 06:28)

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

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

← →
MBo (2002-09-27 07:00) [5]

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

Как прочитать строку из MemoryStream? Найти похожие ветки