Bom dia!
Estou à dias quebrando cabeça, quando envio o POST o aplicativo fecha e não aparece nenhuma mensagem de erro na tela.
Abaixo está o trecho do botão para enviar a solicitação:
procedure TfmMenu.Button1Click(Sender: TObject);
var
htp: TIdHTTP;
url : string;
lst : TStringList;
jso : TJSONObject;
jsod : TJSONObject;
jsa : TJSONArray;
psn, vErro : string;
sts : integer;
begin
TThread.CreateAnonymousThread(
procedure()
begin
try
sleep(2000);
//processo para executar
htp:= TIdHTTP.Create(nil);
lst:= TStringList.Create;
lst.Add('cpf=19628590880');
lst.Add('senha=123');
url:= 'https://agilizee.com.br/webService/loginParceiro.php';
try
try
//url:= htp.Post(url, lst, retorno);
vErro:= htp.Post(url, lst);
ShowMessage(vErro);
except
on e : exception do
ShowMessage('Erro ao enviar solicitação! Detalhes: ' + e.Message);
end;
finally
FreeAndNil(htp);
lst.Free;
end;
begin
jso:= TJSONObject.ParseJSONValue(url) as TJSONObject;
psn:= jso.GetValue('message').Value;
sts:= strToInt(jso.GetValue('value').Value);
if sts=200 then begin
ShowMessage('OK ' + psn);
Application.CreateForm(TfmMenu, fmMenu);
fmMenu.Show;
end else begin
ShowMessage(psn);
end;
jso.Free;
end;
TThread.Synchronize (TThread.CurrentThread,
procedure ()
begin
//após o click sincroniza
end);
except
TThread.Synchronize (TThread.CurrentThread,
procedure ()
begin
// caso aja erro
end);
end;
end).Start;
end;
Se alguém puder me ajudar por favor agradeço desde já.
Este mesmo código acima tenho em outro aplicativo firemonkey e roda normal, neste fecha o app e não aparece nada na tela.
Vou anexar tb o arquivo em php que criei para receber os dados.
inseriClienteApp.php