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 :
Weiterlesen...