delphi idhttpserver 服务器

【冒泡】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 谢谢 老师

转载于:https://www.cnblogs.com/delphi-xe5/p/5460539.html