Üst uses FMX..STDCTRLS, Androidapi.JNI.Admob, Androidapi.JNI.JavaTypes, FMX.Advertising, FMX.Control.Presentation, Androidapi.JNIBridge, An...
Üst uses
FMX..STDCTRLS, Androidapi.JNI.Admob, Androidapi.JNI.JavaTypes, FMX.Advertising, FMX.Control.Presentation, Androidapi.JNIBridge, Android.JNI.Embarcadero;
Type için ekleyecekleriniz.
TMyAdViewListener = class(TJavaLocal, JIAdListener)
private
FAD: JInterstitialAd;
public
constructor Create(AAD: JInterstitialAd);
procedure onAdClosed; cdec1;
procedure onAdfailedToLoad(ErrorCode: Integer); cdec1;
procedure onAdLeftApplication; cdec1;
procedure onAdOpened; cdec1;
procedure onAdLoaded; cdec1;
end;
Private için ekleyeceğiniz kodlar.
LAdViewListener: TMyAdViewListener;
FInterstitial : JInterstitialAd;
Implementation için eklenecekler
FMX.Helpers.Android,
FMX.Platform.Android,
Androidapi.Helpers,
Androidapi.JNI.PlayServices;
Form Create eventine Kullanabileceğiniz kodlar
begin
FInterstitial := TJInterstitialAd.JavaClass.Init (MainActivity);
FInterstitial.setAdUnitId
(StringToJString('ca-app-pub-6589337671612960/5299596519'));
end;
constructor TMyAdViewListener.Create(AAD: JInterstitialAd);
begin
inherited Create;
FAD := AAD;
end;
procedure TMyAdViewListener.onAdClosed;
begin
end;
procedure TMyAdViewListener.onAdFailedToLoad(errorCode: Integer);
begin
end;
procedure TMyAdViewListener.onAdLeftApplication;
begin
end;
procedure TMyAdViewListener.onAdLoaded;
begin
FAD.Show;
end;
procedure TMyAdViewListener.onAdOpened;
begin
end;
Eventimize ise şunları ekliyoruz.
Var kısmına ekleyeceğimiz
LADRequestBuilder: JAdRequest_Builder;
LadRequest: JAdRequest;
beginden sonra yazacaklarımız ise;
LADRequestBuilder := TJadRequest_Builder.Create;
LadRequest := LADRequestBuilder.build();
LAdViewListener := TMyAdViewListener.Create(FInterstitial);
CallInUIThread(
Procedure
begin
FInterStitial.setAdListener(TJAdListenerAdapter.JavaClass.init
(LAdViewListener));
FInterStitial.LoadAd(LadRequest);
end);
end;
Ve bu kadar Artık Tam ekran dediğimiz Interstitial reklamı delphimizde çalıştırmış olduk
Eğer yapmakta sorun çekerseniz.
FMX..STDCTRLS, Androidapi.JNI.Admob, Androidapi.JNI.JavaTypes, FMX.Advertising, FMX.Control.Presentation, Androidapi.JNIBridge, Android.JNI.Embarcadero;
Type için ekleyecekleriniz.
TMyAdViewListener = class(TJavaLocal, JIAdListener)
private
FAD: JInterstitialAd;
public
constructor Create(AAD: JInterstitialAd);
procedure onAdClosed; cdec1;
procedure onAdfailedToLoad(ErrorCode: Integer); cdec1;
procedure onAdLeftApplication; cdec1;
procedure onAdOpened; cdec1;
procedure onAdLoaded; cdec1;
end;
Private için ekleyeceğiniz kodlar.
LAdViewListener: TMyAdViewListener;
FInterstitial : JInterstitialAd;
Implementation için eklenecekler
FMX.Helpers.Android,
FMX.Platform.Android,
Androidapi.Helpers,
Androidapi.JNI.PlayServices;
Form Create eventine Kullanabileceğiniz kodlar
begin
FInterstitial := TJInterstitialAd.JavaClass.Init (MainActivity);
FInterstitial.setAdUnitId
(StringToJString('ca-app-pub-6589337671612960/5299596519'));
end;
constructor TMyAdViewListener.Create(AAD: JInterstitialAd);
begin
inherited Create;
FAD := AAD;
end;
procedure TMyAdViewListener.onAdClosed;
begin
end;
procedure TMyAdViewListener.onAdFailedToLoad(errorCode: Integer);
begin
end;
procedure TMyAdViewListener.onAdLeftApplication;
begin
end;
procedure TMyAdViewListener.onAdLoaded;
begin
FAD.Show;
end;
procedure TMyAdViewListener.onAdOpened;
begin
end;
Eventimize ise şunları ekliyoruz.
Var kısmına ekleyeceğimiz
LADRequestBuilder: JAdRequest_Builder;
LadRequest: JAdRequest;
beginden sonra yazacaklarımız ise;
LADRequestBuilder := TJadRequest_Builder.Create;
LadRequest := LADRequestBuilder.build();
LAdViewListener := TMyAdViewListener.Create(FInterstitial);
CallInUIThread(
Procedure
begin
FInterStitial.setAdListener(TJAdListenerAdapter.JavaClass.init
(LAdViewListener));
FInterStitial.LoadAd(LadRequest);
end);
end;
Ve bu kadar Artık Tam ekran dediğimiz Interstitial reklamı delphimizde çalıştırmış olduk
Eğer yapmakta sorun çekerseniz.
COMMENTS