如何编写Delphi RESTRequest代码实现无请求体的Dropbox API调用

架构老林

2026-7-16

解决Delphi调用Dropbox /get_current_account接口的请求体解析错误问题

问题原因

Dropbox的users/get_current_account接口虽要求POST方法，但实际无需任何请求体。Delphi的REST组件默认在POST请求时，可能自动添加空JSON内容或存在不正确的请求体处理逻辑，导致服务器返回"无法解析JSON请求体"的错误。

正确的Delphi代码示例

以下是使用Delphi内置REST组件（TRESTClient、TRESTRequest、TRESTResponse）的实现：

procedure TYourForm.CallDropboxGetCurrentAccount;
const
  DROPBOX_API_URL = 'https://api.dropboxapi.com/2/users/get_current_account';
  YOUR_ACCESS_TOKEN = '<替换为你的Dropbox访问令牌>';
begin
  // 初始化REST组件关联关系
  RESTClient1.BaseURL := DROPBOX_API_URL;
  RESTRequest1.Client := RESTClient1;
  RESTRequest1.Response := RESTResponse1;
  RESTRequest1.Method := rmPOST;

  // 配置授权头
  RESTRequest1.Params.Clear;
  RESTRequest1.Params.AddHeader('Authorization', 'Bearer ' + YOUR_ACCESS_TOKEN);

  // 关键配置：确保不发送任何请求体
  RESTRequest1.ContentType := ''; // 清空Content-Type，避免服务器尝试解析JSON
  RESTRequest1.Body.Clear;
  RESTRequest1.Body.Empty := True; // 明确标记请求体为空

  try
    RESTRequest1.Execute;
    // 示例：将返回的账户信息输出到备忘录控件
    Memo1.Lines.Text := RESTResponse1.Content;
  except
    on E: Exception do
      ShowMessage('请求失败：' + E.Message);
  end;
end;