在 Delphi 中，可以通過(guò)發(fā)送 HTTP 請(qǐng)求從網(wǎng)頁(yè)獲取 JSON 數(shù)據(jù)。

uses
IdHTTP, System.JSON;
function GetJSONData(AURL: string): TJSONObject;
var
HTTP: TIdHTTP;
Response: string;
JSONValue: TJSONValue;
begin
HTTP := TIdHTTP.Create(nil);
try
Response := HTTP.Get(AURL);
JSONValue := TJSONObject.ParseJSONValue(Response);
Result := JSONValue as TJSONObject;
finally
HTTP.Free;
end;
end;

以上代碼使用了TIdHTTP組件來(lái)發(fā)送 HTTP 請(qǐng)求并獲取網(wǎng)頁(yè)內(nèi)容。接著使用TJSONObject和TJSONValue組件來(lái)解析 JSON 數(shù)據(jù)，并將解析結(jié)果返回。

可以將返回的 JSON 數(shù)據(jù)以字符串形式輸出：

var
JSONData: TJSONObject;
begin
JSONData := GetJSONData('http://example.com/data.json');
ShowMessage(JSONData.ToString);
end;

以上代碼將從 http://example.com/data.json 地址獲取 JSON 數(shù)據(jù)，并將解析結(jié)果作為字符串輸出。

注意：這里的地址只是示例，實(shí)際使用時(shí)需要替換為正確的地址。