iOS Question PackageManager

[Deleted member 103]

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.

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]

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

 

[Deleted member 103]

Thank you

 

[Andris]

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