Показать сообщение отдельно
  #1  
Старый 09.10.2011, 13:32
ART ART вне форума
Продвинутый
 
Регистрация: 13.02.2006
Адрес: Магнитогорск
Сообщения: 669
Репутация: 14745
По умолчанию Ошибка с bass.dll

Если убрать @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;
Ответить с цитированием