stone-deeplink
Stone Deeplink integration for Delphi (Firemonkey)
- Quiet · last change 6-19-2024
- ★ 13 on GitHub
README
Stone Deeplink
A Delphi (Firemonkey) library for integration with Stone's card machine
⚙️ Installation
Installation is done using the boss install command:
boss install github.com/CarlosHe/stone-deeplinkManual initialization (without component)
⚡️ Initializing an instance
uses
Stone.Deeplink;
// GLOBAL VARIABLE
var
FStoneDeeplinkApplication: TStoneDeeplinkAndroidApplication;
...
begin
FStoneDeeplinkApplication := TStoneDeeplinkAndroidApplication.New(REPLACE_BY_SCHEME_NAME);
end.⚡️ Defining the payment callback
uses
Stone.Deeplink;
// GLOBAL VARIABLE
var
FStoneDeeplinkApplication: TStoneDeeplinkAndroidApplication;
...
procedure StoneDeeplinkPaymentSuccess(const APaymentReturn: IStoneDeeplinkPaymentReturnEntity);
begin
// SUCCESSFUL RETURN
end.
procedure StoneDeeplinkPaymentError(const ACode: Integer; const AMessage: string);
begin
// RETURN WITH ERROR
end.
...
begin
FStoneDeeplinkApplication.SetPaymentSuccess(StoneDeeplinkPaymentSuccess);
FStoneDeeplinkApplication.SetPaymentError(StoneDeeplinkPaymentError);
end.⚡️ Calling payment
uses
Stone.Deeplink;
// GLOBAL VARIABLE
var
FStoneDeeplinkApplication: TStoneDeeplinkAndroidApplication;
...
begin
FStoneDeeplinkApplication.CallPayment(
TStoneDeeplinkPaymentEntityBuilder.New
.SetAmount(REPLACE_BY_AMOUNT_IN_CENTS)
.SetTransactionType(TStoneDeeplinkTransactionType.Credit)
.Build
);
end.