[String(PWideChar(str.name));]

var
 menu: TMenuItem;
 count: Integer;
 str: xVideo_STREAMS;
 I: Integer;
begin
 Popupmenu1.Items.Items[2].Items[0].Clear;
 Popupmenu1.Items.Items[2].Items[1].Clear;
 Popupmenu1.Items.Items[2].Items[2].Clear;
 count := xVideo_ChannelStreamsCount(chan);
 if(count<=0) then exit;
 for I := 0 to count-1 do
 begin
   if(xVideo_ChannelGetStream(chan,I,@str,xVideo_UNICODE)) then
   begin
     menu := TMenuItem.Create(PopupMenu1);
     menu.Caption := String(PWideChar(str.name));
     menu.Checked := str.enabled;
     menu.Tag := I;
     menu.OnClick := EnableStream;
     Popupmenu1.Items.Items[2].Items[str.format-1].Add(menu);
   end;
 end;
end;

HEre is the delphi code to get the streams. About vb code, sorry don't know so much VB.

Ionut

sorry Ionut does not work properly
String(PWideChar(str.name)); 'not found

what can I do now???

subh 

Thanks Ian.

I have another question. How do I obtain the fft values of the resampled audio files over time? I have done this.

while (BASS_ChannelIsActive(mixerStream)) {
         long byte_pos = BASS_ChannelSeconds2Bytes(mixerStream, time);
         BASS_ChannelSetPosition(mixerStream, byte_pos, BASS_POS_BYTE);
         float fft[2048];

         int b0 = 0;
         BASS_ChannelGetData(mixerStream, fft, BASS_DATA_FFT4096);  //get the fft data      
                        fprintf(fft, "\n");
                        time++;   

}

The audio file is about 700s. But when I check the output, it gave samples over 6000s? If I write the audio to a file and play it, the length of the audio is also 700s. Why is this so?

Is it possible for you to make it not required to have a info window by having all the options in the main panel?

This will be useful for the skin I would like to make.
The skin will be true vista like.

It's works ! Thank youuuu , Chris ! No arhive damage and no file corrupt now . Maybe ... it's from your server ... or I don't know :-??

Here a Mirror but I think the problem is not the File the problem is on your PC
http://ul.to/s26ru1tl

Some virus scanners do deep packet inspection and kill "suspcious" TCP packets. Sometimes this can damage downloaded files without the user noticing, because they do it in a silent manner. Try disabling your antivirus temporarily while downloading the file, and check if it solves the problem. If it fixes the problem, find out how to disable packet inspection.

then upload to some minors ?

hm maybe you have a proxyserver or whatever .
I have tested it here fine
For a Attache in the forum its to big (32 MB)

Hi Chris,
did you got it working?
Is it easy or hard to do this with XE4?
Should i buy XE4, or wait again for a working verison? ;-)
Cheers, Bert

Its possible but there must change things in the header....
The Only Problem is the Delphi Mobile Compiler (he doesn`t know/support Ansi)
will mean all ansi stuff in the bass header must change from ansi to byte of array

I am doing a project in which i have to mix audios and make scratching effect like DJ Apps.I have done with scratching. but can't mix the audios.also can't include mixer lib.
is there any help to make this thing work.
thanks a lot