Воспроизведение MIDI файлов в Bass.dll

[werrey]

Здравствуйте.Подскажите пожалуйста, как воспроизвести MIDI (.mid) файл в библиотеке Bass.dll?

[ZuBy]

загрузи bass_midi.dll и используй sound fonts
все подробности есть на un4seen.com

[werrey]

Сообщение от ZuBy

загрузи bass_midi.dll и используй sound fonts
все подробности есть на un4seen.com

Приведите пример если можете, библиотеку bassmidi.dll и файл bassmidi.pas
в проект добавил, в uses BASSmidi прописал.

А как воспроизвести?

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, BASS, mmsystem, BASSmidi;
type
  TChannelType = (ctUnknown, ctStream, ctMusic);//звук Bass.Dll

type
  TForm2 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
   Channel: DWORD;
    ChannelType: TChannelType;
   function BASS_PlaySoundFile(const FileName: string): Boolean;
    { Private declarations }
  public
   procedure WMMove(var Msg: TWMMove); message WM_MOVE;
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit3, Unit4, Unit1;

{$R *.dfm}
function TForm2.BASS_PlaySoundFile(const FileName: string): Boolean;
var
  ChannelInfo: BASS_CHANNELINFO;
begin
  Result:= False;
Channel:= BASS_StreamCreateFile(False, PAnsiChar(AnsiString(FileName)), 0, 0, 0);
  if (Channel <> 0) then
    ChannelType:= ctStream;

  if (Channel <> 0) then
  begin
    BASS_ChannelPlay(Channel, False);
  end;
  Result:= Channel <> 0;
end;
procedure TForm2.WMMove(var Msg: TWMMove);
 begin
 inherited;
if (Visible) then
 FormResize(Self);
 end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Form3.Show;
Form4.Close;
//Form2.SendToBack;
//Form2.BringToFront;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Form4.Show;
Form3.Close;
//Form2.SendToBack;
//Form2.BringToFront;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
BASS_ChannelSlideAttribute(Channel,Bass_ATTRIB_VOL, 0 / 100,3000); //затихание звука
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  BassInfo: BASS_INFO;
begin
  BASS_Init(1, 44100, BASS_DEVICE_3D, Handle, nil);
  BASS_Start;
  BASS_GetInfo(BassInfo);
end;
procedure TForm2.FormResize(Sender: TObject);
begin
with Form3 do
 begin
 Form3.Top := Form2.Top+240 ;
 Form3.Left :=Form2.Left+360;
 end;
with Form3 do
 begin
 Form4.Top := Form2.Top+240 ;
 Form4.Left :=Form2.Left+310;
 end;


 end;

procedure TForm2.FormShow(Sender: TObject);
begin
 BASS_streamfree(channel); // все 5 строк для одного файла (Channel)
 Channel:=Bass_StreamCreateFile(false,Pchar(ExtractFilePath(ParamStr(0))+'Sound/drn.mid'), 0, 0, BASS_SAMPLE_LOOP  or {$IFDEF UNICODE} BASS_UNICODE {$ELSE} 0 {$ENDIF});
 BASS_ChannelPlay(Channel, False);
 BASS_ChannelSetAttribute(Channel,Bass_ATTRIB_VOL,0);
 BASS_ChannelSlideAttribute(Channel,Bass_ATTRIB_VOL,  + 1,10000);





 end;

end.

[ZuBy]

а где загрузка bassmidi плагина?
та и вообще в архиве bassmidi есть демо miditest