Search

Delphi: 2017 R3

Why? Because it represents the end of an era:

procedure DoGet; var RESTClient: TRESTClient; RESTReq: TRESTRequest; RESTResp: TRESTResponse; begin RESTClient := TRESTClient.Create('https://api.example.com'); RESTResp := TRESTResponse.Create(nil); RESTReq := TRESTRequest.Create(nil); try RESTReq.Client := RESTClient; RESTReq.Response := RESTResp; RESTReq.Resource := 'data/1'; RESTReq.Method := TRESTRequestMethod.rmGET; RESTReq.Execute; if RESTResp.StatusCode = 200 then ShowMessage(RESTResp.Content) else ShowMessage('HTTP Error: ' + RESTResp.StatusText); finally RESTReq.Free; RESTResp.Free; RESTClient.Free; end; end; delphi 2017 r3