Delphi, хранение музыки и картинки в record-файле

[Алексей_2012]

Здравствуйте! Ребят, возможно ли, например, в файл записей записать картинку или музыку?

Вот например:

type
zap=record
kartinki: array of TbitMap;
muzik: array of ...;
end;

var 
f: file of zap;
w:zap;

Сложности в том, что так писать нельзя, что если я хочу использовать динамический массив? Не буду же я ограничиваться массивом в 1000, например, записей у одной w.записи? (kartinki: array [1..65350]of TBitmap; ) и возможно ли хранить не только JPG и BMP форматы?

ВТорой вопрос не менее важен для меня, возможно ли хранить музыку РАЗЛИЧНЫХ форматов в типизированном файле?

[Stilet]

возможно ли, например, в файл записей записать картинку или музыку?

Что такое "Сериализация" знаешь? Записывать в файл можно контент битмапа. Объект записать не получится. Т.е. TBitmap закатать в Stream, а уже его можно записывать, ведь Stream - массив байт.

возможно ли хранить музыку РАЗЛИЧНЫХ форматов в типизированном файле?

Да. Вполне )

[Artsiom]

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

Да. Вполне )

Как это сделать?!?

[Stilet]

Точно так же - записать в Stream. TMemoryStream, который потом высадить в файл записей потоком.

[Алексей_2012]

Никогда не работал с tMemoryStream, есть пример кода? Спасибо)


Для разных форматов картинок нужно использовать tBitMap, или есть что-нибудь более универсальное?

Такой же вопрос и про музыкальные файлы разных типов.

Спасибо)

[Stilet]

есть пример кода?

Что, хелпа нет? Или за неуплату отключили?

var ms:TMemoryStream;
...
ms:=TMemoryStream.Create;
Bitmap.SaveToStream(ms);
ms.Position:=0;
...

Дальше ms пишем в файл.
Как писать в файл стрим это тебе домашнее задание.
Подсказываю: TFileStream и метод CopyFrom

[Алексей_2012]

Вот, нашел сохранение самого, вроде, компонента в текстовый файл, но не могу понять-зачем использовать memoryStream?

var
  fs: TFileStream;
  n: Integer;
  s: string;
begin
  fs := TFileStream.Create('sample.txt', fmCreate);
  try
    fs.WriteComponent(Label1);
    n := 5650;
    fs.Write(n, SizeOf(Integer));
    { При записи строк необходимо сообщить методу Write о том,
      что запись должна начинаться с первого символа }
    s := 'Some text';
    fs.Write(s[1], Length(s));
  finally
    fs.Free;
  end;  // завершение конструкции try (fs)
end;

[Stilet]

А-а-а. Старый способ сериализации )
Давно я его не видел в действии. Ты с ним поаккуратнее, хорошо если в твоей Делфи он нормально работает - используй на здоровье.

[Алексей_2012]

А в других версиях наблюдались сбои?

[Stilet]

Не знаю. В D6 сбои были серьезные. Возможно в ХЕ уже сделали получше. Я в любом случае не использовал эту методику.