Межстраничный рекламный блок в IOS

[Alex7wrt]

Добрый день.
Разбираюсь с работой FMX под iOS. Возник вопрос, каким образом реализовать межстраничную рекламу в этой операционке?
Под Android делаю так:

    CallInUIThread(procedure begin
         FJInterstitialAd:= TJInterstitialAd.JavaClass.init(MainActivity);
         FJInterstitialAd.setAdUnitId(StringToJString('Advertise_ID_code'));
         RequestBuilder:= TJAdRequest_Builder.JavaClass.init();
         FJAdRequest:= RequestBuilder.build;
         FJInterstitialAd.loadAd(FJAdRequest);
    end);

И далее:

CallInUIThread(procedure begin
     if FJInterstitialAd.isLoaded then FJInterstitialAd.show;
end);

Есть ли аналог под IOS?

[Alex7wrt]

В модуле iOSAPi.iAd есть такие строки:
 

  ADInterstitialAdClass = interface(NSObjectClass)
    ['{8C5ACE62-A5B6-4B0B-9D62-43D3CB0A8BD0}']
  end;
  ADInterstitialAd = interface(NSObject)
    ['{31570147-4315-4616-8ECB-B4874008884B}']
    procedure cancelAction; cdecl;
    function delegate: Pointer; cdecl;
    function isActionInProgress: Boolean; cdecl;
    function isLoaded: Boolean; cdecl;
    procedure presentFromViewController(viewController: UIViewController); cdecl;
    function presentInView(containerView: UIView): Boolean; cdecl;
    procedure setDelegate(delegate: Pointer); cdecl;
  end;
  TADInterstitialAd = class(TOCGenericImport<ADInterstitialAdClass, ADInterstitialAd>)  end;

  ADBannerViewClass = interface(UIViewClass)
    ['{B072DCC4-3CBE-4C07-B8B2-0B9B81A51AD9}']
    {class} function sizeFromBannerContentSizeIdentifier(contentSizeIdentifier: NSString): CGSize; cdecl;
  end;
  ADBannerView = interface(UIView)
    ['{2FD4C4B7-1FBE-46C0-83FD-A601B2DF980A}']
    function adType: ADAdType; cdecl;
    function advertisingSection: NSString; cdecl;
    procedure cancelBannerViewAction; cdecl;
    function currentContentSizeIdentifier: NSString; cdecl;
    function delegate: Pointer; cdecl;
    function initWithAdType(type_: ADAdType): Pointer; cdecl;
    function isBannerLoaded: Boolean; cdecl;
    function isBannerViewActionInProgress: Boolean; cdecl;
    function requiredContentSizeIdentifiers: NSSet; cdecl;
    procedure setAdvertisingSection(advertisingSection: NSString); cdecl;
    procedure setCurrentContentSizeIdentifier(currentContentSizeIdentifier: NSString); cdecl;
    procedure setDelegate(delegate: Pointer); cdecl;
    procedure setRequiredContentSizeIdentifiers(requiredContentSizeIdentifiers: NSSet); cdecl;
  end;
  TADBannerView = class(TOCGenericImport<ADBannerViewClass, ADBannerView>)  end;

Я так понимаю, cdecl означает, что эти функции из C++. Можно ли как-то их использовать из Delphi? И есть ли у кого-нибудь такой опыт?

[Равиль Зарипов (ZuBy)]

cdecl - это соглашение о вызовах из C. И да это можно использовать в Delphi 

[Alex7wrt]

Можете намекнуть, как их использовать? Никогда с таким не сталкивался. 

[Равиль Зарипов (ZuBy)]

4 часа назад, Alex7wrt сказал:

Можете намекнуть, как их использовать? Никогда с таким не сталкивался. 

аналогично как вы сделали для андроид, у меня нет возможности проверить.