C++ Builder XE10 开发安卓APP拔号程序代码

//APP拔号程序代码

void __fastcall TPhoneDialerForm::btnMakeCallClick(TObject *Sender)
{
    _di_IFMXPhoneDialerService PhoneDialerService;
    /*  test whether the PhoneDialer services are supported */
    if(TPlatformServices::Current->SupportsPlatformService(__uuidof(IFMXPhoneDialerService)) &&
        (PhoneDialerService = TPlatformServices::Current->GetPlatformService(__uuidof(IFMXPhoneDialerService)))) {
        /* if the Telephone Number is entered in the edit box then make the call, else
            display an error message */
        if (edtTelephoneNumber->Text != "") {
            PhoneDialerService->Call(edtTelephoneNumber->Text);
        }
        else {
            ShowMessage("Please type-in a telephone number.");
            edtTelephoneNumber->SetFocus();
        }
    }
    else {
        ShowMessage("PhoneDialer service not supported");
    }
}

//获取移动手机数据信息

void __fastcall TPhoneDialerForm::btnGetCarrierInfoClick(TObject *Sender)
{
    _di_IFMXPhoneDialerService PhoneDialerService;
    /*  test whether the PhoneDialer services are supported */
    if(TPlatformServices::Current->SupportsPlatformService(__uuidof(IFMXPhoneDialerService)) &&
        (PhoneDialerService = TPlatformServices::Current->GetPlatformService(__uuidof(IFMXPhoneDialerService)))) {
        /* if yes, then update the labels with the retrieved information */

        CarrierNameItem->ItemData->Detail = Format("Carrier Name: %s", ARRAYOFCONST((PhoneDialerService->GetCarrier()->GetCarrierName())));
        CountryCodeItem->ItemData->Detail = Format("ISO Country Code: %s", ARRAYOFCONST((PhoneDialerService->GetCarrier()->GetIsoCountryCode())));
        NetworkCodeItem->ItemData->Detail = Format("Network Code: %s", ARRAYOFCONST((PhoneDialerService->GetCarrier()->GetMobileCountryCode())));
        MobileNetworkItem->ItemData->Detail = Format("Mobile Network: %s", ARRAYOFCONST((PhoneDialerService->GetCarrier()->GetMobileNetwork())));
    }
    else {
        ShowMessage("PhoneDialer service not supported");
    }

}