Delphi 使用Google Translate实现TTS

本文整理自网络，侵删。

 var    Stream : TMemoryStream;begin    Stream := TMemoryStream.Create;
    try      // idHTTPUserAgent      IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.3) Gecko/20100401';      IdHTTP1.Get(TIdURI.URLEncode('http://translate.google.com/translate_tts?tl=ko&q=' + txtHangul.Text), Stream);    finally      MediaPlayer1.Close;      Stream.SaveToFile(ExtractFilePath(Application.ExeName) + 'temp.mp3');
      MediaPlayer1.FileName := ExtractFilePath(Application.ExeName) + 'temp.mp3';      MediaPlayer1.Open;      MediaPlayer1.Play;   end;end; 

相关阅读 >>

Delphi sha1加密函数

Delphi memo 控件光标定位

Delphi复制粘贴操作

wmi远程访问问题解决方法

Delphi xe5 for android 调用java类库必看的文件

Delphi执行js

用tidftp控件实现ftp协议

Delphi隐藏当前进程(新)

8086 汇编指令手册查询

Delphi 编写网址加密解密代码

更多相关阅读请进入《Delphi》频道 >>