ActiveDelphi

[programadorcimples]

Bom dia estou comunicando com relogio de ponto

agora preciso trazer pelo exemplo passado, um filtro por data so que queria trazer digitando no edit e nao como ta no exemplo

nesta linha preciso onde esta o dia, mes e ano , que venha do edit
lJSO := SO('{initial_date:{day: 21 ,month: 12 , year: 2022}}'); //('{initial_date:{day: 2 ,month: 12,year: 2022}}')






var
lJSO : ISuperObject;
lRequest: TStringStream;
lResponse: String;
IdHTTP1: TIdHTTP;
dia:ISuperObject;

begin


IdHTTP1 := TidHTTP.Create; //YearsBetween(Date, EncodeDate(year, month, day));
lJSO := SO('{initial_date:{day: 21 ,month: 12 , year: 2022}}'); //('{initial_date:{day: 2 ,month: 12,year: 2022}}')
lRequest := TStringStream.Create(lJSO.AsString, TEncoding.UTF8);
try
IdHTTP1.Request.ContentType := 'application/json';
IdHTTP1.Request.Charset := 'utf-8';
try
lResponse := IdHTTP1.Post('https://192.168.0.0/get_afd.fcgi?session='+ session,lRequest ); //+ session, lRequest
// ShowMessage(lResponse);
Memo1.Lines.Add(Lresponse);
except
on E: Exception do
ShowMessage('Error on request:'#13#10 + E.Message);
end;
finally
lRequest.Free;
IdHTTP1.Free;
end;
lJSO := nil;

[adriano_servitec]

[joemil]

so pra ficar mais bonitinho rsrsrs

[programadorcimples]

DEU CERTO VALEUUU