Send File. Help.

[PedroAlbuquerqueQueiroz]

Vinicius, tudo bem ?

Por favor, com vejo que você tem um vasto conhecimento com restrequest, poderia me ajudar com a situação abaixo ?

-> Preciso enviar um arquivo em uma requisição post, porem o arquivo deve seguir no body em form-data:
file

foto: https://www.jasaquei.com.br/docs/print_postman.png

Tentativas

Não deu certo..
LResponse := TRequest.New.BaseURL('Url')
.AddHeader('Authorization','Bearer '+xTokenIntegracao,[poDoNotEncode])
.AddParam('dataPagamento',formatdatetime('YYYY-MM-DD',Now),pkREQUESTBODY)
.AddParam('codigoAutenticacao',DataSource1.DataSet.FieldByName('CWB_AUTENTICACAO_PAGTO').AsString,pkREQUESTBO


DY)
.AddParam('observacoes','Pagto Liquidado. '+formatdatetime('DD/MM/YY hh:mm',Now),pkREQUESTBODY)
.AddFile(DataSource1.DataSet.FieldByName('CWB_ID').AsString+'.pdf',xStream)
.Accept('application/json')
.Post;

Não Deu certo (2)
LRequest := THTTPClient.Create;
// LFormData := TMultipartFormData.Create();
// LResponseStringStream := TStringStream.Create;
// try
// LFormData.AddField('Authorization','Bearer '+xTokenIntegracao);
// LFormData.AddField('body',xBody);
// LFormData.AddFile('arquivo','C:\comprovantes'+DataSource1.DataSet.FieldByName('CWB_ID').AsString+'.pdf');
// LRequest.Post('Url', LFormData, LResponseStringStream);
// finally
// LFormData.Free;
// LResponseStringStream.Free;
// LRequest.Free;
// end;

Não Deu certo (3)
RESTClient1.BaseURL := 'URL/'+FDMemTblIdLicenca.FieldByName('ID_LICENCIAMENTO').AsString;
RESTClient1.ContentType := 'multipart/form-data';
RESTClient1.Accept := 'multipart/form-data';

              RESTRequest1.Params.AddHeader('Authorization','Bearer '+xTokenIntegracao);
              RESTRequest1.Params.ParameterByName('Authorization').Options := [poDoNotEncode];

              RESTRequest1.Params.AddItem;
                RESTRequest1.Params.Items[1].Name := 'dataPagamento';
                RESTRequest1.Params.Items[1].value := Copy(DataSource1.DataSet.FieldByName('CWB_DATAHORA_REGISTRO').AsString,1,10);
                RESTRequest1.Params.Items[1].ContentType := ctMULTIPART_FORM_DATA;
                RESTRequest1.Params.Items[1].Kind := TRESTRequestParameterKind.pkREQUESTBODY;

              RESTRequest1.Params.AddItem;
                RESTRequest1.Params.Items[2].Name := 'observacoes';
                RESTRequest1.Params.Items[2].value :='Pagto Liquidado. '+Copy(DataSource1.DataSet.FieldByName('CWB_DATAHORA_REGISTRO').AsString,1,10);
                RESTRequest1.Params.Items[2].ContentType := ctMULTIPART_FORM_DATA;
                RESTRequest1.Params.Items[2].Kind := TRESTRequestParameterKind.pkREQUESTBODY;

               RESTRequest1.Params.AddItem;
                RESTRequest1.Params.Items[3].Name  := 'codigoAutenticacao';
                RESTRequest1.Params.Items[3].value := DataSource1.DataSet.FieldByName('CWB_AUTENTICACAO_PAGTO').AsString;
                RESTRequest1.Params.Items[3].ContentType := ctMULTIPART_FORM_DATA;
                RESTRequest1.Params.Items[3].Kind := TRESTRequestParameterKind.pkREQUESTBODY;
               RESTRequest1.AddFile('File','C:\comprovantes\'+DataSource1.DataSet.FieldByName('CWB_ID').AsString+'.pdf',DefaultRESTContentType.ctAPPLICATION_PDF);

              RESTRequest1.Method := TRESTRequestMethod.rmPOST;
              RESTRequest1.Execute;
              RESTResponse1.StatusCode;
              ShowMessage(RESTResponse1.Content);

Muito agradecido se poder ajudar.

[viniciussanchez]

Bom dia, se olhar no exemplo tem:

Vale dar uma olhada também nesse pull request:

#101