Thanks a lot, Christian. Jean-Luc Arnaud
Le 13/10/2014 22:30, Christian Schmitz a écrit : > Am 13.10.2014 um 11:15 schrieb Jean-Luc Arnaud <[email protected]>: > >> Thanks, Christian. >> >> I'm able to get the info I need after converting CFDictionaryMBS to Xojo >> Dictionary. >> Is there a way to convert only CFDictionaryMBS.Value (As CFObjectMBS) >> directly to String? I don't catch the mecanism... > There is a better example: > > // info for boot volume > dim info as CFDictionaryMBS = volume(0).DarwinMediaInfoMBS > > if info = nil then > beep // error > else > CFShowMBS info // show in console > > dim RemovableKey as CFStringMBS = NewCFStringMBS("Removable") > dim RemovableCFO as CFObjectMBS = info.Value(RemovableKey) > dim RemovableCFB as CFBooleanMBS = CFBooleanMBS(RemovableCFO) > dim Removable as Boolean = RemovableCFB.Value > > MsgBox "Removable: "+str(Removable) > > dim EjectableKey as CFStringMBS = NewCFStringMBS("Ejectable") > dim EjectableCFO as CFObjectMBS = info.Value(EjectableKey) > dim EjectableCFB as CFBooleanMBS = CFBooleanMBS(EjectableCFO) > dim Ejectable as Boolean = EjectableCFB.Value > > MsgBox "Ejectable: "+str(Ejectable) > > dim SizeKey as CFStringMBS = NewCFStringMBS("Size") > dim SizeCFO as CFObjectMBS = info.Value(SizeKey) > dim SizeCFN as CFNumberMBS = CFNumberMBS(SizeCFO) > dim Size as double = SizeCFN.doubleValue / 1000000000.0 > > MsgBox "Size: "+str(Size, "0.0")+" GB" > end if > > > or you use the dictionary method of CFDictionaryMBS to get a normal Xojo > dictionary and work with that. > > Sincerely > Christian > _______________________________________________ Mbsplugins_monkeybreadsoftware.info mailing list [email protected] https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
