unit uMain;

uses PythonEngine;

function PyInit_DemoModule: PPyObject; cdecl;

System.Math,

WrapDelphi;

gEngine : TPythonEngine;

gModule : TPythonModule;

function IsPrime(x: Integer): Boolean;

if (x <= 1) then Exit(False);

var q := Floor(Sqrt(x));

for var i := 2 to q do

if (x mod i = 0) then

Exit(False);

Exit(True);

end;

function delphi_is_prime(self, args : PPyObject) : PPyObject; cdecl;

N: Integer;

with gEngine do

if PyArg_ParseTuple( args, 'i', @N ) <> 0 then

begin

if IsPrime(N) then

Result := PPyObject(Py_True)

else

Result := PPyObject(Py_False);

Py_INCREF(Result);

end

else

Result := nil;

end;

function PyInit_DemoModule: PPyObject;

try

gEngine := TPythonEngine.Create(nil);

gEngine.AutoFinalize := False;

gEngine.UseLastKnownVersion := False;

// Adapt to the desired python version

gEngine.RegVersion := '3.8';

gEngine.DllName := 'python38.dll';

gModule := TPythonModule.Create(nil);

gModule.Engine := gEngine;

gModule.ModuleName := 'DemoModule';

gModule.AddMethod('is_prime', delphi_is_prime, 'is_prime(n) -> bool' );

gEngine.LoadDll;

except

end;

Result := gModule.Module;

end;

gEngine.Free;

gModule.Free;

end.