cross socket multipart/form-data

cross socket multipart/form-data

uses Net.CrossHttpParams;

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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);               var fname: string := path + ParamValue(request.RawPathAndParams, 'filename' + i.ToString);               ms.SaveToFile(fname); // 保存上传的文件               ms.Clear;             end;           finally             ms.Free;           end;