在HTTP请求中,get方法是默认的,但在URL地址长度是有限的,请求方法能传送的数据也是有限的,一般get方法传递的数据不能大于2KB,当get请求方法传递的数据长度不能满足需求时,就需要采用另一种请求方法post,读取post方法传递过来的数据时,需要采用form方法来获取;post方法提交请求时,地址栏看不到传送过来的参数数据,更加有利于页面的安全,所以一般情况采用post方法传送页面数据。post传送的数据量较大,一般被默认为不受限制。但理论上,IIS5中最大量为100KB。

由于目前后台的接口采用的是Servlet来响应HTTP请求,所有的请求也必须遵循javaee servlet的规范。在Servlet 2.3及以后的版本中,已经默认增加了Filter处理,所以如果要在Servlet中的request对象能够自动读取post form的数据要满足以下条件:

1.request是HTTP/HTTPS request

2.HTTP method是POST。

3.content type是application/x-www-form-urlencoded。

在Delphi中有很多实体类可以实现HTTP请求,但比较方便的就是使用THTTPReqResp,比较原始的TIdHTTP类(需要自行管理cookie的值)。

因为THTTPReqResp自动封装了请求的细节处理,可以省去很多麻烦,特别是对Cookie的管理,但该对象发送请求的时候Header默认的content-type="text/xml" 所以要修改请求头的content-type才可以可以服务器端接收到post的数据。

要实现自定义Header需要在OnBeforePost事件中重定义Header信息

FHttpReq.OnBeforePost := BeforePost;

通过替换的方式把原来的content-type改为想要的结果:

HttpAddRequestHeaders(Data, PChar(csCustomHeader), Length(csCustomHeader), HTTP_ADDREQ_FLAG_REPLACE);

详细的代码如下:

{ -------------------------------------------------------------------------------

过程名: TDataSync.ModPassword

参数: oldPass:原密码

newPass:新密码

返回值: true表示成功;false表示失败,失败时可以通过GetLastError获得错误信息

------------------------------------------------------------------------------- }

function TDataSync.ModPassword(oldPass, newPass: string): boolean;

var

url, content: string;

begin

result := false;

try

url := Format(URL_AltPass, [FWebSite, oldPass, newPass]);

content := GetResponseContent(url);

result := GetResponseState(content);

except

SetLastError('网络故障,更改用户密码失败!');

end;

end;

procedure TDataSync.BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);

const

csCustomHeader =

'Content-Type: application/x-www-form-urlencoded; charset=UTF-8';

begin

HttpAddRequestHeaders(Data, PChar(csCustomHeader), Length(csCustomHeader),

HTTP_ADDREQ_FLAG_REPLACE);

end;

function TDataSync.GetResponseContentPost(url: string;

const DataMsg: String): string;

var

strStream, strSend: TStringStream;

begin

result := '';

strStream := TStringStream.Create('', TEncoding.UTF8);

strSend := TStringStream.Create(DataMsg, TEncoding.UTF8);

try

FHttpReq.url := url;

FHttpReq.OnBeforePost := BeforePost;

FHttpReq.Execute(strSend, strStream);

result := strStream.DataString;

except

SetLastError('无效数据包,可能网络故障!');

end;

strStream.Free;

strSend.Free;

end;

// 重载简单接口调用

function TDataSync.GetResponseContent(url: string): string;

begin

result := GetResponseContentPost(url, '');

end;

function TDataSync.GetResponseState(strResponse: string): boolean;

var

code: string;

jo: ISuperObject;

begin

result := false;

if strResponse = '' then

begin

SetLastError('服务端无响应当前服务请求!');

exit;

end;

jo := TSuperObject.ParseString(PWideChar(strResponse), false);

if jo = nil then

exit;

if jo['flag'] = nil then

begin

SetLastError('未知的服务响应!');

exit;

end;

code := jo['flag'].AsString;

result := (code = QUERY_SUCC) or (code = OP_SUCC);

if jo['info'] <> nil then

SetLastError(jo['info'].AsString)

else

begin

if code = 'EMPLOYEECODE_EXIST' then

SetLastError('工号已存在')

else if code = 'EXCEED_MORE_THAN_LIMIT' then

SetLastError('超过公司的总人数')

else

SetLastError(code);

end;

end;

{ ------------------------------------------------------------------------------ }

constructor TDataSync.Create(AOwner: TSWObject; url, dicURL: string);

begin

inherited Create(AOwner);

FWebSite := url;

FDicSite := dicURL;

FHttpReq := THTTPReqResp.Create(AOwner);

FHttpReq.UseUTF8InHeader := true;

end;

destructor TDataSync.Destroy();

begin

FHttpReq.Free;

inherited;

end;

Delphi处理Http请求自定义Header的更多相关文章

  1. 背水一战 Windows 10 (64) - 控件(WebView): 加载指定 HttpMethod 的请求, 自定义请求的 http header, app 与 js 的交互

    [源码下载] 背水一战 Windows 10 (64) - 控件(WebView): 加载指定 HttpMethod 的请求, 自定义请求的 http header, app 与 js 的交互 作者: ...

  2. 原创:【ajax | axios跨域简单请求+复杂请求】自定义header头Token请求Laravel5后台【亲测可用】

    如标题:我想在ajax的header头增加自定义Token进行跨域api认证并调用,api使用laravel5编写,如何实现? 首先,了解下CORS简单请求和复杂请求.  -- CORS简单请求 -- ...

  3. Feign 自定义编码器、解码器和客户端,Feign 转发请求头(header参数)、Feign输出Info级别日志

    Feign 的编码器.解码器和客户端都是支持自定义扩展,可以对请求以及结果和发起请求的过程进行自定义实现,Feign 默认支持 JSON 格式的编码器和解码器,如果希望支持其他的或者自定义格式就需要编 ...

  4. 解决通过Nginx转发的服务请求头header中含有下划线的key,其值取不到的问题

    1. 问题 由于在http请求头的头部中设置了一些自定义字段,刚好这些字段中含有下划线,比如bundle_name这种,后端在进去获取头部信息时,发现取不到对应的值 2. 原因及解决办法 分析 首先看 ...

  5. python3使用requests模块完成get/post/代理/自定义header/自定义Cookie

    一.背景说明 http请求的难易对一门语言来说是很重要的而且是越来越重要,但对于python一是urllib一些写法不太符合人的思维习惯文档也相当难看,二是在python2.x和python3.x中写 ...

  6. python3 get/post/使用代理/自定义header/自定义Cookie

    说明:urllib发送http请求并不是很人性化,更推荐使用在urllib基础上封装的.python2和python3都兼容的requests模块,移步查看. 一.get请求 get请求就是在构造Re ...

  7. 使用Typescript重构axios(五)——实现基础功能:处理请求的header

    0. 系列文章 1.使用Typescript重构axios(一)--写在最前面 2.使用Typescript重构axios(二)--项目起手,跑通流程 3.使用Typescript重构axios(三) ...

  8. js ajax设置和获取自定义header信息的方法总结

    目录 1.js ajax 设置自定义header 1.1 方法一: 1.2 方法二: 2.js ajax 获取请求返回的response的header信息 3.js ajax 跨域请求的情况下获取自定 ...

  9. jquery + node 通过 CORS 实现跨域访问,支持cookie和自定义header

    跨域有多种方式,现在的情况看来还是CORS更适合一些,有很多优点,比如浏览器正式支持.支持post.可以控制跨域访问的网站等. 我们来看看node如何实现cors方式的跨域.在网上找到了一些代码,考过 ...

随机推荐

  1. Cocos2d-x 线程的使用及线程使用中遇到的问题

    .h文件: #if CC_PLATFORM_ANDROID == CC_TARGET_PLATFORM #include "pthread.h" #endif #if CC_PLA ...

  2. Linux企业运维人员最常用150个命令汇总 [转]

    近来发现新手学习Linux记不住命令,不会分类.不会筛选重点,胡子眉毛一把抓当然记不住了. 特别整理Linux运维最常用150个命令和大家分享,大家学习命令不用在盲目了,根据分类,然后逐步学习! 命令 ...

  3. Springboot入门程序

    springboot简化之前的很多xml文件,不需要大量配置xml文件,没有很多xml文件是多么的愉快 下面进入正题,演示简单的入门程序,虽然简单,但足以振奋初学者们 我新建的工程名叫hello,大家 ...

  4. Ubuntu下禁止自动打开U盘等设备

    打开终端 禁止自动挂载: $ gsettings set org.gnome.desktop.media-handling automount false 禁止自动挂载并打开 $ gsettings ...

  5. Omi框架学习之旅 - 生命周期 及原理说明

    生命周期 name avatars company constructor 构造函数 new的时候 install 初始化安装,这可以拿到用户传进的data进行处理 实例化 installed 安装完 ...

  6. MVC 5限制所有HTTP请求必须是POST方式

    今天有位同事,提出了这样一个问题,他想限制所有MVC接收到的HTTP请求必须是POST方式. 接下来在下面的内容中,将我想到的方式分享给大家,如果大家有其它的方式,请留言. 一.HttpPostAtt ...

  7. 《MySQL必知必会》[04] 表的操作和视图的使用

    1.表的操作 现在创建表的工作大部分还是使用数据库管理工具来完成的,虽然其本质也是使用的SQL,但是方便许多.现在就来简单谈谈使用SQL语句操作表. 1.1 创建表  创建表的基本语句是(如果仅想在一 ...

  8. python伪代码之爬取完美志愿全国历年文理分数线运行代码持续更新

    最近好多小伙伴说想搞个项目实战类的,我就花了一点时间做了一个爬虫项目(在代码复制的时候可能会有点问题,缩格一下就没有问题了) 想要获取更多源码或者答疑或者或者交流学习可以加群:725479218 # ...

  9. kafka学习2:kafka集群安装与配置

    在前一篇:kafka学习1:kafka安装 中,我们安装了单机版的Kafka,而在实际应用中,不可能是单机版的应用,必定是以集群的方式出现.本篇介绍Kafka集群的安装过程: 一.准备工作 1.开通Z ...

  10. mysql中Error : Invalid default value for 'timestamp'问题

    在执行mysql数据库时报错       timestamp给默认值出问题. 原因是:mysql的配置参数中sql_node中NO_ZERO_IN_DATE, NO_ZERO_DATE控制了times ...