Последнее, что я хочу на счет чтение wav. Та версия программы, что вы мне кинули, она читает и записывает wav одной и той же кнопкой. Но я бы хотел, что бы читалось buttonClickk1, а записывалось buttonClick4. Козалось бы куда проще это сделать, но нет! Вот так я сделал, вроде должно было работать, но файл создается 44 байт. При этом я запретил выполнение этой строчки:
Код:
if WavInfo.WaveFormat.wFormatTag = WAVE_FORMAT_PCM then
Как поправить код для выполнения вышеописанного?
Хотелось бы еще узнать зачем та строчка, ведь с ней, в данном коде ниже, не нажимается кнопка buttonClick4 вообще.
Код:
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, sSkinManager, ImgList, Inifiles, ComCtrls,
sTabControl, acHeaderControl, sGauge, sPageControl, sMemo, sButton,
sLabel, sEdit;
Const
noError = 0;
ReadError = 1;
HeaderError = 2;
DataError = 3;
FileCorrupt = 4;
IncorectFileFormat = 5;
WAVE_FORMAT_PCM = 1;
type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
sSkinManager1: TsSkinManager;
ImageList1: TImageList;
SaveDialog2: TSaveDialog;
TabSheet1: TsTabSheet;
TabSheet2: TsTabSheet;
Memo1: TsMemo;
Memo2: TsMemo;
Memo3: TsMemo;
Button1: TsButton;
Button2: TsButton;
Button3: TsButton;
Button4: TsButton;
Button5: TsButton;
Button6: TsButton;
OpenDialog2: TOpenDialog;
PageControl1: TsPageControl;
Edit1: TsEdit;
Edit2: TsEdit;
Label1: TsLabel;
Label2: TsLabel;
Lable3: TsLabel;
Label4: TsLabel;
Label5: TsLabel;
Label6: TsLabel;
Label7: TsLabel;
Label8: TsLabel;
Label9: TsLabel;
Label10: TsLabel;
Label11: TsLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;
type
EWavError = class(Exception);
TWaveFormat = packed record
wFormatTag: Word;
nChannels: Word;
nSamplesPerSec: DWORD;
nAvgBytesPerSec: DWORD;
nBlockAlign: Word;
wBitsPerSample: Word;
end;
TWavInfo = record
WaveFormat: TWaveFormat;
Samples: array of array of Word;
end;
var
Form1: TForm1;
TxtFile : TextFile;
i : integer;
s1: String;
s2: integer;
Ini:Tinifile;
language:string;
implementation
{$R *.dfm}
{$R WindowsXP.res}
uses math, Unit2;
procedure RaiseWavError(const Msg: string);
begin
raise EWavError.Create(Msg);
end;
procedure ReadWavInfo(const FileName: string; var WavInfo: TWavInfo);
type
TChunkName = packed array[0..3] of AnsiChar;
TRiffChunk = packed record
RiffSign: TChunkName;
RiffSize: Longword;
WaveSign: TChunkName;
end;
TChunk = packed record
Name: TChunkName;
Size: Longword;
end;
var
fs: TFileStream;
RiffChunk: TRiffChunk;
Chunk: TChunk;
FmtPos, DataPos, NewPos: Int64;
DataSize, NumSamples, BytsPerSample, I, J: Longword;
procedure DecRiffSize(Size: Longword);
begin
if RiffChunk.RiffSize < Size then RaiseWavError('Wav-файл повреждён');
Dec(RiffChunk.RiffSize, Size);
end;
begin
Finalize(WavInfo);
FillChar(WavInfo, SizeOf(WavInfo), 0);
fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
try
fs.ReadBuffer(RiffChunk, SizeOf(RiffChunk));
if (RiffChunk.RiffSign <> 'RIFF') or (RiffChunk.WaveSign <> 'WAVE') then RaiseWavError('Это не wav-файл');
DecRiffSize(SizeOf(RiffChunk.WaveSign));
FmtPos := 0;
DataPos := 0;
while RiffChunk.RiffSize > 0 do
begin
fs.ReadBuffer(Chunk, SizeOf(Chunk));
DecRiffSize(SizeOf(Chunk));
DecRiffSize(Chunk.Size);
if Chunk.Name = 'fmt ' then
begin
if FmtPos <> 0 then RaiseWavError('Встретилось несколько секций "fmt"');
if Chunk.Size < SizeOf(WavInfo.WaveFormat) then RaiseWavError('Неверный размер секции "fmt"');
FmtPos := fs.Position;
end else
if Chunk.Name = 'data' then
begin
if DataPos <> 0 then RaiseWavError('Встретилось несколько секций "data"');
DataPos := fs.Position;
DataSize := Chunk.Size;
end;
NewPos := fs.Position + Chunk.Size;
fs.Position := NewPos;
if fs.Position <> NewPos then RaiseWavError('Wav-файл повреждён');
end;
if FmtPos = 0 then RaiseWavError('Отсутствует секция "fmt"');
if DataPos = 0 then RaiseWavError('Отсутствует секция "data"');
fs.Position := FmtPos;
fs.ReadBuffer(WavInfo.WaveFormat, SizeOf(WavInfo.WaveFormat));
if WavInfo.WaveFormat.wFormatTag = WAVE_FORMAT_PCM then
begin
if WavInfo.WaveFormat.nChannels = 0 then RaiseWavError('Отсутствуют каналы');
BytsPerSample := WavInfo.WaveFormat.wBitsPerSample div 8;
if BytsPerSample = 0 then RaiseWavError('Неверная разрядность сэмплов');
NumSamples := DataSize div (BytsPerSample * WavInfo.WaveFormat.nChannels);
SetLength(WavInfo.Samples, NumSamples, WavInfo.WaveFormat.nChannels);
fs.Position := DataPos;
for I := 1 to NumSamples do
begin
for J := 1 to WavInfo.WaveFormat.nChannels do
begin
fs.ReadBuffer(WavInfo.Samples[I - 1, J - 1], BytsPerSample);
end;
end;
end;
finally
fs.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
WavInfo: TWavInfo;
begin
if OpenDialog1.Execute then
begin
ReadWavInfo(OpenDialog1.FileName, WavInfo);
Memo1.WordWrap := False;
Memo1.Lines.Add('Файл: ' + OpenDialog2.FileName);
Memo1.Lines.Add('Формат: ' + IntToHex(WavInfo.WaveFormat.wFormatTag, 1));
Memo1.Lines.Add('Каналов: ' + IntToStr(WavInfo.WaveFormat.nChannels));
Memo1.Lines.Add('Сэмплов: ' + IntToStr(Length(WavInfo.Samples)));
Memo1.Lines.Add('Частота дискретизации: ' + IntToStr(WavInfo.WaveFormat.nSamplesPerSec) + ' сэмплов в секунду');
Memo1.Lines.Add('Разрядность сэмплов: ' + IntToStr(WavInfo.WaveFormat.wBitsPerSample) + ' бит');
end;
end;
procedure WriteWav(const FileName: string; const WavInfo: TWavInfo);
type
TChunkID = packed array[0..3] of Char;
THeader = packed record
ChunkID: TChunkID;
ChunkSize: Longword;
Format: TChunkID;
Subchunk1ID: TChunkID;
Subchunk1Size: Longword;
AudioFormat: Word;
NumChannels: Word;
SampleRate: Longword;
ByteRate: Longword;
BlockAlign: Word;
BitsPerSample: Word;
Subchunk2ID: TChunkID;
Subchunk2Size: Longword;
end;
var
Header: THeader;
NumSamples, BytsPerSample, Sample, I, J: Longword;
fs: TFileStream;
begin
NumSamples := Length(WavInfo.Samples);
BytsPerSample := WavInfo.WaveFormat.wBitsPerSample div 8;
Header.ChunkID := 'RIFF';
Header.Format := 'WAVE';
Header.Subchunk1ID := 'fmt ';
Header.Subchunk1Size := 16;
Header.AudioFormat := WAVE_FORMAT_PCM;
Header.NumChannels := WavInfo.WaveFormat.nChannels;
Header.SampleRate := WavInfo.WaveFormat.nSamplesPerSec;
Header.BitsPerSample := BytsPerSample * 8;
Header.BlockAlign := Header.NumChannels * BytsPerSample;
Header.ByteRate := Header.SampleRate * Header.BlockAlign;
Header.Subchunk2ID := 'data';
Header.Subchunk2Size := NumSamples * Header.BlockAlign;
Header.ChunkSize := Header.Subchunk2Size + SizeOf(Header) - 8;
fs := TFileStream.Create(FileName, fmCreate);
try
fs.WriteBuffer(Header, SizeOf(Header));
for I := 1 to NumSamples do
begin
for J := 1 to Header.NumChannels do
begin
fs.WriteBuffer(WavInfo.Samples[I - 1, J - 1], BytsPerSample);
end;
end;
finally
fs.Free;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
WavInfo: TWavInfo;
{if WavInfo.WaveFormat.wFormatTag = WAVE_FORMAT_PCM then }
begin
if SaveDialog2.Execute then
begin
WriteWav(SaveDialog2.FileName, WavInfo);
end;
end;
{end; }
{end; }
End.
P.S. Хотелось бы просто так спросить, для интереса, чем отличается packed record от record?
|
20.08.2012, 13:24
Я так понял, что Dmitry_DM от Delphi (и вообще от программирования) далёкий. Даже не знаю как он будет дальше программировать шифрование wav-файлов которое он хочет реализовать...
Линейный вид
