XE5 + iOS: Mobilfunk-Providerinformationen auslesen???

[Daniel]

Moin,


ich würde das gar nicht alles selbst machen:

Delphi-Quellcode:

procedure Tfrm_DeviceInfo.DoShowTelephonyInfo;
var service : IFMXPhoneDialerService;
begin
  lb_DeviceInfo.BeginUpdate;

  if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(service)) then
  begin
    CreateLH(lb_DeviceInfo, 'Telefonie-Dienst' );

    CreateLI(lb_DeviceInfo, service.GetCarrier.GetCarrierName, 'Dienstanbieter' );
    CreateLI(lb_DeviceInfo, service.GetCarrier.GetIsoCountryCode, 'ISO Country-Code' );
    CreateLI(lb_DeviceInfo, service.GetCarrier.GetMobileCountryCode, 'Mobile Country Code (MCC)' );
    CreateLI(lb_DeviceInfo, service.GetCarrier.GetMobileNetwork, 'Mobile Network Code (MNC)' );
  end;

  lb_DeviceInfo.EndUpdate;
end;