Delphi是一種強(qiáng)大的編程語(yǔ)言，它可以很方便地調(diào)用Web API來(lái)獲取數(shù)據(jù)。當(dāng)我們需要從Web API中獲取JSON數(shù)據(jù)時(shí)，我們可以使用Delphi中的TNetHTTPClient和TJSON類來(lái)完成。

首先，我們需要使用TNetHTTPClient創(chuàng)建一個(gè)HTTP請(qǐng)求，并設(shè)置它的請(qǐng)求頭和URI。然后，我們發(fā)送這個(gè)請(qǐng)求并等待服務(wù)器的響應(yīng)。當(dāng)我們收到響應(yīng)后，我們使用TJSON類來(lái)解析JSON數(shù)據(jù)并將其存儲(chǔ)在變量中。

NetHTTPClient := TNetHTTPClient.Create(nil);
try
NetHTTPRequest :=  TNetHTTPRequest.Create(nil);
try
NetHTTPRequest.Method := TNetHTTPRequest.TMethod.Get;
NetHTTPRequest.URL := API_URL;
NetHTTPRequest.CacheControl := 'no-cache';
// Execute the request and fetch the response
Response := NetHTTPRequest.Execute;
try
if Response.StatusCode = 200 then
begin
// Parse the response into a JSON object
JSONValue := TJSONObject.ParseJSONValue(Response.ContentAsString);
// Access the data in JSON object
if JSONValue<>nil then
begin
// Access the "data" array in the JSON object
DataArray := JSONValue.GetValue('data');
// Loop through the "data" array and retrieve the values
for i := 0 to DataArray.Count - 1 do
begin
DataObject := DataArray[i] as TJSONObject;
// Retrieve the "id" value and add it to the list
IdList.Add(DataObject.GetValue('id'));
end;
end;
end;
finally
Response.Free;
end;
finally
NetHTTPRequest.Free;
end;
finally
NetHTTPClient.Free;
end;

在上面的代碼中，我們使用了TJSONObject和TJSONArray來(lái)解析JSON數(shù)據(jù)，并使用GetValue來(lái)獲取JSON對(duì)象中的值。最后，我們將獲取到的值存儲(chǔ)在一個(gè)列表中，以便我們后面可以進(jìn)行進(jìn)一步處理。