文件上载无法使用HTML和DataSnap-FileCount=0_Html_Httprequest_Datasnap_Input Type File

文件上载无法使用HTML和DataSnap-FileCount=0

html

文件上载无法使用HTML和DataSnap-FileCount=0,html,httprequest,datasnap,input-type-file,Html,Httprequest,Datasnap,Input Type File,我有一个简单的HTML表单： <form name="UForm" id="UForm" enctype="multipart/form-data" method="post" action="http://localhost:8080/crcJurisUploadFile"> Select a file 1: <input type="file" name="FileToUpload1" /> <input type="submit" name="btUpl

我有一个简单的HTML表单：

<form name="UForm" id="UForm" enctype="multipart/form-data" method="post" action="http://localhost:8080/crcJurisUploadFile">  

Select a file 1: <input type="file" name="FileToUpload1" />
<input type="submit" name="btUpload" id="btUpload" value="Upload" />            

</form>

和电话

function TDM.UploadFile(TheRequest : TWebRequest): string;
var
  i : integer;
  HoldStr : string;
begin
  HoldStr := 'Content-Type=' + TheRequest.ContentType + '<br />'
           + 'Content-Encoding=' + TheRequest.ContentEncoding + '<br />'
           + 'User-Agent=' + TheRequest.UserAgent + '<br />'
           + 'File-Count=' + IntToStr(TheRequest.Files.Count) + '<br />' + '<br />';

  result := '<html><head /><body>'
          + '<h2>Request.Files</h2>';
    result := result + '<p>' + HoldStr + '</p>';
  result := result + '</body></html>';
end;

函数TDM.UploadFile（请求：TWebRequest）：字符串；
变量
i：整数；
HoldStr：字符串；
开始
HoldStr:=“内容类型=”+TheRequest.ContentType+”

+“内容编码=”+TheRequest.ContentEncoding+”
”
+“用户代理=”+TheRequest.UserAgent+”

+'文件计数='+IntToStr（TheRequest.Files.Count）+'
'+'
'；
结果：=''
+“Request.Files”；
结果：=result+''+HoldStr+''；
结果：=结果+“”；
结束；

响应显示为

请求文件

内容类型=多部分/表单数据；边界=------------------------------------291141107813480 内容编码= 用户代理=Mozilla/5.0（Windows NT 6.1；WOW64；rv:26.0）Gecko/20100101 Firefox/26.0 文件计数=0

为什么文件计数为0

必须将ReqMulti{for Multi-part Requests}添加到uses子句中。不包括在我使用的样本中

function TDM.UploadFile(TheRequest : TWebRequest): string;
var
  i : integer;
  HoldStr : string;
begin
  HoldStr := 'Content-Type=' + TheRequest.ContentType + '<br />'
           + 'Content-Encoding=' + TheRequest.ContentEncoding + '<br />'
           + 'User-Agent=' + TheRequest.UserAgent + '<br />'
           + 'File-Count=' + IntToStr(TheRequest.Files.Count) + '<br />' + '<br />';

  result := '<html><head /><body>'
          + '<h2>Request.Files</h2>';
    result := result + '<p>' + HoldStr + '</p>';
  result := result + '</body></html>';
end;