• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册
描述文字

delphiidhttpserver服务器

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

【冒泡】lazarus(964489899) 10:01:27
哥 能复制成 字符串吗？  
【冒泡】lazarus(964489899) 10:01:44
我想快速输入一下  
【传说】CHINY(19730622) 10:01:52
  LocalDoc:=HtmlDirectory +ARequestInfo.Document ;
        if  FileExists(LocalDoc) then   //文件存在
          begin
            if AnsiSameText(ARequestInfo.Command, 'HEAD') then
              begin
                ResultFile := TFileStream.create(LocalDoc, fmOpenRead or fmShareDenyWrite);
                try
                   AResponseInfo.ResponseNo := 200;
                   AResponseInfo.ContentType := GetMIMEType(LocalDoc);
                   AResponseInfo.ContentLength := ResultFile.Size;
                 finally
                   ResultFile.Free;
                 end;
               end
             else
               begin
                     {如果ContentDisposition 为空，自己加上attachment: filename="index.html";
                      客户端就会作为附件来下载，而不是显示}
                 AResponseInfo.ContentDisposition:=Format('inline: filename="%s"',[ExtractFileName(LocalDoc)]);
                 AResponseInfo.ResponseNo := 200;
                 if LowerCase(ExtractFileExt(LocalDoc))='.js' then
                     AResponseInfo.ContentType:='application/x-javascript'
                    else
                 AResponseInfo.ContentType :=GetMIMEType(LocalDoc);  //提交发送文档的MIMEType
                 AResponseInfo.ServeFile(AContext, LocalDoc);
               end;
           end
          else    //未找到文档，返回错误
             begin
               AResponseInfo.ContentText := 'Error Params or Bad Key';
             end;
         end;
【传说】CHINY(19730622) 10:02:12
  AResponseInfo.ContentType := GetMIMEType(LocalDoc);
主要是这句，文件类型
【冒泡】lazarus(964489899) 10:02:28
 感谢老师的分享
【活跃】山东日照远宏<15906335806> 10:08:34
如果真为了手机传文件的话，你这真的就是把简单的事情给复杂化了
【活跃】山东日照远宏<15906335806> 10:08:41
如果有其它用途，不表
【冒泡】lazarus(964489899) 10:11:17
有其他用途啊。  比如自己搞个服务器，自己上传下载文件 多方便 。 两个电脑可以互传文件 
【传说】CHINY(19730622) 10:11:47
传文件还是FTP吧
【冒泡】lazarus(964489899) 10:12:33
恩恩 
【冒泡】lazarus(964489899) 10:12:55
我百度了一下  大部分 文件类型都有。  rar 文件的 类型我没找到。  
【冒泡】lazarus(964489899) 10:13:01
先试一下 图片吧
【传说】CHINY(19730622) 10:16:02
看下
TIdMimeTable 对象 
Id组件自带的
【传说】CHINY(19730622) 10:16:15
GetFileMIMEType
【冒泡】lazarus(964489899) 10:17:33
恩恩 。  
【活跃】山东日照远宏<15906335806> 10:18:10
application/x-rar-compressed
【冒泡】lazarus(964489899) 10:18:18
我刚才试了 pdf 类型。  手机打开网页 直接下载文件 后缀 是htm     pc 是正常的
【冒泡】lazarus(964489899) 10:19:43
 
【冒泡】lazarus(964489899) 10:19:54
@山东日照远宏  谢谢老师
【冒泡】lazarus(964489899) 10:20:34
@CHINY   老师 我的代码 有问题吗？    手机下载就是不行。  下载完毕 后缀一直是htm
【传说】CHINY(19730622) 10:21:28
这个不能照抄
【冒泡】lazarus(964489899) 10:22:05
这个 要去掉？ 还是改成其他形式
【活跃】山东日照远宏<15906335806> 10:23:00
判断文件格式，设置输出文件类型
【活跃】山东日照远宏<15906335806> 10:23:11
通过扩展名
【传说】CHINY(19730622) 10:23:21
 
【冒泡】lazarus(964489899) 10:23:47
我再试试
【冒泡】lazarus(964489899) 10:44:37
好了。 解决了 ，就是文件类型的问题。 。 另外是手机浏览器太烂的问题。 换了个浏览器就啥问题都没有。
【冒泡】lazarus(964489899) 10:44:45
谢谢 老师 

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
Matlab练习——rpy2tr函数与自己实现的ZYX欧拉角的结果不同的问题 - dadide ...发布时间：2022-07-18
下一篇：
MATLAB和origin用三列数据画三维图发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap