to reproduce the whole folder

[Neprofi]

how in the project to reproduce the whole folder consisting of sounds???Help please!

[typo]

Code: [Select]

var
  FilesList: TStringList;
  i :Integer;
begin
  FilesList := TStringList.Create;
  try
    FindAllFiles(FilesList, ExtractFilePath(Application.Exename) + '\sound');
    for i := 0 to FilesList.Count - 1 do
      OpenDocument(FilesList[i]);
  finally
    FilesList.Free;
  end;
end;         

[Neprofi]

I work with bass library. what code is necessary that at the termination of a track it would pass with the machine gun to the following? for earlier thanks)))

[typo]

Something similar to this:

http://forum.lazarus.freepascal.org/index.php/topic,28666.0.html

[skalogryz]

Neprofi is expecting the first track to finish before the next one starts.
That's why OpenDocument won't work, since it doesn't wait until the first track finishes.

But you're right, I'm going to merge two topics together.

[Neprofi]

isn't present to me it is necessary here that: the song plays when it ended is reproduced following automatically!

[rvk]

Actually it should have been merged with this question:
http://forum.lazarus.freepascal.org/index.php/topic,28632

I already provided help to Neprofi with playing files after each other in combination with the Bass library:
http://forum.lazarus.freepascal.org/index.php/topic,28632.msg179291.html#msg179291

If he/she already has that code I'm not sure why he/she is asking it again.

[Neprofi]

The question sounds in that: that I through ini will reproduce the file! and this function for some reason doesn't work any more (((at me the list is set in ini the file through it I connect that the sound would play, when pressing on before plays and plays back, and here that the machine gun the song would play the code didn't approach (((

[Neprofi]

can throw a code??
in general the same code only not a lot of functions changed, procedures are cleaned with Listbox! and now the list through ini the file at me)) I think will be ((but уменя everything is impossible in turn the machine gun to reproduce so easier ((((be so kind as help (((

[typo]

Download this new example:

http://sourceforge.net/projects/lazarusfiles/files/Example.zip/download

Code: [Select]

// uses Process;

var
  FilesList: TStringList;
  i :Integer;
begin
  p8.Executable := 'mplayer.exe';
  //p8.ShowWindow := swoHIDE;   // uncomment this to hide console
  FilesList := TStringList.Create;
  try
    FindAllFiles(FilesList, ExtractFilePath(Application.Exename) + '\sound');
    for i := 0 to FilesList.Count - 1 do
      //OpenDocument(FilesList[i]);
      p8.Parameters.Add(FilesList[i]);
    p8.Execute;
  finally
    FilesList.Free;
  end;
end;     

[Neprofi]

and here I don't use stringlist. I from ini of the file read)))

[Neprofi]

It takes the song address from a file ina, and the musical library reproduces the sound which is to that address)

[skalogryz]

Neprofi, you really don't understand the way people are trying to help you.

So in the example above, typo, showed you how to play sounds based of the TStringList.
Re-writting the example to play sounds based of TIniFile is considered the very easy task for pascal developers.

Also, according to rvk's posted thread, you already should have the code that actually plays the list of sounds. But it feels like you've problems adapting it.

They're showing you examples of how the stuff can work, without any binding to your specific task.
They do expect you to be able to combine their example with the code you have.
You're trying to make them write examples according to the task you have.

[Neprofi]

it is possible a code I will show and you tell that isn't enough??

[skalogryz]

Due to the nature of your problem (not willing to learn), I won't do that for free, but others could