delphi如何通过http请求获取json返回值

在 Delphi 中可以使用 Indy 组件库中的 TIdHTTP 组件来发送 HTTP 请求并获取返回值。以下是一个获取 JSON 返回值的示例代码：

uses
  IdHTTP, System.JSON;

function GetJsonValueFromUrl(const AUrl: string; const AName: string): string;
var
  IdHTTP: TIdHTTP;
  JsonResponse: TJSONObject;
  JsonValue: TJSONValue;
begin
  IdHTTP := TIdHTTP.Create;
  try
    JsonResponse := TJSONObject.ParseJSONValue(IdHTTP.Get(AUrl), False) as TJSONObject;
    try
      JsonValue := JsonResponse.GetValue(AName);
      if Assigned(JsonValue) then
        Result := JsonValue.Value
      else
        Result := '';
    finally
      JsonResponse.Free;
    end;
  finally
    IdHTTP.Free;
  end;
end;

其中，`AUrl` 是请求的 URL，`AName` 是要获取的 JSON 属性名。该函数会返回该属性的字符串值。注意，该代码需要使用 System.JSON 单元，因此需要在 uses 中添加该单元。