I recently worked on a project that wraps Android classes into callable wrappers from Delphi by reading from a Java archive (JAR).  Since the Android platform uses Java, this dips into my Java skills.

Let's first look at the Delphi unit for an Android callable wrapper.

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
unit Namespace...;
interface
uses
  listofunits...;
type
  // forward declarations
  CallableWrapper1 = interface;
  CallableWrapper2 = interface;
 
  CallableWrapper1Class = interface(SomeParentClass)
   // method declarations
  end;
 
  CallableWrapper1 = interface(SomeParent)
  end;
 
  TJCallableWrapper1 = class(TJavaGenericImport<CallableWrapper1Class, CallableWrapper1>)
  end;
 
  CallableWrapper2Class = interface(SomeOtherParentClass)
  // method declarations
  end;
 
  CallableWrapper2 = interface(SomeOtherParent)
  end;
 
  TJCallableWrapper2 = class(TJavaGenericImport<CallableWrapper2Class, CallableWrapper2>)
  end;

 

After obtaining the list of classes to generate wrappers for, there is a loop that iterates the class, and we need to run through it 2 times.  Why 2 times? The first, is to generate the forward interfaces.

The second, is to generate the actual wrappers.