|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Не работает воспроизведение звука в Bass
Есть код, согласно которому программа должна предлагать выбрать музыкальный файл и проигрывать его
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, bass, StdCtrls ; type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Channel: HStream; implementation {$R *.dfm} procedure BasicPlayerPlayFile(const FileName: 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 (False,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 MessageBox(0,'Ошибка возпроизведения файла',0,MB_OK or MB_ICONSTOP); end; procedure TForm1.FormCreate(Sender: TObject); begin if not Bass_init(-1,44100,0,Handle,nil) then Halt; end; procedure TForm1.Button1Click(Sender: TObject); begin if not dlgOpen1.Execute then exit BasicPlayerPlayFile(dlgOpen1.FileName); end; end. Но возникает ошибка вот в этой строчке Код:
if not dlgOpen1.Execute then exit Пишет: Undeclared identifier: 'dlgOpen1' |