unit Unit1;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdContext, IdCustomHTTPServer,

  Vcl.StdCtrls, IdBaseComponent, IdComponent, IdCustomTCPServer, IdHTTPServer;

type

  TForm1 = class(TForm)

    IdHTTPServer1: TIdHTTPServer;

    btnStart: TButton;

    btnStop: TButton;

    edtIp: TEdit;

    edtPort: TEdit;

    edtRootDir: TEdit;

    lbl1: TLabel;

    lbl2: TLabel;

    lbl3: TLabel;

    edtIndex: TEdit;

    mmo1: TMemo;

    procedure btnStartClick(Sender: TObject);

    procedure btnStopClick(Sender: TObject);

    procedure IdHTTPServer1CommandGet(AContext: TIdContext;

      ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

//uses IdGlobal;  //IndyTextEncoding_UTF8

var

  RootDir:string;

  URL:string;

procedure TForm1.btnStopClick(Sender:TObject);

begin

  IdHTTPServer1.Active:=false;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  edtip.Text:= '127.0.0.1';

  edtport.Text:= '';

  edtIndex.Text:= 'a.txt';

  btnStartClick(btnstart);

end;

procedure TForm1.btnStartClick(Sender:TObject);

begin

  if IdHTTPServer1.Active then exit;

  try

    IdHTTPServer1.Bindings.Clear;

    //要绑定的端口，一定设置此项，这是真正要绑定的端口;

    IdHTTPServer1.DefaultPort:=strtoint(trim(edtport.Text));

    IdHTTPServer1.Bindings.Add.IP:=trim(edtip.Text);

    //启动服务器

    IdHTTPServer1.Active:=True;

  except

    showmessage('启动失败！');

  end;

  //RootDir:=trim(edtrootdir.Text);

  rootdir:= ExtractFilePath(Application.ExeName);

  URL:='http://'+trim(edtip.Text)+trim(edtport.Text)+'/';

  //浏览器请求http://127.0.0.1:8008/index.html?a=1&b=2

end;

procedure TForm1.IdHTTPServer1CommandGet(AContext:TIdContext;

  ARequestInfo:TIdHTTPRequestInfo;AResponseInfo:TIdHTTPResponseInfo);

var

 LFilename:string;

 LPathname:string;

 zhongwen:string;

begin

  //浏览器请求http://127.0.0.1:8008/index.html?a=1&b=2

   //ARequestInfo.Document 返回  /index.html

   //ARequestInfo.QueryParams返回 a=1b=2

   //ARequestInfo.Params.Values['name'] 接收get,post过来的数据

   //1 获取参数

  //  mmo1.Lines.Clear;

  //  mmo1.Lines.Add(ARequestInfo.Document) ;

  //  mmo1.Lines.Add(arequestinfo.Params.Values['a']) ;

  //  mmo1.Lines.Add(arequestinfo.Params.Values['b']);

   //2 webserver发文件

//  LFilename := ARequestInfo.Document;

//  if LFilename = '/' then

//  begin

//    LFilename := '/'+trim(edtIndex.Text);

//  end;

//  LPathname := RootDir + LFilename;

//  if FileExists(LPathname) then

//  begin

//      AResponseInfo.ContentStream := TFileStream.Create(LPathname, fmOpenRead + fmShareDenyWrite);//发文件

//  end

//  else

//  begin

//

//    AResponseInfo.ContentType := 'text/html; charset=GB2312';

//    AResponseInfo.ResponseNo := 404;

//    AResponseInfo.ContentText := '找不到' + ARequestInfo.Document;

//    //找不到，这三个汉字显示为乱码，算个bug

//  end;

  //3 发html文件

//    AResponseInfo.ContentType := 'text/html; charset=GB2312';

//   // AResponseInfo.WriteContent;

//   AResponseInfo.ContentText:='<html><body>dsddddd你好哈哈哈好</body></html>';

  //4发xml文件

     AResponseInfo.ContentType :='text/xml;charset=GB2312';

     AResponseInfo.ContentText:='<?xml version="1.0" encoding="utf-8"?>'

     +'<students>'

     +'<student sex = "male"><name>'+'陈'+'</name><age>14</age></student>'

     +'<student sex = "female"><name>bb</name><age>16</age></student>'

     +'</students>';

//5下载文件时，直接从网页打开而没有弹出保存对话框的问题解决 indy10貌似没有这个问题

{AResponseInfo.CustomHeaders.Values['Content-Disposition'] :='attachment;

filename="'+文件名+'"';

}

   //AResponseInfo.ServeFile(AContext,'a.txt');

   //仅这一句即可下载并弹框

 //6替换 IIS

//  AResponseInfo.Server:='IIS/6.0';

//  AResponseInfo.CacheControl:='no-cache';

//  AResponseInfo.Pragma:='no-cache';

//  AResponseInfo.Date:=Now;

end;

end.

delphi http server的更多相关文章

  1. Delphi RAD Server 应用服务基础平台

    RAD Server是一个应用服务框架平台,可快速构建和部署应用服务.RAD Server提供自动化的Delphi和C++ REST/ JSON API的 发布与管理.企业数据库集成中间件.智能物联网 ...

  2. 自动创建数据库(DELPHI+SQL SERVER)

    procedure TForm1.Btn_OKClick(Sender: TObject); var sqlconn:string; begin Sqlconn:='Provider=SQLOLEDB ...

  3. ODBC连接发生错误：未发现数据源名称并且未指定默认驱动程序

    程序在使用ODBC方式连接数据库时发生错误: ERROR [IM002] [Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序. 什么原因造成的呢? 本人使用&l ...

  4. Writing a Windows Shell Extension（marco cantu的博客）

    Writing a Windows Shell Extension This is a technical article covering the content of my last week s ...

  5. Kitto2 now with free opensource Kide2 since September 2017（提供Web解决方案，大概是觉得Mobile开发快差不多了）

    Kitto2 is a tool for data-driven web application Development. It allows to create Rich Internet Appl ...

  6. Python 列表（List）

    列表是最常用的Python数据类型,它可以作为一个方括号内的逗号分隔值出现. 列表的数据项不需要具有相同的类型. 一.列表定义 用逗号分隔不同的数据项使用方括号括起来. >>> li ...

  7. delphi 2010 导出sql server 数据到DBF乱码问题

    近日,由于业务需要导出sql server 数据到DBF文件,要查询多表记录,并适当处理后生成导出DBF文件,系统使用delphi2010平台开发. 首先按要求在VFP里创建DBF表,字段数有240个 ...

  8. delphi xe5 android 开发数据访问server端(二)

    上一篇我们创建了一个拟给手机端访问的webservices服务 接下来创建一个返回数据集的过程,用webservices发布,供手机端调用.这里我使用firedac 1.打开上一篇自动创建的WebMo ...

  9. Delphi动态配置ODBC数据源--SQL Server版本

    (摘自)http://jxlearnew.blog.163.com/blog/static/549786592007102451431413/ 这里介绍一种用Delphi来实现动态注册的方法,希望对各 ...

随机推荐

  1. 微信公众号sdk

    微信公众号开发 能享用微信公众号的API,比如分享给好友,分享到朋友圈,禁止菜单功能,选择图片,获取地址,以及支付 微信的功能有两种执行方式 一种是 wx.xx 一种是 WeixinJSBridge. ...

  2. delphi保存和提取ini文件信息

    procedure TLoginForm.FormShow(Sender: TObject);var ini:TIniFile; name:string;begin //实现动态提取数据库的登录用户名 ...

  3. vue+ui

    一.elementui import ElementUI from 'element-ui'; import 'element-ui/lib/theme-chalk/index.css'; Vue.u ...

  4. 吴裕雄--天生自然java开发常用类库学习笔记：对象克隆技术

    class Person implements Cloneable{ // 实现Cloneable接口表示可以被克隆 private String name ; public Person(Strin ...

  5. Spark学习入门(让人看了想吐的话题)

    这是个老生常谈的话题,大家是不是看到这个文章标题就快吐了,本来想着手写一些有技术深度的东西,但是看到太多童鞋卡在入门的门槛上,所以还是打算总结一下入门经验.这种标题真的真的在哪里都可以看得到,度娘一搜 ...

  6. H5页面单点登录跳回首页 http url参数转义

    在往首页跳的时候因为是单点登录进来的,url后面会带有参数,然后存入会话,所以我要拿到原本存入会话的参数放入url后面 但是返回的时候页面报错了 http://localhost:18086/h5ap ...

  7. Html5 经验

    http://knockoutjs.com/documentation/introduction.html knockout的模式 MVVM 四大重要概念 声明式绑定UI界面自动刷新依赖跟踪模版 一些 ...

  8. 文件上传报错java.io.FileNotFoundException拒绝访问

    局部代码如下: File tempFile = new File("G:/tempfileDir"+"/"+fileName); if(!tempFile.ex ...

  9. tomcat中war 和 war exploded的区别

    war和war exploded的区别(转载) 在使用idea开发项目的时候,部署Tomcat的时候通常会出现下边的情况: 是选择war还是war exploded这里首先看一下他们两个的区别: wa ...

  10. DEDECMS打开网站后台系统首页卡解决方法

    找到根目录下(一般是dede) templets文件夹下找到index_body.htm文件,将第25行至第41行部分注释或删除 保存文件,然后再打开后台,就不会有这个问题了.