Can Delphi XE4 import iOS ObjC Class? (Static library * .a)

Question

Can Delphi XE4 import iOS ObjC Class? (Static library * .a)

ObjC Code: test.a

// test.h --------------------------------------------------------------- #import <Foundation/Foundation.h> @interface mycalc : NSObject { BOOL busy; } - (int) calc : (int) value; @end // test.m -------------------------------------------------------------- #import "test.h" @implementation mycalc -(int) calc:(int)value { busy = TRUE; return ( value + 1); } @end

Delphi XE4 code "Unit1.pas" for testing

 Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,System.TypInfo, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls, // Posix.Dlfcn, Macapi.ObjectiveC,Macapi.ObjCRuntime, iOSapi.CocoaTypes,iOSapi.foundation,iOSapi.uikit,iOSapi.CoreGraphics; {$Link libtest.a} // <-- ObjC Static Library (3 Architectures included) // But Compiled binary size is always same, // with or without "$Link libtest.a" lines. type // mycalc = interface(NSObject) ['{12891142-0F45-410D-A9EF-212F1AE23294}'] // Any Unique GUID function test(value : integer) : integer; cdecl; end; mycalcclass = interface(NSObjectClass) ['{42891142-0F45-410D-A9EF-212F1AE23295}'] // Any Unique GUID end; //the TOCGenericImport maps objC Classes to Delphi Interfaces // when you call Create of TObjc_TestClass TmycalcClass = class(TOCGenericImport<mycalcclass, mycalc>) end; // ------------------------------------------------------------------------- TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private public end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button1Click(Sender: TObject); Var occalc : mycalc; rtn : integer; handle : integer; begin handle := dlOpen('libtest.a',RTLD_LAZY); // ## Q2 : Is It Right ? occalc := TmycalcClass.Create; // ## Q3 : Error : // Can't found ObjC Class mycalc rtn := occalc.test(100); Button1.Text := 'rst:' + IntToStr(rtn); end; end.