Ошибка при выхове функций Bass.dll из другой DLL

[SalasAndriy]

Доброго времени суток! У меня такая проблема...
использую библиотеку Bass.dll. Создал свою библиотеку которая использует функции из bass.dll...
А теперь когда использую функции со своей библиотеки, то они выдают ошибку...

Вот код:

Кусок моей библиотеки:

uses
  Windows, bass;

procedure APK_CPUUsageInit;
begin
  if MHNDL = 0 then
  begin
    MHNDL := GetModuleHandle('ntdll.dll');
    if @NtQuerySystemInformation = nil then
      NtQuerySystemInformation := GetProcAddress(MHNDL,
        'NtQuerySystemInformation');
    TimeBot := 0;
    UsageBot := 0.00;
  end;
end;

function APK_GetCPUUsage: Double;
begin
  Result := UsageBot;
  if @NtQuerySystemInformation <> nil then
  begin
    TimeCur := GetTickCount();
    if TimeCur - TimeBot < 500 then
      Exit
    else
    begin
      TimeBot := TimeCur;

      status := NtQuerySystemInformation(SystemBasicInformation, @SysBaseInfo,
      SizeOf(SysBaseInfo), nil);
      if status <> 0 then
      Exit;

      status := NtQuerySystemInformation(SystemTimeInformation, @SysTimeInfo,
      SizeOf(SysTimeInfo), nil);
      if status <> 0 then
      Exit;

      status := NtQuerySystemInformation(SystemPerformanceInformation, @SysPerfInfo,
      SizeOf(SysPerfInfo), nil);
      if status <> 0 then
      Exit;

      if (liOldIdleTime.QuadPart <> 0) then
      begin

        // CurrentValue = NewValue - OldValue
        dbIdleTime := Li2Double(SysPerfInfo.liIdleTime) -
          Li2Double(liOldIdleTime);
        dbSystemTime := Li2Double(SysTimeInfo.liKeSystemTime) -
          Li2Double(liOldSystemTime);

        // CurrentCpuIdle = IdleTime / SystemTime
        dbIdleTime := dbIdleTime / dbSystemTime;

        // CurrentCpuUsage% = 100 - (CurrentCpuIdle * 100) / NumberOfProcessors
        dbIdleTime := 100.0 - dbIdleTime * 100.0 / SysBaseInfo.bKeNumberProcessors
          + 0.5;

      end;

      // store new CPU's idle and system time
      liOldIdleTime := SysPerfInfo.liIdleTime;
      liOldSystemTime := SysTimeInfo.liKeSystemTime;

      UsageBot := dbIdleTime;
      Result:= dbIdleTime;
    end;
  end;
end;

procedure APK_CPUUsageFree;
begin
  if @NtQuerySystemInformation <> nil then
  begin
    @NtQuerySystemInformation := nil;
    FreeLibrary(MHNDL);
    TimeBot := 0;
    UsageBot := 0.00;
    MHNDL := 0;
  end;
end;

function APK_Init(device: LongInt; freq, flags: DWORD; win: HWND; clsid: PGUID): BOOL;
begin
  Result := BASS_Init(device, freq, flags, win, clsid);
end;

exports 
  APK_CPUUsageInit,
  APK_GetCPUUsage,
  APK_CPUUsageFree,
  BASS_Init;

Присоеденяю её к программе статически. И когда использую в своей программе например функции APK_CPUUsageInit или APK_GetCPUUsage или APK_CPUUsageFree, то всё работает, а как только вызываю функцию APK_Init которая использует внутри себя функции из Bass.dll, то выдает вот такую ошибку программа как на рисунке ниже, а то и вообще падёт...



Подскажите пожалуйста что это может быть? Я же всё правильно делаю!
все библиотеки и моя и Bass.dll находятся в одном каталоге с программой...

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

exports 
  APK_CPUUsageInit,
  APK_GetCPUUsage,
  APK_CPUUsageFree,
  BASS_Init;

а как только вызываю функцию APK_Init

чет странно как то...
похоже что все норм=)
вы не экспортировали её

[SalasAndriy]

вы не экспортировали её

ой сори... поправочка...

exports 
  APK_CPUUsageInit,
  APK_GetCPUUsage,
  APK_CPUUsageFree,
  APK_Init;

допустил ошибку... у меня вот так стоит! и не работает...
и такая ошибка происходит со всеми функциями моей DLL из которых вызываются функции Bass.dll
http://www.programmersforum.ru/showthread.php?t=5999
Выдаёт тоже самое исключение...

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

посмотрите модуль bass.pas который у вас включен в юзес,
попробуйте вызывать функции сами...без модуля этого.

[SalasAndriy]

пробывал... Я и сам думал что какой-то косяк там... но создал проект подключил bass.pas юзал некоторые функции и работает отлично... Музыку воспроизводит! И без всяких исключений... всё коректно работает. А вот когда пытаюсь вызывать эти функции через библиотеку, начинает ругаться:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 000607C6. Read of address 000607C6'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

Такое чувство что Bass.dll не разрешает использовать свои функции из другой DLL, а только напрямую из программы...
Такое возможно?

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

просто пас может быть расчитан на применение именно внутри приложения...

[SalasAndriy]

Ну вот пробывал кое что...
Если зделал вот так в своей библиотеке:

function APK_Init(device: LongInt; freq, flags: DWORD; win: HWND; clsid: PGUID): BOOL;
var
  Channel: DWORD;
begin
  BASS_Init(device, freq, flags, win, clsid);
  BASS_Start;
  Channel := BASS_StreamCreateFile(False, 'roxette_-_habla_el_corazon.mp3', 0, 0, 0);
  BASS_ChannelPlay(Channel, False);
  Result := True;
end;

И теперь когда вызываю эту функцию APK_Init выдаёт тоже исключение но играет музыка!
Значит всё-таки можно проиграть... Но когда всё по одельности нехочет...

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

используйте try except и определите виновника...
а там посмотрите реалицию в модуле(pas)
если она стандартная то тогда не знаю