- Код: Выделить всё
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
bass;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Label1: TLabel;
ListBox1: TListBox;
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
url_radio: HSTREAM;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
BASS_Init(-1,44100,0,Handle,nil);
BASS_SetConfig(BASS_CONFIG_NET_PLAYLIST, 1);
ListBox1.Items.LoadFromFile('playlist.pls');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
url:string;
begin
try
url:=Edit1.Text;
//Освобождаем память, если ранне уже играл поток
BASS_StreamFree(url_radio);
//Создаем новый поток.
url_radio:=BASS_StreamCreateURL(PAnsichar(url),0,BASS_STREAM_STATUS,nil,Nil);
//Воспроизводим его.
BASS_ChannelPlay(url_radio,False);
except
on e:Exception do
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
BASS_ChannelPause(url_radio);
end;
end.
Компиллируется. Но при запуске выдает ошибку: Ошибка при загрузке приложенич 0xc000007b. Для выхода нажмите ОК. Библиотеку bass.dll уже брал для 64 битных ОС - не помогло. В чем может быть причина? Спасибо
Добавлено спустя 2 часа 24 минуты 32 секунды:
Разобрался =), дело было в библиотеке - использовал для 32 бит, а надо 64. ))