fpc : 调用 MS TTS 读中英文

belldeep

已于 2024-02-14 13:16:30 修改

阅读量1k

点赞数

分类专栏： fpc 文章标签： free pascal RegExpr TTS

于 2015-04-18 15:49:50 首次发布

本文链接：https://blog.csdn.net/belldeep/article/details/45113775

版权

fpc 专栏收录该内容

14 篇文章 0 订阅

订阅专栏

这个例子是 free pascal 在Windows XP 调用 MS TTS 读中英文

tts2.pas

Program tts2;
{$mode objfpc}{$H+}

uses
  Classes,SysUtils,Process,Variants,ComObj,RegExpr,ShellApi;

var 
  Sp: Variant;
  re: TRegExpr;
  i : Integer;
begin
  if Assigned(InitProc) then
    TProcedure(InitProc);
  try
    Sp := CreateOleObject('SAPI.SpVoice') ;
    re := TRegExpr.Create;
    re.Expression := '^[A-Za-z]+$';
    for i:=1 to ParamCount do
    begin
	  if re.Exec(ParamStr(i)) then
	    Sp.Speak(ParamStr(i)) // english
	  else // speak.vbs 读中文
	    ShellExecute(0,nil, PChar('".\speak.vbs"'), PChar(ParamStr(i)), nil,0);
	  Sleep(1);
    end
  except
    writeln(' OLE Error ');	  
  end;
  re.free;
end.

speak.vbs 见 blog.csdn.net/belldeep/article/details/7064800