B4A Library HMS Ads

Erel · Nov 25, 2020

HMS v1.02 adds support for banner and interstitial ads.

HMS - Huawei SDK

Huawei is the number one manufacturer of phones (https://www.statista.com/statistics/271496/global-market-share-held-by-smartphone-vendors-since-4th-quarter-2009/). Due to USA restrictions, the new phones that they sell do not include Google Play, Google Play Services and other Google...

www.b4x.com

Make sure to update the dependencies list and the manifest editor items.

The code is simple:

B4X:

'Banner
Dim banner As B4XView = hms.CreateBannerAd("testw6vs28auh3", "BANNER_SIZE_320_50", Me, "Banner")
Root.AddView(banner, Root.Width / 2 - 320dip / 2, Root.Height - 50dip, 320dip, 50dip)
hms.LoadBannerAd(banner, hms.CreateRequestBuilder)

Sub Banner_AdFailed (ErrorCode As Int)
    Log("Failed: " & ErrorCode)
End Sub

Sub Banner_AdLoaded
    Log("AdLoaded")
End Sub

Sub Banner_AdOpened
    Log("AdOpened")
End Sub

'Interstitial
iad = hms.CreateInterstitialAd("testb4znbuh3n2", Me, "Interstitial") 'iad is a global JavaObject variable
hms.LoadInterstitialAd(iad, hms.CreateRequestBuilder)

Sub Interstitial_AdFailed (ErrorCode As Int)
    Log("Failed: " & ErrorCode)
End Sub

Sub Interstitial_AdLoaded
    Log("AdLoaded")
    iad.RunMethod("show", Null)
End Sub

The above ad ids are test ids.
The process of creating a real ad id is explained here: https://developer.huawei.com/consumer/en/doc/distribution/monetize/59500560
Note that I've tested it with the test ids only. If you encounter any issue with a real id then post here and we will help you solve it.

There is another HMS ads library, created by @Pendrush here: https://www.b4x.com/android/forum/threads/huawei-ads-kit.123030/#content
Note that the request builder options are set based on @Pendrush recommendations.

Pendrush · Nov 25, 2020

You can also implement part about GDPR.

Erel · Nov 25, 2020

The request builder is set by default with:

B4X:

Public Sub CreateRequestBuilder As JavaObject
    Dim builder As JavaObject
    builder.InitializeNewInstance("com.huawei.hms.ads.AdParam$Builder", Null)
    builder.RunMethod("setAdContentClassification", Array("A"))
    Dim unspecified As Int = -1
    builder.RunMethod("setTagForUnderAgeOfPromise", Array(unspecified))
    builder.RunMethod("setTagForChildProtection", Array(unspecified))
    Return builder
End Sub

Are you talking about something else?

Pendrush · Nov 25, 2020

Download my example app and check subs "ShowConsentDialog" and "WebViewConsent_OverrideUrl" and "HuaweiAdsKitConsent1_UpdateConsentStatus"

skaliwag · Jan 26, 2021

Erel said:
HMS v1.02 adds support for banner and interstitial ads.

HMS - Huawei SDK

Huawei is the number one manufacturer of phones (https://www.statista.com/statistics/271496/global-market-share-held-by-smartphone-vendors-since-4th-quarter-2009/). Due to USA restrictions, the new phones that they sell do not include Google Play, Google Play Services and other Google...

www.b4x.com

Make sure to update the dependencies list and the manifest editor items.

The code is simple:

B4X:

'Banner Dim banner As B4XView = hms.CreateBannerAd("testw6vs28auh3", "BANNER_SIZE_320_50", Me, "Banner") Root.AddView(banner, Root.Width / 2 - 320dip / 2, Root.Height - 50dip, 320dip, 50dip) hms.LoadBannerAd(banner, hms.CreateRequestBuilder) Sub Banner_AdFailed (ErrorCode As Int) Log("Failed: " & ErrorCode) End Sub Sub Banner_AdLoaded Log("AdLoaded") End Sub Sub Banner_AdOpened Log("AdOpened") End Sub 'Interstitial iad = hms.CreateInterstitialAd("testb4znbuh3n2", Me, "Interstitial") 'iad is a global JavaObject variable hms.LoadInterstitialAd(iad, hms.CreateRequestBuilder) Sub Interstitial_AdFailed (ErrorCode As Int) Log("Failed: " & ErrorCode) End Sub Sub Interstitial_AdLoaded Log("AdLoaded") iad.RunMethod("show", Null) End Sub

The above ad ids are test ids.
The process of creating a real ad id is explained here: https://developer.huawei.com/consumer/en/doc/distribution/monetize/59500560
Note that I've tested it with the test ids only. If you encounter any issue with a real id then post here and we will help you solve it.

There is another HMS ads library, created by @Pendrush here: https://www.b4x.com/android/forum/threads/huawei-ads-kit.123030/#content
Note that the request builder options are set based on @Pendrush recommendations.

Are there methods available to Pause / Resume the Banner Ad, or are these not required?

Erel · Jan 26, 2021

You can pause and resume it with:

B4X:

Dim jo As JavaObject = BannerAd
jo.RunMethod("pause", Null)

jo.RunMethod("resume", Null)

I don't remember reading such requirement.

Ferdari · Apr 22, 2021

Erel said:
HMS v1.02 adds support for banner and interstitial ads.

HMS - Huawei SDK

Huawei is the number one manufacturer of phones (https://www.statista.com/statistics/271496/global-market-share-held-by-smartphone-vendors-since-4th-quarter-2009/). Due to USA restrictions, the new phones that they sell do not include Google Play, Google Play Services and other Google...

www.b4x.com

Make sure to update the dependencies list and the manifest editor items.

The code is simple:

B4X:

'Banner Dim banner As B4XView = hms.CreateBannerAd("testw6vs28auh3", "BANNER_SIZE_320_50", Me, "Banner") Root.AddView(banner, Root.Width / 2 - 320dip / 2, Root.Height - 50dip, 320dip, 50dip) hms.LoadBannerAd(banner, hms.CreateRequestBuilder) Sub Banner_AdFailed (ErrorCode As Int) Log("Failed: " & ErrorCode) End Sub Sub Banner_AdLoaded Log("AdLoaded") End Sub Sub Banner_AdOpened Log("AdOpened") End Sub 'Interstitial iad = hms.CreateInterstitialAd("testb4znbuh3n2", Me, "Interstitial") 'iad is a global JavaObject variable hms.LoadInterstitialAd(iad, hms.CreateRequestBuilder) Sub Interstitial_AdFailed (ErrorCode As Int) Log("Failed: " & ErrorCode) End Sub Sub Interstitial_AdLoaded Log("AdLoaded") iad.RunMethod("show", Null) End Sub

The above ad ids are test ids.
The process of creating a real ad id is explained here: https://developer.huawei.com/consumer/en/doc/distribution/monetize/59500560
Note that I've tested it with the test ids only. If you encounter any issue with a real id then post here and we will help you solve it.

There is another HMS ads library, created by @Pendrush here: https://www.b4x.com/android/forum/threads/huawei-ads-kit.123030/#content
Note that the request builder options are set based on @Pendrush recommendations.

Hi @Erel thanks for the library, will be Rewarded ads available in a future version?

Ferdari · Apr 22, 2021

Hi @Erel , im trying to load an interstitial ad

i declared iad on Globals
Dim iad As JavaObject

Then tried your code on Activity_Create:

B4X:

iad = hms.CreateInterstitialAd("testb4znbuh3n2", Me, "Interstitial") 'iad is a global JavaObject variable
hms.LoadInterstitialAd(iad, hms.CreateRequestBuilder)

But error thrown when loading IAD:

Error:

Registro conectado a:  LGE LM-V500N
--------- beginning of system
--------- beginning of main
** Activity (main) Create, isFirst = true **
hmsmanager_vv7 (java line: 357)
java.lang.RuntimeException: Constructor not found.
    at anywheresoftware.b4j.object.JavaObject.InitializeNewInstance(JavaObject.java:95)
    at ferdari.primeros_auxilios.english.hmsmanager._vv7(hmsmanager.java:357)
    at ferdari.primeros_auxilios.english.hmsmanager._vv6(hmsmanager.java:343)
    at ferdari.primeros_auxilios.english.main._activity_create(main.java:544)
    at java.lang.reflect.Method.invoke(Native Method)
    at anywheresoftware.b4a.BA.raiseEvent2(BA.java:213)
    at ferdari.primeros_auxilios.english.main.afterFirstLayout(main.java:105)
    at ferdari.primeros_auxilios.english.main.access$000(main.java:17)
    at ferdari.primeros_auxilios.english.main$WaitForLayout.run(main.java:83)
    at android.os.Handler.handleCallback(Handler.java:883)
    at android.os.Handler.dispatchMessage(Handler.java:100)
    at android.os.Looper.loop(Looper.java:214)
    at android.app.ActivityThread.main(ActivityThread.java:7573)
    at java.lang.reflect.Method.invoke(Native Method)
    at com.android.internal.os.RuntimeInit$MethodAndArgsCaller.run(RuntimeInit.java:492)
    at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:937)
java.lang.RuntimeException: Constructor not found.

I have latest AppGallery and HMS Core installed, also set Manifest and added all dependencies as stated.

The Huawei Analytics Console is reporting my phone as connected real-time successfully

ObfuscatorMap:
vv6=createinterstitialad
vv7=createlistener

Do you know what could happen?
Your help is very appreciated.

Erel · Apr 22, 2021

Do you have this line in the main module:

B4X:

#AdditionalJar: hms-ads-interstitial-13.4.30.301.aar

?

Ferdari · Apr 22, 2021

Erel said:
Do you have this line in the main module:

B4X:

#AdditionalJar: hms-ads-interstitial-13.4.30.301.aar

?

Its added, i fixed by calling in a class module

B4X:

iad = hms.CreateInterstitialAd("testb4znbuh3n2", Me, "Interstitial")
'to
Dim HMSModule as HMSClass
iad = hms.CreateInterstitialAd("testb4znbuh3n2", HMSModule, "Interstitial")

Erel · Apr 23, 2021

True. The HMS library is expected to work with B4XPages classes or with a class instance.

B4A Library HMS Ads

HMS - Huawei SDK

Pendrush

Well-Known Member

Erel

B4X founder

Pendrush

Well-Known Member

skaliwag

Member

HMS - Huawei SDK

Erel

B4X founder

Ferdari

Active Member

HMS - Huawei SDK

Ferdari

Active Member

Erel

B4X founder

Ferdari

Active Member

Erel

B4X founder

Similar Threads

B4A Library HMS Ads

Well-Known Member

B4X founder

Well-Known Member

Member

B4X founder

Active Member

Active Member

B4X founder

Active Member

B4X founder

Similar Threads

Privacy & Transparency

Privacy & Transparency