Цитата:
|
Сообщение от lmikle
Там надо указвапть ID ресурса. Естественно, я не знаю с какими ID ты запихал ресурсы, соотв. надо поправить.
|
И так создал файл с mp3 ресурсами через brcc32.exe.
Шаг 1. Создал новую папку. В нее запихал mp3-файлы.
mp3fnp.jpg
Шаг 2. В эту же папку запихал файлы brcc32.exe и cw3220mt.dll (оба файла брал с просторов интернета т.к. у меня их не было).
brcc32.jpg
Шаг 3. В этой папке создал текстовый файл (назвал его DataSound и потом расширение поменял на .rc) и написал в нем:
dsrc.jpg
Шаг 4. В этой же папке создал еще текстовый файл (назвал его 1 и поменял расширение на .bat). В нем написал:
bat.jpg
Шаг 5. Даблклик по батнику и файл с ресурсами готов.
Шаг 6. Подключаем файл с ресурсами.
Код:
implementation
{$R DataSound.res}
Шаг 7. Запускаем bass.dll.
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
BASS_Init(-1, 44100, 0, handle, nil);
BASS_Start;
end;
Шаг 8. Описываем кнопку.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
R : TResourceStream;
begin
R := TResourceStream.Create(HInstance, 'S1', RT_RCDATA);
channel:=BASS_StreamCreateFile(true, R.memory, 0, 0, 0 );
bass_channelplay(channel,true);
end;
Единственное, что изменило создание ресурса через brcc32.exe это то, что он теперь его видит и не выдает ошибку, но воспроизводить почему-то не хочет.