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

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

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',第二個是通訊地址,后面的就默認(rèn)這樣填寫就到了   

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

    上面是設(shè)置請求頭的格式

    HttpReq.send(parasjson); //開始搜索
    在Send里面,如果用的GET方法就直接填入EmptyParam,如果用的POST方法就在這里填入自己的JSON字符串

    resultjson := HttpReq.responseText;

    獲取返回信息

GET方法必須注意一點(diǎn)

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.

關(guān)于Delphi中怎么調(diào)用WebApi問題的解答就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，如果你還有很多疑惑沒有解開，可以關(guān)注億速云行業(yè)資訊頻道了解更多相關(guān)知識。