The public PythonPath property can be used to initialize sys.path.

pyscripter · pyscripter · commit 5b2a7bdebdfe · 2024-04-01T20:11:32.000+03:00
diff --git a/Source/PythonEngine.pas b/Source/PythonEngine.pas
@@ -2011,7 +2011,7 @@   TPythonEngine = class(TPythonInterface)
     FAutoFinalize:               Boolean;
     FProgramName:                UnicodeString;
     FPythonHome:                 UnicodeString;
-    FPythonPath:                 WCharTString;
+    FPythonPath:                 UnicodeString;
     FOnSysPathInit:              TSysPathInitEvent;
     FTraceback:                  TPythonTraceback;
     FUseWindowsConsole:          Boolean;
@@ -2029,8 +2029,6 @@   TPythonEngine = class(TPythonInterface)
     FPyDateTime_TZInfoType:      PPyObject;
     FPyDateTime_TimeTZType:      PPyObject;
     FPyDateTime_DateTimeTZType:  PPyObject;
-    function GetPythonPath: UnicodeString;
-    procedure SetPythonPath(const Value: UnicodeString);
 
   protected
     procedure  Initialize;
@@ -2150,7 +2148,10 @@   TPythonEngine = class(TPythonInterface)
     property IOPythonModule: TObject read FIOPythonModule; {TPythonModule}
     property PythonHome: UnicodeString read FPythonHome write SetPythonHome;
     property ProgramName: UnicodeString read FProgramName write SetProgramName;
-    property PythonPath: UnicodeString read GetPythonPath write SetPythonPath;
+    // List of paths separated with the path delimiter
+    // If used with pfNoSite, it completely overwrites the pyhon path on initialization!
+    // For adding directories to sys.path use the OnSysPathInit event instead.
+    property PythonPath: UnicodeString read FPythonPath write FPythonPath;
   published
     property AutoFinalize: Boolean read FAutoFinalize write FAutoFinalize default True;
     property VenvPythonExe: string read FVenvPythonExe write FVenvPythonExe;
@@ -4686,6 +4687,21 @@ procedure TPythonEngine.Initialize;
       FOnSysPathInit(Self, _path);
   end;
 
+  procedure SetPythonPath(var Config: PyConfig);
+  var
+    Paths: TArray<string>;
+    I: Integer;
+  begin
+    if FPythonPath = '' then Exit;
+
+    Paths := FPythonPath.Split([PathSep], TStringSplitOptions.ExcludeLastEmpty);
+    for I := 0 to Length(Paths) - 1 do
+      PyWideStringList_Append(Config.module_search_paths,
+        PWCharT(StringToWCharTString(Paths[I])));
+    if Config.module_search_paths.length > 0 then
+      Config.module_search_paths_set := 1;
+  end;
+
   function GetVal(AModule : PPyObject; AVarName : AnsiString) : PPyObject;
   begin
     Result := PyObject_GetAttrString(AModule, PAnsiChar(AVarName));
@@ -4767,10 +4783,12 @@ procedure TPythonEngine.Initialize;
         PyConfig_SetString(Config, @Config.program_name,
           PWCharT(StringToWCharTString(FVenvPythonExe)));
 
-      PyConfig_Read(Config);
       // Set program arguments (sys.argv)
       SetProgramArgs(Config);
 
+      // PythonPath
+      SetPythonPath(Config);
+
       Py_InitializeFromConfig(Config);
     finally
       PyConfig_Clear(Config);
@@ -4932,18 +4950,6 @@ procedure TPythonEngine.SetPyFlags(const Value: TPythonFlags);
   end; // of if
 end;
 
-function TPythonEngine.GetPythonPath: UnicodeString;
-begin
-{$IFDEF POSIX}
-  if (Length(FPythonPath) > 0) then
-    Result := UCS4StringToUnicodeString(FPythonPath)
-  else
-    Result := '';
-{$ELSE}
-  Result := FPythonPath;
-{$ENDIF}
-end;
-
 function TPythonEngine.GetSequenceItem(sequence: PPyObject;
   idx: Integer): Variant;
   var
@@ -4962,15 +4968,6 @@ procedure TPythonEngine.SetPythonHome(const PythonHome: UnicodeString);
   FPythonHome :=  PythonHome;
 end;
 
-procedure TPythonEngine.SetPythonPath(const Value: UnicodeString);
-begin
-{$IFDEF POSIX}
-  FPythonPath :=  UnicodeStringToUCS4String(Value);
-{$ELSE}
-  FPythonPath :=  Value;
-{$ENDIF}
-end;
-
 procedure TPythonEngine.SetProgramName(const ProgramName: UnicodeString);
 begin
   FProgramName := ProgramName;
