Jump to content

JonasBollis

Membros
  • Posts

    1
  • Joined

  • Last visited

Recent Profile Visitors

480 profile views

JonasBollis's Achievements

Newbie

Newbie (1/14)

  • First Post
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

2

Reputation

  1. Douglas, segue código, sofri alguns dias aqui fazendo funcionar, graças a grande documentação fornecida pelo estado. o problema que você deve estar passando é que o requestbody não pode ser um TStringStream, mudei para TStream e começou aceitar, também deixa as configurações como está abaixo, se tiver alguma coisa diferente vai voltar ao erro que esta aparecendo ai, coloca o componente no formulário (idhttp), não coloca nenhuma propriedade e apenas seta como no código abaixo, suave amigo, abraço. var: RequestBody: TStream; lResponse : TStringStream; ZipEncode : String; begin .... // Codifica o zip: ZipEncode := '"' + EncodeFile(NomeZIP) + '"'; // deixa o idhttp dessa forma: lResponse := TStringStream.Create(); RequestBody := TStringStream.Create(ZipEncode, TEncoding.UTF8); try idHttp1.Request.ContentType := 'application/json'; IdHTTP1.Request.CustomHeaders.Clear; IdHttp1.Request.CustomHeaders.AddValue('Accept', 'application/json'); IdHttp1.Request.CustomHeaders.AddValue('Host', 'https://tributario.sef.sc.gov.br'); IdHttp1.Request.CustomHeaders.AddValue('Cache-Control', 'no-cache'); IdHttp1.Request.CustomHeaders.AddValue('Content-Type', 'application/json'); idHttp1.Post('https://tributario.sef.sc.gov.br/api/drcSt/arquivo/ValidarEstrutura', RequestBody, lResponse); lResponse.Position := 0; // Trata o retorno em um richedit: reResp.Lines.LoadFromStream(lResponse); finally lResponse.Free(); end;
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...