(**************************************************************************)

(* *)

(* Module: Unit 'PythonLoad' Copyright (c) 2021 *)

(* *)

(* Lucas Moura Belo - lmbelo *)

(* lucas.belo@live.com *)

(* BH, Brazil *)

(* *)

(* PyScripter *)

(* e-mail: pyscripter@gmail.com *)

(* *)

(* Project pages: https://github.com/Embarcadero/python4delphi *)

(* https://github.com/pyscripter/python4delphi *)

(**************************************************************************)

(* Functionality: Load python distribution *)

(* *)

(* *)

(**************************************************************************)

(* This source code is distributed with no WARRANTY, for no reason or use.*)

(* Everyone is allowed to use and change this code free for his own tasks *)

(* and projects, as long as this header and its copyright text is intact. *)

(* For changed versions of this code, which are public distributed the *)

(* following additional conditions have to be fullfilled: *)

(* 1) The header has to contain a comment on the change and the author of *)

(* it. *)

(* 2) A copy of the changed source has to be sent to the above E-Mail *)

(* address or my then valid address, if this is possible to the *)

(* author. *)

(* The second condition has the target to maintain an up to date central *)

(* version of the component. If this condition is not acceptable for *)

(* confidential or legal reasons, everyone is free to derive a component *)

(* or to generate a diff file to my or other original sources. *)

(**************************************************************************)

unit PythonLoad;

interface

uses

System.SysUtils, System.Zip, PythonEngine;

type

TExtractEvent = reference to procedure(const AFolderExists: boolean; var AReplaceFiles: boolean);

TPythonLoad = class

public

class function GetPyZip(): string; static;

class function GetPyRoot(): string; static;

class function GetPyHome(): string; static;

class function GetPyBin(): string; static;

class function GetPyLib(): string; static;

class function HasPythonLib(): boolean; static;

class function HasPythonZip(): boolean; static;

class function HasPythonDist(): boolean; static;

class procedure Extract(); static;

class procedure Configure(const APythonEngine: TPythonEngine); static;

end;

implementation

uses

System.IOUtils;

const

PY_KNOWN_VER = 1;

{ TPythonLoad }

class procedure TPythonLoad.Extract();

begin

var LPyRoot := TPythonLoad.GetPyRoot();

var LPyZip := TPythonLoad.GetPyZip();

if not TDirectory.Exists(LPyRoot) then

TZipFile.ExtractZipFile(LPyZip, LPyRoot, nil);

end;

class function TPythonLoad.GetPyBin: string;

begin

Result := TPath.Combine(GetPyHome(), 'bin');

end;

class function TPythonLoad.GetPyHome: string;

begin

Result := TPath.Combine(GetPyRoot(), 'usr');

end;

class function TPythonLoad.GetPyLib: string;

begin

Result := TPath.Combine(GetPyHome(), 'lib');

end;

class function TPythonLoad.GetPyRoot: string;

begin

Result := TPath.Combine(TPath.GetDocumentsPath(), 'build');

end;

class function TPythonLoad.GetPyZip: string;

begin

Result := TPath.Combine(TPath.GetDocumentsPath(), 'build.zip');

end;

class function TPythonLoad.HasPythonDist: boolean;

begin

Result := TDirectory.Exists(TPythonLoad.GetPyRoot());

end;

class function TPythonLoad.HasPythonLib: boolean;

begin

Result := TFile.Exists(TPath.Combine(TPath.GetLibraryPath(),

PYTHON_KNOWN_VERSIONS[PY_KNOWN_VER].DllName));

end;

class function TPythonLoad.HasPythonZip: boolean;

begin

Result := TFile.Exists(TPythonLoad.GetPyZip());

end;

class procedure TPythonLoad.Configure(const APythonEngine: TPythonEngine);

begin

APythonEngine.AutoLoad := False;

APythonEngine.UseLastKnownVersion := false;

APythonEngine.ProgramName := TPythonLoad.GetPyBin();

APythonEngine.PythonHome := TPythonLoad.GetPyHome();

APythonEngine.RegVersion := PYTHON_KNOWN_VERSIONS[PY_KNOWN_VER].RegVersion;

APythonEngine.DllName := PYTHON_KNOWN_VERSIONS[PY_KNOWN_VER].DllName;

APythonEngine.APIVersion := PYTHON_KNOWN_VERSIONS[PY_KNOWN_VER].APIVersion;

APythonEngine.FatalAbort := False;

APythonEngine.FatalMsgDlg := False;

APythonEngine.AutoFinalize := True;

APythonEngine.InitThreads := True;

APythonEngine.PyFlags := [pfInteractive];

end;

end.