DELPHI AREA Forum

How can i get the length of the currently playing (or opened) file?
Couldn't find any thread about this.

File is beeing played with the StockAudioPlayer

Look at the Length proprty of TWaveStreamAdapter class.

I'm new to this, so could you give me an example?
Like how can I use that class in the demo sound recorder?

While recording, use Position property of the recorder component to get current recording position.

When using TAudioPlayer or TAudioRecorder (while not recording), use the Wave.Length property.

For other cases use the following example as a template. The following function returns Length of a Wave file in milliseconds.

Code: Select all

uses WaveStorage;

function WaveLength(const FileName: String): DWORD;
var
  Stream: TStream;
  Adapter: TWaveStreamAdapter;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    Adapter := TWaveStreamAdapter.Create(Stream, soReference);
    try
      Result := Adapter.Length;
    finally
      Adapter.Free;
    end;
  finally
    Stream.Free;
  end;
end;

Ok, thank you, I'll remember.

One non Wave Audio Package question:

What's the procedure that executes, when you close your application? I'd like to delete one file, before( or after) the program closes.

Use OnClose event of the main form.

Edit: Actually I have another problem:

Code: Select all

function WaveLength(const FileName: String): DWORD;
var
  Stream: TStream;
  Adapter: TWaveStreamAdapter;
  filedir,todir:PAnsiChar;
  toname:string;
begin
  toname:=ExtractFilePath(Application.ExeName) + ExtractFileName('Templength.wav');
  todir:=pansichar(toname);
  filedir:=pansichar(filename);
  copyfile(filedir,todir,false);
  Stream := TFileStream.Create(toname, fmOpenRead);
  try
    Adapter := TWaveStreamAdapter.Create(Stream, soReference);
    try
      Result := Adapter.Length;
    finally
      Adapter.Free;
    end;
  finally
    Stream.Free;
  end;
  deletefile(toname);
end;

The function should copy the mainfile, name it "Templength" and to all the work with it and the delete it. The problem is that it says that it can't find the file, though it's right there.

It seems to have somekind of delay, when I remove the deleting part of the code and creat the "Templength.wav" manually, before the function executes. By the delay, I mean that it doesn't use the file that was just created (copied), but the previously created files.

Sorry, but I couldn't get what you are going to do. The logic behind is very confusing.

it looks like he's trying to do new blank wav file with lenght of known file. Am I right?

That's exactly what I'm trying to do.


Edit: I made some changes and now it works properly.

But what about volume changing?

This doesn't seem to work?

Code: Select all

procedure TForm.Volumebar1Change(Sender: TObject);
begin
  Stockaudioplayer1.volume:=volumebar1.position;
end;

At designtime, set Options property to [woSetVolume].

If you use TAudioMixer, you'll have more flexibility to control volume.

Yes! It's working!

I'll propmise that this(these) will be the last question(s):

Is it true that when you pause the StockAudioPlayer, then the last position(before the pause) is stored somewhere and used, when its unpaused again?

If it's true, then is it possible to change it, while the player is paused?

Yes!

How can I do that?

Using the Position property.
Please read the ReadMe file.