[ART]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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;