【冒泡】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
谢谢 老师
|
客服电话
APP下载
官方微信
请发表评论