unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, superobject, IdHTTP, IdSSLOpenSSL, StdCtrls; const
//几个常量
CONTENT_TYPE_XML = 'application/xml';
CONTENT_TYPE_JSON = 'application/json'; type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
/// <summary>
/// 把JSON转换为ULR的参数
/// </summary>
/// <param name="aJsonParam"></param>
/// <returns></returns>
function TranferJsonAsUrlParam(aJsonParam: ISuperObject): string;
{ Private declarations }
/// <summary>
/// get请求
/// </summary>
/// <param name="aUrl">接口地址</param>
/// <param name="aJsonParam">接口请求的参数</param>
/// <param name="aResponse">接口返回值</param>
/// <returns></returns>
function HttpRequestByGet(aUrl: string; aJsonParam: ISuperObject; var aResponse: string): Boolean;
/// <summary>
/// post请求
/// </summary>
/// <param name="aUrl">接口地址</param>
/// <param name="aJsonParam">接口请求的参数</param>
/// <param name="aResponse">接口返回值</param>
/// <param name="aUserName">基本验证的用户名,可选</param>
/// <param name="aPassword">基本验证的密码,可选</param>
/// <returns></returns>
function HttpRequestByPost(aUrl: string; aJsonParam: ISuperObject; var aResponse: string;
aUserName: string = ''; aPassword: string = ''): Boolean;
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} { TForm1 } function TForm1.HttpRequestByGet(aUrl: string; aJsonParam: ISuperObject; var aResponse: string): Boolean;
var
tmpHttp: TIdHTTP;
ResponseStream: TStringStream;
soResult: ISuperObject;
sUrl, sUrlParam: string;
begin
Result := False;
aResponse := '';
tmpHttp := TIdHTTP.Create(nil);
tmpHttp.Request.ContentType := CONTENT_TYPE_JSON;
//以流的方式发起请求
sUrlParam := TranferJsonAsUrlParam(aJsonParam);
sUrl := aUrl + '?' + sUrlParam;
ResponseStream := TStringStream.Create('');
try
try
tmpHttp.Get(sUrl, ResponseStream);
soResult := SO(UTF8Decode(ResponseStream.DataString));
//返回的标准JSON格式 如果成功,固定返回ecode = 1000 ,如果失败,则错误信息记录在msg中
//{
// "ecode": "1000",
// "msg": "操作成功",
// "data": {
// "age": 18
// }
//} if soResult.S['ecode'] = '' then
begin
aResponse := soResult.S['data'];
Result := True;
end
else
begin
aResponse := soResult.S['msg'];
end;
except
on e: Exception do
begin
aResponse := e.Message;
Result := False;
end;
end;
finally
FreeAndNil(tmpHttp);
FreeAndNil(ResponseStream);
end;
end; function TForm1.HttpRequestByPost(aUrl: string; aJsonParam: ISuperObject;
var aResponse: string; aUserName, aPassword: string): Boolean;
var
tmpHttp: TIdHTTP;
RequestStream: TStringStream; //请求信息
ResponseStream: TStringStream; //返回信息
soResult: ISuperObject;
io: TIdSSLIOHandlerSocketOpenSSL;
begin
{
400错误原则上应该是传上去的数据不符合平台的要求导致的,目前总结有以下几种可能性:
1、启用基础验证,如TOKEN,没有传验证参数
2、PostData传入的XML不符合上游接口的规则
解决方案最简单,与接口方联机调试。很重要!!!
}
Result := False;
aResponse := ''; tmpHttp := TIdHTTP.Create(nil);
tmpHttp.ReadTimeout := ; //请求超时设置
tmpHttp.HandleRedirects := True;
if UpperCase(Copy(aUrl, , )) = 'HTTPS' then
begin
io := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
tmpHttp.HandleRedirects := False;
tmpHttp.IOHandler := io;
end;
tmpHttp.Request.ContentType := CONTENT_TYPE_JSON;
tmpHttp.Request.Accept := CONTENT_TYPE_JSON; //如果请求需要做基本验证,验证失败会返回http 400错误
if aUserName <> '' then
begin
tmpHttp.Request.Username := aUserName;
tmpHttp.Request.Password := aPassword;
tmpHttp.Request.BasicAuthentication := True;
end; RequestStream := TStringStream.Create('');
ResponseStream := TStringStream.Create('');
try
try
//平台以JSON方式接收参数
RequestStream.WriteString(UTF8Encode(AnsiToUtf8(aJsonParam.AsJSon())));
tmpHttp.Post(AUrl, RequestStream, ResponseStream);
soResult := SO(UTF8Decode(ResponseStream.DataString));
//返回的标准JSON格式 如果成功,固定返回ecode = 1000 ,如果失败,则错误信息记录在msg中
//{
// "ecode": "1000",
// "msg": "操作成功",
// "data": {
// "age": 18
// }
//}
if soResult.S['ecode'] = '' then
begin
aResponse := soResult.S['data'];
Result := True;
end
else
begin
aResponse := soResult.S['msg'];
end; except
on e: Exception do
begin
Result := False;
end;
end;
finally
FreeAndNil(tmpHttp);
FreeAndNil(ResponseStream);
FreeAndNil(RequestStream);
end;
end; function TForm1.TranferJsonAsUrlParam(aJsonParam: ISuperObject): string;
var
sSource, sUrlParams, sParam: string;
sltTemp: TStringList;
i: Integer;
begin
Result := '';
//只能做一层转换,如果里面还包含有JSON子集,待扩展
sSource := UTF8Encode(AnsiToUtf8(aJsonParam.AsJSon()));;
sSource := StringReplace(sSource, '"', '', [rfReplaceAll]);
sSource := Copy(sSource, , Length(sSource) - );
sltTemp := TStringList.Create;
sUrlParams := '';
try
sltTemp.DelimitedText := sSource;
sltTemp.Delimiter := ',';
for i := to sltTemp.Count - do
begin
sParam := StringReplace(sltTemp[i], ':', '=', []);
if sUrlParams <> '' then sUrlParams := sUrlParams + '&';
sUrlParams := sUrlParams + sParam;
end;
Result := sUrlParams;
finally
sltTemp.Free;
end;
end; procedure TForm1.Button1Click(Sender: TObject);
var
sUrl: string;
soParam, soResponse: ISuperObject;
sResponse: string;
begin
sUrl := 'http://localhost/index.php';
soParam := SO();
soParam.S['userName'] := 'aaa';
soParam.S['password'] := ''; if not HttpRequestByGet(sUrl, soParam, sResponse) then
begin
ShowMessage('接口请求失败');
Exit;
end; soResponse := SO(sResponse);
ShowMessage(IntToStr(soResponse.I['age'])); end; procedure TForm1.Button2Click(Sender: TObject);
var
sUrl: string;
soParam, soResponse: ISuperObject;
sResponse: string;
begin
sUrl := 'http://localhost/index.php';
soParam := SO();
soParam.S['userName'] := 'aaa';
soParam.S['password'] := ''; if not HttpRequestByPost(sUrl, soParam, sResponse) then
begin
ShowMessage('接口请求失败');
Exit;
end; soResponse := SO(sResponse);
ShowMessage(IntToStr(soResponse.I['age'])); end; end.

Delphi-----接口请求,Get与Post的更多相关文章

  1. Postman - 功能强大的 API 接口请求调试和管理工具

    Postman 是一款功能强大的的 Chrome 应用,可以便捷的调试接口.前端开发人员在开发或者调试 Web 程序的时候是需要一些方法来跟踪网页请求的,用户可以使用一些网络的监视工具比如著名的 Fi ...

  2. xmlrpc实现bugzilla api调用(无会话保持功能,单一接口请求)

    xmlrpc实现bugzilla4   xmlrpc api调用(无会话保持功能,单一接口请求),如需会话保持,请参考我的另外一篇随笔(bugzilla4的xmlrpc接口api调用实现分享: xml ...

  3. Loadrunner模拟JSON接口请求进行测试

    Loadrunner模拟JSON接口请求进行测试     一.loadrunner脚本创建 1.Insert - New step -选择Custom Request -  web_custom_re ...

  4. SoapUI接口测试·第一个HTTP Request接口请求和断言

    一.新建SOAP项目 [File]-[New SOAP Project],在[Project Name]输入{工程名},点击[OK].   二.新建TestSuite 选中项目,右键选择[New Te ...

  5. zw版_Halcon图像库delphi接口文件

    zw版_Halcon图像库delphi接口文件 Halcon图像库delphi接口文件,根据安装时用户设置的文件目录不同,会有所差异,笔者一般安装在delphi的import目录下.     参见:& ...

  6. Facebook Graph API 接口请求

    Graph API 调试器 这两天因项目需求,在调试FB的接口.项目的应用在FB上面.L特傻.没有区分FB的api的使用方式. 因为应用是在FB上面的.所以在登录应用的时候,就已经登录了FB平台.对于 ...

  7. 四、VueJs 填坑日记之搭建Axios接口请求工具

    上一章,我们认识了项目的目录结构,以及对项目的目录结构做了一些调整,已经能把项目重新跑起来了.今天我们来搭建api接口调用工具Axios.Vue本身是不支持ajax调用的,如果你需要这些功能就需要安装 ...

  8. (C#)日志接口请求响应时间

    日志接口响应时间,记录接口请求信息,响应结果以及响应时间等.可以清楚的分析和了解接口状态. 如果一个一个地在接口下面做日志,那不是我们想要的结果.所以,我们选择做一个特性来控制接口要不要记录请求响应日 ...

  9. Vue + webpack 项目配置化、接口请求统一管理

    准备工作 需求由来: 当项目越来越大的时候提高项目运行编译速度.压缩代码体积.项目维护.bug修复......等等成为不得不考虑而且不得不做的问题.  又或者后面其他同事接手你的模块,或者改你的bug ...

  10. 【转】js生成接口请求参数签名加密

    js生成接口请求参数签名加密 签名算法规则: 第一步,设所有发送或者接收到的数据为集合M,将集合M内非空参数值的参数按照参数名ASCII码从小到大排序(字典序),使用URL键值对的格式(即key1=v ...

随机推荐

  1. docker-容器完整构建过程

    container 代码app,构建,运行,分享(推送)image mkdir img1 cd img1 [root@cu-tmp-201 img1]# ls app.py Dockerfile re ...

  2. Jmeter之安装和配置

    一.Jmeter下载: 官网下载地址:http://jmeter.apache.org/download_jmeter.cgi 目前最新版本为5.0(未使用过),建议使用4.0 (存在两种格式的压缩包 ...

  3. HTML5——新表单元素 表单属性 语义元素

    表单元素 新的表单元素 datalist——输入域选项列表 keygen——提供一种验证用户的可靠方法 output——不同类型的输出,比如计算或脚本输出 表单属性 <form> / &l ...

  4. 【MM系列】SAP 客户增强

    公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[MM系列]SAP 客户增强   前言部分 大家 ...

  5. 2d平台怪物逻辑

    2d来回巡逻 遇到坑会自动转向 可配置单次方向行走的时间,转向等待时间等 using System; using System.Collections; using System.Collection ...

  6. LeetCode.868-二进制距离(Binary Gap)

    这是悦乐书的第333次更新,第357篇原创 01看题和准备 今天介绍的是LeetCode算法题中Easy级别的第203题(顺位题号是868).给定正整数N,找到并返回N的二进制表示中两个连续1之间的最 ...

  7. 深入分析微博密码加密and百万级数据采集分享(登录篇)

    一.前言 此文章主要是对微博微博关键词的检索结果进行采集,但是微博的采集需要登陆,所以此程序分为登陆程序和爬虫程序两部分: 微博要实现规模性数据采集自然少不了大量账号,这就需购买大量账号以及批量登陆, ...

  8. realloc ------ 扩大malloc得到的内存空间

    char* p = malloc(1024);char* q = realloc(p,2048); 现在的问题是我们应该如何处理指针 p. 刚开始按照我最直观的理解,如果就是直接将 p = NULL; ...

  9. 通过proxychains实现Ubuntu终端代理

    1.在终端内使用代理,需要使用proxychains: sudo apt-get install proxychains 2.编辑 /etc/proxychains.conf sudo gedit / ...

  10. vue $forceUpdate() 强制重新渲染

    vue $forceUpdate() 强制重新渲染:https://blog.csdn.net/z9061/article/details/94862047