pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

trial to fix libsmpeg loading (mpeg support)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2828 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u
2013-11-02 07:56:42 +00:00
parent 60fbe07caa
commit e0105c9c37
3 changed files with 191 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/acs/Src/fileformats/linux/smpeg.pas
View File

@@ -110,7 +110,7 @@ const
{$ifdef LINUX}
LibsmpegPath = 'libsmpeg*.so*';
LibSDLPath = 'libSDL*.so*';
LibSDLPath = 'libSDL-*.so*';
{$ELSE}
LibsmpegPath = 'smpeg.dll';
LibSDLPath = 'SDL.dll';
@@ -189,16 +189,14 @@ var
begin
{$ifdef LINUX}
Path := FindLibs(LibSDLPath);
if Path <> '' then SDLhandle := dlopen(@Path[1], RTLD_NOW or RTLD_GLOBAL);
// SDLhandle := dlopen(LibSDLPath, RTLD_NOW{$IFDEF LINUX} or RTLD_GLOBAL{$ENDIF});
if Path <> '' then SDLhandle := dlopen(@Path, RTLD_NOW or RTLD_GLOBAL);
if SDLhandle = nil then exit;
SDL_Init := dlsym(SDLhandle, 'SDL_Init');
SDL_Quit := dlsym(SDLhandle, 'SDL_Quit');
SDL_Init(SDL_INIT_AUDIO);
Path := FindLibs(LibsmpegPath);
if Path <> '' then Libhandle := dlopen(@Path[1], RTLD_NOW or RTLD_GLOBAL);
// Libhandle := dlopen(LibsmpegPath, RTLD_NOW{$IFDEF LINUX} or RTLD_GLOBAL{$ENDIF});
if Path <> '' then Libhandle := dlopen(@Path, RTLD_NOW or RTLD_GLOBAL);
if Libhandle = nil then exit;
if Libhandle <> nil then
begin