Delphi处理Http请求自定义Header
在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;
