Delphi XE4 iAD Framework 支持.

太赞了这个. 如此也证实了 IOS 的 Framework的使用方式. 定义接口文件,就可以了. 要做的就是语法的转换问题. 
这个方法我也想过,还没有具体实施. 值得参考和扩展,其它的很多Framework 也是可以做到的. 当然还有bug// 离实际可用还有距离,
而我上次提交的App 苹果也给Reject 了. 貌似是分辨率不能支持得很好. - 是我的问题, 我用了一个WebVIew 但加载的页面没有适应ipad.
还有一个问题就是 我的应用太简单了. :) 等有时间再完善一下 再说.  

    //
    // Delphi XE4 - iOS_Library_iAd
    //
    //  http://blog.naver.com/simonsayz
    //  Simon,Choi (최원식옹)
    //
    //  History
    //   2013.05.22 Ver 0.01  1st Release
    //
    //  Known Bug.
    //   - On Simulator, When press ad, Screen will be black.
    //     Why ?   Can't solved yet. 2013.05.22
    //
    //  Warning
    //   - This code is not perfect. Just guide to start to how to implement
    //
    //
    unit iOS_Library_iAd;
     
     
    interface
     
    uses Macapi.ObjectiveC,
         iOSapi.CocoaTypes, iOSapi.CoreGraphics, iOSapi.Foundation, iOSapi.UIKit;
     
    const
     libCoreiAd = '/System/Library/Frameworks/iAd.framework/iAd';
     
    Type
     id = Pointer;
     
     {$M+}
    { ADBannerView }
      ADBannerViewClass = interface(UIViewClass) end;
      ADBannerView      = interface(UIView)
        procedure setDelegate (newValue: id); cdecl;
        function delegate: id; cdecl;
        function isBannerLoaded: Boolean; cdecl;
        procedure setRequiredContentSizeIdentifiers (newValue: NSSet); cdecl;
        function requiredContentSizeIdentifiers: NSSet; cdecl;
        procedure setCurrentContentSizeIdentifier (newValue: NSString); cdecl;
        function currentContentSizeIdentifier: NSString; cdecl;
        {class} function sizeFromBannerContentSizeIdentifier
                         (contentSizeIdentifier: NSString): CGSize; cdecl;
        procedure setAdvertisingSection (newValue: NSString); cdecl;
        function advertisingSection: NSString; cdecl;
        function isBannerViewActionInProgress: Boolean; cdecl;
        procedure cancelBannerViewAction; cdecl;
      end;
     TADBannerView = class (TOCGenericImport<ADBannerViewClass,ADBannerView>) end;
     
     
    { ADBannerViewDelegate Protocol }
      ADBannerViewDelegate = interface(IObjectiveC)
        procedure bannerViewWillLoadAd(banner: ADBannerView); cdecl;
        procedure bannerViewDidLoadAd(banner: ADBannerView); cdecl;
        procedure bannerView(banner: ADBannerView; didFailToReceiveAdWithError: NSError); cdecl;
        function  bannerViewActionShouldBegin
                  (banner: ADBannerView; willLeaveApplication : Boolean): Boolean; cdecl;
        procedure bannerViewActionDidFinish(banner: ADBannerView); cdecl;
      end;
     
      //---------------------------------------------------------------------------
      TNotifyEvent        = Procedure (Sender : TObject) of Object;
      TNotifyMessageEvent = Procedure (Sender : TObject; Msg : String) of Object;
     
      //
      TADBannerViewDelegate = class(TOCLocal,ADBannerViewDelegate)
      Private
       FMe     : TObject;
       FOnLoad : TNotifyEvent;
       FOnFail : TNotifyEvent;
       FOnMsg  : TNotifyMessageEvent;
      public
       procedure bannerViewWillLoadAd(banner: ADBannerView); cdecl;
       procedure bannerViewDidLoadAd(banner: ADBannerView); cdecl;
       procedure bannerView(banner: ADBannerView; didFailToReceiveAdWithError: NSError); cdecl;
       function  bannerViewActionShouldBegin
                 (banner: ADBannerView; willLeaveApplication : Boolean): Boolean; cdecl;
       procedure bannerViewActionDidFinish(banner: ADBannerView); cdecl;
      end;
     
     //
     TiOSiAd = Class(TObject)
     Private
      //
      Function  GetOnLoad          : TNotifyEvent;
      Procedure SetOnLoad  ( Value : TNotifyEvent);
      Function  GetOnFail          : TNotifyEvent;
      Procedure SetOnFail  ( Value : TNotifyEvent);
      Function  GetOnMsg           : TNotifyMessageEvent;
      Procedure SetOnMsg   ( Value : TNotifyMessageEvent);
     Public
      FSelf    : TObject;
      FControl :  ADBannerView;
      FEvent   : TADBannerViewDelegate;
      //
      Constructor Create; Virtual;
      Destructor  Destroy; Override;
      Procedure   Free;
      //
      Property  OnLoad : TNotifyEvent        Read GetOnLoad Write SetOnLoad;
      Property  OnFail : TNotifyEvent        Read GetOnFail Write SetOnFail;
      Property  OnMsg  : TNotifyMessageEvent REad GetOnMsg  Write SetOnMsg;
     End;
     
    // exported string consts
     
    function ADErrorDomain: NSString;
    function ADBannerContentSizeIdentifier320x50: NSString; // deprecated 'in iOS 4.2 and later';
    function ADBannerContentSizeIdentifier480x32: NSString; // deprecated 'in iOS 4.2 and later';
    function ADBannerContentSizeIdentifierPortrait: NSString;
    function ADBannerContentSizeIdentifierLandscape: NSString;
     
    implementation
     
    uses
      Posix.Dlfcn;
    var
      iAdModule: THandle;
     
    const
      iAdFwk: string = '/System/Library/Frameworks/iAd.framework/iAd';
     
    function ADErrorDomain: NSString;
     begin
      Result := CocoaNSStringConst(iAdFwk, 'ADErrorDomain');
     end;
     
    function ADBannerContentSizeIdentifier320x50: NSString;
     begin
      Result := CocoaNSStringConst(iAdFwk, 'ADBannerContentSizeIdentifier320x50');
     end;
     
    function ADBannerContentSizeIdentifier480x32: NSString;
     begin
      Result := CocoaNSStringConst(iAdFwk, 'ADBannerContentSizeIdentifier480x32');
     end;
     
    function ADBannerContentSizeIdentifierPortrait: NSString;
     begin
      Result := CocoaNSStringConst(iAdFwk, 'ADBannerContentSizeIdentifierPortrait');
     end;
     
    function ADBannerContentSizeIdentifierLandscape: NSString;
     begin
      Result := CocoaNSStringConst(iAdFwk, 'ADBannerContentSizeIdentifierLandscape');
     end;
     
    //------------------------------------------------------------------------------
    //
    //  iOSAd  := TiOSiAd.Create(nil);
    //  iOSAd.Parent  := Self.View;
    //
    //------------------------------------------------------------------------------
     
    //
    Procedure TADBannerViewDelegate.bannerViewWillLoadAd(banner: ADBannerView);
     begin
      if Assigned(FOnLoad) then FOnLoad(FMe);
      if Assigned(FOnMsg ) then FOnMsg(FMe,'willLoadAd');
     end;
     
    //
    Procedure TADBannerViewDelegate.bannerView
              (banner: ADBannerView; didFailToReceiveAdWithError: NSError);
     begin
      if Assigned(FOnFail) then FOnFail(FMe);
      if Assigned(FOnMsg ) then FOnMsg(FMe,'didFailToReceiveAdWithError');
     end;
     
    //
    procedure TADBannerViewDelegate.bannerViewDidLoadAd(banner: ADBannerView); cdecl;
     begin
      if Assigned(FOnFail) then FOnFail(FMe);
      if Assigned(FOnMsg ) then FOnMsg(FMe,'ViewDidLoadAd');
     end;
     
    //
    function  TADBannerViewDelegate.bannerViewActionShouldBegin
    (banner: ADBannerView; willLeaveApplication : Boolean): Boolean; cdecl;
     begin
      if Assigned(FOnFail) then FOnFail(FMe);
      if Assigned(FOnMsg ) then FOnMsg(FMe,'ActionShouldBegin');
      Result := True;
     end;
     
    //
    procedure TADBannerViewDelegate.bannerViewActionDidFinish(banner: ADBannerView); cdecl;
     begin
      if Assigned(FOnFail) then FOnFail(FMe);
      if Assigned(FOnMsg ) then FOnMsg(FMe,'ActionDidFinish');
     end;
     
    //------------------------------------------------------------------------------
     
    //
    Constructor TiOSiAd.Create;
     begin
      inherited;
      // initialize --------------------------
      FEvent         := TADBannerViewDelegate.Create;
      FEvent.FOnLoad := nil;
      FEvent.FOnFail := nil;
      //
      FControl :=  TADBannerView.Wrap( TADBannerView.OCClass.alloc);
      FControl.initWithFrame( CGRectMake (0,480-20-50,320,50) );
      FControl.setCurrentContentSizeIdentifier(ADBannerContentSizeIdentifierPortrait);
      FControl.setDelegate(FEvent.GetObjectID);
      //
      FSelf := Self;
     end;
     
    Destructor TiOSiAd.Destroy;
     begin
      //
      FControl.release;
      FControl := nil;
      //
      FEvent.Free;
      FEvent   := nil;
      //
      inherited;
     end;
     
    //
    Procedure  TiOSiAd.Free;
     begin
            If Self <> nil then
             Destroy;
     end;
     
    //
    Function  TiOSiAd.GetOnLoad : TNotifyEvent;
     begin
      Result := FEvent.FOnLoad;
     end;
     
    //
    Procedure TiOSiAd.SetOnLoad ( Value : TNotifyEvent );
     begin
      FEvent.FOnLoad := Value;
     end;
     
    //
    Function  TiOSiAd.GetOnFail : TNotifyEvent;
     begin
      Result := FEvent.FOnFail;
     end;
     
    //
    Procedure TiOSiAd.SetOnFail ( Value : TNotifyEvent );
     begin
      FEvent.FOnFail := Value;
     end;
     
    //
    Function  TiOSiAd.GetOnMsg : TNotifyMessageEvent;
     begin
      Result := FEvent.FOnMsg;
     end;
     
    //
    Procedure TiOSiAd.SetOnMsg ( Value : TNotifyMessageEvent );
     begin
      FEvent.FOnMsg := Value;
     end;
     
    initialization
      iAdModule := dlopen(MarshaledAString(libCoreiAd), RTLD_LAZY);
     
    finalization
      dlclose(iAdModule);
     
    end.

只需要把上述两个文件保存以后 加入工程就可以了.