Читать «Советы по Delphi. Версия 1.0.6» онлайн - страница 8

type Observation = record
 Name       : String[40];  {Имя данного сопровождения}
 yyy        : DataStream;  {Массив указателей на данные}
 WAV        : WAVHeader;   {Спецификация WAV для сопровождения}
 Last       : SampleIndex; {Последний доступный индекс yyy}
 MinO, MaxO : Real;        {Диапазон значений yyy}
end;
var K0R, K1R, K2R, K3R: Observation;
 K0B, K1B, K2B, K3B : Observation;
{================== Переменные имени файла ===================}
var StandardDatabase: String[80];
 BaseFileName: String[80];
 StandardOutput: String[80];
 StandardInput: String[80];
{=============== Объявления процедур ==================}
procedure ReadWAVFile(var Ki, Kj : Observation);
procedure WriteWAVFile(var Ki, Kj : Observation);
procedure ScaleData(var Kk: Observation);
procedure InitallSignals;
procedure InitLinearSystem;
implementation
{$R *.DFM}
uses VarGraph, SysUtils;
{================== Стандартный формат WAV-файла ===================}
const MaxDataSize : LongInt = (MaxN+1)*2*2;
const MaxRIFFSize : LongInt = (MaxN+1)*2*2+36;
const StandardWAV : WAVHeader = (
 nChannels       : Word(2);
 nBitsPerSample  : LongInt(16);
 nSamplesPerSec  : LongInt(8000);
 nAvgBytesPerSec : LongInt(32000);
 RIFFSize        : LongInt((MaxN+1)*2*2+36);
 fmtSize         : LongInt(16);
 formatTag       : Word(1);
 nBlockAlign     : LongInt(4);
 DataSize        : LongInt((MaxN+1)*2*2)
);
{================== Сканирование переменных сопровождения ===================}
procedure ScaleData(var Kk : Observation);
var I : SampleIndex;
begin
 {Инициализация переменных сканирования}
 Kk.MaxO:= Kk.yyy[0];
 Kk.MinO:= Kk.yyy[0];
 {Сканирование для получения максимального и минимального значения}
 for I:= 1 to Kk.Last do begin
  if kk.maxo < kk.yyy[i] then kk.maxo:= kk.yyy[i];
  if kk.mino > kk.yyy[i] then kk.mino:= kk.yyy[i];
 end;
end; { scaledata }
procedure ScaleAllData;
begin
 ScaleData(K0R);
 ScaleData(K0B);
 ScaleData(K1R);
 ScaleData(K1B);
 ScaleData(K2R);
 ScaleData(K2B);
 ScaleData(K3R);
 ScaleData(K3B);
end; {scalealldata}
{================== Считывание/запись WAV-данных ===================}
VAR InFile, OutFile: file of Byte;
type Tag = (F0, T1, M1);
type FudgeNum = record
 case X:Tag of
 F0 : (chrs : array[0..3] of byte);
 T1 : (lint : LongInt);
 M1 : (up,dn: Integer);
end;
var ChunkSize  : FudgeNum;
procedure WriteChunkName(Name: String);
var i: Integer;
 MM: Byte;
begin
 for i:= 1 to 4 do begin
  MM:= ord(Name[i]);
  write(OutFile, MM);
 end;
end; {WriteChunkName}
procedure WriteChunkSize(LL:Longint);
var I: integer;
begin
 ChunkSize.x:=T1;
 ChunkSize.lint:=LL;
 ChunkSize.x:=F0;
 for I:= 0 to 3 do Write(OutFile,ChunkSize.chrs[I]);
end;
procedure WriteChunkWord(WW: Word);
var I: integer;
begin
 ChunkSize.x:=T1;
 ChunkSize.up:=WW;
 ChunkSize.x:=M1;
 for I:= 0 to 1 do Write(OutFile,ChunkSize.chrs[I]);
end; {WriteChunkWord}
procedure WriteOneDataBlock(var Ki, Kj : Observation);
var I: Integer
begin
 ChunkSize.x:=M1;
 with Ki.WAV do begin
  case nChannels of
  1:
   if nBitsPerSample=16 then begin {1..2 Помещаем в буфер одноканальный 16-битный сэмпл}