TWebHttpRequest使用

时间:2023-03-09 14:49:23
TWebHttpRequest使用

TWebHttpRequest使用

TWebHttpRequest通过HTTP GET方法,向中间件REST API申请数据。

procedure TForm1.WebButton1Click(Sender: TObject);
begin
WebHttpRequest1.URL := 'https://jsonplaceholder.typicode.com/albums';
WebHttpRequest1.Execute;
end; procedure TForm1.WebHttpRequest1Response(Sender: TObject; AResponse: string);
var
js: TJSON;
ja: TJSONArray;
jo: TJSONObject;
i: integer;
begin
js := TJSON.Create; try
ja := TJSONArray(js.Parse(AResponse)); ShowMessage('Retrieved items:' +inttostr(ja.Count)); for i := 0 to ja.Count - 1 do
begin
jo := TJSONObject(ja.Items[i]);
WebListBox1.Items.Add(jo.GetJSONValue('title'));
end;
finally
js.Free;
end;
end;