delphi 如何用post方式调用百度语音合成api

使用 Delphi 调用百度语音合成 API 的 POST 请求方法如下：

首先，需要引入以下两个单元：

uses
  IdHTTP, IdMultipartFormData;

然后，编写调用的代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  HTTP: TIdHTTP;
  Params: TIdMultipartFormDataStream;
  Response: TStringStream;
begin
  HTTP := TIdHTTP.Create;
  Params := TIdMultipartFormDataStream.Create;
  Response := TStringStream.Create;
  try
    Params.AddFormField('tex', '你要合成语音的文字');
    Params.AddFormField('cuid', 'your_cuid');
    Params.AddFormField('ctp', '1');
    Params.AddFormField('lan', 'zh');
    Params.AddFormField('tok', 'your_token');
    Params.AddFormField('spd', '5');
    Params.AddFormField('pit', '5');
    Params.AddFormField('vol', '5');
    Params.AddFormField('per', '0');
    
    HTTP.Post('https://tsn.baidu.com/text2audio', Params, Response);
    
    // 处理合成的语音数据，例如保存到文件中
    Response.SaveToFile('output.mp3');
  finally
    HTTP.Free;
    Params.Free;
    Response.Free;
  end;
end;

其中，你需要将 `'你要合成语音的文字'` 替换为实际要合成的文字内容，`'your_cuid'` 替换为你自己的用户 ID，`'your_token'` 替换为你的 API 访问令牌。

另外，这段示例代码中的合成参数 `spd`、`pit`、`vol` 和 `per` 分别表示语速、音调、音量和发音人选择，可以根据需要进行调整。

最后，合成的语音数据可以根据具体需求进行相应处理，例如保存到文件中、播放等。