unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer,

  IdCustomHTTPServer, IdHTTPServer;

type

  TForm1 = class(TForm)

    btn1: TButton;

    IdHTTPServer1: TIdHTTPServer;

    mmo1: TMemo;

    procedure btn1Click(Sender: TObject);

    procedure IdHTTPServer1CommandGet(AThread: TIdPeerThread;

      ARequestInfo: TIdHTTPRequestInfo;

      AResponseInfo: TIdHTTPResponseInfo);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

begin

 try

    IdHTTPServer1.Bindings.Clear;

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

    IdHTTPServer1.DefaultPort:=;

    IdHTTPServer1.Bindings.Add.IP := '192.168.1.100';

    //启动服务器

    IdHTTPServer1.Active := True;

    mmo1.Lines.Add('启动');

  except

     showmessage('启动失败！');

  end;

end;

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;

  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

begin

  mmo1.Lines.Add(ARequestInfo.Document);

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

//  mmo1.Lines.Add(ARequestInfo.Params.Values['Par1'] );

//  mmo1.Lines.Add(ARequestInfo.Params.Values['Par2'] );

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

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

  AResponseInfo.ContentType :='text/json';

  AResponseInfo.ContentText:='a:1,b:2';

{  AResponseInfo.ContentEncoding:='utf-8';

    AResponseInfo.ContentType :='text/html';

  AResponseInfo.ContentText:='<html><body>好</body></html>';   }

//  AResponseInfo.ContentEncoding:='utf-8';

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

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

  //发html文件

   {AResponseInfo.ContentEncoding:='utf-8';

   AResponseInfo.ContentType :='text/html';

   AResponseInfo.ContentText:='<html><body>好</body></html>'; }

   //发xml文件

   {AResponseInfo.ContentType :='text/xml';

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

   +'<students>'

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

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

   +'</students>';}

end;

end.

idHttpServer接收类型的更多相关文章

  1. Java定义接口变量为接收类型有什么好处（面向接口编程）

    个人理解:定义接口变量为接收类型属于面向接口的编程,通过接口的抽象能减少类之间的耦合,增加可复用性. 面向接口编程: 一种规范约束 制定者(或者叫协调者),实现者(或者叫生产者),调用者(或者叫消费者 ...

  2. XCode请求数据中接收类型的后台与前台处理(本机模拟)

      Xcode报错问题如下:   解决办法如下: 0x1 ->请求数据时加上缺少的类型 AFHTTPSessionManager *manager = [selfAFHTTPSessionMan ...

  3. Delphi idHttpServer接收Http Get请求解码问题

    引用 Httpapp单元,使用Httpdecode函数进行解码 procedure TFrmMain.HTTPServerCommandGet(AThread: TIdPeerThread; AReq ...

  4. 使用MyBatis时接收值和返回值选择Map类型或者实体类型

    MyBatis作为现近JavaEE企业级项目开发中常用的持久层框架之一,以其简洁高效的ORM映射和高度的SQL的自由性被广大开发人员认可.Mybatis在接收系统传来的参数和返回的参数时主要可以有Ma ...

  5. springmvc接收参数为日期类型

    用单个Date类型接收日期类型时,会出现报错,加上initBinder的方法 意思是将所有传入的参数都通过此方法,如果过是日期通过日期格式化器进行格式化 如果是接收类型为对象内的属性为Date类型时 ...

  6. Android中实现APP文本内容的分享发送与接收方法简述

    谨记(指定选择器Intent.createChooser()) 开始今天的内容前,先闲聊一下: (1)突然有一天头脑风暴,对很多问题有了新的看法和见解,迫不及待的想要分享给大家,文档已经写好了,我需要 ...

  7. 二:Go编程语言规范-类型

    1.类型 布尔值,数值与字符串类型的实例的命名是预声明的. 数组,结构,指针,函数,接口,切片,映射和信道这些复合类型可由类型字面构造. 每个类型 T 都有一个 基本类型:若 T 为预声明类型或类型字 ...

  8. .net core 1.1.0 MVC 控制器接收Json字串 （JObject对象） (二）

    .net core 1.1.0 MVC 控制器接收Json字串 (JObject对象) (二) .net core 1.1.0 MVC 控制器接收Json字串 (JObject对象) (一) 上一篇主 ...

  9. C#的类型、变量和值

    大学学了C#,工作也是使用C#,虽然在日常的开发中没什么大的问题,但个人觉得在C#的理解还不是很清晰,所以决定花一定的时间来理一理学过的知识,顺便革新下脑袋里的知识,因为坑爹的学校在教.net的时候, ...

随机推荐

  1. 八十三、SAP中的ALV创建之二，ALV相关的类型池定义

    一.与ALV相关的类型都是在TYPE-POOLS:SLIS中.我们来到SE11 二.常用的定义有fieldca和layout等,用于显示字段,和控制信息数据等. 三.我们以VBAK表为例,用ALV输出 ...

  2. Spark 资源调度包 stage 类解析

    spark 资源调度包 Stage(阶段) 类解析 Stage 概念 Spark 任务会根据 RDD 之间的依赖关系, 形成一个DAG有向无环图, DAG会被提交给DAGScheduler, DAGS ...

  3. [CSS]水平垂直居中方案

    简单总结一下常用的水平垂直居中方案 直接在父级元素设置 text-align 和 line-height ,针对未浮动的行内元素 <div class="box"> & ...

  4. Day 15：缓冲输入输出常用方法和小练习

    以拷贝图片为例子,演示异常处理的代码: 拷贝一张图片 import java.io.File;import java.io.FileInputStream;import java.io.FileOut ...

  5. Ubuntu Vi指令

    Ubuntu在不更新源的情况下是没办法使用Vim指令的只能使用Vi指令 所有我也就记录了下来 vi / vim命令: 插入内容: i: 插入光标前一个字符 I: 插入行首 a: 插入光标后一个字符 A ...

  6. 正则表达式入门(ed模糊匹配)

    元字符: /b 代表着单词的开头或结尾,也就是单词的分界处.如果要精确地查找hi这个单词的话,我们应该使用/bhi/b. .是另一个元字符,匹配除了换行符以外的任意字符,*同样是元字符,它指定*前边的 ...

  7. c\c++ 中字符串分割，并且转换为整形数据

    在项目开发中,经常使用到字符串分割, 并且将其转换为整形(比如IP的分割获取,MAC地址的分割获取等),代码如下: #ifndef _UNICODE void StrToIntData( char * ...

  8. sql拆分列 时间拆分 日、月、年

    我想 查看今日访问人数 需要分组查询 就得 时间拆分 这两天百度 方法有很多 substring ... 但是 我这一列 是时间类型: 可以直接用 DATEPART() 函数用于返回日期/时间的单独部 ...

  9. OnPaint中画图遇到的问题

    在OnPaint函数中有CPaintDC dc1(this);这句话,在画图时,千万不要把它去掉,否则会造成消息队列阻塞.例如定时器.Invalidate()等都会失效. 造成这种现象的原因是: CP ...

  10. PHP四种输出语句

    //echo 深入理解echo ,echo是一个函数 //echo 功能:向浏览器输出一个或多个字符串; //echo 返回值:void 无返回值; echo "今天是个好天气"; ...