Delphi FMX – HTTPS POST with AniIndicator

  

On Android, when I touch the screen during a Indy https post function "Application isn’t responding" appears. I don’t want to see it. I want to show AniIndicator animation during loading data without main thread get busy.
my code:
function TFormMain.LoginChecker(iphttp: TIdHTTP): Boolean;
var
s: string;
Thread1: TThread;
begin
Thread1 := TThread.CreateAnonymousThread
(
procedure
begin

TThread.Synchronize(Thread1,
procedure
begin
s := iphttp.Post(ServerRoot + ‘lc.php’, TStream(nil));
end);
end);
Thread1.Start;
if Thread1.Finished then
begin
try
if s = ‘1’ then
Result := True
else
Result := False;
except
Result := False;
end;
end;
end;

procedure TFormMain.Button2Click(Sender: TObject);
var
Thread1: TThread;
Logined: Boolean;
begin
try
AniIndicator1.Visible := True;
AniIndicator1.Enabled := True;
TabControl1.Visible := False;

Logined:= LoginChecker(IdHTTP1);
if Logined then
ShowMessage(‘Yes!’)
else
ShowMessage(‘No’);
finally
AniIndicator1.Visible := False;
AniIndicator1.Enabled := False;
TabControl1.Visible := True;
end;

Comments are closed.