Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Delphi-News aus aller Welt (https://www.delphipraxis.net/58-delphi-news-aus-aller-welt/)
-   -   Solucionar error en el componente tInAppPurchase (https://www.delphipraxis.net/204150-solucionar-error-en-el-componente-tinapppurchase.html)

DP News-Robot 29. Apr 2020 18:10

Solucionar error en el componente tInAppPurchase
 




En la última versión de Rad Studio 10.3.3 se produce un error al utilizar el componente tInAppPurchase en Android de 64 bits, cuando el usuario pulsa sobre la app para comprar una suscripción.


Una forma de capturar el error en este componente sería desde el evento OnError:


PROCEDURE TFPublicidad.InAppPurchase1Error(Sender: TObject;
ErrorKind: TFailureKind; CONST ErrorMessage: STRING);
BEGIN
IF ErrorKind = TFailureKind.ProductsRequest THEN
BEGIN
Memo2.Lines.Add(' ERROR al solicitar los productos ' + ErrorMessage);
END;
IF ErrorKind = TFailureKind.Purchase THEN
BEGIN
Memo2.Lines.Add(' ERROR en la compra ' + ErrorMessage);
END;
END;




En caso de que se la compra del producto online sea correcta hay que tratarla desde el evento OnPurchaseCompleted, de la siguiente forma:

PROCEDURE TFPublicidad.InAppPurchase1PurchaseCompleted(Sende r: TObject;
CONST ProductID: STRING; NewTransaction: Boolean);
BEGIN
Memo2.Lines.Add('*** ' + ProductID + ' EL Producto ha sido comprado');
IF ItemAComprar1 = ProductID THEN
showmessage ('se ha comprado el producto 1');
IF ItemAComprar2 = ProductID THEN
showmessage ('se ha comprado el producto 2');
END;



tInAppPurchase se usa para proporcionar acceso a la app a los servicios de pago de Google Play o de App Store, que permiten vender contenido digital, en forma de suscripciones o compra de productos.


El problema es que se omitió cambiar un tipo de datos "Cardinal" (mismo tamaño en todas las plataformas) a "NativeUInt" (específico de la plataforma). Esto se logra utilizando el tipo tFmxHandle.


Para resolver este problema hay que :


- Acceder al archivo FMX.Helpers.Android.pas
Está en C: \ Archivos de programa (x86) \ Embarcadero \ Studio \ 20.0 \ source \ fmx


- Copiar el archivo y pegarlo en la carpeta del proyecto


- Después hay que cambiar la línea nº 250 de esa unit y donde dice:


FTimerHandle: Cardenal;


cambiarlo por


FTimerHandle: tFmxHandle;


Aquí tienen una imagen del código




Referencia: blog Marco Cantú


También te puede interesar:

Que hacer para no perder ingresos con vuestras apps
Cómo dejar que Google gestione la clave de firma de las apps

Solucionando problemas con los componentes Iot

Cómo generar un Android App Bundle con Delphi




Suscribirse :
http://feeds.feedburner.com/~ff/Delp...?d=yIl2AUoC8zA http://feeds.feedburner.com/~ff/Delp...?d=dnMXMwOfBR0 http://feeds.feedburner.com/~ff/Delp...?d=qj6IDK7rITs http://feeds.feedburner.com/~ff/Delp...?d=7Q72WNTAKBA
http://feeds.feedburner.com/~r/Delph...~4/Qz0IHHxH3jc

Weiterlesen...


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:30 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz