Timeout

[djpitucco]

Boa tarde Vinicius, saberia me dizer se consigo amentar o timeout de aguardo de resposta? Pelo que vi por padrão ele espera uns 20 segundos.

[viniciussanchez]

só colocar um .Timeout()

[djpitucco]

Estaria certo dessa forma ou ele tem algum lugar especifico que deva estar? Pelo teste que fiz ele ficou os mesmos 20 segundos.

LResponse := TRequest.New.BaseURL('http://'+ip+'/export_afd.fcgi?session='+session)
.Accept('application/json')
.ClearBody
.AddBody(ComandoJSON)
.Timeout(60000) //vai esperar a resposta 60 segundos
.post ;

if LResponse.StatusCode = 200 then
begin

 retorno := '';
 retorno := LResponse.Content;

end;

[viniciussanchez]

Aparentemente está correto

[djpitucco]

Grato pelo retorno!