Skip to content

added __claim__ and __release__ methods to all TPyDelphiObjects to… #6

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
wants to merge 1 commit into from
Closed

added __claim__ and __release__ methods to all TPyDelphiObjects to… #6

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
24 changes: 24 additions & 0 deletions Source/WrapDelphi.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -533,6 +533,8 @@ TPyDelphiObject = class (TPyInterfacedObject, IFreeNotificationSubscriber)
function ToList_Wrapper(args : PPyObject) : PPyObject; cdecl;
function SetProps(args, keywords : PPyObject) : PPyObject; cdecl;
function Dir_Wrapper(args: PPyObject): PPyObject; cdecl;
function Claim_Wrapper(args : PPyObject) : PPyObject; cdecl;
function Release_Wrapper(args : PPyObject) : PPyObject; cdecl;
// Exposed Getters
function Get_ClassName(Acontext : Pointer) : PPyObject; cdecl;
function Get_Owned(Acontext : Pointer) : PPyObject; cdecl;
Expand Down Expand Up @@ -1777,6 +1779,15 @@ function TPyDelphiObject.CheckBound: Boolean;
PyUnicodeFromString(Format(rs_ErrCheckBound, [ClassName])));
end;

function TPyDelphiObject.Claim_Wrapper(args: PPyObject): PPyObject;
begin
Adjust(@Self);
if Assigned(fDelphiObject) then
Owned := True;
Result := GetSelf;
GetPythonEngine.Py_XINCREF(Result);
end;

function TPyDelphiObject.Compare(obj: PPyObject): Integer;
Var
PyObject : TPyObject;
Expand Down Expand Up @@ -2482,6 +2493,19 @@ class procedure TPyDelphiObject.RegisterMethods(PythonType: TPythonType);
'If the object is a container (TStrings, TComponent...), it returns the content of the sequence as a Python list object.');
PythonType.AddMethod('__dir__', @TPyDelphiObject.Dir_Wrapper,
'Returns the list of all methods, fields and properties of this instance.');

PythonType.AddMethod('__claim__', @TPyDelphiObject.Claim_Wrapper,
'claims ownership of the delphi object, returns itself to allow chaining');
PythonType.AddMethod('__release__', @TPyDelphiObject.Release_Wrapper,
'releases ownership of the delphi object, returns itself to allow chaining');
end;

function TPyDelphiObject.Release_Wrapper(args: PPyObject): PPyObject;
begin
Adjust(@Self);
Owned := False;
Result := GetSelf;
GetPythonEngine.Py_XINCREF(Result);
end;

function TPyDelphiObject.Repr: PPyObject;
Expand Down