next »

[fredvs]

Hello folks, i dont hear anything, where is the problem ?
(of course sample.mp3 exists and is ok)

procedure TForm1.Button1Click(Sender: TObject);
var
f: PChar;
stream, streamreverse : hstream;

begin

f := PChar('sample.mp3') ;
stream := BASS_StreamCreateFile(FALSE, f, 0, 0, 0);
streamreverse := BASS_FX_ReverseCreate(stream,2.0,true) ;
BASS_StreamPlay(streamreverse, FALSE, 0)  ;

end;

[(: JOBnik! :)]

Hi

You have to make a DECODED stream 1st
add a flag: BASS_STREAM_DECODE here:

stream := BASS_StreamCreateFile(FALSE, f, 0, 0, BASS_STREAM_DECODE);

and if you want a better MP3/2/1 Reverse playback then use another flag: BASS_MP3_SETPOS

Have fun!

JOBnik!

[fredvs]

Sorry but it is still muted....

[(: JOBnik! :)]

Hi

The 3rd parameter of the function:
BASS_FX_ReverseCreate(..);

is:
decode : allow the reversed stream to be created as a decoding channel, if you would like to use it with BASS_FX_Pitch... + DX8 FX.

set it to - FALSE - if you don't use it with BASS_FX_Pitch... functions, or to - TRUE - if you do

Have fun!

JOBnik!

[fredvs]

Still sorry, it doesnt work.
To say my truth, bass.dll works perfectly with my old Delphi 3, playing hours and hours, with full bass effects, multiple streams,... but with all the others dll (bass_fx,...) i have problems.
Perhaps it is when i have adapted bass_fx.pas to work with Delphi 3.
Thanks to Ian, for bass.pas i have no problems with the adaptation, all the functions (that i have tried) are recognized.
I have tried one more time to work with that dll, but i think i gonna do this effect by myself.

[(: JOBnik! :)]

Hi

It works fine for me with C/C++ and VB
Try to rename the 3rd parameters type from: Boolean
to LongBool

Hope it helps

Have fun!

JOBnik!

[(: JOBnik! :)]

Hi

I don't know which values are supported with: Boolean type in Delphi.
But the actual values should be:
TRUE  = 1
FALSE = 0
So, I guess you can change it to Integer and Post the Values: 0 or 1 (instead of TRUE/FALSE)

Have fun!

JOBnik!

[fredvs]

Hello
I dont think the problem is boolean, Delphi accept the boolean parameters (and even if it does not recognize, i will receive a error message).

The problem is that it seems to load well, it accept each parameter but when i click, no error message but.. a heard no sound....