Delphi中怎么调用WebApi

Delphi中怎么调用WebApi，针对这个问题，这篇文章详细介绍了相对应的分析和解答，希望可以帮助更多想解决这个问题的小伙伴找到更简单易行的方法。Delphi调用WebApi时我们用到了IXMLHttpRequest,在单元引用里面加上msxml即可.
调用起来非常简单,定义HttpReq: IXMLHttpRequest; HttpReq := CoXMLHTTPRequest.Create; HttpReq.open(‘Post’, url, False, EmptyParam, EmptyParam);
上面的参数第一个就是用到的方法GET就写’Get’,Post就写’Post’,第二个是通讯地址,后面的就默认这样填写就到了
HttpReq.setRequestHeader(‘Accept’, ‘application/json’);
HttpReq.setRequestHeader(‘Content-Type’, ‘application/json’); 上面是设置请求头的格式

HttpReq.send(parasjson); //开始搜索
在Send里面,如果用的GET方法就直接填入EmptyParam,如果用的POST方法就在这里填入自己的JSON字符串 resultjson := HttpReq.responseText; 获取返回信息
GET方法必须注意一点delphi用IXMLHttpRequest的GET方法时必须加上时间戳 ‘&timestamp=’+inttostr(Windows.GetTickCount),如果后面不加上时间戳,只会GET一次,不再请求GET了自己封装的完整调用WebApi的单元unit DoWebApi;

interface

uses
Variants, msxml, SysUtils, Windows;

//WebApi
//GET
function WebApiGet(url : string; var resultjson: string; parasstr:string=”): Integer;
//Post
function WebApiPost(url, parasjson: string; var resultjson: string): Integer;

implementation

//获取Get
//delphi用IXMLHttpRequest的GET方法时必须加上时间戳 ‘&timestamp=’+inttostr(Windows.GetTickCount)
//如果不加只会GET一次,不再GET了
// Added by Administrator 2016-09-23 16:17:08
function WebApiGet(url: string; var resultjson: string;parasstr:string=”): Integer;
var
transurl: string;
HttpReq: IXMLHttpRequest;
begin
if parasstr = ” then
transurl := url + ‘?timestamp=’ + inttostr(Windows.GetTickCount)
else
transurl := url + ‘?’ + parasstr + ‘&timestamp=’ + inttostr(Windows.GetTickCount);
Result := -1;
try
try
HttpReq := CoXMLHTTPRequest.Create;
HttpReq.open(‘get’, transurl, False, EmptyParam, EmptyParam);

HttpReq.setRequestHeader(‘Accept’, ‘application/json’);
HttpReq.setRequestHeader(‘Content-Type’, ‘applicatio 香港云主机n/json’);

HttpReq.send(EmptyParam); //开始搜索

resultjson := HttpReq.responseText;
Result := 0;
except
Result := -1;
end;
finally

end;

end;

//Post
function WebApiPost(url, parasjson: string; var resultjson: string): Integer;
var
HttpReq: IXMLHttpRequest;
begin
Result := -1;
try
HttpReq := CoXMLHTTPRequest.Create;
HttpReq.open(‘Post’, url, False, EmptyParam, EmptyParam);

HttpReq.setRequestHeader(‘Accept’, ‘application/json’);
HttpReq.setRequestHeader(‘Content-Type’, ‘application/json’);

HttpReq.send(parasjson); //开始搜索

resultjson := HttpReq.responseText;
Result := 0;
except
Result := -1;
end;
end;
end.关于Delphi中怎么调用WebApi问题的解答就分享到这里了，希望以上内容可以对大家有一定的帮助，如果你还有很多疑惑没有解开，可以关注开发云行业资讯频道了解更多相关知识。

相关推荐: css怎么实现进行中打点效果

今天小编给大家分享一下css怎么实现进行中打点效果的相关知识点，内容详细，逻辑清晰，相信大部分人都还太了解这方面的知识，所以分享这篇文章给大家参考一下，希望大家阅读完这篇文章后有所收获，下面我们一起来了解一下吧。代码如下：以上就是“css怎么实 香港云主机现进…