Embedding Python: Creating Python Class from Application

[Kakacek]

Hello All,

Let's say I have a following python code:

class hw_class:
   def __init__(self):
   pass
   def hello_world(self):
   print 'Hello World!'
create_instance('hw_class', 'hw')
hw.hello_world()
hw = None

The 'create_instance' function should be implemented in the application
(powered by Delphi - P4D) which is embedding the Python.dll.

I am trying to do this for some time having no success. I am missing
these informations:
1. How to register global python variable from application which is
embedding python?
2. How to assign this variable with the class instance.
3. How to create the instance of class which is unknown at the compile
time.

Could someone supply the (C/Pascal) code fragment for this?

Thanx,

Jiri.

-- 
http://mail.python.org/mailman/listinfo/python-list

Re: Embedding Python: Creating Python Class from Application

[Kakacek]

In the mean time I did this. It works however, it creates memory leaks.
Any idea what could be wrong?

procedure TForm1.PyCreateInstance(Sender: TObject; PSelf, Args:
PPyObject;
  var Result: PPyObject);
  var
BClassName: PChar;
BInstName: PChar;
//
BB: Boolean;
BModule: PPyObject;
BClass: PPyObject;
BInstance: PPyObject;
begin
  // create_instance
  PE.PyArg_ParseTuple(Args, 'ss:create_instance', [EMAIL PROTECTED],
@BInstName]);
  PE.CheckError;
  // Find module
  BModule := PE.FindModule('__main__');
  PE.CheckError;
  if BModule  nil then begin
// Find class object in the module
BClass := PE.PyObject_GetAttrString(BModule, BClassName);
PE.CheckError;
if BClass  nil then begin
  // Check it really is a class object
  BB := PE.PyClass_Check(BClass);
  PE.CheckError;
  if BB then begin
// Calling the class object (to create a new instance)
BInstance := PE.PyObject_CallObject(BClass, nil);
PE.CheckError;
if BInstance  nil then begin
  // Add the instance to the module object
  PE.PyObject_SetAttrString(BModule, BInstName, BInstance);
  PE.CheckError;
end;
  end;
  PE.Py_DECREF(BClass);
end;
  end;
  //
  Result := PE.ReturnNone;
  PE.CheckError;
end;

-- 
http://mail.python.org/mailman/listinfo/python-list