[ART]

Я пробовал и так:

Код:

procedure TMyClass.Play;

procedure StatusProc(buffer: Pointer; len, user: DWORD); stdcall;
begin
 if (buffer <> nil) and (len = 0) then
  FFile.Write(Buffer^, Len);
end;

var
 Stream: HSTREAM;
begin
 FFile := TFileStream.Create('C:\temp.mp3', fmCreate);
 Stream :=  BASS_StreamCreateURL(PAnsiChar(FURL), 0, BASS_STREAM_STATUS, @StatusProc, nil); //Ошибка 
 if BASS_ErrorGetCode = 0 then begin
   BASS_ChannelPlay(Stream, true);
 end;
end;