iOS Question PackageManager

Filippo

Expert
Licensed User
Hi,

I asked this question yesterday in the wrong forum, I hope I am now in the correct forum.;)

How can I convert this B4a functions in B4i?
Thank you.
B4X:
Sub getVersion As String
    Dim pm As PackageManager
    Return pm.GetVersionName(GetPackageName)
End Sub

Sub GetVersionCode As Int
    Dim pm As PackageManager
    Return pm.GetVersionCode(GetPackageName)
End Sub

Sub GetApplicationLabel As String
    Dim pm As PackageManager
    Return pm.GetApplicationLabel(GetPackageName)
End Sub

Sub GetPackageName As String
   Dim r As Reflector
   Return r.GetStaticField("anywheresoftware.b4a.BA", "packageName")
End Sub
 

Erel

Administrator
Staff member
Licensed User
B4X:
Sub GetAppName As String
   Dim no As NativeObject
   no = no.Initialize("NSBundle").RunMethod("mainBundle", Null)
   Dim name As Object = no.RunMethod("objectForInfoDictionaryKey:", Array("CFBundleDisplayName"))
   Return name
End Sub

Sub GetVersion As String
   Dim no As NativeObject
   no = no.Initialize("NSBundle").RunMethod("mainBundle", Null)
   Dim name As Object = no.RunMethod("objectForInfoDictionaryKey:", Array("CFBundleShortVersionString"))
   Return name
End Sub
 

Filippo

Expert
Licensed User
Thank you
:)
 

Andris

Active Member
Licensed User
B4X:
Sub GetAppName As String
   Dim no As NativeObject
   no = no.Initialize("NSBundle").RunMethod("mainBundle", Null)
   Dim name As Object = no.RunMethod("objectForInfoDictionaryKey:", Array("CFBundleDisplayName"))
   Return name
End Sub

Sub GetVersion As String
   Dim no As NativeObject
   no = no.Initialize("NSBundle").RunMethod("mainBundle", Null)
   Dim name As Object = no.RunMethod("objectForInfoDictionaryKey:", Array("CFBundleShortVersionString"))
   Return name
End Sub
In trying to figure out how Erel comes up with this code so quickly, I found this page on the Apple Developer site. It was helpful to me and probably to many others:

https://developer.apple.com/library....html#//apple_ref/doc/uid/10000123i-CH104-SW1
 
Top