为节省服务器开销,以下示例均未配置真实上传接口,所以每次上传都会报提示:请求上传接口出现异常,这属于正常现象。
服务器端代码参考如下
<%@//引入单元或类定义或函数定义
uses
  SysUtils,classes;
%>
<%!//声明变量
%>

<%
 //先把附件存到指定的目录 
 if (Pos('multipart/form-data', Request.ContentType) > 0) then
   Request.DecodeFJ('c:\xxxxxx\');

Response.ContentType := 'application/json';//返回json类型
//如果不成功,返回code的值大于0即可
//返回JSON数据
print(
  ' { '#13#10 + 
  '   "code": 0 '#13#10 + 
  '   ,"msg": "" '#13#10 + 
  '   ,"url": "' + stringreplace(Request.Params.values['AttatchFiles'],'\','\\',[rfReplaceAll]) + '" '#13#10 + 
  '   ,"data": { '#13#10 + 
  '     "src": "" '#13#10 + 
  '   } '#13#10 + 
  ' } ');
end.
%>

常规使用:普通图片上传

普通图片上传-选择文件后点开始上传按钮才上传

选择所有图片,选择框中图片过滤为所有类型的图片

只选择JPEG,PNG

上传多张图片
预览图:
上传多张图片-选择文件后点开始上传按钮才上传
预览图:
限制大小,以100K为例

拖拽上传

点击上传,或将文件拖拽到此处


指定文件类型

高级应用:制作一个多文件列表
文件名 大小 状态 操作