JavaImport for Android 3.7 Full Source » Developer Team :: Best choice for developers!

JavaImport for Android 3.7 Full Source

JavaImport for Android 3.7 Full Source
JavaImport for Android 3.7 Full Source


Converts Java .jar files, .class files and folders to Delphi/C++ Builder units for Android.

Imported Android Toast API example:

type
  JToast = interface; {android/widget/Toast}

  JToastClass = interface(JObjectClass)
    ['{E61774E0-AF9E-4524-835D-2DA59F11D5BB}']
    function _GetLENGTH_LONG: Integer;
    function _GetLENGTH_SHORT: Integer;
    function init(context: JContext): JToast; cdecl;
    function makeText(context: JContext; text: JCharSequence; duration: Integer): JToast; cdecl; overload;
    function makeText(context: JContext; resId: Integer; duration: Integer): JToast; cdecl; overload;
    property LENGTH_LONG: Integer read _GetLENGTH_LONG;
    property LENGTH_SHORT: Integer read _GetLENGTH_SHORT;
  end;

  [JavaSignature('android/widget/Toast')]
  JToast = interface(JObject)
    ['{AD2DFB9B-3F35-4012-8459-2B518252B405}']
    procedure cancel; cdecl;
    function getDuration: Integer; cdecl;
    function getGravity: Integer; cdecl;
    function getHorizontalMargin: Single; cdecl;
    function getVerticalMargin: Single; cdecl;
    function getView: JView; cdecl;
    function getXOffset: Integer; cdecl;
    function getYOffset: Integer; cdecl;
    procedure setDuration(duration: Integer); cdecl;
    procedure setGravity(gravity: Integer; xOffset: Integer; yOffset: Integer); cdecl;
    procedure setMargin(horizontalMargin: Single; verticalMargin: Single); cdecl;
    procedure setText(resId: Integer); cdecl; overload;
    procedure setText(s: JCharSequence); cdecl; overload;
    procedure setView(view: JView); cdecl;
    procedure show; cdecl;
  end;

  TJToast = class(TJavaGenericImport)
  end;

const
  TJToast_LENGTH_LONG = 1;
  TJToast_LENGTH_SHORT = 0;

implementation

procedure RegisterTypes;
begin
  TRegTypes.RegisterType('android.widget.Toast.JToast', TypeInfo(android.widget.Toast.JToast));
end;

initialization
  RegisterTypes;
end.




Only for V.I.P
Warning! You are not allowed to view this text.


Information
Users of Guests are not allowed to comment this publication.