VPF::проигрsim .mp3 с применением библиотеки bass

Serhik_z

Дата 11.12.2005, 12:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Как можно проиграть файл mp3 с применением библиотеки bass.dll

smile

oleg1973

Дата 11.12.2005, 16:43 (ссылка)

(нет голосов)

Загрузка ...

asm fanat

Профиль
Группа: Экс. модератор
Сообщений: 3283
Регистрация: 16.7.2003
Где: Italy

Репутация: нет
Всего: 34

Serhik_z
ну ты ленивый блин
там же в архиве вместе с библиотекой примеры идут

--------------------

SST 465555
icq 200-512-712

Serhik_z

Дата 12.12.2005, 18:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Создал файл MusicRec.RC с содержимым MUSIC1 RCDATA sample.mp3
Компильнул его в MusicRec.RES - (sample.mp3)
в папку проекта кинул три файла sample.mp3, Bass.pas, bass.dll
Не могу откомпелировать проект, компилятор выдает 3 ошибки.
1 ошибка - Result:=BASS_Init(-1, 44100, 0, Handle); - Unit.pas(40)
2 ошибка - if BASS_SamplePlayEx(Music, 0, -1, 100, 0, True)<=0 then - Unit.pas(74)
3 ошибка - Bass in 'Bass.pas'; - Project1.dpr(6)
Подскажите как сделать правильно.

Project1.dpr

Код


program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Bass in 'Bass.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'Процессы';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Unit1.pas

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, MMSystem, bass,
  StdCtrls, Buttons, ExtCtrls;


type
  TForm1 = class(TForm)
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    Music : THandle;
    function InitBass:boolean;
    procedure Load;
    procedure Play;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  const MessageTitle='MP3 In Resource';
      MusicSize=59948;

implementation

{$R MusicRec.RES}
{$R *.dfm}


function TForm1.InitBass: boolean;
begin
Result:=BASS_Init(-1, 44100, 0, Handle);
  BASS_Start;
end;

procedure TForm1.Load;
var
  RSRC               : HRSRC;
  RES                : THandle;
  P                  : Pointer;
begin
  RSRC:=FindResource(HInstance, 'MUSIC1', RT_RCDATA);
  if RSRC = 0 then
  begin
    MessageBox(Handle,'Ресурс не найден.', MessageTitle, MB_ICONERROR+MB_OK);
    Exit;
  end;
  RES:=LoadResource(HInstance, RSRC);

  P:=LockResource(RES);

  Music:=BASS_SampleLoad(TRUE, P, 0, MusicSize, 3, BASS_SAMPLE_OVER_POS);

  if Music<=0 then
  begin
    MessageBox(Handle,'Ошибка инициализации.', MessageTitle, MB_ICONERROR+MB_OK);
    Exit;
  end;

  UnlockResource(RES);
  FreeResource(RES);
end;

procedure TForm1.Play;
begin
  if BASS_SamplePlayEx(Music, 0, -1, 100, 0, True)<=0 then
  begin
    MessageBox(Handle,'Ошибка воспроизведения.', MessageTitle, MB_ICONERROR+MB_OK);
    Exit;
  end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
 InitBass;
  Load;
  Play;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 BASS_Stop;
  BASS_SampleFree(Music);
  BASS_Free;
end;

end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »