string и TMemoryStream

[xrob]

строка это что? последовательность символов!
а TMemoryStream это что? тоже последовательность символов! (или нет?)
как строку запихнуть в TMemoryStream?

и еще один вопрос по поводу TMemoryStream.
что такое buffer?
почти все функции работы с TMemoryStream просят это,
но нигде не написано что это такое =(

только не баньте плиз, если вдруг такая тема уже есть.
я не нашел.

[SERG1980]

Я например для записи строки в мемористрим использую стрингстрим
запись в файл строки

procedure TForm1.Button1Click(Sender: TObject);
var MS:TMemoryStream;
    SS:TStringStream;
    s:string;
begin
 s:='qwert';
 SS:=TStringStream.Create('');
 SS.WriteString(s);
 SS.Seek(0,0);
 MS:=TMemoryStream.Create;
 MS.CopyFrom(SS,SS.Size);
 MS.SaveToFile('d:\1.txt');
 FreeAndNil(MS);
 FreeAndNil(SS);
end;

чтение из файла строки

procedure TForm1.Button3Click(Sender: TObject);
var MS:TMemoryStream;
    SS:TStringStream;
    s:string;
begin
 MS:=TMemoryStream.Create;
 MS.LoadFromFile('d:\1.txt');
 MS.Seek(0,0);
 SS:=TStringStream.Create('');
 SS.CopyFrom(MS,MS.Size);
 s:=SS.DataString;
 showmessage(s);
 FreeAndNil(MS);
 FreeAndNil(SS);
end;

[veniside]

> тоже последовательность символов! (или нет?)

скорее последовательность байт

> что такое buffer?

любые данные

> но нигде не написано что это такое =(

даже если Ф1 нажать? не верю )

краткий курс по записи в поток:

var
  ms: TMemoryStream;
  s: string;
  i: Integer;
  p: Pointer;
begin
  ms := TMemoryStream.Create();
  try
    //
    s := 'Put me into memory stream, please.';
    ms.Write(s[1], length(s) * sizeof(s[1]));
    //
    i := 1234;
    ms.Write(i, sizeof(i));
    //
    GetMem(p, 1024);
    FillChar(p^, 1024, #0);
    ms.Write(p^, 1024);
    //
    i := ms.size;
  finally
    FreeMem(p);
    FreeAndNil(ms);
  end;
end;

Чтение аналогично, только в другую сторону.

[xrob]

сделал как написал SERG1980 =)
все работает, всем спасибо!

и я не очень понял, что мы делаем вот этой строчкой:
ms.Write(s[1], length(s) * sizeof(s[1])); ?

мы передаем в функцию первый символ строки и длину строки * размер первого символа (?)
это вы для наглядности написали?
насколько я понял length(s) * sizeof(s[1]) это сколько памяти нужно выделить для строки?
sizeof(s[1]) - это что? здесь мы определяем размер одного символа??? 1 байт. всегда. (или я не прав?)

и если можно, veniside, прокомментируйте, пожалуйста ваш код?
а то что это такое
ms.Write(s[1], length(s) * sizeof(s[1]));
я еще понял,
но все последующее, не понимаю зачем нужно...

[Serge_Bliznykov]

но все последующее, не понимаю зачем нужно...

Это примеры, как можно записать в поток различные типы данных!

Чтение аналогично, только в другую сторону.

ну, если в потоке ничего больше, кроме записанной строки нет - тогда действительно, прочитать строчку из потока проблем не вызовет (только не забыть сделать предварительно setLength(s, ms.Size);

А вот если в потоке несколько строк (или несколько различных данных/структур), тогда с определением длины строки возникнут огромные сложности.

я, если надо в поток(файл) сохранить строку предварительно пишу в поток(файл) длину.

ну, примерно так:

    s := 'Put me into memory stream, please.';
    ms.Write(length(s), sizeof(integer);
    ms.Write(s[1], length(s) * sizeof(s[1]));

[phomm]

Думаю, важно упомянуть, что тип string по умолчанию в дельфи это не shortstring а ansistring , указатель на строку, и чтобы записать её данные, а не сам указатель, надо её "разыменовать", а делается это посредством обращения к первому символу, ну а количество байт для записи из строки определяем функцией length .

Насчет sizeof(s[1]) - это для гибкости кода (для последующей поддержки проектов) - потому как с дельфи 2009 (вроде) стандартный тип string уже является unicode widestring и размер одного символа - 2 байта.

При чтении , как написал Serge, удобно считывать размер прямо из файла (тогда надо его туда записать), хотя можете исхитриться использовать маркер конца строки - свой или #0 (тут правда придётся посимвольно считывать)

[Serge_Bliznykov]

phomm, согласен со всем сказанным.

но хочу сделать одно маленькое уточнение (для изучающих работу с сохранением строки)

Сообщение от phomm

хотя можете исхитриться использовать маркер конца строки - свой или #0 (тут правда придётся посимвольно считывать)

Только надо отметить, что сам по себе этот самый маркер в потоке не появится!
Т.е. его туда надо записать (хоть свой, хоть #0)...

[xrob]

а у меня такой вопрос.
если какой-то файл создан с использованием всех 256 символов, в том числе и #0,
то такой файл категорически не сочетается с PChar?

и еще, string это указатель???
т.е. когда я передаю в функцию bugoga(str:string):integer; то я передаю указатель?
а что тогда такое str[5]; ? указатель на пятый символ строки?
а str[3]:='d'; получается указателю присваиваю значение типа char?

и еще вопрос, ответить можно в формате boolean:
PChar - это указатель на первый символ строки, которая оканчивается #0 ?

т.е. чтобы получить PChar нужно
str:=str+#0;
PChar:=@str[1];
так?

[phomm]

да простит меня GunSmoker за сие...
ответ на поставленные вопросы - http://www.transl-gunsmoker.ru/2009/09/pchars.html

[xrob]

Текст строковых констант хранится где-то в программе (и имеет терминатор #0)

я теперь понял, что это был за железный робот из будущего! =)
терминатор! он должен был что-то завершить!
за сцылку спасибо.