Hello.
First all sorry for post in English.
I have been using the Bigjorj solution for InAppPurchases in my app in Android 32-bit since I found in this forum with success;
Recently I tested code in Rio 10.3.3. Android 64-bit for Google requirements and get an error 'External exception 1' , my code is as follow in OnCreate form event in first lines;
In last line 'FInAppPurchase.SetupInAppPurchase;' is when exception is throwed 'Extrernal exception 1.', I accept the error that continues displaying several times until the app crashes and exit suddenly.
Code of SetupInAppPurchase procedure within FMX.InAppPurchase unit is;
procedure TCustomInAppPurchase.SetupInAppPurchase;
begin
if FInAppPurchaseService <> nil then
FInAppPurchaseService.SetupInAppPurchase(Self)
end;
I have tested removing this last code line and error doesn't display, but users that purchased the product get the version lite and users that want to purchase it get message 'In-App Purchase component is not set up', logical, the result expected because InAppPurchase never has been set up.
Вопрос
Juande
Hello.
First all sorry for post in English.
I have been using the Bigjorj solution for InAppPurchases in my app in Android 32-bit since I found in this forum with success;
Recently I tested code in Rio 10.3.3. Android 64-bit for Google requirements and get an error 'External exception 1' , my code is as follow in OnCreate form event in first lines;
FInAppPurchase := TInAppPurchase.Create(Self);
FInAppPurchase.ApplicationLicenseKey := '****';
FInAppPurchase.ApplicationLicenseKey := FInAppPurchase.ApplicationLicenseKey + '****';
FInAppPurchase.ProductIDs.Add(PremiumVersion);
FInAppPurchase.OnSetupComplete := InAppPurchaseSetupComplete;
FInAppPurchase.OnProductsRequestResponse := InAppPurchaseProductsRequestResponse;
FInAppPurchase.OnPurchaseCompleted := InAppPurchasePurchaseCompleted;
FInAppPurchase.SetupInAppPurchase;
In last line 'FInAppPurchase.SetupInAppPurchase;' is when exception is throwed 'Extrernal exception 1.', I accept the error that continues displaying several times until the app crashes and exit suddenly.
Code of SetupInAppPurchase procedure within FMX.InAppPurchase unit is;
procedure TCustomInAppPurchase.SetupInAppPurchase;
begin
if FInAppPurchaseService <> nil then
FInAppPurchaseService.SetupInAppPurchase(Self)
end;
I have tested removing this last code line and error doesn't display, but users that purchased the product get the version lite and users that want to purchase it get message 'In-App Purchase component is not set up', logical, the result expected because InAppPurchase never has been set up.
Anybody with similar issue and got a solution?
Many thanks and regards from Spain.
Juande.
Ссылка на комментарий
2 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.