XRC_721.pas

unit XRC_721;

interface
Uses
  System.SysUtils,
  Velthuis.BigIntegers,
  web3.eth,
  web3,
  web3.eth.erc721,
  web3.eth.erc20,
  web3.utils,
  web3.eth.types;

  Type
  TAsyncStringObject = reference to procedure(const res: string);

  TWeb3Xdc721 = class;
  IWeb3Xdc721 = interface
    function TokenName(url : string; tokenAddress : string; callback : TAsyncStringObject) : string;
    function TokenSymbol(url : string;tokenAddress: string; callback : TAsyncStringObject) : string;
    function TokenURI(url : string; tokenAddress : string; tokenId: BigInteger; callback: TAsyncStringObject): string;
    function TotalSupply(url : string; tokenAddress : string; callback: TAsyncStringObject): string;
    function TokenByIndex(url : string; tokenAddress : string; index: UInt64; callback: TAsyncStringObject) : string;
    function TokenOfOwnerByIndex(url : string; tokenAddress : string; ownerAddress: TAddress; index: UInt64; callback: TAsyncStringObject) : string;
    function BalanceOf(url : string; tokenAddress : string; ownerAddress: string; callback: TAsyncStringObject): string;
    function OwnerOf(url : string; tokenAddress : string; tokenId: UInt64; callback: TAsyncStringObject):string;
    function Approve(url : string; aChain: TChain; ownerPrivateKey: TPrivateKey ; tokenAddress : string ; spenderAddress : TAddress ; tokenId : UInt64 ; callback : TAsyncStringObject ) : string;
    function GetApproved(url : string; tokenAddress : string; tokenId: UInt64; callback: TAsyncStringObject): string;
    function IsApprovedForAll(url : string; aChain: TChain; tokenAddress : string ; ownerAddress: TPrivateKey ; operatorAddress : TAddress ; callback : TAsyncStringObject ) : string;
    function SetApprovalForAll(url : string; aChain: TChain; tokenAddress : string ; ownerPrivateKey: TPrivateKey ; operatorAddress : TAddress ; approved : boolean; callback : TAsyncStringObject ) : string;
    function TransferFrom(url : string; aChain: TChain; spenderPrivateKey: TPrivateKey ; ownerAddress: TAddress; tokenAddress : string ; recipientAddress : TAddress ; tokenId : BigInteger ; callback : TAsyncStringObject ) : string;
    function SafeTransferFrom(url : string; aChain: TChain; spenderPrivateKey: TPrivateKey ; ownerAddress: TAddress; tokenAddress : string ; recipientAddress : TAddress ; tokenId : BigInteger ; callback : TAsyncStringObject ) : string;
  end;

  TWeb3Xdc721 = class(TInterfacedObject, IWeb3Xdc721)
   function TokenName(url : string; tokenAddress : string; callback : TAsyncStringObject) : string;
   function TokenSymbol(url : string; tokenAddress: string; callback : TAsyncStringObject) : string;
   function TokenURI(url : string; tokenAddress : string; tokenId: BigInteger; callback: TAsyncStringObject): string;
   function TotalSupply(url : string; tokenAddress : string; callback: TAsyncStringObject): string;
   function TokenByIndex(url : string; tokenAddress : string; index: UInt64; callback: TAsyncStringObject) : string;
   function TokenOfOwnerByIndex(url : string; tokenAddress : string; ownerAddress: TAddress; index: UInt64; callback: TAsyncStringObject) : string;
   function BalanceOf(url : string; tokenAddress : string; ownerAddress: string; callback: TAsyncStringObject): string;
   function OwnerOf(url : string; tokenAddress : string; tokenId: UInt64; callback: TAsyncStringObject):string;
   function Approve(url : string; aChain: TChain; ownerPrivateKey: TPrivateKey ; tokenAddress : string ; spenderAddress : TAddress ; tokenId : UInt64 ; callback : TAsyncStringObject ) : string;
   function GetApproved(url : string; tokenAddress : string; tokenId: UInt64; callback: TAsyncStringObject): string;
   function IsApprovedForAll(url : string; aChain: TChain; tokenAddress : string ; ownerAddress: TPrivateKey ; operatorAddress : TAddress ; callback : TAsyncStringObject ) : string;
   function SetApprovalForAll(url : string; aChain: TChain; tokenAddress : string ; ownerPrivateKey: TPrivateKey ; operatorAddress : TAddress ; approved : boolean; callback : TAsyncStringObject ) : string;
   function TransferFrom(url : string; aChain: TChain; spenderPrivateKey: TPrivateKey ; ownerAddress: TAddress; tokenAddress : string ; recipientAddress : TAddress ; tokenId : BigInteger ; callback : TAsyncStringObject ) : string;
   function SafeTransferFrom(url : string; aChain: TChain; spenderPrivateKey: TPrivateKey ; ownerAddress: TAddress; tokenAddress : string ; recipientAddress : TAddress ; tokenId : BigInteger ; callback : TAsyncStringObject ) : string;
  end;


implementation

 function TWeb3Xdc721.TokenName(url : string; tokenAddress : string; callback : TAsyncStringObject) : string;
 begin
    var Client: IWeb3 := TWeb3.Create(url);

    web3.eth.call(Client, tokenAddress, 'name()', [], procedure(tup: TTuple; err: IError)
      begin
        if Assigned(err) then
           callback(err.Message)
        else
           callback(tup.ToString);
      end);
 end;

 function TWeb3Xdc721.TokenSymbol(url : string; tokenAddress: string; callback: TAsyncStringObject): string;
 begin
   var Client: IWeb3 := TWeb3.Create(url);

      web3.eth.call(Client, tokenAddress, 'symbol()', [], procedure(tup: TTuple; err: IError)
      begin
        if Assigned(err) then
           callback(err.Message)
        else
           callback(tup.ToString);
      end);
 end;

 function TWeb3Xdc721.TokenURI(url : string; tokenAddress : string; tokenId: BigInteger; callback: TAsyncStringObject): string;
  begin
    var Client: IWeb3 := TWeb3.Create(url);
    web3.eth.call(Client, tokenAddress, 'tokenURI(uint256)', [web3.utils.toHex(tokenId)], procedure(tup: TTuple; err: IError)
    begin
      if Assigned(err) then
         callback(err.Message)
      else
         callback(tup.ToString);
    end);
  end;

  function TWeb3Xdc721.TotalSupply(url : string; tokenAddress : string; callback: TAsyncStringObject): string;
  begin
    var Client: IWeb3 := TWeb3.Create(url);
    web3.eth.call(Client, tokenAddress, 'totalSupply()', [], procedure(qty  : BigInteger; err : IError)
    begin
      if Assigned(err) then
         callback(err.Message)
      else
         callback(qty.ToString);
    end);
  end;


  function TWeb3Xdc721.TokenByIndex(url : string; tokenAddress : string; index: UInt64; callback: TAsyncStringObject) : string;
  begin
    var Client: IWeb3 := TWeb3.Create(url);
    web3.eth.call(Client, tokenAddress, 'tokenByIndex(uint256)', [index], procedure(qty  : BigInteger; err : IError)
    begin
      if Assigned(err) then
         callback(err.Message)
      else
         callback(qty.ToString);
    end);
  end;

  function TWeb3Xdc721.TokenOfOwnerByIndex(url : string; tokenAddress : string; ownerAddress: TAddress; index: UInt64; callback: TAsyncStringObject) : string;
  begin
    var Client: IWeb3 := TWeb3.Create(url);
    web3.eth.call(Client, tokenAddress, 'tokenOfOwnerByIndex(address,uint256)', [ownerAddress, index], procedure(qty  : BigInteger; err : IError)
    begin
      if Assigned(err) then
         callback(err.Message)
      else
         callback(qty.ToString);
    end);
  end;

  function TWeb3Xdc721.BalanceOf(url : string; tokenAddress : string; ownerAddress: string; callback: TAsyncStringObject): string;
  begin
    var Client: IWeb3 := TWeb3.Create(url);
    web3.eth.call(Client, tokenAddress, 'balanceOf(address)', [ownerAddress], procedure(qty  : BigInteger; err : IError)
    begin
      if Assigned(err) then
         callback(err.Message)
      else
         callback(qty.ToString);
    end);
  end;

  function TWeb3Xdc721.OwnerOf(url : string; tokenAddress : string; tokenId: UInt64; callback: TAsyncStringObject):string ;
  begin
    var Client: IWeb3 := TWeb3.Create(url);
    web3.eth.call(Client, tokenAddress, 'ownerOf(uint256)', [tokenId], procedure(const hex: string; err: IError)
    begin
      if Assigned(err) then
         callback(err.Message)
      else
         callback(TAddress.New(hex));
    end);
  end;

  function TWeb3Xdc721.GetApproved(url : string; tokenAddress : string; tokenId: UInt64; callback: TAsyncStringObject): string;
    begin
      var Client: IWeb3 := TWeb3.Create(url);
      web3.eth.call(Client, tokenAddress, 'getApproved(uint256)', [tokenId], procedure(const hex: string; err: IError)
      begin
        if Assigned(err) then
           callback(err.Message)
        else
           callback(TAddress.New(hex));
      end);
    end;

  function TWeb3Xdc721.IsApprovedForAll(url : string; aChain: TChain; tokenAddress : string ; ownerAddress: TPrivateKey ; operatorAddress : TAddress ; callback : TAsyncStringObject ) : string;
    begin

      var XRC721 := TERC721.Create(TWeb3.Create(aChain,url),tokenAddress);

      try
          XRC721.IsApprovedForAll(
          ownerAddress,
          operatorAddress,
          procedure(bool : Boolean;  err : IError)
          begin
            if Assigned(err) then
               callback(err.Message)
            else
               callback(bool.ToString());
          end);

          finally
          XRC721.Free;
      end;
    end;

  function TWeb3Xdc721.TransferFrom(url : string; aChain: TChain; spenderPrivateKey: TPrivateKey ; ownerAddress: TAddress; tokenAddress : string ; recipientAddress : TAddress ; tokenId : BigInteger ; callback : TAsyncStringObject ) : string;
    begin

         var XRC721 := TERC20.Create(TWeb3.Create(aChain,url),tokenAddress);     // RPC access to XDC

      spenderPrivateKey.Address(procedure(addr: TAddress; err: IError)
        begin
          web3.eth.write(
          XRC721.Client, spenderPrivateKey, XRC721.Contract,
          'transferFrom(address,address,uint256)', [ownerAddress, recipientAddress, web3.utils.toHex(tokenId)],

          procedure(hash : TTxHash;    err : IError)
          begin
              if Assigned(err) then
                 callback(err.Message)
              else
                 callback(string(hash));
          end);
       end);

    end;

//  edited.
    function TWeb3Xdc721.SafeTransferFrom(url : string; aChain: TChain; spenderPrivateKey: TPrivateKey ; ownerAddress: TAddress; tokenAddress : string ; recipientAddress : TAddress ; tokenId : BigInteger ; callback : TAsyncStringObject ) : string;
    begin

        var XRC721 := TERC20.Create(TWeb3.Create(aChain,url),tokenAddress);     // RPC access to XDC

      spenderPrivateKey.Address(procedure(addr: TAddress; err: IError)
        begin
          web3.eth.write(
          XRC721.Client, spenderPrivateKey, XRC721.Contract,
          'transferFrom(address,address,uint256)', [ownerAddress, recipientAddress, web3.utils.toHex(tokenId)],

          procedure(hash : TTxHash;    err : IError)
          begin
              if Assigned(err) then
                 callback(err.Message)
              else
                 callback(string(hash));
          end);
       end);

    end;


    function TWeb3Xdc721.Approve(url : string; aChain: TChain; ownerPrivateKey: TPrivateKey ; tokenAddress : string ; spenderAddress : TAddress ; tokenId : UInt64 ; callback : TAsyncStringObject ) : string;
    begin

      var XRC721 := TERC721.Create(TWeb3.Create(aChain,url),tokenAddress);

        try
          XRC721.Approve(
          ownerPrivateKey,                                 // from private key
          spenderAddress,                                  // to public key
          tokenId,                                        // 0.001 TST
          procedure(rcpt: ITxReceipt; err: IError)
          begin
            if Assigned(err) then
                callback(err.Message)
            else
                callback(string(rcpt.txHash));
          end);

          finally
          XRC721.Free;
      end;
    end;


    function TWeb3Xdc721.SetApprovalForAll(url : string; aChain: TChain; tokenAddress : string ; ownerPrivateKey: TPrivateKey ; operatorAddress : TAddress ; approved : boolean; callback : TAsyncStringObject ) : string;
    begin

        var XRC721 := TERC721.Create(TWeb3.Create(aChain,url),tokenAddress);

        try
          XRC721.SetApprovalForAll(
          ownerPrivateKey,
          operatorAddress,
          approved,
          procedure(rcpt : ITxReceipt; err : IError)
          begin
            if Assigned(err) then
               callback(err.Message)
            else
               callback(string(rcpt.txHash));
          end);

          finally
          XRC721.Free;
      end;
    end;


end.