Indy中的MultiPartEntity [Delphi]

Question

我正在尝试将附件添加到一个服务。以下内容摘自文档：

​

我想知道是否可以在indy中添加实体，就像在Java中一样：

postRequest.setHeader("X-Atlassian-Token","nocheck");
MultipartEntity entity = new MultipartEntity();
entity.addPart("file", new FileBody(fileUpload));
postRequest.setEntity(entity);
HttpResponse response = httpClient.execute(postRequest);

Answer 1

找到了：

uses IdMultipartFormData
...
Stream: TIdMultipartFormDataStream;

编辑：对于Jira REST API的这个特殊问题，解决方案如下：

针对URL的发布: BASE_URL+/rest/api/2/issue/{issueIdOrKey}/attachments

try
    lHTTP.Request.CustomHeaders.AddValue('X-Atlassian-Token', 'nocheck');
    FileSize := lHTTP.Response.ContentLength;

    FileStrm := TFileStream.Create(AFile, fmOpenRead or fmShareDenyWrite);
    try
      if FileSize < FileStrm.Size then
      begin
        FileStrm.Position := FileSize;

        Stream := TIdMultipartFormDataStream.Create;
        try
          Stream.AddFile('file', AFile);

          with lHTTP do
          begin
            with Request do
            begin
              ContentRangeStart := FileSize + 1;
              ContentRangeEnd := FileStrm.Size;
            end;

            Post(self.BASE_URL + SEND_ATTACHEMENT_TO_AN_ISSUE_URL +
              IntToStr(IssueID) + '/attachments', Stream);

            Result := true;

          end;
        finally
          Stream.Free;
        end;
      end;
    finally
      FileStrm.Free;
    end;
  except
    Result := false;
  end;

注意:在此之后，不要忘记改回头部，并将"Content Type“更改为将来请求所需的类型