|
@@ -16,11 +16,18 @@
|
|
**********************************************************************}
|
|
**********************************************************************}
|
|
|
|
|
|
{$mode objfpc}
|
|
{$mode objfpc}
|
|
|
|
+{$IFNDEF FPC_DOTTEDUNITS}
|
|
unit libvlc;
|
|
unit libvlc;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
interface
|
|
interface
|
|
|
|
|
|
|
|
+{$IFDEF FPC_DOTTEDUNITS}
|
|
|
|
+uses
|
|
|
|
+ System.CTypes;
|
|
|
|
+{$ELSE FPC_DOTTEDUNITS}
|
|
uses
|
|
uses
|
|
ctypes;
|
|
ctypes;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
|
|
{$IFDEF FPC}
|
|
{$IFDEF FPC}
|
|
{$PACKRECORDS C}
|
|
{$PACKRECORDS C}
|
|
@@ -627,12 +634,21 @@ function GetVLCLibPath: String;
|
|
|
|
|
|
implementation
|
|
implementation
|
|
|
|
|
|
|
|
+{$IFDEF FPC_DOTTEDUNITS}
|
|
|
|
+uses
|
|
|
|
+ System.SysUtils,
|
|
|
|
+ {$IFDEF Windows}
|
|
|
|
+ WinApi.Windows,
|
|
|
|
+ {$ENDIF}
|
|
|
|
+ System.DynLibs;
|
|
|
|
+{$ELSE FPC_DOTTEDUNITS}
|
|
uses
|
|
uses
|
|
SysUtils,
|
|
SysUtils,
|
|
{$IFDEF WINDOWS}
|
|
{$IFDEF WINDOWS}
|
|
windows,
|
|
windows,
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
dynlibs;
|
|
dynlibs;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
|
|
var
|
|
var
|
|
hlib : tlibhandle;
|
|
hlib : tlibhandle;
|
|
@@ -929,7 +945,7 @@ Procedure Loadlibvlc(lib : AnsiString; CheckProcNames : Boolean = False);
|
|
Function GetProcAddress(h : TLibHandle; Name : AnsiString) : Pointer;
|
|
Function GetProcAddress(h : TLibHandle; Name : AnsiString) : Pointer;
|
|
|
|
|
|
begin
|
|
begin
|
|
- Result:=dynlibs.GetProcAddress(h,Name);
|
|
|
|
|
|
+ Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}DynLibs.GetProcAddress(h,Name);
|
|
If (Result=Nil) and CheckProcNames then
|
|
If (Result=Nil) and CheckProcNames then
|
|
raise Exception.CreateFmt('Could not find procedure address: %s ',[Name]);
|
|
raise Exception.CreateFmt('Could not find procedure address: %s ',[Name]);
|
|
end;
|
|
end;
|