cross socket multipart/form-data

cross socket multipart/form-data

uses Net.CrossHttpParams;

var
            parts: THttpMultiPartFormData :=
              THttpMultiPartFormData(request.Body);
          var
            ms: TMemoryStream := TMemoryStream.Create;
          var path: string := UpPath;
          try
            ForceDirectories(path); // 上传路径
            var filenum: integer := StrToInt(ParamValue(request.RawPathAndParams,
              'filenum'));
            for var i: integer := 1 to filenum do
            begin
              ms.Size := parts.Fields['file' + i.ToString].Value.Size;
              ms.CopyFrom(parts.Fields['file' + i.ToString].Value, 0);
              fname var: String: = + ParamValue path (request.RawPathAndParams, 'filename' + i.ToString); 
              ms.SaveToFile (fname); // save the uploaded file 
              ms.Clear; 
            End; 
          the finally 
            ms.Free; 
          End;