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

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

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

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

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



Start, Count: Cardinal);

var

i, MaxAmplitude, MaxVolume: Cardinal;

Volume: Integer;

K: Real;

Channel: Word;

begin

MaxAmplitude := 1;

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

MaxAmplitude := MaxAmplitude*2;

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

begin

MaxVolume := 0;

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

begin

AudioData.ReadSample(i, Channel, Volume);

if Abs(Volume) > MaxVolume then MaxVolume := Abs(Volume);

end;

K := MaxAmplitude/MaxVolume;

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

begin

AudioData.ReadSample(i, Channel, Volume);

Volume := Round(Volume*K);

AudioData.WriteSample(i, Channel, Volume);

end;

end;

end;

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

var

i, j, k, n, NewCount: Cardinal;

Channel: Byte;

Smp1, Smp2: Integer;

Interval: Real;

TempAudio: TAudioData;

Buf: Int64;

begin

if (Speed = 1) or (Speed = 0) then Exit;

TempAudio := TAudioData.Create;

TempAudio.nChannels := AudioData.nChannels;

TempAudio.nSamplesPerSec := AudioData.nSamplesPerSec;

TempAudio.nBitsPerSample := AudioData.nBitsPerSample;

TempAudio.nBlockAlign := AudioData.nBlockAlign;

NewCount := Round(Count/Speed);

if Speed > 1 then

begin

i := NewCount;

Interval := Speed;

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

while i<>0 do

begin

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

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

AudioData.Data.Position := AudioData.Data.Position - AudioData.nBlockAlign + Trunc(Interval)*AudioData.nBlockAlign;

Interval := Interval-Trunc(Interval)+Speed;

Dec(i);

end;

end

else

begin

Speed := 1/Speed;

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

begin

i := 0;

j := 0;

Interval := Speed;

while i<>Count do

begin

AudioData.ReadSample(Start+i, Channel, Smp1);

if i+1<>Count then

AudioData.ReadSample(Start+i+1, Channel, Smp2)

else

Smp2 := Smp1;

k := Trunc(Interval);

for n := 0 to k-1 do

TempAudio.WriteSample(j+n, Channel, Round(Smp1+(Smp2-Smp1)/k*n));

Interval := Interval-Trunc(Interval)+Speed;

Inc(i);

Inc(j, k);

end;

end;

end;

DeleteAudio(AudioData, Start, Start+Count-1);

InsertAudio(TempAudio, AudioData, Start);

TempAudio.Destroy;

end;

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

var

i, j, k, n: Cardinal;

Channel: Byte;

Smp1, Smp2: Integer;

Interval, FinalSpeed: Real;

TempAudio: TAudioData;

Buf: Int64;

begin

if (Speed = 1) or (Speed = 0) then Exit;

TempAudio := TAudioData.Create;

TempAudio.nChannels := AudioData.nChannels;

TempAudio.nSamplesPerSec := AudioData.nSamplesPerSec;

TempAudio.nBitsPerSample := AudioData.nBitsPerSample;

TempAudio.nBlockAlign := AudioData.nBlockAlign;

FinalSpeed := Speed;

if Speed > 1 then

begin

Speed := 1;

Interval := Speed;

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

while AudioData.Data.Position div AudioData.nBlockAlign < Start+Count do

begin

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

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

AudioData.Data.Position := AudioData.Data.Position - AudioData.nBlockAlign + Trunc(Interval)*AudioData.nBlockAlign;

Interval := Interval-Trunc(Interval)+Speed;

Speed := Speed+Trunc(Interval)*(FinalSpeed-1)/Count;

end;

end

else

begin

FinalSpeed := 1/FinalSpeed;

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

begin

i := 0;

j := 0;

Speed := 1;

Interval := Speed;

while i<>Count do

begin

AudioData.ReadSample(Start+i, Channel, Smp1);

if i+1<>Count then

AudioData.ReadSample(Start+i+1, Channel, Smp2)

else

Smp2 := Smp1;

k := Trunc(Interval);

for n := 0 to k-1 do

TempAudio.WriteSample(j+n, Channel, Round(Smp1+(Smp2-Smp1)/k*n));

Interval := Interval-Trunc(Interval)+Speed;

Inc(i);

Inc(j, k);

Speed := Speed+(FinalSpeed-1)/Count;

end;

end;

end;

DeleteAudio(AudioData, Start, Start+Count-1);

InsertAudio(TempAudio, AudioData, Start);

ChangeSpeedOfAudio := TempAudio.Data.Size div TempAudio.nBlockAlign;

TempAudio.Destroy;

end;

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

var

AudioSize: Cardinal;

begin

if AudioData.nSamplesPerSec = Value then Exit;

with AudioData do

AudioSize := Data.Size div nBlockAlign;

0thenSetSpeedOfAudio(AudioData,0,AudioSize,AudioData.nSamplesPerSec/Value);"> if AudioSize <> 0 then SetSpeedOfAudio(AudioData, 0, AudioSize, AudioData.nSamplesPerSec/Value);

AudioData.nSamplesPerSec := Value;

end;

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

var

AudioSize, Max1, Max2, i: Cardinal;

Channel: Word;

Smp: Integer;

Mult: Real;

TempAudio: TAudioData;

begin

if AudioData.nBitsPerSample = Value then Exit;

with AudioData do

AudioSize := Data.Size div nBlockAlign;

TempAudio := TAudioData.Create;

TempAudio.nChannels := AudioData.nChannels;

TempAudio.nSamplesPerSec := AudioData.nSamplesPerSec;

TempAudio.nBitsPerSample := Value;

TempAudio.Calculate_nBlockAlign;

Max1 := 1; for i := 1 to AudioData.nBlockAlign div AudioData.nChannels do Max1 := Max1*256;

Max2 := 1; for i := 1 to TempAudio.nBlockAlign div TempAudio.nChannels do Max2 := Max2*256;

Mult := Max2/Max1;

if AudioSize<>0 then

begin

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

for i := 0 to AudioSize-1 do

begin

AudioData.ReadSample(i, Channel, Smp);

Smp := Trunc(Smp*Mult);

TempAudio.WriteSample(i, Channel, Smp);

end;

AudioData.Data.Clear;

OverwriteAudio(TempAudio, AudioData, 0);

end;

TempAudio.Destroy;

AudioData.nBitsPerSample := Value;

AudioData.Calculate_nBlockAlign;

end;

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

var

AudioSize: Cardinal;

TempAudio: TAudioData;

i: Integer;

Channel: Cardinal;

Smp: Integer;

begin

if AudioData.nChannels = Value then Exit;

with AudioData do

AudioSize := Data.Size div nBlockAlign;

TempAudio := TAudioData.Create;

TempAudio.nChannels := Value;

TempAudio.nSamplesPerSec := AudioData.nSamplesPerSec;

TempAudio.nBitsPerSample := AudioData.nBitsPerSample;

TempAudio.Calculate_nBlockAlign;

for i := 0 to AudioSize-1 do

for Channel := 0 to Value-1 do

begin

if Channel < AudioData.nChannels then

AudioData.ReadSample(i, Channel, Smp)

else

AudioData.ReadSample(i, AudioData.nChannels-1, Smp);

TempAudio.WriteSample(i, Channel, Smp);

end;

AudioData.Data.Clear;

AudioData.nChannels := Value;

AudioData.Calculate_nBlockAlign;

OverWriteAudio(TempAudio, AudioData, 0);

TempAudio.Destroy;

end;

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

var

MaxValue: Cardinal;

Value: Integer;

i: Cardinal;

Channel: Word;

begin

MaxValue := 1;

for i := 1 to AudioData.nBlockAlign div AudioData.nChannels do

MaxValue := MaxValue*256;

MaxValue := MaxValue div 2 - 1;

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

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

begin

AudioData.ReadSample(i, Channel, Value);

//Value := Trunc(Value*Exp(Volume/20));

Value := Trunc(Value*Volume);

if Abs(Value)>MaxValue then

if Value<0 then Value := -MaxValue

else Value := MaxValue;

AudioData.WriteSample(i, Channel, Value);

end;

end;

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

var

TempAudio: TAudioData;

i, j, DelaySmp: Cardinal;

SummSmp: Int64;

Mult: Real;

Smp: Integer;

Channel: Word;

MaxValue: Cardinal;

begin

for i := 1 to AudioData.nBlockAlign div AudioData.nChannels do

MaxValue := MaxValue*256;

MaxValue := MaxValue div 2 - 1;

TempAudio := TAudioData.Create;

TempAudio.nChannels := AudioData.nChannels;

TempAudio.nSamplesPerS

s