标签：body begin end string form 处理 mormot jo multipart

mormot处理multipart

function GetBoundary(const body: string): string;
  //'----------021922143036229'#13#10'Content-Disposition: form-data; name="file"; filename="fg.ini"'
  //'multipart/form-data; boundary=--------021922141024135'
begin
  try
    Result := copy(body, 11, 15);
  except
  end;
end;

function GetMultiPartType(const body: string): string;
begin
  Result := 'multipart/form-data; boundary=--------' + GetBoundary(body);
end;

function upload(url: string; body: TBytes): string;
// /rest/upload
var
  parts: TMultiPartDynArray;
  ss: tstringstream;
  arr: tarray<string>;
  jo: tjsonobject;
  sBody: RawByteString;
begin
  jo := TJSONObject.Create;
  try
    try     //'----------021922143036229'#13#10'Content-Disposition: form-data; name="file"; filename="fg.ini"'
      SetLength(sBody, Length(body));
      Move(body[0], sBody[1], Length(body));
      MultiPartFormDataDecode(GetMultiPartType(sbody), sbody, parts);
      ss := tstringstream.Create(parts[0].Content);
      ForceDirectories(uploadPath);
      arr := url.split(['/']);
      ss.SaveToFile(uploadPath + PathDelim + arr[3]);
      jo.I['status'] := 200;
      jo.S['message'] := 'success';
      Result := jo.ToString;
    except
      on e: Exception do
      begin
        jo.I['status'] := 500;
        jo.S['message'] := 'fail';
        jo.S['exception'] := e.Message;
        Result := jo.ToString;
        writelog('rest.func.upload()' + e.message);
      end;
    end;
  finally
    ss.Free;
    jo.Free;
  end;
end;

标签：body,begin,end,string,form,处理,mormot,jo,multipart
来源： https://www.cnblogs.com/hnxxcxg/p/16525289.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。