unit uMain;

uses PythonEngine;

function PyInit_DelphiVCL: PPyObject; cdecl;

uses WrapDelphi, WrapDelphiVCL;

gEngine : TPythonEngine;

gModule : TPythonModule;

gDelphiWrapper : TPyDelphiWrapper;

function PyInit_DelphiVCL: PPyObject;

try

gEngine := TPythonEngine.Create(nil);

gEngine.AutoFinalize := False;

gEngine.UseLastKnownVersion := False;

// Adapt to the desired python version - Will only work with this version

gEngine.RegVersion := '3.9';

gEngine.DllName := 'python39.dll';

gModule := TPythonModule.Create(nil);

gModule.Engine := gEngine;

// This must match the ProjectName and the function name pattern

gModule.ModuleName := 'DelphiVCL';

gDelphiWrapper := TPyDelphiWrapper.Create(nil);

gDelphiWrapper.Engine := gEngine;

gDelphiWrapper.Module := gModule;

gEngine.LoadDll;

except

end;

Result := gModule.Module;

end;

gEngine := nil;

gModule := nil;

gDelphiWrapper := nil;

gEngine.Free;

gModule.Free;

gDelphiWrapper.Free;

end.