delphimvcframework/samples/winecellarclient_mobile/MainFormU.pas

unit MainFormU;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.ListView.Types, IPPeerClient, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
  FireDAC.DApt.Intf, Data.Bind.EngExt, FMX.Bind.DBEngExt, System.Rtti,
  System.Bindings.Outputs, FMX.Bind.Editors, Data.Bind.Components,
  Data.Bind.DBScope, REST.Client, Data.DB, FireDAC.Comp.DataSet,
  FireDAC.Comp.Client, REST.Response.Adapter, Data.Bind.ObjectScope,
  FMX.ListView, FMX.Controls.Presentation, FMX.ListView.Appearances,
  FMX.ListView.Adapters.Base, REST.Types, FireDAC.Stan.StorageBin,
  System.Net.URLClient, System.Net.HttpClient, System.Net.HttpClientComponent,
  FMX.TabControl, System.Actions, FMX.ActnList, FMX.Edit, FMX.Layouts,
  FMX.Memo.Types, FMX.ScrollBox, FMX.Memo;

type
  THeaderFooterForm = class(TForm)
    Header: TToolBar;
    Footer: TToolBar;
    HeaderLabel: TLabel;
    ListView1: TListView;
    FDMemTable1: TFDMemTable;
    Button1: TButton;
    FDMemTable1id: TIntegerField;
    FDMemTable1name: TStringField;
    FDMemTable1year: TIntegerField;
    FDMemTable1grapes: TStringField;
    FDMemTable1country: TStringField;
    FDMemTable1region: TStringField;
    FDMemTable1description: TStringField;
    BindSourceDB12: TBindSourceDB;
    BindingsList1: TBindingsList;
    LinkListControlToField1: TLinkListControlToField;
    NetHTTPClient: TNetHTTPClient;
    TabControl1: TTabControl;
    TabItem1: TTabItem;
    TabItem2: TTabItem;
    ActionList1: TActionList;
    NextTabAction1: TNextTabAction;
    Layout1: TLayout;
    Layout2: TLayout;
    Label1: TLabel;
    Edit1: TEdit;
    Layout3: TLayout;
    Label2: TLabel;
    Edit2: TEdit;
    Layout4: TLayout;
    lblYear: TLabel;
    Edit3: TEdit;
    Layout5: TLayout;
    Layout6: TLayout;
    Label3: TLabel;
    Edit4: TEdit;
    Layout7: TLayout;
    Label4: TLabel;
    Edit5: TEdit;
    Layout8: TLayout;
    Label5: TLabel;
    Memo1: TMemo;
    LinkControlToField1: TLinkControlToField;
    LinkControlToField2: TLinkControlToField;
    LinkControlToField3: TLinkControlToField;
    LinkControlToField4: TLinkControlToField;
    LinkControlToField5: TLinkControlToField;
    LinkControlToField6: TLinkControlToField;
    ChangeTabAction1: TChangeTabAction;
    Button2: TButton;
    PreviousTabAction1: TPreviousTabAction;
    procedure Button1Click(Sender: TObject);
    procedure NetHTTPClientRequestCompleted(const Sender: TObject;
      const AResponse: IHTTPResponse);
    procedure ListView1ItemClick(const Sender: TObject;
      const AItem: TListViewItem);
    procedure FormShow(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
      Shift: TShiftState);
    procedure PreviousTabAction1Update(Sender: TObject);
  private
    procedure LoadWines;
  public
    { Public declarations }
  end;

const
{$IF Defined(MSWINDOWS)}
  URL = 'http://localhost:3000/api';
{$ENDIF}
{$IF Defined(ANDROID)}
  URL = 'http://192.168.1.46:3000/api';
{$ENDIF}

var
  HeaderFooterForm: THeaderFooterForm;

implementation

uses
  MVCFramework.DataSet.Utils;

{$R *.fmx}

procedure THeaderFooterForm.Button1Click(Sender: TObject);
begin
  LoadWines;
end;

procedure THeaderFooterForm.FormKeyUp(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
  if Key = vkHardwareBack then
  begin
    ChangeTabAction1.Tab := TabItem1;
    ChangeTabAction1.Execute;
    Key := 0;
  end;
end;

procedure THeaderFooterForm.FormShow(Sender: TObject);
begin
  TabControl1.ActiveTab := TabItem1;
  LoadWines;
end;

procedure THeaderFooterForm.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
begin
  NextTabAction1.ExecuteTarget(Self);
end;

procedure THeaderFooterForm.LoadWines;
begin
  NetHTTPClient.Get(URL + '/wines');
end;

procedure THeaderFooterForm.NetHTTPClientRequestCompleted(const Sender: TObject;
  const AResponse: IHTTPResponse);
var
  lJSONString: string;
begin
  lJSONString := AResponse.ContentAsString();
  FDMemTable1.Active := True;
  FDMemTable1.EmptyDataSet;
  FDMemTable1.LoadFromJSONArray(lJSONString);
  FDMemTable1.First;
end;

procedure THeaderFooterForm.PreviousTabAction1Update(Sender: TObject);
begin
  PreviousTabAction1.Visible := TabControl1.ActiveTab = TabItem2;
end;

end.