RSS订阅 | 匿名投稿
您的位置:网站首页 > 网络 > 正文

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

作者:admin 来源: 日期:2018/2/23 23:10:56 人气: 标签:

    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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料