Delplhi 实现Java Jar包中的Listener

Java中, 经常会有setOnXXXListener的方法. 但是, 在Delphi中的调用, 就不是那么方便了, 现记录方法为如下.

以下面的Java调用为例: 在Delphi中实现MapView控件的OnStatusChangedListener监听:

mMapView.setOnStatusChangedListener(new OnStatusChangedListener() {
	private static final long serialVersionUID = 1L;

	@Override
	public void onStatusChanged(Object arg0, STATUS arg1) {
		if (arg0 == mMapView && arg1 == STATUS.INITIALIZED) {
			// 设置初始的缩放
			mMapView.setScale(C_DEFAULT_SCALE);
		}
	}
});

Delphi中的步骤如下:

1. 将Jar包生成Pas文件, 摘取相关代码如下:

  [JavaSignature('com/esri/android/map/MapView')]
  JMapView = interface(JViewGroup) // or JObject // SuperSignature: android/view/ViewGroup
  ['{E5D559D4-41EE-4577-8F6F-EEABC73FF2B9}']
    { Property Methods }

    { methods }
    ......
    function getOnStatusChangedListener: JOnStatusChanged