Как определить bitrate WAV файла?

Previous  Top  Next

    
 

 

 

Code:

{....}

 

private

   procedure OpenMedia(WaveFile : string);

   function GetStatus(StatusRequested : DWord) : longint;

   procedure CloseMedia;

 

{....}

 

var

MyError, dwFlags: Longint;

FDeviceID : Word;

 

{....}

 

uses

MMSystem;

 

{....}

 

procedure TForm1.OpenMedia(WaveFile: string);

var

MyOpenParms: TMCI_Open_Parms;

begin

with MyOpenParms do

begin

   dwCallback       := Handle; // TForm1.Handle

   lpstrDeviceType  := PChar('WaveAudio');

   lpstrElementName := PChar(WaveFile);

end; {with MyOpenParms}

dwFlags := MCI_WAIT or MCI_OPEN_ELEMENT or MCI_OPEN_TYPE;

MyError := mciSendCommand(0, MCI_OPEN, dwFlags, Longint(@MyOpenParms));

// one could use mciSendCommand(DevId, here to specify a particular device

if MyError = 0 then

   FDeviceID := MyOpenParms.wDeviceID

else

   raise Exception.Create('Open Failed');

end;

 

function TForm1.GetStatus(StatusRequested: DWORD): Longint;

var

MyStatusParms: TMCI_Status_Parms;

begin

dwFlags := MCI_WAIT or MCI_STATUS_ITEM;

with MyStatusParms do

begin

   dwCallback := Handle;

   dwItem     := StatusRequested;

end;

MyError := mciSendCommand(FDeviceID,

   MCI_STATUS,

   MCI_WAIT or MCI_STATUS_ITEM,

   Longint(@MyStatusParms));

if MyError = 0 then

   Result := MyStatusParms.dwReturn

else

   raise Exception.Create('Status call to get status of ' +

     IntToStr(StatusRequested) + ' Failed');

end;

 

procedure TForm1.CloseMedia;

var

MyGenParms: TMCI_Generic_Parms;

begin

if FDeviceID > 0 then

begin

   dwFlags := 0;

   MyGenParms.dwCallback := Handle; // TForm1.Handle

   MyError := mciSendCommand(FDeviceID, MCI_CLOSE, dwFlags, Longint(@MyGenParms));

   if MyError = 0 then

     FDeviceID := 0

   else

   begin

     raise Exception.Create('Close Failed');

   end;

end;

end;

 

 

//Example:

//Beispiel:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

   OpenMedia(OpenDialog1.FileName);

   with ListBox1.Items do

   begin

     Add('Average Bytes / Sec : ' + IntToStr(GetStatus(MCI_WAVE_STATUS_AVGBYTESPERSEC)));

     Add('Bits / Sample : ' + IntToStr(GetStatus(MCI_WAVE_STATUS_BITSPERSAMPLE)));

     Add('Samples / Sec : ' + IntToStr(GetStatus(MCI_WAVE_STATUS_SAMPLESPERSEC)));

     Add('Channels : ' + IntToStr(GetStatus(MCI_WAVE_STATUS_CHANNELS)));

   end;

   CloseMedia;

end;

end;

 

 

©Drkb::03607

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php