Sound в Integer

[Лубышев]

Возникла проблема. Я хочу всю инфу хранить в одном файле... Причем файл integer типа. Я там и картинки храню, и всю служебную информацию... Теперь возникла проблема всунуть туда как то звук в конец файла... Как это можно сделать, чтобы потом можно было бы его и воспроизвести моей программой? Можно ли звук перевести в Integer а потом его вытащить?

Картинки в файле я так и храню. вначале задаю число которое указывает на количество картинок в файле потом два числа это длинна и ширина а потом просто ряд пикселей. как только заканчиваются пиксели, начинается новая картинка. как все картинки заканчиваются начинается еще какая то служебная информация. Можно ли тоже самое со звуком сделать, так чтобы потом можно было бы просто его прочитать и воспроизвести?

[raxp]

...если вы используете только чтение, то зачем "изобретать велосипед" и не хранить все в ресурсах? (в res все что душе угодно можно запихнуть)
зы: обратите внимание на программу Alex Cones

[Лубышев]

Мне не надо ресы... Мне нужно файл! просто у меня надо сначало создавать такой файл а потом его надо читать...две программки Editor и Reader. Одна создает файл а вторая его читает. (можно конечно побайтно капировать в конец файла прямо звуковой файл но мне че то это не нравится)

[Пепел Феникса]

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

[Лубышев]

только это и приходит на ум. А с типизированными файлами все таки ни как?

[raxp]

Мне не надо ресы... Мне нужно файл! просто у меня надо сначало создавать такой файл а потом его надо читать...две программки Editor и Reader. Одна создает файл а вторая его читает. (можно конечно побайтно капировать в конец файла прямо звуковой файл но мне че то это не нравится)

тогда лучше изначально определить структуру файла, скажем вначале идет 1-хэдер с размерностью этого хедера, в нем - описание кол-ва блоков, их начальными адресами в файле и размерностью (длиной), после него уже сами эти блоки с уже известной размерностью и начальными адресами... по этому принципу можно и читать и писать из/в файл... все данные в бинарном виде.

приведу как пример, чтение из своих архивов:

// ПАРСЕР ---------------------------------------------------------------------
type

  //FILE STRUCT-
  NameHead=record
   name:array [0..255] of Char; // НАЗВАНИЕ регистрации  //name: string[255];
   BytePosRectList,             // начало item rectlist
   CountRectList,               // к-во   item rectlist
   BytePosTableList,            // начало tablelist
   CountTableList,              // к-во   item tablelist
   BytePosBigData,              // начало bigdata
   CountBigData: Longword;      // к-во   item bigdata
  end;

  RectList=record               // ITEM RectList
   BetaStart,                   // нач.угол сегмента 360/0..16384_0.0219°
   BetaEnd,                     // кон.угол сегмента 360/0..16384_0.0219°
   DStart,                      // нач.сегмента      0..1599_250м
   DEnd: Longword;              // кон.сегмента      0..1599_250м
  end;
  RectList_=record              // пересчитанные
   BetaStart,                   // °
   BetaEnd,                     // °
   DStart,                      // м
   DEnd: real;                  // м
  end;

  TableList=record              // ITEM TableList
   Head0,                       // kod[0..15] id[16..19] kpp[20..21] oborot[22]
   Head1,                       // beta[0..13] cntrot[16..23] rectlistitemindex[24..31]
   Point,                       // bytepos= point*4
   Count: Longword;             // countbyte= count*2
  end;
  TableList_=record             // пересчитанные
   kod,
   id,
   kpp,
   ob: integer;
   beta: double;
   cntrot,
   rlii: integer;
   point,
   count: longword;           //32bit
  end;
  TableBigData=record
   Head0,
   Head1: Longword;
  end;
  CUList_=record             // пересчитанные
   dalnost,
   beta,
   ugmes,
   visota,
   kontrast,
   amp,
   ob: double;
   datetime: string;//tdatetime;
   filtr1,
   filtr2: string;
   x,y: gldouble;
  end;

  TListDAT=record //массив DAT
   rl: array of RectList_;
   tl: array of TableList_;
  end;

  PRL=^RectList;
  PTL=^TableList;
// END ПАРСЕР -----------------------------------------------------------------


procedure tpgl.GetInfoParser_DAT(lib: string); // ПАРСЕР по HEAD/TABLE-
var i,j: integer;
    recl : RectList;
    tabl : TableList;
begin
 fDAT.Free;
 fDAT:= TMemoryStream.Create;
 fDAT.LoadFromFile(lib);

 //============================= NAME REG
 fDAT.Read(head, SIZEOF(head));
 if pos('йцууц',head.name)=0 then begin
  fDAT.Free;
  MsgFile('log.txt',formatdatetime('dd:mm:yyyy ',date)+
          formatdatetime('hh:mm:ss [',time) + lib +'] not header');
  exit
 end;
 setlength(rl_,0); //fix- чисто обнуляем :-)
 setlength(tl_,0);
 progress_DAT:= '';

 //============================= ADRESS TABLE
 //визуализируем -необ
 if Assigned(FDeskrChange) then FDeskrChange(Self,head.name); //это если компонентом
 progress_DAT:= '... ' + head.name;
 //============================= ITEM RectList (дин)
 for i:=0 to head.CountRectList-1  do begin
  fDAT.Position:= head.BytePosRectList + 4*4*i;
  fDAT.Read(recl, SIZEOF(recl));
  //архив пересчитанных-
  setlength(rl_,length(rl_)+1);
  rl_[length(rl_)-1].BetaStart:= recl.BetaStart*360/16384;
  rl_[length(rl_)-1].BetaEnd  := recl.BetaEnd*360/16384;
  rl_[length(rl_)-1].DStart   := recl.DStart*250/1599;
  rl_[length(rl_)-1].DEnd     := recl.DEnd*250/1599
 end;
 //============================= ITEM TableList (дин)
 head.BytePosTableList:= head.BytePosRectList + (head.CountRectList*4*4); //fix- в файле
 for i:=0 to head.CountTableList-1  do begin
  fDAT.Position:= head.BytePosTableList + 4*4*i;
  fDAT.Read(tabl, SIZEOF(tabl));
...

[Лубышев]

Ладно, я могу посчитать длинну своего файла, в конце моих данных просто будет дописано сколько звуковых файлов прикреплено и какого размера, а дальше просто к концу файла будут пришиты звуковые файлы. но теперь другой вопрос возникает:
Если я потом смогу выцепить оттуда звуковые дорожки, то как их воспроизводить то? И как их выцеплять? Создать массив из байтов звуковой дорожки? А как воспроизвести то сотворенное?

[raxp]

пока видится такой вариант:
сохранить "выцепленный" файл, например в виде ~temp.mid (или mp3, смотря что у вас), проиграть и удалить + проверка при закрытии приложения...

...
 AssignFile(TempFile,'~temp.mid');
 REWRITE(TempFile,1);
 BlockWrite(); // или другим вашим методом сохраняем-
 CloseFile(TempFile);
 //
 MCISendString(PChar('play ' + '~temp.mid'),nil,0,0);
...

[Лубышев]

временные файлы? хм... не знаю даже... а рационально это?
а если нет доступа на запись? че тогда?

[raxp]

а если нет доступа на запись? че тогда?

значит копировать (создавать) в память и воспроизводить оттуда (например из res-ов это делается одной строчкой), по крайней мере синтезировать waveform в памяти есть способы... значит должен быть способ закинуть уже готовый, нужно поискать.