DELPHI WEB

REST

创建REST组件

  RESTClient := TRESTClient.Create(self);
  RESTRequest := TRESTRequest.Create(self);
  RESTResponse := TRESTResponse.Create(self);

  RESTRequest.Client := self.RESTClient;
  RESTRequest.Response := self.RESTResponse;

连接配置

//请求方式
RESTRequest.Method := [TRESTRequestMethod];

//连接地址
RESTClient.BaseURL := ['url'];

//配置cookie
RESTClient.SetCookie(['key=value'], ['cookieURL']);

添加参数

RESTRequest.AddBody([TJSONObject]);
RESTRequest.Params := [TRESTRequestParameterList];

执行请求

RESTRequest.Execute;

//返回
RESTResponse.StatusCode;
RESTResponse.Content;

HTTPClient

//发送请求
[IHTTPResponse] := [THttpClient].Head(URL);

//获取请求头
[string]:=[IHTTPResponse].HeaderValue[''];

//文件下载
[THttpClient].GetRange(const AURL: string; AStart, AnEnd: Int64; const AResponseContent: TStream;
  const AHeaders: TNetHeaders = nil)