idhttpserver 下载文件
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 下载文件的更多相关文章
- 怎样用idhttpserver代替IIS让用户浏览html或下载文件 http://bbs.csdn.net/topics/360248674
怎样用idhttpserver代替IIS让用户浏览html或下载文件 更多0分享到: 相关知识库: C# 虚拟现实(VR) Node.js 算法与数据结构 对我有用[0] 丢个板砖[0] ...
- Java下载文件（流的形式）
@RequestMapping("download") @ResponseBody public void download(HttpServletResponse respons ...
- 使用批处理文件在FTP服务器 上传下载文件
1.从ftp服务器根目录文件夹下的文件到指定的文件夹下 格式:ftp -s:[配置文件] [ftp地址] 如:ftp -s:c:\vc\ftpconfig.txt 192.168.1.1 建立一个 ...
- 通过form表单的形式下载文件。
在项目中遇到问题,要求动态拼接uri下载文件.但是由于项目的安全拦截导致window.location.href 和 window.open等新建窗口的方法都不行. 无意间百度到了通过form表单来下 ...
- SecureCRT上传和下载文件
SecureCRT上传和下载文件(下载默认目录) SecureCR 下的文件传输协议有ASCII .Xmodem .Ymodem .Zmodem ASCII:这是最快的传输协议,但只能传送文本文件. ...
- HTTP 错误 404.3 – Not Found 由于扩展配置问题而无法提供您请求的页面。如果该页面是脚本，请添加处理程序。如果应下载文件，请添加 MIME 映射。
今天,在vs2013中新建了一个placard.json文件,当我用jq读取它的时候,去提示404,直接在浏览器访问这个文件,提示: HTTP 错误 404.3 – Not Found 由于扩展配置问 ...
- FTP下载文件失败
这几天的定时任务下载文件的脚本失败了. 于是手工执行测试,发现报550 Permission denied. Passive mode refused. 意思就是被动模式下,没有权限获取文件. 解决方 ...
- 如何使用FileZilla上传和下载文件
一.使用FileZilla上传文件 1 打开 FileZilla 按照如下图所示,填写远程 Linux 的 IP ,用户名,密码,还有端口号(默认22) 2 选中左边需要上传的文件,然后拖到右边,等待 ...
- 开发板tftp下载文件
搭建过程: 1.安装相关软件包:tftpd(服务端),tftp(客户端),xinetd sudo apt-get install tftpd tftp xinetd 2.建立配置文件(蓝色的目录是可以 ...
随机推荐
- 【转载】如何编写ROS的第一个程序hello_world
目录 1.工作空间的创建 2.功能包的创建 3.功能包的源代码编写 4.功能包的编译配置 5.功能包的编译 6.功能包的启动运行 既然ROS已经成功安装好了,大家一定很想亲自动动手编一个通过起手式例程 ...
- 以区间DP为前提的【洛谷p1063】能量项链
(跑去练习区间DP,然后从上午拖到下午qwq) 能量项链[题目链接] 然后这道题也是典型的区间DP.因为是项链,所以显然是一个环,然后我们可以仿照石子合并一样,把一个有n个节点的环延长成为有2*n个节 ...
- 模板 - 线性递推BM
模数是998244353的话好像NTT可以更快. #include<bits/stdc++.h> using namespace std; typedef long long ll; co ...
- C++析构函数的自动调用（析构函数必须是虚拟的，这样删除父类指针指向的子类对象，才能同时调用两者的析构函数，否则就没有机会调用子类析构函数）
class A {public: A() { printf("A \n"); } ~A() { printf(" ~A \n"); } // 这里不管写不写vi ...
- [ASP.NET Core 3框架揭秘] 依赖注入：IoC模式
原文:[ASP.NET Core 3框架揭秘] 依赖注入:IoC模式 正如我们在<依赖注入:控制反转>提到过的,很多人将IoC理解为一种“面向对象的设计模式”,实际上IoC不仅与面向对象没 ...
- java 企业 网站源码 后台 springmvc SSM 前台 静态化 代码生成器
前台: 支持四套模版, 可以在后台切换 系统介绍: 1.网站后台采用主流的 SSM 框架 jsp JSTL,网站后台采用freemaker静态化模版引擎生成html 2.因为是生成的html,所以访问 ...
- Windows平台网站图片服务器架构的演进
在主流的Web站点中,图片往往是不可或缺的页面元素,尤其在大型网站中,几乎都将面临“海量图片资源”的存储.访问等相关技术问题.在针对图片服务器的架构扩展中,也会历经很多曲折甚至是血泪教训(尤其是早期规 ...
- Uedit32_17.00 修改某一语言背景色-修改后续名后语法着色及某语言的大括号{}对齐
修改UE的背景色:高级-配置-编辑器显示-其它-设置颜色 新增扩展名语法着色:如以tpl为后缀的html代码格式着色高级-配置-编辑器显示-语法着色-语言选言[选中要着色的语言html]-打开-在'F ...
- Simple Vedio Intercom System
I. Deployment / Architecture Block Diagram II. Resources Used sip proxy server + sip user agent 1. ...
- tf.clip_by_global_norm
首先明白这个事干嘛的,在我们做求导的时候,会遇到一种情况,求导函数突然变得特别陡峭,是不是意味着下一步的进行会远远高于正常值,这个函数的意义在于,在突然变得陡峭的求导函数中,加上一些判定,如果过于陡峭 ...