Delphi中怎么調(diào)用WebApi

Delphi中怎么調(diào)用WebApi，針對這個問題，這篇文章詳細介紹了相對應的分析和解答，希望可以幫助更多想解決這個問題的小伙伴找到更簡單易行的方法。

目前成都創(chuàng)新互聯(lián)公司已為千余家的企業(yè)提供了網(wǎng)站建設、域名、網(wǎng)頁空間、網(wǎng)站托管維護、企業(yè)網(wǎng)站設計、農(nóng)安網(wǎng)站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

Delphi調(diào)用WebApi時我們用到了IXMLHttpRequest,在單元引用里面加上msxml即可.

調(diào)用起來非常簡單,定義HttpReq: IXMLHttpRequest;

HttpReq := CoXMLHTTPRequest.Create;

HttpReq.open('Post', url, False, EmptyParam, EmptyParam);
上面的參數(shù)第一個就是用到的方法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中怎么調(diào)用WebApi

delphi用IXMLHttpRequest的GET方法時必須加上時間戳 '&timestamp='+inttostr(Windows.GetTickCount),如果后面不加上時間戳,只會GET一次,不再請求GET了

自己封裝的完整調(diào)用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', 'application/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中怎么調(diào)用WebApi問題的解答就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，如果你還有很多疑惑沒有解開，可以關注創(chuàng)新互聯(lián)行業(yè)資訊頻道了解更多相關知識。

文章名稱：Delphi中怎么調(diào)用WebApi
本文網(wǎng)址：http://bm7419.com/article18/ijhgdp.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供App設計、網(wǎng)站策劃、營銷型網(wǎng)站建設、用戶體驗、外貿(mào)建站、網(wǎng)站維護

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源：創(chuàng)新互聯(lián)

猜你還喜歡下面的內(nèi)容