Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > бока с tmemorystream

Автор: sono 21.5.2008, 23:06

Что-то не пойму никак или действительно бока или меня глючит?
Значит есть два tmemorystream и динамический масив, надо записать масив в первый стрим из этого стрима в другой а потом из друго-го выгрузить и посмотреть что мы имеем. Нет не думайте со мной всё впорядке -- просто хочу таким макаром хранить масивы в БД (tblobstream).

Значит делаю всё так:

Код


procedure TForm1.Button1Click(Sender: TObject);
 var
 i:integer;
begin
  SetLength(a,spinedit2.Value+1);
  s:=TMemoryStream.Create;
  t:=TMemoryStream.Create;
  for I := spinedit1.Value to spinedit2.Value do a[i]:=spinedit3.Value;
  s.Write(a[0],sizeof(a));
  t:=s;           
  SetLength(b,t.size);
  t.Position:=0;
  t.Read(b[0],t.Size);
 
  edit1.Clear;
  for I := 0 to 5 do edit1.Text:=Edit1.Text+ inttostr(b[i])+' ';
end;

..... выводится только первый элемент массива(остальные нули)?
P.S.: но со статическим масивом при точ таком раскладе всё нормально?

Автор: Snowy 21.5.2008, 23:16

1. Что такое "а"?
2. s.Write(a[0], Length(a) * SizeOf(a[0]));
3. t:=s; - это что?

Автор: sono 21.5.2008, 23:46

1) a - исходный масив который я загонял в стрим
3)t:=s ; ( в результате это будет: t- memorystream, a s- tblobstream)
2) а вот этого мне и не хватало -- теперь всё работает, блин как это у вас просто получается ... тут понимаешься паришся из-за этой мелочи кучу времени, Snowy только посмотрел - и в результате всё просто,- так наверно пора сделать перерыв .
Да кстати спасибо!

Автор: Snowy 22.5.2008, 00:21