Take a look @ the Record Example

http://www.un4seen.com/forum/?topic=14090.msg98109#msg98109

I don`t think that vb6(15 years old dev language strange)  knows unicode
so change it to

if(xVideo_ChannelGetStream(chan,I,@str,0)) then
   begin
     menu := TMenuItem.Create(PopupMenu1);
     menu.Caption := PAnsiChar(str.name);
     menu.Checked := str.enabled;
     menu.Tag := I;
     menu.OnClick := EnableStream;
     Popupmenu1.Items.Items[2].Items[str.format-1].Add(menu);
   end;

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

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

Hi
will extract here fine . You have to clear your cache in your browser.
To download addons here the link
http://www.un4seen.com/bass.html#addons

no not the formname ...the formhandle....
i`m not shure how its declare in qt....
eg in other Dev Languages the most time....something like  Form1.Handle

should be

BASS_Init(-1,44100,0,WinHandle,NULL);

(winhandle the windowhandle of your form)

do you have add in the Bass_Init Call a windowhandle?

and what is the return from

stream=BASS_StreamCreateFile(false,filename.toLocal8bit().constData,0,0,BASS_UNICODE);

Hi
 filename.toLocal8bit ?
will that mean unicode?
if yes then you call must be
BASS_StreamCreateFile(false,filename.toLocal8bit().constData,0,0,BASS_UNICODE);

the maxnr stuff will mean that something is wrong

just place a Bass_ErrorGetCode() call to catch whats going on.

Hi
If I right understand want you to change pitch AND Tempo together?

BASS_ChannelSetAttribute(chan, BASS_ATTRIB_TEMPO_FREQ,FREQ.pos);
BASS_ChannelSetAttribute(chan, BASS_ATTRIB_TEMPO, Tempo.pos);

Based on your Dev Language take a look into the samples of the bass_fx packages

typedef struct {
    DWORD track;
    DWORD pos;
    char *text;
} BASS_MIDI_MARK;

pos is a DWORD should be (so far i know) in net a unsigned int

hm I think thats normaly while a stream is playing.....maybe you have to insert that self...

@ Ian
I will try at this moment to port the Win Delphi Header to XE4 Mobile ...
and making a small Demo for Delphi Xe4 User...(XE4 IOs is supportet)
One Question about the Ansistrings /AnsiChars/PAnsiChar  inside the calls and the records....
Are they Ansi as in Windows or now Wide/Unicode?
Cheers Chris

this should work

procedure LevelDSP(handle: HDSP; channel: DWORD; buffer: Pointer; length: DWORD;
  user: Pointer); stdcall;
var
  a: DWORD;
  fLeft, fRight: PSingle;
begin
  fLeft := buffer;
  fRight := buffer;
  inc(fRight);
  a := 0;
  levels[0] := 0;
  levels[1] := 0;
  while (a < (length div 4)) do
  begin
    if (levels[0] < (abs(fLeft^))) then
      levels[0] := (abs(fLeft^)); // check left
    if (levels[1] < (abs(fRight^))) then
      levels[1] := (abs(fRight^)); // check right
    inc(a, 2);
  end;
end;

s:= @buffer;

s:=buffer;

Great
Thank you

oops thats right Thanks...
The Code above is now corrected