Система обработки аудиоинформации. Подсистема фильтрации и обработки сигнала

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

Скачать Бесплатно!
Для того чтобы скачать эту работу.
1. Пожалуйста введите слова с картинки:

2. И нажмите на эту кнопку.
закрыть



ar AudioData: TAudioData; Start, Count: Cardinal);

procedure AddBrainWave(var AudioData: TAudioData; Start, Count, Freq1, Freq2: Integer);

procedure SetSpeedOfAudio(var AudioData: TAudioData; Start, Count: Cardinal; Speed: Real);

function ChangeSpeedOfAudio(var AudioData: TAudioData; Start, Count: Cardinal; Speed: Real): Cardinal;

procedure SetnSamplesPerSec(var AudioData: TAudioData; Value: Cardinal);

procedure SetnBitsPerSample(var AudioData: TAudioData; Value: Cardinal);

procedure SetnChannels(var AudioData: TAudioData; Value: Cardinal);

procedure SetVolumeOfAudio(var AudioData: TAudioData; Start, Count: Cardinal; Volume: Real);

procedure Echo(var AudioData: TAudioData; Start, Count, Number, Delay: Cardinal; Volume: Real);

procedure Reverberation(var AudioData: TAudioData; Start, Count, Number, Delay: Cardinal; Volume: Real);

procedure ChangeVolumeOfAudio(var AudioData: TAudioData; Start, Count: Cardinal; Volume: Real);

procedure ReChangeVolumeOfAudio(var AudioData: TAudioData; Start, Count: Cardinal; Volume: Real);

procedure Normalize(var AudioData: TAudioData; Start, Count: Cardinal);

implementation

constructor TAudioData.Create;

var

TempDir, FileName: String;

i: Word;

begin

inherited Create;

TempDir := GetEnvironmentVariable(TEMP)+\;

i := 0;

FileName := TempDir + \ + 0.TAD;

while FileExists(FileName) do

begin

Inc(i);

Str(i, FileName);

FileName := TempDir + \ + FileName + .TAD;

end;

Name := FileName;

Data := TFile.Create(FileName);

end;

procedure TAudioData.Calculate_nBlockAlign;

begin

nBlockAlign := nBitsPerSample div 8;

if nBitsPerSample mod 8 <> 0 then Inc(nBlockAlign);

nBlockAlign := nBlockAlign*nChannels;

end;

procedure TAudioData.ReadSample(Number, Channel: LongInt; var Value: Integer);

var

i: Byte;

Mult, AbsValue: LongWord;

begin

Calculate_nBlockAlign;

Data.Position := Number*nBlockAlign + Channel*(nBlockAlign div nChannels);

AbsValue := 0;

Data.Read(AbsValue, nBlockAlign div nChannels);

Mult := 1;

for i := 1 to nBlockAlign div nChannels do

Mult := Mult*256;

if nBitsPerSample>8 then

if AbsValue >= Trunc(Mult/2) then Value := AbsValue - Mult else Value := AbsValue

else Value := AbsValue-128;

end;

procedure TAudioData.WriteSample(Number, Channel: LongInt; Value: Integer);

var

K: Byte;

N: Cardinal;

begin

Calculate_nBlockAlign;

Data.Position := Number*nBlockAlign + Channel*(nBlockAlign div nChannels);

Data.Sizethen"> if Data.Position>Data.Size then

begin

K := 0;

N := Data.Position + nBlockAlign div nChannels;

Data.Position := Data.Size;

while Data.Position<=N do Data.Write(K, 1);

Data.Position := Number*nBlockAlign + Channel*(nBlockAlign div nChannels);

end;

if nBitsPerSample<=8 then Value := Value+128;

Data.Write(Value, nBlockAlign div nChannels);

end;

 

function TAudioData.Extremum(Number, Channel: LongInt): Boolean;

var

Smp1, Smp, Smp2: Integer;

begin

if (Number = 0) or (Number + 1 = Data.Size div nBlockAlign) then

begin

Extremum := True;

Exit;

end;

ReadSample(Number-1, Channel, Smp1);

ReadSample(Number, Channel, Smp);

ReadSample(Number+1, Channel, Smp2);

if (Smp1Smp)and(Smp<Smp2) then

Extremum := True

else

Extremum := False;

end;

destructor TAudioData.Destroy;

begin

Data.Destroy;

DeleteFile(Name);

inherited Destroy;

end;

procedure CopyAudio(var AudioSource, AudioGeter: TAudioData; Start, Finish: Cardinal);

var

i: Cardinal;

Buf: array[0..63] of Byte;

begin

AudioGeter.Data.Clear;

AudioGeter.nChannels := AudioSource.nChannels;

AudioGeter.nSamplesPerSec := AudioSource.nSamplesPerSec;

AudioGeter.nBitsPerSample := AudioSource.nBitsPerSample;

AudioGeter.Calculate_nBlockAlign;

AudioSource.Data.Position := Start*AudioSource.nBlockAlign;

for i := 1 to Abs(Finish-Start) do

begin

AudioSource.Data.Read(Buf, AudioSource.nBlockAlign);

AudioGeter.Data.Write(Buf, AudioSource.nBlockAlign);

end;

AudioGeter.nChannels := AudioSource.nChannels;

AudioGeter.nSamplesPerSec := AudioSource.nSamplesPerSec;

AudioGeter.nBitsPerSample := AudioSource.nBitsPerSample;

end;

procedure InsertAudio(var AudioSource, AudioGeter: TAudioData; Start: Cardinal);

var

i: Cardinal;

Buf: Byte;

begin

if AudioSource.Data.Size = 0 then Exit;

AudioGeter.Data.Insert(Start*AudioGeter.nBlockAlign, AudioSource.Data.Size);

AudioSource.Data.Position := 0;

AudioGeter.Data.Position := Start*AudioGeter.nBlockAlign;

for i := 1 to AudioSource.Data.Size do

begin

AudioSource.Data.Read(Buf, 1);

AudioGeter.Data.Write(Buf, 1);

end;

end;

procedure DeleteAudio(var AudioData: TAudioData; Start, Finish: Cardinal);

begin

AudioData.Data.Delete(Start*AudioData.nBlockAlign, Abs(Finish-Start)*AudioData.nBlockAlign);

end;

procedure OverwriteAudio(var AudioSource, AudioGeter: TAudioData; Start: Cardinal);

var

i: Cardinal;

Buf: Byte;

begin

if AudioSource.Data.Size = 0 then Exit;

AudioSource.Data.Position := 0;

AudioGeter.Data.Position := Start*AudioGeter.nBlockAlign;

for i := 1 to AudioSource.Data.Size do

begin

AudioSource.Data.Read(Buf, 1);

AudioGeter.Data.Write(Buf, 1);

end;

end;

procedure MixAudio(var AudioSource, AudioGeter: TAudioData; Start: Cardinal);

var

i, Channel, AudioSize: Cardinal;

Value, MaxValue: Int64;

Samp1, Samp2: Integer;

begin

if AudioSource.Data.Size = 0 then Exit;

AudioSize := AudioGeter.Data.Size div AudioGeter.nBlockAlign;

MaxValue := 1; for i := 1 to AudioGeter.nBitsPerSample-1 do MaxValue := MaxValue*2;

for i := 0 to AudioSource.Data.Size div AudioGeter.nBlockAlign - 1 do

for Channel := 0 to AudioGeter.nChannels-1 do

begin

AudioSource.ReadSample(i, Channel, Samp1);

if Start+i<AudioSize then

AudioGeter.ReadSample(Start+i, Channel, Samp2)

else

Samp2 := 0;

Value := Samp1 + Samp2;

if (Value = MaxValue) then

Value := Trunc((Value)/2);

AudioGeter.WriteSample(Start+i, Channel, Value);

end;

end;

procedure ReverseAudio(var AudioData: TAudioData; Start, Count: Cardinal);

var

i, AbsStart, AbsFinish, AbsCount: Cardinal;

BufferStart: Cardinal;

Buf: Int64;

TempAudio: TAudioData;

begin

TempAudio := TAudioData.Create;

AbsStart := Start*AudioData.nBlockAlign;

AbsCount := Count*AudioData.nBlockAlign;

AbsFinish := AbsStart+AbsCount;

i := AbsFinish;

repeat

if i-AbsStart>=MaxSizeOfBuffer then

BufferStart := i - MaxSizeOfBuffer

else

BufferStart := AbsStart;

AudioData.Data.Position := BufferStart;

AudioData.Data.Read(Buf, 1);

while i>BufferStart do

begin

i := i - AudioData.nBlockAlign;

AudioData.Data.Position := i;

AudioData.Data.Read(Buf, AudioData.nBlockAlign);

TempAudio.Data.Write(Buf, AudioData.nBlockAlign);

end;

until i=AbsStart;

AudioData.Data.Position := AbsStart;

TempAudio.Data.Position := 0;

for i := 1 to Count do

begin

TempAudio.Data.Read(Buf, AudioData.nBlockAlign);

AudioData.Data.Write(Buf, AudioData.nBlockAlign);

end;

TempAudio.Destroy;

end;

procedure AddBrainWave(var AudioData: TAudioData; Start, Count, Freq1, Freq2: Integer);

var

i, MaxAmplitude: Cardinal;

T, TL, TR: Real;

Freq: Integer;

SampL, SampR: Integer;

begin

if AudioData.nChannels = 1 then Exit;

MaxAmplitude := 1;

for i := 1 to AudioData.nBitsPerSample-1 do

MaxAmplitude := MaxAmplitude*2;

for i := Start to Start+Count-1 do

begin

Freq := Freq1 + Round((i-Start)*(Freq2-Freq1)/Count);

T := 2*Pi/(AudioData.nSamplesPerSec/(Freq/100));

TL := 2*Pi/(AudioData.nSamplesPerSec/(50+50*Freq/100));

TR := 2*Pi/(AudioData.nSamplesPerSec/(50+50*Freq/100+Freq/100));

AudioData.ReadSample(i, 0, SampL);

AudioData.ReadSample(i, 1, SampR);

SampL := Trunc(0.6*SampL+0.4*MaxAmplitude*Sin(i*TL));

SampR := Trunc(0.6*SampR+0.4*MaxAmplitude*Sin(i*TR));

AudioData.WriteSample(i, 0, SampL);

AudioData.WriteSample(i, 1, SampR);

end;

end;

procedure Normalize(var AudioData: TAudioData;

s