码迷,mamicode.com
首页 > Web开发 > 详细

kbmmw 的HTTPSmartService 上传文件到服务器端

时间:2018-07-14 23:35:41      阅读:287      评论:0      收藏:0      [点我收藏+]

标签:save   orm   htm   大小   如何   image   fst   cells   运行   

前面我写过了 HTTPSmartService 使用介绍,可以参见以前的文章。

前一向有同学问如何在http 页面表单上上传文件。一直没有时间回答,自己简单做了例子,

发现无法实现功能,今天花了一天时间,发现了几个坑,终于填平了。

主要原因是kbmmw 本身有点小问题,要小修改一下,注意,我使用的版本是 kbmmw 5.6.20

 修改kbmMWHTTPUtils.pas 内容如下:

function TkbmMWHTTPMultiPart.GetAsBytes:TBytes;
var
   p:PByte;
   i:integer;
begin
     SetLength(Result,FDataLength);
     p:=PByte(FOwner.FStream.Memory);
     inc(p,FDataOfs);
     Move(p^,Result[0],FDataLength);


end;

function TkbmMWHTTPMultiPart.GetAsString:string;
begin
    Result:=TkbmMWPlatformMarshal.UTF8Decode(GetData,FDataLength);
end; 

准备工作做完了。现在开始例子。

首先我们把上次的html 页面改成可以上传文件的格式

<body>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" class="unnamed2">
  <tr>
       
    <td width="848" align="center"><span class="style1">北京美语学院2009年新生录取查询</span><br></td>

  </tr>
  <form name="form1" method="post" action="/xalionrest/postfile" enctype="multipart/form-data" >
  <tr>
    <td align="center">
             <span class="style2">姓名:</span>          <input name="xsxm" type="text" id="xsxm">
           <span class="style2">身份证号:</span>          <input name="sfzh" type="text" id="sfzh">
           <span class="style2">文件上传:</span>            <input type="file" id="MyUpload" name="MyUpload">
     </td>
  </tr>
  
  <tr>

    <td align="center">
      <br>
      <input type="submit" name="Submit" value="提交" onClick="return B1_onclick()">        
      <input type="reset" name="Submit" value="重置">
    </td>
  </tr>
 </form> 
</table>
<br>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" class="unnamed3">
  <tr>

    <td></td>
  </tr>
</table>
<br>

<br>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center"><a href="/web/lqcx">返回查询页面</a></td>
  </tr>
</table>

</body>

里面加入了文件上传的部分。

用浏览器打开,如下图

技术分享图片

输入文件的地方也显示出来了。

对应服务器上的代码如下:

  [kbmMW_Rest(method:post, path:postfile)]
     [kbmMW_Method]
     function postfile:string;
//---------------------------------------------------------//

function TkbmMWCustomHTTPSmartService1.postfile: string;
var
  mp: TkbmMWHTTPMultiParts;
  bd,s,xsxm,sfzh:string;

  sname:string;
   f:TkbmMWHTTPMimeHeaderValueFields;

  p:Tbytes;
  hlp:TkbmMWHTTPTransportStreamHelper;
  I,fsize: Integer;

  fs:Tfilestream;
begin

    hlp:=TkbmMWHTTPTransportStreamHelper(RequestTransportStream.Helper);

   f:=hlp.Header.ValueFields[Content-Type];
   if f=nil then
      exit;

   bd:=f.ValueByName[boundary];
    if bd=‘‘ then
      begin
       result:=can‘‘t find file!;
        exit;
      end;


    mp:=TkbmMWHTTPMultiParts.Create(RequestStream,bd);


   for I := 0 to mp.Count-1 do
     begin

      f:=mp.Parts[i].Headers.ValueFields[Content-Disposition];

       sname:= kbmMWRemoveQuotes( f.ValueByName[name]);
       if sname=xsxm   then
          begin

          xsxm:=  mp.Parts[i].AsString;;
          end;

       if sname=sfzh then

          sfzh:=mp.Parts[i].AsString;

       if sname=MyUpload then
           begin

             fs:= Tfilestream.Create(d:\+kbmMWRemoveQuotes(f.ValueByName[filename]) ,fmCreate+fmOpenWrite);
             fsize:= mp.Parts[i].Size;

             mp.Parts[i].SaveToStream (fs);

             fs.Free;

           end;

     end;


    result:=姓名:+xsxm+      身份证号:+sfzh +文件大小:+fsize.ToString;

     SetResponseMimeType(text/html);


end;

 

运行起来。

技术分享图片

输入相应的数据,选择一个文件。

点击提交。

技术分享图片

浏览器就返回正常信息,同时也在对应目录生成上传的文件。

实现需要的功能。

 

kbmmw 的HTTPSmartService 上传文件到服务器端

标签:save   orm   htm   大小   如何   image   fst   cells   运行   

原文地址:https://www.cnblogs.com/xalion/p/9311250.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!