EncodeWindowsFilePath added

Author: pyscripter

PythonForDelphi/Components/Sources/Core/PythonEngine.pas

@@ -2254,6 +2254,7 @@   TPythonEngine = class(TPythonInterface)
     function   Run_CommandAsObject(const command : AnsiString; mode : Integer) : PPyObject;
     function   Run_CommandAsObjectWithDict(const command : AnsiString; mode : Integer; locals, globals : PPyObject) : PPyObject;
     function   EncodeString (const str: string): AnsiString;
+    function   EncodeWindowsFilePath (const str: string): AnsiString;
     procedure  ExecString(const command : AnsiString); overload;
     procedure  ExecStrings( strings : TStrings ); overload;
     function   EvalString(const command : AnsiString) : PPyObject; overload;
@@ -4901,11 +4902,7 @@ procedure TPythonEngine.SetInitScript(Value: TStrings);
 function TPythonEngine.GetInterpreterState: PPyInterpreterState;
 var
   res: PPyThreadState;
-  MajorVersion : integer;
-  MinorVersion : integer;
 begin
-  MajorVersion := StrToInt(RegVersion[1]);
-  MinorVersion := StrToInt(RegVersion[3]);
   if Assigned(PyThreadState_Get) then begin
     res:= PyThreadState_Get();
     if (MajorVersion > 3) or ((MajorVersion = 3) and (MinorVersion >= 4)) then
@@ -5694,6 +5691,15 @@ function TPythonEngine.EncodeString(const str: string): AnsiString;
     Result := AnsiString(str);
 end;
 
+function TPythonEngine.EncodeWindowsFilePath(const str: string): AnsiString;
+{PEP 529}
+begin
+  if (MajorVersion > 3) or ((MajorVersion = 3) and (MinorVersion >=6) )then
+    Result := UTF8Encode(str)
+  else
+    Result := AnsiString(str);
+end;
+
 function   TPythonEngine.TypeByName( const aTypeName : AnsiString ) : PPyTypeObject;
 var
   i : Integer;