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中判断tcp端口是否被占用

Delphi url protocol 让浏览器运行本地的exe程序

Delphi 如何编写需要启动参数的Delphi程序

Delphi 2009 泛型容器单元(generics.collections)[4]: tdictionary<t>

Delphi shellexecute 发送邮件

Delphi中实现磁盘信息类(tdriveinfo)

Delphi示例代码 android，ios，osx，windows，linux，html5

Delphi cxgrid应用笔记

Delphi savetextfiledialog 用法

Delphi 如何读取文件头 判断文件类型

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

转载请注明出处：木庄网络博客 » Delphi 使用Google Translate实现TTS