0

Delphi XE6 で inapp-Purchase を開発しています。embarcadero のドキュメントに基づいて、以下のように InAppPurchase コンポーネントを作成します。

        FInAppPurchase := TInAppPurchase.Create(self);
{$IFDEF Android}
        FInAppPurchase.ProductIDs.Add(License5And);
        FInAppPurchase.ProductIDs.Add(License10And);
        FInAppPurchase.ProductIDs.Add(License20And);
        FInAppPurchase.ProductIDs.Add(License50And);
{$ENDIF}
{$IFDEF IOS}
        FInAppPurchase.ProductIDs.Add(License5);
        FInAppPurchase.ProductIDs.Add(License10);
        FInAppPurchase.ProductIDs.Add(License20);
        FInAppPurchase.ProductIDs.Add(License50);
{$ENDIF}
        FInAppPurchase.OnSetupComplete := InAppPurchase1OnSetupComplete;
        FInAppPurchase.OnConsumeCompleted := InAppPurchase1ConsumeCompleted;
        FInAppPurchase.OnError := InAppPurchase1Error;
        FInAppPurchase.OnProductsRequestResponse := InAppPurchase1ProductsRequestResponse;
        FInAppPurchase.OnPurchaseCompleted := InAppPurchase1PurchaseCompleted;
        FInAppPurchase.OnRecordTransaction := InAppPurchase1RecordTransaction;
        FInAppPurchase.OnVerifyPayload := InAppPurchase1VerifyPayload;

{$IFDEF Android}
        FInAppPurchase.ApplicationLicenseKey := myLicenseKeyFromGoogleDeveloperConsole;
{$ENDIF}

次にInAppPurchase1OnSetupCompleteI Called で、andFInAppPurchase.QueryProductsに入り、両方とも空です。何を逃したのかわかりません。どんな助けでも大歓迎です。InAppPurchase1ProductsRequestResponseproductsInavlidProductIDs

Google 開発者コンソールで製品を確認すると、すべてが「アクティブ」であり、「管理対象」のタイプになっています。

ps コードは ios デバイスで完璧に動作しています。

4

3 に答える 3

0

アルファ版またはベータ版のテスト用にアプリを公開する必要があるようです。本番用にアップロードする代わりに、最初にアルファ版をアップロードしてから公開する必要があります。その後、製品が表示されます。

于 2014-05-30T11:52:38.907 に答える