开发自己的英文语音朗读软件,急急,在线等待!!!!!!!!

renwoying 2003-07-25 05:24:32
开发自己的英文语音朗读软件,急急,在线等待!!!!!!!!
vtxt:VTxtAuto_;
procedure TForm1.FormCreate(Sender: TObject);
begin
vtxt:=CoVTxtAuto_.Create;
vtxt.Register(' ','speech');//问题就出在这里!register()中的参数什么
end;
具体代码如下:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,VTxtAuto_TLB, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
vtxt:VTxtAuto_;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
vtxt.Speed:=100;
vtxt.Speak(Trim(Edit1.Text),10);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
vtxt:=CoVTxtAuto_.Create;
vtxt.Register(' ','speech');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
vtxt.StopSpeaking;
end;

end.
...全文
46 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
bluesky1979 2003-07-27
  • 打赏
  • 举报
回复
参数可以输入Register('speech ','speech'); 我做过!
renwoying 2003-07-25
  • 打赏
  • 举报
回复
To CDsoftwareWj
我不正在学么?
你要是懂,你说阿!
在这边灌什么水?
CDSoftwareWj 2003-07-25
  • 打赏
  • 举报
回复
这都什么和什么呀

寒一个先

要作组件

你去找本《Delphi部件开发编程深入剖析》吧

虽然这本书讲的也不好,但基本的还是要明白的。

vtxt.Register(' ','speech'); 你要注册什么????

好好看看书先

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧