http://blog.csdn.net/chelen_jak/article/details/50203809

delphi idhttpsever

2015-12-07 11:36 216人阅读 评论(0) 收藏 举报
 分类：
Web（57）  Delphi（54） 
转自：http://3699119.blog.163.com/blog/static/167075351201373024054586/

  1. unit main;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5. Dialogs, IdBaseComponent,IdContext ,IdComponent, IdCustomTCPServer, IdCustomHTTPServer,
  6. IdHTTPServer, StdCtrls;
  7. type
  8. TForm_main = class(TForm)
  9. IdHTTPServer1: TIdHTTPServer;
  10. Button_StartServer: TButton;
  11. Edit_Port: TEdit;
  12. Label1: TLabel;
  13. Label2: TLabel;
  14. Edit_Ip: TEdit;
  15. Button_stop: TButton;
  16. Label3: TLabel;
  17. Edit_RootDir: TEdit;
  18. Edit_index: TEdit;
  19. Label4: TLabel;
  20. procedure Button_StartServerClick(Sender: TObject);
  21. procedure Button_stopClick(Sender: TObject);
  22. procedure IdHTTPServer1CommandGet(AContext: TIdContext;
  23. ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
  24. private
  25. { Private declarations }
  26. public
  27. { Public declarations }
  28. end;
  29. var
  30. Form_main: TForm_main;
  31. implementation
  32. var
  33. RootDir:string;
  34. URL:string;
  35. {$R *.dfm}
  36. procedure TForm_main.Button_StartServerClick(Sender: TObject);
  37. begin
  38. try
  39. IdHTTPServer1.Bindings.Clear;
  40. //要绑定的端口，一定设置此项，这是真正要绑定的端口;
  41. IdHTTPServer1.DefaultPort:=strtoint(trim(edit_port.Text));
  42. IdHTTPServer1.Bindings.Add.IP := trim(edit_Ip.Text);
  43. //启动服务器
  44. IdHTTPServer1.Active := True;
  45. except
  46. showmessage('启动失败！');
  47. end;
  48. RootDir:=trim(edit_rootDir.Text);
  49. URL:='http://'+trim(edit_Ip.Text)+trim(edit_port.Text)+'/';
  50. end;
  51. procedure TForm_main.Button_stopClick(Sender: TObject);
  52. begin
  53. IdHTTPServer1.Active := false;
  54. end;
  55. procedure TForm_main.IdHTTPServer1CommandGet(AContext: TIdContext;
  56. ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
  57. var
  58. LFilename: string;
  59. LPathname: string;
  60. zhongwen:string;
  61. begin
  62. //浏览器请求http://127.0.0.1:8008/index.html?a=1&b=2
  63. //ARequestInfo.Document  返回    /index.html
  64. //ARequestInfo.QueryParams 返回  a=1b=2
  65. //ARequestInfo.Params.Values['name']   接收get,post过来的数据
  66. ////webserver发文件
  67. {LFilename := ARequestInfo.Document;
  68. if LFilename = '/' then
  69. begin
  70. LFilename := '/'+trim(edit_index.Text);
  71. end;
  72. LPathname := RootDir + LFilename;
  73. if FileExists(LPathname) then
  74. begin
  75. AResponseInfo.ContentStream := TFileStream.Create(LPathname, fmOpenRead + fmShareDenyWrite);//发文件
  76. end
  77. else begin
  78. AResponseInfo.ResponseNo := 404;
  79. AResponseInfo.ContentText := '找不到' + ARequestInfo.Document;
  80. end;}
  81. //发html文件
  82. {AResponseInfo.ContentEncoding:='utf-8';
  83. AResponseInfo.ContentType :='text/html';
  84. AResponseInfo.ContentText:='<html><body>好</body></html>'; }
  85. //发xml文件
  86. {AResponseInfo.ContentType :='text/xml';
  87. AResponseInfo.ContentText:='<?xml version="1.0" encoding="utf-8"?>'
  88. +'<students>'
  89. +'<student sex = "male"><name>'+AnsiToUtf8('陈')+'</name><age>14</age></student>'
  90. +'<student sex = "female"><name>bb</name><age>16</age></student>'
  91. +'</students>';}
  92. //下载文件时，直接从网页打开而没有弹出保存对话框的问题解决
  93. //AResponseInfo.CustomHeaders.Values['Content-Disposition'] :='attachment; filename="'+文件名+'"';
  94. //替换 IIS
  95. {AResponseInfo.Server:='IIS/6.0';
  96. AResponseInfo.CacheControl:='no-cache';
  97. AResponseInfo.Pragma:='no-cache';
  98. AResponseInfo.Date:=Now;}
  99. end;
  100. end.

delphi idhttpsever的更多相关文章

  1. Delphi IdHttp组件+IdHttpServer组件实现文件下载服务

     http://blog.csdn.net/xxkku521/article/details/16864759 Delphi IdHttp组件+IdHttpServer组件实现文件下载服务 2013- ...

  2. 学习笔记：7z在delphi的应用

    最近做个发邮件的功能,需要将日志文件通过邮件发送回来用于分析,但是日志文件可能会超级大,测算下来一天可能会有800M的大小.所以压缩是不可避免了,delphi中的默认压缩算法整了半天不太好使,就看了看 ...

  3. delphi连接sql存储过程

    针对返回结果为参数的 一. 先建立自己的存储过程 ALTER PROCEDURE [dbo].[REName] ) AS BEGIN select ROW_NUMBER() over(order by ...

  4. delphi 2010与delphi XE破解版的冲突

    在系统中同时安装了Dephi 2010LITE版与Delphi XE lite后,总是会有一个有问题 是因为两者都是读取C:\ProgramData\Embarcadero目录下的license文件, ...

  5. [Delphi] Delphi版本号对照

    VER300    Delphi Seattle / C++Builder Seattle    23    230    (Delphi:Win32/Win64/OSX/iOS32/iOS64/An ...

  6. delphi tidhttp 超时设置无效的解决方法

    现在delphi都发布到xe8了,tidhttp还有缺陷,那就是超时设置在没有网络或者连不上服务器的时候是无效的,不管你设置为多少都要10-20秒.connectTimeout和readTimeout ...

  7. Delphi Code Editor 之 编辑器选项

    Delphi Code Editor 之 编辑器选项 可从Code Editor的右键菜单中选择“Properties”菜单项来查看编辑器选项.也可以从主菜单[Tools | Editor Optio ...

  8. Delphi使用ADO进行数据库编程

    Delphi是一个可视化的编程工具,ADO编程也是这样,所以话不多言,直接通过代码.截图和语言来说明. 我的数据库是Oracle,为了测试,先建一个表:create table practice(un ...

  9. 怎么使用Delphi获取当前的时间，精确到毫秒

    先介绍一个可能比较常用的方法,获取当前时间 var datetime: string; begin datetime:= FormatDateTime('yyyy-mm-dd hh:mm:ss', N ...

随机推荐

  1. 【SQL Server复制】数据库复制：修改表结构、新增表、新增存储过程 会被复制到订阅服务器？

    转自:https://www.cnblogs.com/happyday56/p/3849018.html 关键字:sql server复制 [SQL Server高可用性]数据库复制:修改表结构.新增 ...

  2. 2018 我要告诉你的 Vue 知识大全

    Vue ,React ,Angular 三大主流框架,最后我选择学习 Vue ,接触过 React ,自己感觉学习曲线有些陡峭,进而我选择了学习 Vue ,他的学习曲线平稳很多:不管选择什么框架,除了 ...

  3. java _static 关键字

    • 在类中,用static声明的成员变量为静态成员变量 ,或者叫做: 类属性,类变量. • 它为该类的公用变量,属于类,被该类的所有实例共享,在类被载入时被显式初始化, • 对于该类的所有对象来说,s ...

  4. centos解决Could not find a version that satisfies the requirement pip3 (from versions: none)及No matching distribution found for pip3问题

    python环境:python 3.8 报错信息: WARNING: pip is configured with locations that require TLS/SSL, however th ...

  5. asp.net 获取表单中控件的值

    原文:https://blog.csdn.net/happymagic/article/details/8480235   C# 后台获取前台 input 文本框值.(都是以控件的Name来获取) s ...

  6. 可视化操作，实现横向柱形echart图 无边框

    图片的实现: <!DOCTYPE html> <html> <head> <meta charset="UTF-8"> <ti ...

  7. mybatis resultMap之collection聚集两种实现方式

    最近做得项目用到了MyBatis处理一对多的映射关系,下面的两个方法中用到了集合的嵌套查询方法,下面仔细学习一下这两种方式 聚集元素用来处理"一对多"的关系.需要指定映射的Java ...

  8. React-请求篇

    请求方式: (1)后台API:HttpPost   [FromForm] UserRetisterDTO dto 前端请求: { body:qs.stringify(dto),      header ...

  9. 认知redis

    一.redis是什么? 1.基于key-value的内存No sql 数据库(非关系型数据库) 2.读写性能非常好 二.redisd的数据类型有哪些?特点分别是什么? 1)string 一个键对一个值 ...

  10. 1-基于Xilinx XCKU115的半高PCIe x8 硬件加速卡

    基于Xilinx XCKU115的半高PCIe x8 硬件加速卡 一.概述 本板卡系我公司自主研发,采用Xilinx公司的XCKU115-3-FLVF1924-E芯片作为主处理器,主要用于FPGA硬件 ...