IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - waw dosyasının uzunluğunu saniye,dakika olarak bulma

Kod:

uses

 MPlayer, MMsystem;

 

 type

 EMyMCIException = class(Exception);

 TWavHeader = record

  Marker1: array[0..3] of Char;

  BytesFollowing: Longint;

  Marker2: array[0..3] of Char;

  Marker3: array[0..3] of Char;

  Fixed1: Longint;

  FormatTag: Word;

  Channels: Word;

  SampleRate: Longint;

  BytesPerSecond: Longint;

  BytesPerSample: Word;

  BitsPerSample: Word;

  Marker4: array[0..3] of Char;

  DataBytes: Longint;

 end;

  

  

procedure TForm1.Button1Click(Sender: TObject);

 

var

 Header: TWavHeader;

begin

 with TFileStream.Create('File.wav', fmOpenRead) do

  try

   ReadBuffer(Header, SizeOf(Header));

  finally

   Free;

  end;

 ShowMessage(FloatToStr((Int64(1000) * header.DataBytes div

header.BytesPerSecond) / 1000/{64 //dakika cinsinden}));

end;