Функция конвертирования TMemoryStream к TList и обратно.

[DrAndriy]

Подскажите как правильно занести потоковые данные типа TMemoryStream к TList и затем их прочитать от Tlist.
Хочу в потоки записать звуковые файлы и поместить их в Tlist, f затем их прослушать. sounds - массив строковый имен файлов в директории программы.

Такой код к сожалению не работает:

  Waves := TList.Create;
  Stream := TMemoryStream.Create;
  try
    for i := 0 to 5 do
    begin
      Stream.LoadFromFile(sounds[i]);
      Stream.Position := 0;
      Waves.Add(Stream.Memory);
      Stream.Clear;
    end;
  finally
    FreeAndNil(Stream);
  end;

Где ошибка?

Спасибо.

[mutabor]

Что ты имеешь ввиду под звуковыми файлами? Точно в таком же виде, как они на диске? Тогда в списке указатели на MemoryStream'ы храни. Стрим не один, а для каждого файла новый заводи, и указатели в список.

var
  Waves: TList;
  NewStream : TMemoryStream;
  try
    for i := 0 to 5 do
    begin
      NewStream := TMemoryStream.Create;
      NewStream.LoadFromFile(sounds[i]);
      NewStream.Position := 0;
      Waves.Add(NewStream);
    end;
  finally
  end;

Если во время жизни списка тебе нужно удалять его элементы, то удобнее TObjectList, он с уборкой мусора.

[DrAndriy]

файлы типа *.wav
можно небольшой пример решения?
спасибо

Вот такой код:

загрузка:

  Waves := TList.Create;
  for i := 0 to 5 do
  begin
    Stream := TMemoryStream.Create;
    try
      Stream.LoadFromFile(sounds[i]);
      Stream.Position := 0;
      Waves.Add(Stream.Memory);
    finally
      FreeAndNil(Stream);
    end;
  end;

выгрузка:

procedure TForm1.Button2Click(Sender: TObject);
var
  i : Integer;
begin
  i := StrToInt(Edit1.Lines.Text);
  if i >= Waves.Count then
    Exit;
  TempStream.Clear;
  TempStream.LoadFromStream(TMemoryStream(Waves[i]));
  Chan := BASS_StreamCreateFile(True, TempStream.Memory, 0, TempStream.Size, 0);
  if not BASS_ChannelPlay(Chan, False) then
    Error('Error playing stream!');
end;

Коды не работают. прочитать поток из списка не удается.
Где ошибка?
Спасибо.

[mutabor]

Вот ошибка - FreeAndNil(Stream);
Не нужно его освобождать, ты же его в список помещаешь. Рассматривай ссылку на объект как предмет, например зажигалку ты можешь переложить из одного кармана в другой, так и тут, ссылку на объект ты помещаешь в список, зачем же его сразу после этого удалять, тогда в списке у тебя ссылка-пустышка будет.

[DrAndriy]

ошибку понял. так лучше использовать TObjectList, чем Tlist? В моей задаче когда список будет прочитан содержимое его можно удалить. Можете пояснить подробнее как моя задача будет выглядеть если заменить Tlist на TObjectList. В чем принципиальная разница? Спасибо

[mutabor]

Разница в том, что TObjectList освобождает автоматически свои элементы (вызывает метод Free), а в TList ты должен делать это вручную, если не будешь освобождать вручную будешь иметь утечку памяти, и в данном случае немаленькую. Читай хелп.

[DrAndriy]

А в каком модуле класс TObjectList? спасибо за ответ

TObjectList нашел. Но возникла новая проблема. Записать в список потоки удалось и даже читать можно:

procedure TForm1.Button2Click(Sender: TObject);
var
  i : Integer;
begin
  i := StrToInt(Edit1.Lines.Text);
  if i >= Waves.Count then
    Exit;
  TempStream.Clear;
  TempStream.LoadFromStream(TMemoryStream(Waves[i]));
  Chan := BASS_StreamCreateFile(True, TempStream.Memory, 0, TempStream.Size, 0);
  if not BASS_ChannelPlay(Chan, False) then
    Error('Error playing stream!');
end;

правда вместо
TempStream.LoadFromStream(TMemorySt ream(Waves[i]));
применил:
TempStream.CopyFrom(TMemoryStream(W aves[i]), TMemoryStream(Waves[i]).Size);

С загрузкой LoadFromStream работает нормально, а вот с TempStream.CopyFrom ошибка. Почему?

Но повторное обращение к индексу списка вызывает ошибку выполнения программы. Почему?

Спасибо

[mutabor]

1. Перед копированием потоков убедись, что позиции первого и второго потока в нужном месте. Если хочешь полностью скопировать, тогда обнули позиции.
2. Чтобы обращаться к элементам списка, нужно приводить указатели к типу объекта (List[Index] as Type), в твоем случае к TMemoryStream.
3. После использования потока (загрузки чего-то из него и т.п.) сбрасывай позицию в ноль, а то в следующий раз программа будет пытаться начать читать его с конца.

[DrAndriy]

спасибо, ошибку нашел.