|
|
Регистрация | << Правила форума >> | 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' |
#2
|
||||
|
||||
Цитата:
Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |
#3
|
|||
|
|||
Извините, не понял, плохо разбираюсь в delphi
|
#4
|
||||
|
||||
Тут не в Дельфи разбираться нужно, а глаза на нужном месте иметь.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#5
|
|||
|
|||
Все же укажите на ошибку, пожалуйста
|
#6
|
|||
|
|||
Ту ошибку исправил, теперь выходит ошибка
'Missing operator or semicolon' в этом месте Код:
BasicPlayerPlayFile(OpenDialog1.FileName); |
#7
|
||||
|
||||
Там же пишет "или разделитель". Так вставь его.
|
#8
|
|||
|
|||
Что за разделитель?
Курсор при ошибке появляется между BasicPlayerPlayFile и (OpenDialog1.FileName); |
#9
|
||||
|
||||
Не знаешь Дельфи, учи.
Код:
procedure TForm1.Button1Click(Sender: TObject); begin if not dlgOpen1.Execute then Exit; BasicPlayerPlayFile(dlgOpen1.FileName); end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |