,可以通过以下步骤完成:
var
IdHTTP1: TIdHTTP;
begin
IdHTTP1 := TIdHTTP.Create(nil);
IdHTTP1.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 Safari/537.3';
IdHTTP1.Timeout := 5000; // 设置超时时间为5秒
end;
var
JSONData: string;
begin
JSONData := IdHTTP1.Get('http://example.com/api/data.json');
end;
这里的URL可以替换为实际的API地址。
var
JSONObject: TJSONObject;
JSONValue: TJSONValue;
begin
JSONValue := TJSONObject.ParseJSONValue(JSONData);
if JSONValue is TJSONObject then
JSONObject := JSONValue as TJSONObject;
end;
var
Username: string;
begin
Username := JSONObject.GetValue('username').Value;
end;
这里的'username'可以替换为实际的字段名。
以上就是在Delphi XE7中从URL中检索JSON数据的基本步骤。根据具体的需求,可以进一步处理和解析JSON数据,并将其用于应用程序的其他功能。
领取专属 10元无门槛券
手把手带您无忧上云