[HMR]

Пожалуйста помогите обработать ошибку, создал небольшой радиоплеер на TBassSimple. Все работает отлично, но иногда когда плеер не может загрузить ссылку. Выскакивает ошибка: "Не удалось создать поток BASS_ERROR_HANDLE (5)". Иногда просто достает эта ошибка. Можно ее как нибудь обработать чтобы она не выскакивала, а например в Label1 писалось что то вроде "не могу загрузить ссылку." Весь инет облазил но так ничего не нашел. Может кто сможет помочь.
Исходник прилагаю.

[poli-smen]

Сообщение от HMR

Пожалуйста помогите обработать ошибку, создал небольшой радиоплеер на TBassSimple. Все работает отлично, но иногда когда плеер не может загрузить ссылку. Выскакивает ошибка: "Не удалось создать поток BASS_ERROR_HANDLE (5)". Иногда просто достает эта ошибка. Можно ее как нибудь обработать чтобы она не выскакивала, а например в Label1 писалось что то вроде "не могу загрузить ссылку." Весь инет облазил но так ничего не нашел. Может кто сможет помочь.
Исходник прилагаю.

Если эта ошибка - исключение, то подавить отображение ошибки можно заключив код (который вызывает исключение) в блок try..except.
Пример:

Код:

1 2 3 4 5 6 7 8

procedure TForm1.Button1Click(Sender: TObject); begin   try     bs.Play(url);   except     // В случае исключения ничего не делаем   end; end;

[HMR]

Пробовал уже try..except ноль эмоций, то есть ошибка все равно выскакивает. Может есть еще предложения.

[poli-smen]

Сообщение от HMR

Пробовал уже try..except ноль эмоций, то есть ошибка все равно выскакивает. Может есть еще предложения.

Не могу проверить твой исходник из-за отсутствующего файла bass_simple.pas (и заодно и bass.pas), а тот который у меня есть - почему-то несовместим по параметрам.

[poli-smen]

И вот ещё что. Когда ты заключаешь в блок try..except, ты уверен что ошибку выдаёт именно приложение, а не отладчик Delphi? Попробуй запустить приложение не из под Delphi, а проводником.

[HMR]

Пробывал через проводник ошибка всеравно.
Вот файлы bass_simple.pas и bass.pas которые у меня.

[poli-smen]

Сообщение от HMR

Пробывал через проводник ошибка всеравно.
Вот файлы bass_simple.pas и bass.pas которые у меня.

Всё понятно. У тебя какая-то совершенно другая реализация модуля bass_simple.pas. У меня реализация от alexpac26 которая >>здесь<<.
Чтобы в той версии которую ты выложил не появлялось никаких сообщений закоментируй MessageBox в модуле bass_simple здесь:

Код:

1 2 3 4

procedure winmessage(h: HWND; text,caption: string; messtype: integer); begin   MessageBox(h,PChar(text),PChar(caption),messtype); end;

Или чтобы конкретно это сообщение не появлялось - закоментируй вызов winmessage вот здесь:

Код:

1 2 3 4 5

// запуск завершен if (stream = 0) then begin    winmessage(Handle,b_mess_error[b_mess_lang,2]+BassErrorString,'Error BASS_StreamCreateFile');    busy:=false; exit; end;

Ну или же используй bass_simple.pas из ссылки которую я выше привёл - там сообщения об ошибках сделаны через исключения, которые можно подавлять (или обрабатывать) с помощью try..except.

[HMR]

Спасибо, помогли. Скачал версию по старее и обработал через try..except.
только вот теперь не компилируется останавливается на строке: bs.OnTitleChange:=BassTitle; и пишет :Incompatible types: 'Parameter lists differ'. не могли бы еще помочь с этим.

[lmikle]

Смотри внимательно описание типа обработчика события OnTitleChange.
Сигнатуры этого типа и твоей процедуры BassTitle различаются (кол-во и/или тип параметров скорее всего).

[sariman]

Чего же так париться? Зачем использовать сторонние классы? С библиотекой BASS очень легко работать

[poli-smen]

Сообщение от HMR

Спасибо, помогли. Скачал версию по старее и обработал через try..except.
только вот теперь не компилируется останавливается на строке: bs.OnTitleChange:=BassTitle; и пишет :Incompatible types: 'Parameter lists differ'. не могли бы еще помочь с этим.

Ну да. Это же то о чём я писал - несовместимость по параметрам. Посмотри список параметров у своего метода BassTitle и список параметров типа TBassEvent свойства OnTitleChange, и тебе (надеюсь) станет ясно, что нужно изменить.

Сейчас посмотрел более внимательно - действительно, эти два модуля bass_simple.pas от одного и того же разработчика, но твоя версия поновее моей.
Из истории изменений:

Версия 1.7 Октябрь 2012
.....
- Убраны исключения Exceptions и заменены на MessageBox
.....

Вот здесь "собака и порылась"... Какое-то деградационное нововведение...

[alexpac26]

Не удалось создать поток BASS_ERROR_HANDLE (5)

1) тексты сообщений валяются в массиве

Код:

1 2 3 4 5 6 7 8 9 10

b_mess_error : array[0..1,0..3] of string =   ( ('Unknown file type'#13#10,  // eng 0       'File is not exists'#13#10,      'Stream is not created'#13#10,      'Play the Stream Error'#13#10 ),      ('Неизвестный формат файла'#13#10,  // rus 1       'Файл не найден'#13#10,      'Не удалось создать поток'#13#10,      'Не удалось запустить воспроизведение'#13#10 )   );

2) по коду ошибки в фукнции

Код:

1 2 3 4 5 6 7 8 9

procedure TBassSimple.Load;   // ...   // запуск завершен if (stream = 0) then begin    winmessage(Handle,b_mess_error[b_mess_lang,2]+BassErrorString,'Error BASS_StreamCreateFile');    busy:=false; exit; end;

вот тут допишите свой обработчик типа

Код:

1 2	if bassRadio and (BASS_ErrorGetCode = 5) then winmessage(Handle,'Не найдена радио станция','Ошибка');

насчет исключений да, не думал что может быть так, подумаю ...

насчет кодов ошибок тоже.



могу еще предложить в BassSimple ввести событие ошибки OnBassError : TBassErrorEvent = procedure (Sender: TObject; Text: string; Code: integer) of object;

и если оно не назначено то будут выдаваться messagebox как раньше, а если назначено то вызываеться событие и там сам как хочешь обрабатывай

и где такие радио станции нарыл что 90% не работают?

[HMR]

Спасибо всем что откликнулись. Проблема решена. Насчет радиостанций там специально ошибки есть чтобы ошибку показать.

[poli-smen]

Сообщение от alexpac26

могу еще предложить в BassSimple ввести событие ошибки OnBassError : TBassErrorEvent = procedure (Sender: TObject; Text: string; Code: integer) of object;

и если оно не назначено то будут выдаваться messagebox как раньше, а если назначено то вызываеться событие и там сам как хочешь обрабатывай

Тоже хороший вариант - в стандартном VCL часто используется такой приём что когда обработчик события не назначен, то выполняются совершенно другие действия. В любом случае всё же лучше, чем не давать возможность подавить/обработать ошибки иначе, кроме как править исходники bass_simple.pas