procedure TForm30.IdHTTPServer1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
const
WEBROOT = 'C:\www';
const sb='C:\www\index.html';
var ss,s,s1,s3,s2:string; wenjian1,wenjian2,wenjian3:tstringlist; f1,f2,f3:string;
I: Integer;

var
RequestDocument:string;
begin
(* wenjian1:=tstringlist.Create;

if fileexists('c:\3fangan.txt') then
begin
wenjian1.LoadFromFile('c:\3fangan.txt');

wenjian1.Text:=trim(wenjian1.text);
end else
begin
{ s:='<html> <body>'+' ' +'</body></html>';
AResponseInfo.ContentText:=s;

exit; }
end;

//</br>

memo1.Lines.Add(ARequestInfo.Document) ;
memo1.Lines.Add(arequestinfo.Params.Values['t1']) ;
memo1.Lines.Add(arequestinfo.Params.Values['t2']);

f1:='-1';f2:='-1';f3:='-1';

f1:=ARequestInfo.Document ;
f2:=arequestinfo.Params.Values['t1'] ;
f3:=arequestinfo.Params.Values['t2'];

if f2='-1' then begin // 默认访问
//-----------------------换行 变 </br>
ss:='';
for I := 0 to wenjian1.Count -1 do
begin
if length(trim(wenjian1.Strings[i]))<1 then continue;

ss:=ss+wenjian1.Strings[i]+'上面是第'+inttostr(i)+'个推送'+'</br>';
end;
ss:=copy(ss,1,length(ss)-5);
// wenjian1.Text:=ss;
//======================换行 变 </br>
wenjian1.Free;
end;

if f2='qing0' then //清除数据
begin
wenjian1.Clear;
wenjian1.SaveToFile('c:\3fangan.txt');
wenjian1.Free;
ss:='';
end;

if f2='1' then
begin
f3:=httpdecode(ARequestInfo.FormParams);// 这个是 post 的内容
// showmessage(f3);
wenjian1.Add(f3);
wenjian1.SaveToFile('c:\3fangan.txt');

//-----------------------换行 变 </br>
ss:='';
for I := 0 to wenjian1.Count -1 do
begin
if length(trim(wenjian1.Strings[i]))<1 then continue;

ss:=ss+wenjian1.Strings[i]+'上面是第'+inttostr(i)+'个推送'+'</br>';
end;
ss:=copy(ss,1,length(ss)-5);
// wenjian1.Text:=ss;
//======================换行 变 </br>
wenjian1.Free;
// showmessage(ss);
end;

AResponseInfo.ContentEncoding:='utf-8';
AResponseInfo.ContentType := 'text/html; charset=gb2312';

s:='<html> <body>'+ss +'</body></html>';
AResponseInfo.ContentText:=s; *)
//<BUTTON onclick="open('c:\\','_blank','',false)">打开</BUTTON>
{
AResponseInfo.ContentEncoding:='utf-8';
AResponseInfo.ContentType := 'text/html; charset=gb2312';
ss:='<BUTTON onclick="open(''c:\\'',''_blank'','''',false)">打开</BUTTON> ';
s:='<html> <body>'+ss +'</body></html>';
AResponseInfo.ContentText:=s;
// aresponseinfo.ServeFile(AContext,'c:\');

AResponseInfo.ContentText:='c:\abc.txt' ; }

{
RequestDocument:=LowerCase(ARequestInfo.Document);

if RequestDocument='/' then
RequestDocument:='/index.html';

if FileExists(WEBROOT+RequestDocument) then
begin
AResponseInfo.ContentStream:=TFileStream.Create(WEBROOT+RequestDocument, fmOpenRead + fmShareDenyWrite);
end
else
begin
AResponseInfo.ResponseNo := 404;
end;

AResponseInfo.Server:='IIS/6.0';
AResponseInfo.CacheControl:='no-cache';
AResponseInfo.Pragma:='no-cache';
AResponseInfo.Date:=Now;
}

// AResponseInfo.ContentEncoding:='utf-8';
//AResponseInfo.ContentType := 'text/html; charset=gb2312';
//AResponseInfo.ContentDisposition:=Format('inline: filename="%s"',[ExtractFileName(s)]);

//AResponseInfo.CustomHeaders.Values['Content-Disposition'] :='attachment; filename="'+'192.168.0.101:12345/abc.txt'+'"';
//AResponseInfo.ServeFile(AContext,'192.168.0.101:12345/abc.txt');
//response
AResponseInfo.ContentType :='application/pdf';
//GetFileMIMEType
//AResponseInfo.ContentType := GetMIMEType(LocalDoc);
//application/x-rar-compressed
//aResponseInfo.ContentType := 'application/x-rar-compressed';

AResponseInfo.ServeFile(AContext,'c:\www\a.pdf');

end;

idhttpserver 下载文件的更多相关文章

  1. 怎样用idhttpserver代替IIS让用户浏览html或下载文件 http://bbs.csdn.net/topics/360248674

      怎样用idhttpserver代替IIS让用户浏览html或下载文件 更多0分享到: 相关知识库: C# 虚拟现实(VR) Node.js 算法与数据结构     对我有用[0] 丢个板砖[0]  ...

  2. Java下载文件（流的形式）

    @RequestMapping("download") @ResponseBody public void download(HttpServletResponse respons ...

  3. 使用批处理文件在FTP服务器 上传下载文件

    1.从ftp服务器根目录文件夹下的文件到指定的文件夹下 格式:ftp -s:[配置文件] [ftp地址] 如:ftp -s:c:\vc\ftpconfig.txt   192.168.1.1 建立一个 ...

  4. 通过form表单的形式下载文件。

    在项目中遇到问题,要求动态拼接uri下载文件.但是由于项目的安全拦截导致window.location.href 和 window.open等新建窗口的方法都不行. 无意间百度到了通过form表单来下 ...

  5. SecureCRT上传和下载文件

    SecureCRT上传和下载文件(下载默认目录) SecureCR 下的文件传输协议有ASCII .Xmodem .Ymodem .Zmodem ASCII:这是最快的传输协议,但只能传送文本文件. ...

  6. HTTP 错误 404.3 – Not Found 由于扩展配置问题而无法提供您请求的页面。如果该页面是脚本，请添加处理程序。如果应下载文件，请添加 MIME 映射。

    今天,在vs2013中新建了一个placard.json文件,当我用jq读取它的时候,去提示404,直接在浏览器访问这个文件,提示: HTTP 错误 404.3 – Not Found 由于扩展配置问 ...

  7. FTP下载文件失败

    这几天的定时任务下载文件的脚本失败了. 于是手工执行测试,发现报550 Permission denied. Passive mode refused. 意思就是被动模式下,没有权限获取文件. 解决方 ...

  8. 如何使用FileZilla上传和下载文件

    一.使用FileZilla上传文件 1 打开 FileZilla 按照如下图所示,填写远程 Linux 的 IP ,用户名,密码,还有端口号(默认22) 2 选中左边需要上传的文件,然后拖到右边,等待 ...

  9. 开发板tftp下载文件

    搭建过程: 1.安装相关软件包:tftpd(服务端),tftp(客户端),xinetd sudo apt-get install tftpd tftp xinetd 2.建立配置文件(蓝色的目录是可以 ...

随机推荐

  1. Java学习day2关键字

    java的基本语法(1) 一.关键字 定义:被Java语言赋予特殊含义,用做专门用途的字符串 特点:关键字中的所有字母都为小写 二.标识符 定义:java对各种变量.方法和类等要素命名时所使用的的字符 ...

  2. 【题解】1-2-K Game

    题目大意   现有\(n\)个东西,每次可以取\(1\)个,\(2\)个或\(k\)个.Alice和Bob轮流取,且Alice先取.问谁是最后一个取的.(\(0 \leq n \leq 10^9\), ...

  3. utf-8 bom头问题 thinkphp 报错 Namespace declaration statement has to be the very first statement in the script

    先看百度百科上的解释---- BOM —— Byte Order Mark,中文名译作“字节顺序标记”.在这里找到一段关于 BOM 的说明: 在UCS 编码中有一个叫做 "Zero Widt ...

  4. 使用IntelliJ IDEA配置Tomcat（详细操作）

    一,下载Tomcat 1.进入官网Http://tomcat.apache.org/,选择download,下载所需要的Tomcat版本.(注意:最好下载Tomcat 7 或者Tomcat 8 因为最 ...

  5. Appium+Python之批量执行测试用例

    思考:当存在多个脚本,每个脚本中有多条测试用例时,我们该如何批量执行呢?分析:首先创建2个测试用例脚本(.py文件),每个脚本有2条测试用例,然后批量执行全部测试用例 #Test_01.py # co ...

  6. 小白学Python（9）——pyecharts 绘制漏斗图 Funnel

    根据pyecharts的介绍一直没有研究明白def和return的用法,无法显示完整的漏斗图,还请各位指点. 根据上文绘制bar的方法,我更改了代码,做出了漏斗图,不过和demo不一样,而且数据也会随 ...

  7. Vue基于vuex、axios拦截器实现loading效果及axios的安装配置

    准备 利用vue-cli脚手架创建项目 进入项目安装vuex.axios(npm install vuex,npm install axios) axios配置 项目中安装axios模块(npm in ...

  8. [51Nod2558] 选址

    link 考虑二分答案 $F$ ,那么现在的问题变成是否对于覆盖并有交集. 考虑边 $(u,v)$ ,若覆盖并在 $(u,v,w)$ 线段中,设点 $i$ 走到 $u$ 号后还能走 $F1$ , 走到 ...

  9. linux创建相关待同步目录

    [root@rsync-server-1 ~]# mkdir /data/{web,web_data}/redhat.sx -p [root@rsync-server-1 ~]# tree /data ...

  10. RMQ Direct

    原创转载请注明出处:https://www.cnblogs.com/agilestyle/p/11792398.html RMQ Direct Project Directory Maven Depe ...