bass.dll

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

bass.dll

Сообщение maksmkv » 18.02.2019 12:35:58

Всем привет. Пытаюсь скомпилировать код:

Код: Выделить всё
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. ))
maksmkv
новенький
 
Сообщения: 22
Зарегистрирован: 29.08.2013 23:58:50

Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 10

Рейтинг@Mail.ru