Länge einer Wav-Datei

[Florian H]

Hi,

bei Swissdelphicenter gibts ja 2 Funktionen zum feststellen der Länge einer Wav-Datei.
Ich habe die Datei jetzt aber schon so geöffnet:

Delphi-Quellcode:

procedure TForm1.PlayWav(fname : string);
var
  mciOpenParms: TMCI_Open_Parms;
  mciPlayParms: TMCI_Play_Parms;
begin
  if waveOutGetNumDevs < 1 then             { Any devices? }
    ShowMessage('No wave devices available!')
  else
  begin
    FillChar(mciOpenParms,
      SizeOf(TMCI_Open_Parms), 0);
    FillChar(mciPlayParms,
      SizeOf(TMCI_Play_Parms), 0);
    with mciOpenParms do                    { Set MCI to play WAV files }
    begin
      lpStrDeviceType := 'waveaudio';
      lpstrElementName := pchar(fname);
    end;
    if mciSendCommand(0, MCI_OPEN,
      MCI_OPEN_TYPE or MCI_OPEN_ELEMENT,
      Longint(@mciOpenParms)) = 0 then      { Open Device }
    begin
      wDeviceID := mciOpenParms.wDeviceID;  { Grab Device ID for later }

      mciPlayParms.dwCallback := Handle;    { Set our Handle for Callback message }
      mmsystem.mc
      mciSendCommand(wDeviceID, MCI_PLAY, MCI_NOTIFY,
        LongInt(@mciPlayParms));            { Kick off play of File; await message }
    end;
  end;
end;

Wie kann ich da gleich auch die Länge rausfinden der Wav-Datei?

Viele Grüße
Flo