Python4Delphi: возвращение объекта python в функцию. (DelphiWrapper) - PullRequest
Новая
       36

Python4Delphi: возвращение объекта python в функцию. (DelphiWrapper)

5 голосов
/ 19 марта 2012

Я использую python4delphi. Как я могу вернуть объект из обёрнутой функции класса Delphi?

Фрагмент кода:

У меня есть простой класс Delphi, который я добавил в Python Script, верно? 

TSimple = Class
Private
  function getvar1:string;
Public    
Published
  property var1:string read getVar1;
  function getObj:TSimple;
end;
... 
function TSimple.getVar1:string;
begin
  result:='hello';
end;
function TSimple.getObj:TSimple;
begin
  result:=self;
end;

Я сделал TPySimple как demo32, чтобы дать классу доступ к коду Python. Мой модуль Python называется test. 

TPySimple = class(TPyDelphiPersistent)
  // Constructors & Destructors
  constructor Create( APythonType : TPythonType ); override;
  constructor CreateWith( PythonType : TPythonType; args : PPyObject ); override;
  // Basic services
  function  Repr : PPyObject; override;

  class function  DelphiObjectClass : TClass; override;
end;
...

{ TPySimple }

constructor TPySimple.Create(APythonType: TPythonType);
begin
  inherited;
  // we need to set DelphiObject property
  DelphiObject := TSimple.Create;
  with TSimple(DelphiObject) do begin
  end;
  Owned := True; // We own the objects we create
end;

constructor TPySimple.CreateWith(PythonType: TPythonType; args: PPyObject);
begin
  inherited;
  with GetPythonEngine, DelphiObject as TSimple do
    begin
      if PyArg_ParseTuple( args, ':CreateSimple' ) = 0 then
        Exit;
    end;
end;

class function TPySimple.DelphiObjectClass: TClass;
begin
  Result := TSimple;
end;

function TPySimple.Repr: PPyObject;
begin
  with GetPythonEngine, DelphiObject as TSimple do
    Result := VariantAsPyObject(Format('',[]));
    // or Result := PyString_FromString( PAnsiChar(Format('()',[])) );
end;

А теперь код Python: 

import test

a = test.Simple()
# try access the property var1 and everything is right
print a.var1
# work's, but..
b = a.getObj();
# raise a exception that not find any attributes named getObj.
# if the function returns a string for example, it's work.

Ответы [ 2 ]

1 голос
/ 30 сентября 2016

Я столкнулся с той же проблемой при использовании DelphiWrapper.

Во-первых, включение RTTI с помощью {$ METHODINFO ON} исключит исключение:

вызовет исключение, которое не будет найденоатрибуты с именем getObj.

Напишите класс TSimple следующим образом: 

{$METHODINFO ON}
TSimple = Class
Private
  function getvar1:string;
Public    
Published
  property var1:string read getVar1;
  function getObj:TSimple;
end;
{$METHODINFO OFF}

Теперь функция getObj возвращает значение - целое число !!

Я покажу вам, ребята, что я сделал.Я изменил Demo32:

Unit1.pas: 

TPoint = class(TPersistent)
private
  fx, fy : Integer;
  fName : String;
public
  constructor Create();
  procedure OffsetBy( dx, dy : integer );
  function MySelf: TPoint;  //**access self using function**
published
  property x : integer read fx write fx;
  property y : integer read fy write fy;
  property Name : string read fName write fName;
  property MySelf2: TPoint read MySelf; //**access self using property**
end;

Код Python в Memo1.Lines: 

import spam

p = spam.Point(2, 5)

b = p.MySelf()  //**using function**
print 'Using MySelf: ', type(b), b
c = p.MySelf2   //**using property**
print 'Using MySelf2: ', type(c), c

Затем он дает такой результат: 

Using MySelf:  <type 'int'> 31957664
Using MySelf2:  <type 'Point'> (2, 5)

Функция возвращает целое число, которое является проводным.Может быть, это указатель на объект TPoint, неправильно упакованный DelphiWrapper.

Наконец я нашел компромиссный способ в Demo8, используя «AddMethod».Совсем не красиво !!Но это работает.

0 голосов
/ 15 мая 2014

Согласно ОП он нашел ответ здесь: http://code.google.com/p/python4delphi/issues/detail?id=17

(копия для вставки для справки)

Привет

У меня есть предложение - сделать доступным для Python объекты Delphi безболезненно, используя новую функцию RTTI (информация о типе времени выполнения) в D2010 (и выше).

В настоящее время для представления класса размещенному коду Python необходимо написать слишком много кода (см. Demo06), я думаю, если мы воспользуемся новой функцией RTTI в более новых версиях Delphi, процесс может быть значительно улучшен .

Например, посмотрите внедренный проект Delphi Chromium. Все, что вам нужно сделать, чтобы представить интерфейс любого класса Delphi для среды JavaScript, - это зарегистрировать класс: 

// this is your class exposed to JS 
  Test = class 
    class procedure doit(const v: string); 
  end; 

initialization 
// Register your class 
  TCefRTTIExtension.Register('app', Test);

// and in JavaScript code to call that class above:
app.doit(''foo'')', '', 0);

Cool! Не правда ли?

Приведенный выше код извлечен из: http://groups.google.com/group/delphichromiumembedded/browse_thread/thread/1793e7ca66012f0c/8ab31a5ecdb6bf48?lnk=gst&q=JavaScript+return+#

Некоторое введение в RTTI, введенное после D2010: http://robstechcorner.blogspot.com/2009/09/delphi-2010-rtti-basics.html

...