[Envio do arquivo DRCST]

Em 13/05/2019 at 16:15, DouglasGV disse:

@JonasBollis Obrigado!

Consegui resolver o problema, era apenas as  aspas duplas no inicio e no fim depois de convertido em base64.

Descobri pela postagem abaixo.

Agradeço a informação!

 

 

 

Bom dia a todos.

Estou tentando implementar essa solução e avaliando vários posts que encontrei aqui no forum, implementei a seguinte solução:

var
   lHTTP: TIdHTTP;
   lRequisicao: TStream;
   lArquivo: TMemoryStream;
   lRetorno: TStringStream;
   lArquivoCompactado: string;
   lHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
   lHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
   lHandler.SSLOptions.Method      := sslvSSLv23;
   lHandler.SSLOptions.Mode        := sslmUnassigned;
   lHandler.SSLOptions.VerifyMode  := [];
   lHandler.SSLOptions.VerifyDepth := 0;
   lHandler.host                   := '';

   lHTTP := TIdHTTP.Create(nil);
   lHTTP.IOHandler := lHandler;
   lHTTP.HandleRedirects := TRUE;
   lHTTP.request.ContentType := 'application/json';

   lRetorno := TStringStream.Create('');
   lArquivo := TMemoryStream.Create;

   try
      lArquivo.LoadFromFile(jvDiretorio.Text);
      lArquivoCompactado := '"' + EncodeBase64(ReadStrFromStream(lArquivo, lArquivo.Size)) + '"';
      lRequisicao := TStringStream.Create(UTF8Encode('teste'));
      
      lHTTP.Post('https://tributario.sef.sc.gov.br/api/drcSt/arquivo/ValidarEstrutura', lRequisicao, lRetorno);

      if lHTTP.Response.ResponseCode = 200 then
      begin
         ShowMessage('Homologação do arquivo realizada com sucesso');
      end
      else
      begin
         ShowMessage('Não foi possivel realizar a homologação do arquivo! ' + lHTTP.Response.ResponseText).Show;
      end;
   finally
      lHTTP.Free;
      lArquivo.Free;
      lRetorno.Free;
      lHandler.Free;
   end;
end;

Ocorre que, ao realizar a transmissão, estou tendo como erro a seguinte mensagem:

Error connecting with SSL.
EOF was observed that violates the protocol.

Saberiam me informar como contornar essa situação?