Delphi7 中提供了一個很方便的組件—IDHttp，它可以用來發送 HTTP 請求并接收服務器響應。在處理 RESTful API 接口時，經常會用到 JSON 格式的數據交互，因此這時可以使用 Delphi7 的 IDHttp 組件來發送和接收 JSON 格式的數據。

procedure TForm1.Button1Click(Sender: TObject);
var
IdHTTP: TIdHTTP;
JSONToSend, JSONResponse: TStringStream;
JSONObj: TJSONObject;
begin
IdHTTP := TIdHTTP.Create;
JSONToSend := TStringStream.Create;
JSONResponse := TStringStream.Create;
try
JSONObj := TJSONObject.Create;
JSONObj.AddPair('name', 'Peter');
JSONObj.AddPair('age', '25');
JSONToSend.WriteString(JSONObj.ToString);
IdHTTP.Post('http://example.com/api/user', JSONToSend, JSONResponse);
ShowMessage(JSONResponse.DataString);
finally
IdHTTP.Free;
JSONToSend.Free;
JSONResponse.Free;
end;
end;

上面的代碼演示了如何發送 JSON 格式的數據到 URL 為 http://example.com/api/user 的服務器，并接收服務器返回的數據寫入到 JSONResponse 中。在此之前，需要將數據通過 TJSONObject 封裝為 JSON 格式的字符串，寫入到 TStream 中，并由 IDHttp 的 Post 方法發送數據。

接下來是一個從服務器接收 JSON 格式的服務器響應的例子：

procedure TForm1.Button2Click(Sender: TObject);
var
IdHTTP: TIdHTTP;
JSONResponse: TMemoryStream;
JSONObj: TJSONObject;
begin
IdHTTP := TIdHTTP.Create;
JSONResponse := TMemoryStream.Create;
try
IdHTTP.Get('http://example.com/api/user/1', JSONResponse);
JSONObj := TJSONObject.ParseJSONValue(JSONResponse.Memory, JSONResponse.Size) as TJSONObject;
try
ShowMessage(JSONObj.GetValue('name').Value);
finally
JSONObj.Free;
end;
finally
IdHTTP.Free;
JSONResponse.Free;
end;
end;

上面的代碼演示了如何從 URL 為 http://example.com/api/user/1 的服務器獲取 JSON 格式的數據。這里使用了 IDHttp 的 Get 方法來獲取服務器返回的數據，并將獲取到的數據寫入一個 MemoryStream 中。接著，使用 TJSONObject 的 ParseJSONValue 方法將 MemoryStream 中的數據解析為 JSON 格式，并可以通過 TJSONObject.GetValue 方法獲取到指定的屬性值。

總之，Delphi7 中的 IDHttp 組件非常適合處理 RESTful API 的 JSON 數據交互，開發者可以方便地使用它來發送和接收 JSON 格式的數據，滿足各種實際應用場景需求。