main.pas

unit main;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  System.Messaging,
  Androidapi.JNI,
  Androidapi.JNIBridge,
  Androidapi.JNI.Os,
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.WebKit,
  FMX.Helpers.Android,
  Androidapi.JNI.Net,
  Androidapi.JNI.JavaTypes,
  Androidapi.JNI.Telephony,
  Androidapi.JNI.App,
  Androidapi.Helpers,
  FMX.Controls.Presentation,
  FMX.StdCtrls,
  FMX.ScrollBox,
  FMX.Memo,
  IOUtils, FMX.Advertising, FMX.MultiView, FMX.Edit, System.ImageList,
  FMX.ImgList, FMX.ListView.Types, FMX.ListView.Appearances,
  FMX.ListView.Adapters.Base, FMX.ListView,
  System.Permissions, FMX.Objects,
  FMX.Ani, FMX.Layouts, FMX.LoadingIndicator,
  FMX.DialogService, Androidapi.JNI.Widget;

type
  TmainForm = class(TForm)
    MemoSMSText: TMemo;
    ButtonSendSMS: TButton;
    Label1: TLabel;
    BannerAd1: TBannerAd;
    ImageList1: TImageList;
    SidebarButton: TButton;
    RectangleHeader: TRectangle;
    RectanglePreloader: TRectangle;
    FMXLoadingIndicator1: TFMXLoadingIndicator;
    Rectangle1: TRectangle;
    procedure ButtonSendSMSClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SidebarButtonClick(Sender: TObject);
    procedure FormVirtualKeyboardShown(Sender: TObject;
      KeyboardVisible: Boolean; const Bounds: TRect);
    procedure FormVirtualKeyboardHidden(Sender: TObject;
      KeyboardVisible: Boolean; const Bounds: TRect);
  private
    procedure SendSMS(target, messagestr: string);
    procedure Split(Delimiter: Char; Str: string; ListOfStrings: TStrings);
    procedure doSMSPermission;
    { Private declarations }
  public
    { Public declarations }
    SMSPermissionGranted: Integer;
    memoHeight: Single;
    memoAlign: TAlignLayout;
  end;

var
  mainForm: TmainForm;

implementation

{$R *.fmx}

uses DataModule, HelperUnit, NumbersDB;

{$IFDEF ANDROID}

procedure Toast(const Msg: string; Duration: Integer);
begin
  CallInUiThread(
    procedure
    begin
      TJToast.JavaClass.makeText(TAndroidHelper.Context,
        StrToJCharSequence(Msg), Duration).show
    end);
end;
{$ENDIF}

procedure TmainForm.FormCreate(Sender: TObject);
begin
  SMSPermissionGranted := 22;
  self.BannerAd1.AdUnitID := 'ca-app-pub-6537744019921634/4591765968';
  self.BannerAd1.LoadAd;
end;

procedure TmainForm.FormVirtualKeyboardHidden(Sender: TObject;
KeyboardVisible: Boolean; const Bounds: TRect);
begin
  // MemoSMSText.Height := memoHeight;
  // MemoSMSText.Align := memoAlign;
end;

procedure TmainForm.FormVirtualKeyboardShown(Sender: TObject;
KeyboardVisible: Boolean; const Bounds: TRect);
begin {
    memoHeight := MemoSMSText.Height;
    memoAlign := MemoSMSText.Align;

    MemoSMSText.Align := TAlignLayout.None;
    MemoSMSText.Position.Y := (self.Height - Bounds.Height) - MemoSMSText.Height + 50;
    MemoSMSText.Height := self.Height - Bounds.Height; }
end;

procedure TmainForm.doSMSPermission;
begin
  PermissionsService.requestPermissions
    ([JStringToString(TJManifest_permission.JavaClass.SEND_SMS)],
    procedure(const APermissions: TArray<string>;
      const AGrantResults: TArray<TPermissionStatus>)
    begin
      if (Length(AGrantResults) = 1) and
        (AGrantResults[0] = TPermissionStatus.Granted) then
      begin
        ButtonSendSMS.Enabled := True;
      end
      else
      begin
        ButtonSendSMS.Enabled := False;
        TDialogService.ShowMessage('SMS send permission not granted');
      end;
    end);
end;

procedure TmainForm.Button1Click(Sender: TObject);
begin
  with TNumbersDBForm.Create(Application) do
  begin
    show;
  end;
end;

procedure TmainForm.ButtonSendSMSClick(Sender: TObject);
var
  I: Integer;
  filename: string;
begin
  if TOSVersion.Major >= 6 then // Check(6)
  begin
    if (not PermissionsService.IsPermissionGranted
      (JStringToString(TJManifest_permission.JavaClass.SEND_SMS))) then
    begin
      self.doSMSPermission;
      TDialogService.ShowMessage('Click again on send button');
      exit;
    end;
  end;
  try
    DM.FDTableNumbers.Active := True;
    DM.FDTableNumbers.First;
    RectanglePreloader.visible := True;
    FMXLoadingIndicator1.Enabled := True;
    I := 0;
    while not DM.FDTableNumbers.eof do
    begin
      self.SendSMS(DM.FDTableNumbers.fieldbyname('number').asString,
        MemoSMSText.Text);
      I := I + 1;
      Label1.Text := 'Sended SMS: ' + IntToStr(I);
      DM.FDTableNumbers.Edit;
      DM.FDTableNumbers.fieldbyname('sent_cnt').AsInteger :=
        DM.FDTableNumbers.fieldbyname('sent_cnt').AsInteger + 1;
      DM.FDTableNumbers.Post;
      DM.FDTableNumbers.Next;
    end;
    TDialogService.ShowMessage(Label1.Text);
    RectanglePreloader.visible := False;
    FMXLoadingIndicator1.Enabled := False;
  Except
    TDialogService.ShowMessage
      ('Please read app description on play.google.com/store/apps/details?id=com.mchikvaidze.SMSSender');
  end;
end;

procedure TmainForm.SendSMS(target, messagestr: string);
var
  smsManager: JSmsManager;
  smsTo: JString;
begin
  smsManager := TJSmsManager.JavaClass.getDefault;
  smsTo := StringToJString(target);
  smsManager.sendTextMessage(smsTo, nil, StringToJString(messagestr), nil, nil);
end;

procedure TmainForm.SidebarButtonClick(Sender: TObject);
begin
  with TNumbersDBForm.Create(Application) do
  begin
    Activate;
  end;
end;

procedure TmainForm.Split(Delimiter: Char; Str: string;
ListOfStrings: TStrings);
begin
  ListOfStrings.Clear;
  ListOfStrings.Delimiter := Delimiter;
  ListOfStrings.StrictDelimiter := True; // Requires D2006 or newer.
  ListOfStrings.DelimitedText := Str;
end;

end.