Delphi XE10 怎么调用Jar包中的SetListener方法, 设置监听?

Question

Jar 转换成Pas后, 要使用的SetListener方法如下:
  [JavaSignature('com/esri/android/map/MapView')]
  JMapView = interface(JViewGroup) // or JObject // SuperSignature: android/view/ViewGroup
  ['{E5D559D4-41EE-4577-8F6F-EEABC73FF2B9}']
    { Property Methods }
......
    function getOnStatusChangedListener: JOnStatusChangedListener; cdecl; //()Lcom/esri/android/map/event/OnStatusChangedListener;
    procedure setOnStatusChangedListener(onStatusChangedListener: JOnStatusChangedListener); cdecl; //(Lcom/esri/android/map/event/OnStatusChangedListener;)V
我现在想调用JMapView的setOnStatusChangedListener方法, 设置回调, 转换成Pas后, 回调的声明如下:
  JOnStatusChangedListenerClass = interface(JObjectClass)
  ['{48C131AA-6C7F-4A06-B65F-4A06316A5437}']
    { static Property Methods }    { static Methods }    { static Property }
  end;  [JavaSignature('com/esri/android/map/event/OnStatusChangedListener')]
  JOnStatusChangedListener = interface(JObject)
  ['{287754FD-EC7A-4A7C-BA37-34DA2D3DAAF6}']
    { Property Methods }    { methods }
    procedure onStatusChanged(P1: JObject; P2: JOnStatusChangedListener_STATUS); cdecl; //(Ljava/lang/Object;Lcom/esri/android/map/event/OnStatusChangedListener$STATUS;)V    { Property }
  end;  TJOnStatusChangedListener = class(TJavaGenericImport<JOnStatusChangedListenerClass, JOnStatusChangedListener>) end;问题: 我怎么实例化一个JOnStatusChangedListener对象, 设置到JMapView的setOnStatusChangedListener方法中?

Answer 1

http://blog.csdn.net/ssxbxk/article/details/71642119