Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 5 455

Раздел: Delphi » Мультимедийные приложения
/ вопрос решён /

Доброго времени суток, уважаемые эксперты!
Проблема с Bass, программа упорно не хочет воспроизводить файл.. вот исходник:

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

ierihon1 Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: ierihon1 (статус: 1-ый класс)
Вопрос отправлен: 27 июня 2011, 22:37
Состояние вопроса: решён, ответов: 0.


Мини-форум вопроса

Всего сообщений: 2; последнее сообщение — 28 июня 2011, 00:22; участников в обсуждении: 2.
Александр Дубик

Александр Дубик (статус: 1-ый класс), 28 июня 2011, 00:17 [#1]:

На неюникодных версиях Delphi код по идее должен отработать без проблем, а для юникодных необходимо указать BASS'у, что Вы передаёте ему строку в юникоде (извиняюсь за красновато-красный)

Замените строку
Channel:=Bass_StreamCreateFile(False,FFileName,0,0,0);
на
Channel:=Bass_StreamCreateFile(False,FFileName,0,0,0{$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});

И заодно попробуйте заменить
  if not FileExists(FileName) then Exit;
на 
  if not FileExists(FileName) then
  begin
    MessageBox(0, PChar(Format('Файл "%s" не найден.', [FileName])),
      PChar(Application.Title), MB_OK or MB_ICONSTOP);
    Exit;
  end;
ierihon1

ierihon1 (статус: 1-ый класс), 28 июня 2011, 00:22 [#2]:

Спасибо заработало) можно оформить в виде ответа на оценку не поскуплюсь)

28 июня 2011, 00:23: Статус вопроса изменён на решённый (изменил автор вопроса — ierihon1)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 31 октября 2025, 07:08
Выполнено за 0.04 сек.