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

谢谢 老师