Using Delphi enum in Python

[iqrf 3]

How to export from delphi to python

type
	TColor = (RED = 5, GREEN = 8, BLUE = 9)

and in the return value of the delphi function called from Python to return a PPyObject of type TColor.
Is it any other way than clumsily like this?

FEngine.PyRun_SimpleString('from enum import Enum' + #13 +
  'Color = Enum(''Color'', {''RED'':5, ''GREEN'':8, ''BLUE'':9})');
...
FEngine.ExecString(UTF8Encode(FScript), UTF8Encode(FCode.Path));
...
//result my function
mainModule, colorEnum, redColor: PPyObject;
....

mainModule := PyImport_AddModule('__main__');
colorEnum := PyObject_GetAttrString(mainModule, 'Color');
redColor := PyObject_GetAttrString(colorEnum, 'RED');
result := redColor;

...
if mymodule.test_func() == Color.RED:
...

Thanks for the ideas.

Edited March 28 by iqrf

[pyscripter 694]

There is no need to export anything.   Delphi enum values are converted to python strings and sets to lists of strings.

 

On the opposite direction you can access python enum values from Delphi in the same way you access other objects.  The easiest way is to use VarPyth.

 

var colorEnum := MainModule.Color

var Red := colorEnum.RED

[iqrf 3]

 

14 minutes ago, pyscripter said:

There is no need to export anything.   Delphi enum values are converted to python strings and sets to lists of strings.

 

I don't understand how I can write in Python a = TColor.RED without exporting to Python?

var colorEnum := MainModule.Color;
var Red := colorEnum.RED;
result := Red;  E2010 Incompatible types: 'PPyObject' and 'Variant'

But that's the variant type, I need to return a PPyObject.
Thanks

[pyscripter 694]

result := ExtractPythonObjectFrom(Red);

[iqrf 3]

Thanks a lot.
And how do I get the enumerated type TColor into Python?

1 hour ago, iqrf said:

type TColor = (RED = 5, GREEN = 8, BLUE = 9)

 

[pyscripter 694]

I have no idea what you are trying to do, but it does not make sense to define the enumeration both in Delphi and in Python.

 

I recommend that you familiarize yourself with:

•   WrapDelphi - high level access to Delphi from python
•  VarPyth - high level access to python from Delphi. 

The video tutorials offer a good introduction to both.

 

If you use WrapDelphi to export delphi functions to python then you just use python strings in place of enumeration values.

 

Edited March 28 by pyscripter

[iqrf 3]

I don't want to define an enum in both Delphi and Python.
I just want to use an enum defined in Delphi in Python.
WrapDelphi I use both FPythonWrapper.DefineVar() and FPythonWrapper.Wrap(TDelphi, soOwned) and FPythonWrapper.RegisterDelphiWrapper(TPyClassWrapper<...>).Initialize
But I have no idea how to use the same functionality for an enumeration type.

[pyscripter 694]

6 minutes ago, iqrf said:

But I have no idea how to use the same functionality for an enumeration type

As mentioned above you just use python strings in place of enumerated values,

 

eg.  exported delphi method using WrapDelphi

 

procedure Test(Color: TColor)

 

in python

 

Test('RED')

Edited March 28 by pyscripter

[iqrf 3]

Sure this is ok.
I would like in Python
a = TColor.RED
print(type(a)) ### <enum 'TColor'>

where TColor defined in Delphi

Edited March 28 by iqrf

[pyscripter 694]

8 minutes ago, iqrf said:

I would like in Python

It's not how it works.

[iqrf 3]

OK 😞
So I define an enum in python and use it in delphi, which works.
Now I understand why it is like this:

procedure TButtonsRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
begin
  inherited;
  APyDelphiWrapper.DefineVar('bkCustom',      bkCustom);
  APyDelphiWrapper.DefineVar('bkOK',          bkOK);
  APyDelphiWrapper.DefineVar('bkCancel',      bkCancel);
  APyDelphiWrapper.DefineVar('bkHelp',        bkHelp);
  APyDelphiWrapper.DefineVar('bkYes',         bkYes);
  APyDelphiWrapper.DefineVar('bkNo',          bkNo);
  APyDelphiWrapper.DefineVar('bkClose',       bkClose);
  APyDelphiWrapper.DefineVar('bkAbort',       bkAbort);
  APyDelphiWrapper.DefineVar('bkRetry',       bkRetry);
  APyDelphiWrapper.DefineVar('bkIgnore',      bkIgnore);
  APyDelphiWrapper.DefineVar('bkAll',         bkAll);
end;

Thanks for your time.

Edited March 28 by iqrf

[iqrf 3]

Hi,
how to use PyArg_ParseTupleAndKeywords to get the value of a function parameter that is of type Python enum. E.g

class color (enum):
         RED = 5
         GREEN = 8
         BLUE = 9

TestFunction (Color.RED)

var pColor: PPyObject;

if (PyArg_ParseTupleAndKeywords(args, kwargs, '|O', @keyPointerArray[0], @pColor) <> 0) then begin

PyEnum_Check(pColor)
returns False why?

How to get value 5 from pColor?

 

I tried this too
    var a := VarPythonCreate(pColor);
    VarIsEnum(a)
also returns False
in 'a' is the string 'color.RED'
 

Thank you for your help.

[pyscripter 694]

PyEnum_Check and VarIsEnum have to do with enumerators and not the enum.Enum class.

 

There are many ways to get the value.  Using VarPyth:

 var a := VarPythonCreate(pColor);

  var val := a.value

Edited April 2 by pyscripter

[iqrf 3]

Thank you, I got to that too
var a := VarPythonCreate(pColor).value

the second way

var valueObj := PyObject_GetAttrString(pColor, 'value');

if Assigned(valueObj) then begin
   a := PyLong_AsLong(valueObj);
   Py_XDECREF(valueObj);
end
else
   PyErr_Print();