[ART]

Если убрать @StatusProc и поставить nil, то все воспроизводится, но если оставить - вылазит Access violation. Что я делаю не так?

Код:

var
 stream: HSTREAM;

procedure StatusProc(buffer: pointer; length: cardinal; user: pointer);
begin
// 
end;

procedure TForm1.play;
var
i: integer;
f:PChar;
begin
 f := 'http://blabla.mp3';
 stream := BASS_StreamCreateURL(f, 0, BASS_STREAM_STATUS, @StatusProc, 0);
 BASS_ChannelPlay(stream, true);
end;