win7 delphi 调用 语音控件TSpVoice Speak 方法报 OLE error 8004503A 错 怎么解决？

Posted 2023-04-25

遇到[OLE error 8004503A]和[没有注册类别]的错误提示，通常要检查下系统里面TTS语音包支持没有正确安装并正常运行。

具体安装办法请百度 TTS 安装使用。 参考技术A 使用ISpVoice接口试试，我也发现了在XP上使用TSpVoice没问题，在WIN10上使用ISpVoice没问题，但在XP上使用TSpVoice不行。我用的delphi7 参考技术B 是不是ocx没注册成功？追问

ocx 是什么？

Delphi 调用控件的过程，初学者都想知道

假设有过程：

procedure TForm1.Button1Click(Sender: TObject);
begin
    ShowMessage(‘唐细刚 2008‘);
end;

想在 FormCreate 时候调用，怎么调用？

办法是：

procedure TForm1.FormCreate(Sender: TObject);
begin
     Button1Click(Sender);
end;

呵呵，很简单．