Работа с Bass.dll инициализация

[HellMercenariess]

Открыл один из самых простых примеров поставляемых в демо баса, стянул код инициализации но после переноса все это критует при старте.

procedure TForm1.FormCreate(Sender: TObject);
begin
	modc := 0;		// music module count
	samc := 0;		// sample count
	strc := 0;		// stream count
               
	// check the correct BASS was loaded
	if (HIWORD(BASS_GetVersion) <> BASSVERSION) then
	begin
		MessageBox(0,'An incorrect version of BASS.DLL was loaded',nil,MB_ICONERROR);
		Halt;
	end;

	// Initialize audio - default device, 44100hz, stereo, 16 bits
	if not BASS_Init(-1, 44100, 0, Handle, nil) then
		Error('Error initializing audio!');
end;

я не вижу где он загружает длл, так дописал дополнительно после strc := 0;

 LoadLibrary('Bass.dll');

но это не помогает.

[GunSmoker]

Все косяки - здесь:

после переноса

[Пепел Феникса]

ошибку то какую пишет?
басс.пас поддается отладке в принципе и грузит она помоему сама в инициализации модуля, может просто длл не видит?

[HellMercenariess]

Сообщение от Пепел Феникса

ошибку то какую пишет?
басс.пас поддается отладке в принципе и грузит она помоему сама в инициализации модуля, может просто длл не видит?

В Delphi7 нормально можно пользоватся, а для D2009 там дополнительные условия

NOTE: Delphi 2009 users should use the BASS_UNICODE flag where possible

я не заметил..

[inndim]

HellMercenariess
Подключаем в uses bass и всё прекрасно работает.

procedure TForm1.FormCreate(Sender: TObject);
begin
 if (HIWORD(BASS_GetVersion) <> BASSVERSION) then
  begin
   MessageBox(0,'An incorrect version of BASS.DLL was loaded',nil,MB_ICONERROR);
   Halt;
  end;
 BASS_Init(-1, 44100, 0, Application.Handle, nil);
 BASS_Start;
end;