delphi 谷歌api文本转换语音mp3文件


本文整理自网络,侵删。

 
    Stream : TMemoryStream;
begin
  
    Stream := TMemoryStream.Create;

    try
      
      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中调用http xml

Delphi 备份恢复剪切板

Delphi 下载并显示网上的图片

Delphi cpu窗口的扩展学习

Delphi 用 getenvironmentvariable 获取常用系统环境变量

Delphi获取程序自身路径的函数

Delphi chromium post

Delphi 跨平台打开网址链接

Delphi 结束360safe和360保险箱进程 for Delphi

Delphi datetimepicker控件日期格式

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...