Delphi TwebreResponse没有解析我发布的文件

Delphi TwebreResponse没有解析我发布的文件,delphi,rest,post,delphi-xe3,Delphi,Rest,Post,Delphi Xe3,我有一个简单的DataSnap REST服务器,在TWebModule上我添加了一个操作来侦听路径“/upload\u file”上的POST请求。 在onAction事件中,我有以下代码: procedure TWebModule.WebModulePostFileAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); var i: Integer; str

我有一个简单的DataSnap REST服务器,在TWebModule上我添加了一个操作来侦听路径“/upload\u file”上的POST请求。 在onAction事件中,我有以下代码:

procedure TWebModule.WebModulePostFileAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var i: Integer;
  str: String;
begin
  for i :=0 to Request.Files.Count-1 do
  Begin
    Str:= Str +','+ Request.Files.Items[i].FileName;
    // I will like to save or move the uploaded file to i.e. c:\myFiles\
  End;
  Response.Content:= Str;
end;
Request.Files.Count始终为0,但当我检查Request.content对象时,可以看到多部分文件内容。如何从请求中获取已发布的文件?并将其保存在磁盘中的某个位置。
我发布的HTML表单如下所示:

<form action="/upload_file" method="POST" enctype="multipart/form-data">
  Notes: <input type="text" name="notes"/>
  File: <input type="file" name="my_file"/>
  <input type="submit" value="Submit">
</form>

笔记:
文件:
不幸的是,关于这个主题没有太多的信息,我花了几个小时尝试了很多事情,但没有成功。 提前感谢。

请参阅相关问题和答案:

TIdHTTPServer当前不支持多部分/表单数据 本地提交。这是印地11号的待办事项清单。在 同时,您必须使用 正如美赞臣所建议的那样。有这样的例子 以前在Embarcadero和Indy论坛上发布过


xxm可以以本机方式处理多部分/表单数据文件上载,甚至支持从其他请求读取上载进度:这里有一个例子,不幸的是,我的项目正在使用DataSnap,并编写另一个应用程序来处理上载,在我看来,这增加了我现有项目的复杂性。谢谢你的建议。我实际上是在寻找一种通过DataSnap而不是Indy来处理这个问题的方法;但是使用tidrodecrime来解析数据是个好主意。我会继续尝试,我会发布我的代码,以防我发现问题。感谢您的回答tho.IIRC DataSnap在内部使用Indy-因此,除非DataSnap以其他方式实现此缺失的功能,否则链接的解决方案是一个选项