Restored FPC compatibility.

Author: pyscripter

Source/PythonEngine.pas

@@ -2790,7 +2790,11 @@ implementation
 {$ENDIF}
 {$IFDEF MSWINDOWS}
  Registry,
+{$IFDEF FPC}
+ JwaPsApi,
+{$ELSE}
  PsAPI,
+{$ENDIF}
 {$ENDIF}
  Math;
 

Source/WrapDelphiClasses.pas

@@ -107,8 +107,10 @@ TPyDelphiComponent = class (TPyDelphiPersistent)
  function CreateComponent(AOwner : TComponent) : TComponent; virtual;
  procedure SubscribeToFreeNotification; override;
  procedure UnSubscribeToFreeNotification; override;
+{$IFNDEF FPC}
  function InternalReadComponent(const AResFile: string;
  const AInstance: TComponent): boolean; virtual;
+{$ENDIF}
  // Exposed Methods
  function GetParentComponent_Wrapper(args : PPyObject) : PPyObject; cdecl;
  function HasParent_Wrapper(args : PPyObject) : PPyObject; cdecl;
@@ -244,8 +246,9 @@ TPyDelphiBasicAction = class (TPyDelphiComponent)
 implementation
 
 uses
- TypInfo, System.IOUtils, System.Rtti;
+ TypInfo {$IFNDEF FPC}, System.Rtti{$ENDIF};
 
+{$IFNDEF FPC}
 type
  TPyReader = class(TReader)
  private
@@ -258,6 +261,7 @@ TPyReader = class(TReader)
  public
  constructor Create(APyObject: TPyDelphiObject; Stream: TStream; BufSize: Integer);
  end;
+{$ENDIF}
 
 { Register the wrappers, the globals and the constants }
 type
@@ -892,6 +896,7 @@ function TPyDelphiComponent.HasParent_Wrapper(args: PPyObject): PPyObject;
  end;
 end;
 
+{$IFNDEF FPC}
 function TPyDelphiComponent.InternalReadComponent(const AResFile: string;
  const AInstance: TComponent): boolean;
 
@@ -930,7 +935,7 @@ function TPyDelphiComponent.InternalReadComponent(const AResFile: string;
  LInput: TFileStream;
  LOutput: TMemoryStream;
 begin
- if AResFile.IsEmpty or not TFile.Exists(AResFile) then
+ if AResFile.IsEmpty or not FileExists(AResFile) then
  Exit(false);
 
  LInput := TFileStream.Create(AResFile, fmOpenRead);
@@ -956,6 +961,7 @@ function TPyDelphiComponent.InternalReadComponent(const AResFile: string;
  end;
  Result := true;
 end;
+{$ENDIF}
 
 function TPyDelphiComponent.GetAttrO(key: PPyObject): PPyObject;
 Var
@@ -1655,6 +1661,7 @@ function TPyDelphiStrings.Set_Text(AValue: PPyObject;
  end;
 end;
 
+{$IFNDEF FPC}
 { TPyReader }
 
 constructor TPyReader.Create(APyObject: TPyDelphiObject; Stream: TStream;
@@ -1750,6 +1757,7 @@ procedure TPyReader.SetName(Component: TComponent; var Name: string);
  end;
  FInstance := Component;
 end;
+{$ENDIF}
 
 initialization
  RegisteredUnits.Add(TClassesRegistration.Create);