WriteBuffer искажает данные

[v258]

Имеется следующий код:

procedure TForm7.Button1Click(Sender: TObject);
var
  Mem: TMemoryStream;
begin
  Mem := TMemoryStream.Create;
  try
    Memo1.Lines.SaveToStream(mem);
    Mem.SaveToFile('d:\12');
    WriteBuf(Mem, Mem.Size);
  finally
    Mem.Free;
  end;
end;

procedure WriteBuf(var buf; bufSize: Integer);
var
  mem: TMemoryStream;
begin
  mem := TMemoryStream.Create;
  try
    mem.WriteBuffer(Buf, BufSize);
    mem.SaveToFile('d:\13');
  finally
    mem.Free;
  end;
end;

Проблема в том, что в файле 12 записаны корректные данные, а в 13 - какой-то мусор, хотя размеры файлов совпадают. Почему WriteBuffer пишет в mem какую-то фигню?

UPD: Delphi 2010

[Filka]

WriteBuf(Mem.Memory^, Mem.Size);

[v258]

Спасибо, добрый человек, так работает. Но есть еще обратный вопрос - мало данные сохранить, их еще нужно считать. Вот, собственно, код:

procedure TForm7.Button2Click(Sender: TObject);
var
  Mem: TMemoryStream;
begin
  Mem := TMemoryStream.Create;
  try
    ReadBuf(Mem);
    Mem.SaveToFile('d:\14');
  finally
    Mem.Free;
  end;
end;

procedure ReadBuf(var buf);
var
  mem: TMemoryStream;
begin
  mem := TMemoryStream.Create;
  try
    mem.LoadFromFile('d:\13');
    mem.Position := 0;
    mem.ReadBuffer(Buf, mem.Size);
  finally
    mem.Free;
  end;
end;

На строке Mem.SaveToFile('d:\14'); вылетает AV, файл записывается пустым. Если вызвать ReadBuf с указателем:

ReadBuf(Mem.Memory^);

то AV вылетает на строке mem.ReadBuffer(Buf, mem.Size); Сильно подозреваю, что проблема имеет место быть из-за того, что размер буфера не задан. Вопрос глупый, но как его задать?

[min@y™]

не размер не задан, а память не выделена.

[v258]

Это да, но заранее узнать размер не получится - в оригинале данные будут читаться не из файла

[min@y™]

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

Это да, но заранее узнать размер не получится - в оригинале данные будут читаться не из файла

А Stream.Size, блть, для чего?!

[v258]

Сообщение от min@y™

А Stream.Size, блть, для чего?!

Вопрос был не об этом. Я могу выделить нужное количество памяти для буфера перед вызовом ReadBuff, и, если я так сделаю так

Mem.SetSize(18); // грубо говоря
ReadBuf(Mem);

, то никаких AV не вываливается. Беда в том, что в реале в этот момент мне еще не известно, сколько конкретно нужно будет выделить. В самой ReadBuff я, естественно, могу получить размер mem.Size, но вот каким образом выделить эту память для Buf, честно говоря, я что-то не соображу