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禁止用鼠标拖动窗口的大小

Delphi 获取鼠标当前位置的相对坐标

Delphi10.3通过json.serializers单元对大量数据序列化

Delphi 虚拟键码对照表

Delphi函数assignfile使用

Delphi 删除字符串重复的符号只保留一个

Delphi firedac操作sqlite内存数据库

maskedit中掩码的含义及使用

Delphi 2009 之 tstringbuilder 类[5]: chars[] 属性与 copyto 方法

Delphi 验证文件签名

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

转载请注明出处：木庄网络博客 » delphi 谷歌api文本转换语音mp3文件