|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.03.2012, 23:35 | #1 |
Регистрация: 06.04.2011
Сообщений: 4
|
Bass.dll не воспроизводится wav
Есть программа, которая должна воспроизводить выбранный файл.
Вроде бы всё правильно, ошибок не выдает, однако звука нет. Как это исправить? unit Unit1; interface uses Windows, Messages, SysUtils, bass, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; filename: string; channel: cardinal; implementation {$R *.dfm} procedure basicplayerplayfile( const filname:string); var ffilename: pchar; begin if not fileexists(filename) then exit; ffilename:=pchar(filename); if channel <>0 then begin bass_channelstop(channel); bass_streamfree(channel); channel:=0; end; channel:=bass_streamcreatefile(fals e,ffilename,0,0,0); if channel=0 then begin messagebox(0,'Ошибка загрузки файла',0, mb_ok or mb_iconstop); exit end; if not bass_channelplay(channel,false) then begin messagebox(0,'Ошибка воспроизведения файла',0, mb_ok or mb_iconstop); exit; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if opendialog1.execute then begin basicplayerplayfile(opendialog1.Fil eName); Bass_channelPlay(channel, false); end; end; procedure TForm1.FormCreate(Sender: TObject); begin if not BASS_Init(-1, 44100, 0, handle, nil) then halt; end; end. |
15.03.2012, 11:54 | #2 |
Участник клуба
Регистрация: 29.09.2008
Сообщений: 1,234
|
Какая версия Delphi?
Если Delphi 2009 и выше то флаг BASS_UNICODE надо добавить и вот тут TRUE, чтобы трек сначала воспроизвелся Код:
|
16.03.2012, 16:09 | #3 |
Форумчанин
Регистрация: 30.01.2009
Сообщений: 418
|
класс TBassSimple позволяет легко и просто создавать программы на Delphi с фукнцией воспроизведения mp3/ogg/wav файлов даже многопоточно, используя ресурсы bass.dll
документация - http://jqbook.narod.ru/delphi_bass.html |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
BASS.DLL | Serrg1994 | Мультимедиа в Delphi | 0 | 20.09.2011 21:38 |
Ошибка при выхове функций Bass.dll из другой DLL | SalasAndriy | Общие вопросы Delphi | 7 | 21.10.2009 23:36 |
BASS DLL | ygy | Мультимедиа в Delphi | 4 | 29.09.2009 04:39 |
BASS.DLL | VintProg | Мультимедиа в Delphi | 2 | 21.09.2009 16:36 |
bass.dll | Elem | Мультимедиа в Delphi | 18 | 19.07.2009 11:04 |