DELPHI实现百度开放平台

学习百度语音

百度语音开发平台

http://yuyin.baidu.com/

百度开发者账号

13600514494，短信登录

应用账号

词语听写

App ID: 7799366

API Key: U27QualnUfDPfRoksgjTM64i

Secret Key: d6625d0954799afb4bfc6c5faef50391

--获取tok

http://yuyin.baidu.com/docs/tts/135#获取 Access Token

https://openapi.baidu.com/oauth/2.0/token?grant_type=client_credentials&client_id=U27QualnxxxxRoksgjTM64i&client_secret=d662xxxx54799afb4bfc6c5faef50391

--语音

http://yuyin.baidu.com/docs/tts/136

http://tsn.baidu.com/text2audio?tex=测试&lan=zh&cuid=18-03-73-E9-8E-95&ctp=1&tok=24.dde01e15xxxxf3f7a97456b4bb06c1d7.2592000.1459131273.282335-7799366

-----

如何使用delphi的rest控件

http://blog.csdn.net/sunylat/article/details/46399987

RESTRequest1.Execute;以后,RESTResponse1会返回Content是文本的,RawBytes是内存块

procedure TForm2.Button1Click(Sender: TObject);

var

// JO, JData: TJSONObject;

code: string;

temp: string;

fileName: string;

b: TBytesStream;

begin

//RESTClient1.BaseURL := 'http://ip.taobao.com//service/getIpInfo.php?ip=202.103.24.68';

RESTClient1.BaseURL := 'http://tsn.baidu.com/text2audio?tex='+Edit1.Text+'&lan=zh&cu;

RESTRequest1.Execute;

// 清理先前数据

Memo1.Lines.Clear;

Memo1.Lines.Add('请求时间:' + Formatdatetime('yyyy-mm-dd hh:mm:ss zzz', now)

+ #13#10);

// 在memo中显示得到数据

temp := temp + '原始数据:' + #13#10;

// temp := temp + RESTResponse1.Content + #13#10;

// Memo1.Lines.Add(temp);

fileName := TPath.GetHomePath() + TPath.DirectorySeparatorChar + 'aa.wav';

Memo1.Lines.Add(fileName);

MediaPlayer1.Clear;

//先将内存快储存到文件

try

b := TBytesStream.Create(RESTResponse1.RawBytes);

b.SaveToFile(fileName);

finally

FreeAndNil(b);

end;

MediaPlayer1.FileName :=fileName;

MediaPlayer1.Play;

// MediaPlayer1.Clear;

end;