Здравствуйте, столкнулся с такой проблемой. Пишу небольшой проигрыватель на android и ios, на дроиде работает все нормально, а вот с яблоком проблема: не загружает библиотеку libbass.a Добавил ее в Deployment, сохраняется по пути StartUp/Library/ . Файл записывается на устройство, но библиотека все равно не грузится. Код загрузки библиотеки:
const
bassdll = 'libbass.a';
function BASS_FOLDER: String;
begin
{$IFDEF MSWINDOWS}
Result := '';
{$ELSE}
Result := IncludeTrailingPathDelimiter(system.IOUtils.TPath.GetLibraryPath);
{$ENDIF}
end;
procedure LoadBassDLL;
var
DocDir: string;
begin
docDir:=BASS_FOLDER + bassdll;
if fileExists(docDir) then begin
FBassDLL := LoadLibrary(PChar(docDir));
if FBassDLL = 0 then
Exit;
end;
end;
Файл существует, но LoadLibrary возвращает значение 0. Уже всю голову сломал. В чем причина?
Вопрос
Martifan
Здравствуйте, столкнулся с такой проблемой. Пишу небольшой проигрыватель на android и ios, на дроиде работает все нормально, а вот с яблоком проблема: не загружает библиотеку libbass.a
Добавил ее в Deployment, сохраняется по пути StartUp/Library/ . Файл записывается на устройство, но библиотека все равно не грузится. Код загрузки библиотеки:
const bassdll = 'libbass.a'; function BASS_FOLDER: String; begin {$IFDEF MSWINDOWS} Result := ''; {$ELSE} Result := IncludeTrailingPathDelimiter(system.IOUtils.TPath.GetLibraryPath); {$ENDIF} end; procedure LoadBassDLL; var DocDir: string; begin docDir:=BASS_FOLDER + bassdll; if fileExists(docDir) then begin FBassDLL := LoadLibrary(PChar(docDir)); if FBassDLL = 0 then Exit; end; end;
Файл существует, но LoadLibrary возвращает значение 0. Уже всю голову сломал. В чем причина?
Ссылка на комментарий
1 ответ на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.