Winsoft JavaImport for Android 3.6 Full Source » Developer.Team

Winsoft JavaImport for Android 3.6 Full Source

Winsoft JavaImport for Android 3.6 Full Source
Winsoft JavaImport for Android 3.6 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.