Fix demo 6 for Python 3

zbyna · zbyna · commit 3d8936a95e8e · 2018-05-15T06:20:40.000+02:00
- python code works but remains memory leaks
diff --git a/PythonForDelphi/Demos/FPC/Demo06/Unit1.pas b/PythonForDelphi/Demos/FPC/Demo06/Unit1.pas
@@ -173,9 +173,10 @@ function  PyPoint_getattr(obj : PPyObject; key : PAnsiChar) : PPyObject; cdecl;
       else
         begin
           // Else check for a method
-          Result := Py_FindMethod( MethodsByName('PythonType1'), obj, key);
+          Result:=PyObject_GenericGetAttr(obj,PyString_FromString('OffsetBy'));
+          //Result := Py_FindMethod( MethodsByName('PythonType1'), obj, key);
           // or we could write, because it's quicker:
-          // Result := Py_FindMethod( Form1.PythonType1.MethodsData, obj, key);
+          //Result := Py_FindMethod( Form1.PythonType1.MethodsData, obj, key);
           if not Assigned(Result) then
             PyErr_SetString (PyExc_AttributeError^, PAnsiChar(Format('Unknown attribute "%s"',[key])));
         end;
@@ -261,6 +262,7 @@ procedure TForm1.PythonType1Initialization(Sender: TObject);
         TheType := PyType;
       // And then add the methods of the object, if needed
       AddMethod( 'OffsetBy', PyPoint_OffsetBy , 'OffsetBy(dx, dy)' );
+      PythonEngine1.PyType_Ready(TheTypePtr);
     end;
 end;
 
