|
@@ -21,6 +21,7 @@ uses
|
|
|
{$IFDEF UNIX}
|
|
{$IFDEF UNIX}
|
|
|
//unixtype,
|
|
//unixtype,
|
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
|
+ dynlibs,
|
|
|
ctypes;
|
|
ctypes;
|
|
|
|
|
|
|
|
//{$IF Sizeof(cbool) <> Sizeof(cint)}
|
|
//{$IF Sizeof(cbool) <> Sizeof(cint)}
|
|
@@ -32,7 +33,7 @@ const
|
|
|
xml2lib = 'libxml2.dll';
|
|
xml2lib = 'libxml2.dll';
|
|
|
{$DEFINE EXTDECL := cdecl}
|
|
{$DEFINE EXTDECL := cdecl}
|
|
|
{$ELSEIF Defined(UNIX)}
|
|
{$ELSEIF Defined(UNIX)}
|
|
|
- xml2lib = 'libxml2.so';
|
|
|
|
|
|
|
+ xml2lib = 'libxml2'+sharedsuffix;
|
|
|
{$DEFINE EXTDECL := cdecl}
|
|
{$DEFINE EXTDECL := cdecl}
|
|
|
{$ELSE}
|
|
{$ELSE}
|
|
|
{$MESSAGE ERROR 'DYNLINK not supported'}
|
|
{$MESSAGE ERROR 'DYNLINK not supported'}
|
|
@@ -278,7 +279,7 @@ procedure LoadExternalVariables;
|
|
|
var
|
|
var
|
|
|
libHandle: THandle;
|
|
libHandle: THandle;
|
|
|
begin
|
|
begin
|
|
|
- libHandle := LoadLibrary(libxml2lib);
|
|
|
|
|
|
|
+ libHandle := LoadLibrary(xml2lib);
|
|
|
if libHandle <> 0 then
|
|
if libHandle <> 0 then
|
|
|
begin
|
|
begin
|
|
|
{ xmlregexp.inc }
|
|
{ xmlregexp.inc }
|
marco