delphi idhttpserver 服务器
服务器 Delphi
2023-09-11 14:20:26 时间
【冒泡】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
谢谢 老师
|
相关文章
- Nginx服务器的安装和卸载
- Linux_CentOS-服务器搭建 <四>
- CentOS 7下搭建配置SVN服务器
- MongoDB 做日志服务器
- Linux基础之linux服务器服务器间拷贝文件
- 搭建james邮件服务器
- DELL 服务器如何升级固件和收集日志信息的
- 无法在WEB服务器上启动调试
- SAP Spartacus由于导入module路径在服务器上不正确而导致的Travis build错误
- WebSocket服务器和客户端的一对多连接
- 【项目实战】轻量级的Web服务器 —— Undertow介绍
- Serverless 架构就不要服务器了?
- sql server 使用链接服务器远程查询
- 为什么每次app访问服务器都建立新连接 导致服务器大量连接疯涨
- centos 6 最小化系统 搭建本地DNS缓存服务器——筑梦之路
- 内网架设SVN服务器相关设置
- 使用Tornado作为Django App的服务器
- 【Web开发】使用Apache搭建Http下载服务器