各位富翁帮忙看看,穷菜鸟有问题请教! 这是怎么回事啊?(5分)

  • 主题发起人 主题发起人 jjnb
  • 开始时间 开始时间
J

jjnb

Unregistered / Unconfirmed
GUEST, unregistred user!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,VTxtAuto_TLB;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
OpenDialog1: TOpenDialog;
Button5: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
vtxt: vtxtauto_;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
memo1.Lines.LoadFromFile( opendialog1.FileName) ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
vtxt.Speak(' '+memo1.Text ,10);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
vtxt:=covtxtauto_.Create ;
vtxt.Register('??????', '??????');//不知道这里该怎么写?老大看看这里
end;

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

procedure TForm1.Button5Click(Sender: TObject);
begin
memo1.Lines.Text :=' ';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin

close;
end;

问题是:本机上可以,拿到其他机子上不能运行,
一开始提示类没有注册,然后装了spchapi插件后
,接下来就提示
OLE ERROR 80040714

 

Similar threads

I
回复
0
查看
774
import
I
I
回复
0
查看
751
import
I
I
回复
0
查看
635
import
I
I
回复
0
查看
694
import
I
后退
顶部