有没有人用过杭州中正的，指纹仪(50分)

baihj · 2006-05-24

如果有用过的，一起讨论一下，给分

baihj · 2006-05-24

现在的问题是这样的，他们给的dll库 函数原型 int WINAPI MXReadFingerFromSensor(unsigned char*FingerBuf); 我在delphi 中，改为    Function  MXDetectFinger(FingerBuf :array of pchar):integer ; stdcall ;external 'MXOTDLL.dll' name 'MXDetectFinger'; 为什么一执行时就报错呢？

baihj · 2006-07-07

谁能详细讲讲tts的控制，这分就给他了

wuchunhua · 2006-07-07

weiliu · 2006-07-07

话题427636的标题是：微软TTS语音引擎如何更换男女声？（急！） (300分) 分类：非技术问题 009 (2000-12-29 9:51:00)   006 (2000-12-29 12:15:00)   我也想知道 wjiachun (2000-12-29 13:26:00)   ？？ visualabc (2000-12-29 13:29:00)   好象是换*。DIC吧 我也清楚。不要问我 cat.yy (2000-12-29 15:59:00)   ? 009 (2000-12-29 18:09:00)   到底有没有人会呀？ 全是问号什么意思？骗分吗？ 枫 (2000-12-29 22:59:00)   我想应该在TTS里的SDK里有解释 房客 (2000-12-30 0:20:00)   金山词霸发声使用的是微软TTS引擎。 如果是基于金山词霸： 硬盘上目录 c:/program files/common files/microsoft shared/speechenglish/tts 女声： female.cfg female.vce female8.cfg female8.vce//都删了就成男声了 //下边是如何调用 工程菜单中的导入类型库菜单,选择windows/ speech目录下的vtxtauto.tlb文件， 单击确定后delphi会自动生成vtxauto_TLB.pas文件，它包含了TTS的com接口。 应用如下: uses vtxauto_TLB; var TTS: ivtxtauto; 用前： TTS:=covtxtauto_.Create ; TTS.Register('project1','project1'); 用后： TTS:=nil; TTs.speak('要读的字符串',vtxtst_reading); TTs.stopspeaking; // 停止 TTs.set_speed(1); // 速度 009 (2000-12-30 9:31:00)   楼上的，我指的是程序中如何实现？删文件的方法太没有专业精神了吧？ CJ (2000-12-30 13:44:00)   //a component I've used, it works good unit mSpeech; {  Monster Speech 1.1.0  written by Chen Yu (monster)  E-Mail: mftp@21cn.com   ICQ UIN: 6740755  Homepage: http://homepages.msn.com/RedmondAve/mftp/  Suggestions and bug reports are warm welcomed.  This file used a Delphi translation of Speech API from  Project JEDI, and full package of this translation can  be found on JEDI's web page: http://www.delphi-jedi.org/ } interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  ComObj, ActiveX, Speech; {$I mspeech.msg} type   TMSpeechEngineInfo = record      Name:             String;      Language:         String;      Manufacturer:     String;      Product:          String;      ModeID:           String;      EngineID:         String;      Speaker:          String;      Style:            String;      Gender:           String;      Age:              Integer;      Features:         Integer;      Interfaces:       Integer;      MaxPitch:         Word;      MinPitch:         Word;      MaxRealTime:      LongWord;      MinRealTime:      LongWord;      MaxSpeed:         LongWord;      MinSpeed:         LongWord;      MaxVolume:        LongWord;      MinVolume:        LongWord;   end;   TSpeechDialog = (sdAbout, sdGeneral, sdLexicon, sdTranslate);   TSpeechOutput = (soFile, soGeneral);   TMSVisualEvent = procedure(Sender: TObject; Hints: LongWord; Mouth: PTTSMouth) of object; type   EMSpeechException = class(Exception);   TMSpeech = class;   TTSNotifySink = class(TInterfacedObject, ITTSNotifySink)   private      FOwner:                  TMSpeech;   protected      function AttribChanged(dwAttribute: DWORD): HResult; stdcall;      function AudioStart(qTimeStamp: QWORD): HResult; stdcall;      function AudioStop(qTimeStamp: QWORD): HResult; stdcall;      function Visual(qTimeStamp: QWORD;                      cIPAPhoneme: Char;                      cEnginePhoneme: Char;                      dwHints: DWORD;                      apTTSMouth: PTTSMouth): HResult; stdcall;   public      constructor Create(AOwner: TMSpeech);   end;   TTSBufNotifySink = class(TInterfacedObject, ITTSBufNotifySink)   private      FOwner:                  TMSpeech;   protected      function TextDataDone(qTimeStamp: QWORD; dwFlags: DWORD): HResult; stdcall;      function TextDataStarted(qTimeStamp: QWORD): HResult; stdcall;      function BookMark(qTimeStamp: QWORD; dwMarkNum: DWORD): HResult; stdcall;      function WordPosition(qTimeStamp: QWORD; dwByteOffset: DWORD): HResult; stdcall;   public      constructor Create(AOwner: TMSpeech);   end;   TMSpeech = class(TComponent)   private      FEngines:                TStrings;      FEngineStarted:          Boolean;      FFile:                   WideString;      FIAF:                    IAudioFile;      FIAMD:                   IAudioMultimediaDevice;      FInfo:                   TMSpeechEngineInfo;      FInit:                   Boolean;      FITTSAttributes:         ITTSAttributes;      FITTSCentral:            ITTSCentral;      FITTSDialogs:            ITTSDialogs;      FITTSEnum:               ITTSEnum;      FKey:                    LongWord;      FOutput:                 TSpeechOutput;      FPaused:                 Boolean;      FText:                   TStrings;      FTTSNotifySink:          ITTSNotifySink;      FTTSBufNotifySink:       ITTSBufNotifySink;      FVersion, DummyS:        String;      PModeInfo:               PTTSModeInfo;      function GetInterface(Index: Integer): IUnknown;      function GetPitch: Word;      function GetRealTime: LongWord;      function GetSpeed: LongWord;      function GetVolume: LongWord;      procedure SetText(const Value: TStrings);      procedure SetPitch(const Value: Word);      procedure SetRealTime(const Value: LongWord);      procedure SetSpeed(const Value: LongWord);      procedure SetVolume(const Value: LongWord);      procedure BeforeSelectEngine;      procedure Init;      procedure InitAudio;      procedure PostSelectEngine;      procedure PostSelectEngine2(ModeInfo: TTSModeInfo);      function GetAudioDevice: IUnknown;   protected      FOnStart, FOnStop:       TNotifyEvent;      FOnVisual:               TMSVisualEvent;      FPos:                    LongWord;      procedure FlushFile;   public      constructor Create(AOwner: TComponent); override;      destructor Destroy; override;      procedure Inject(Command: String);      procedure Pause;      procedure Resume;      procedure SelectEngine(EngineName: String); overload;      procedure SelectEngine(EngineMode: TTSModeInfo); overload;      procedure Show(DialogType: TSpeechDialog; ParentWnd: HWND = 0);      procedure Speak;      procedure Stop;      function GetEngineInfo(EngineName: String; var Info: TMSpeechEngineInfo): Boolean;      property Engines: TStrings read FEngines;      property Info: TMSpeechEngineInfo read FInfo;      property Interfaces[Index: Integer]: IUnknown read GetInterface;      property Paused: Boolean read FPaused;      property Pitch: Word read GetPitch write SetPitch;      property Position: LongWord read FPos;      property RealTime: LongWord read GetRealTime write SetRealTime;      property Speed: LongWord read GetSpeed write SetSpeed;      property Volume: LongWord read GetVolume write SetVolume;   published      property Filename: WideString read FFile write FFile;      property Output: TSpeechOutput read FOutput write FOutput;      property Text: TStrings read FText write SetText;      property Version: String read FVersion write DummyS;      property OnStart: TNotifyEvent read FOnStart write FOnStart;      property OnStop: TNotifyEvent read FOnStop write FOnStop;      property OnVisual: TMSVisualEvent read FOnVisual write FOnVisual;   end; implementation { TMSpeech: implementation of DirectTextToSpeech} { construction/deconstruction } constructor TMSpeech.Create(AOwner: TComponent); begin   inherited;   FEngines := TStringList.Create;   FText := TStringList.Create;   FKey := 0;   FPos := 0;   FOutput := soGeneral;   FPaused := False;   FVersion := 'Monster Speech 1.1.0';   Init; end; destructor TMSpeech.Destroy; begin   FInit := False;   FEngines.Free;   FText.Free;   if Assigned(PModeInfo) then Dispose(PModeInfo);   inherited; end; { Methods } procedure TMSpeech.Init; var ModeInfo: TTSModeInfo;    EngineCount: Integer; begin   FInit := True;   FEngineStarted := False;   try      { Enumerate engines }      OleCheck(CoCreateInstance(CLSID_TTSEnumerator, Nil, CLSCTX_ALL, IID_ITTSEnum, FITTSEnum));      OleCheck(FITTSEnum.Reset);      OleCheck(FITTSEnum.Next(1, ModeInfo, @EngineCount));      while EngineCount > 0 do      begin         FEngines.Add(String(ModeInfo.szModeName));         OleCheck(FITTSEnum.Next(1, ModeInfo, @EngineCount));      end;   except      FInit := False;   end; end; procedure TMSpeech.InitAudio; begin   case Output of      soFile:         OleCheck(CoCreateInstance(CLSID_AudioDestFile, nil, CLSCTX_ALL,                  IID_IAudioFile, FIAF));      soGeneral:         OleCheck(CoCreateInstance(CLSID_MMAudioDest, nil, CLSCTX_ALL,                  IID_IAudioMultiMediaDevice, FIAMD));   end; end; function TMSpeech.GetAudioDevice; begin   case Output of      soFile:         Result := FIAF;      soGeneral:         Result := FIAMD;   end; end; procedure TMSpeech.FlushFile; begin   if FOutput = soFile then FIAF.Flush; // close file end; procedure TMSpeech.Inject; begin   FITTSCentral.Inject(PChar(Command)); end; procedure TMSpeech.BeforeSelectEngine; begin   { Check if audio device is available }   InitAudio;   { Unregister old notify interface }   if FKey > 0 then   begin      FITTSCentral.UnRegister(FKey);      FKey := 0;   end;   { Create notify interfaces }   FTTSBufNotifySink := TTSBufNotifySink.Create(Self);   FTTSNotifySink := TTSNotifySink.Create(Self); end; procedure TMSpeech.SelectEngine(EngineName: String); var Index, EngineCount: Integer;    ModeInfo: TTSModeInfo; begin   if not FInit then      raise EMSpeechException.Create('msgSENotInited');   Index := Engines.IndexOf(EngineName);   if Index < 0 then      raise EMSpeechException.Create(msgSENotFound);   { Select Engine }   FEngineStarted := True;   try      BeforeSelectEngine;      OleCheck(FITTSEnum.Reset);      OleCheck(FITTSEnum.Skip(Index));      OleCheck(FITTSEnum.Next(1, ModeInfo, @EngineCount));      if Assigned(PModeInfo) then Dispose(PModeInfo);      New(PModeInfo);      PModeInfo^ := ModeInfo;      OleCheck(FITTSEnum.Select(PModeInfo^.gModeID,               FITTSCentral, GetAudioDevice));      PostSelectEngine;      PostSelectEngine2(ModeInfo);   except      FEngineStarted := False;   end; end; procedure TMSpeech.SelectEngine(EngineMode: TTSModeInfo); var FITTSFind: ITTSFind;    ModeInfo: TTSModeInfo; begin   if not FInit then      raise EMSpeechException.Create(msgSENotInited);   { Find and Select Engine }   FEngineStarted := True;   try      try         BeforeSelectEngine;         OleCheck(CoCreateInstance(CLSID_TTSEnumerator, nil, CLSCTX_ALL,                  IID_ITTSFind, FITTSFind));         OleCheck(FITTSFind.QueryInterface(IID_ITTSEnum, FITTSEnum));         OleCheck(FITTSFind.Find(EngineMode, nil, ModeInfo));         if Assigned(PModeInfo) then Dispose(PModeInfo);         New(PModeInfo);         PModeInfo^ := ModeInfo;         OleCheck(FITTSFind.Select(PModeInfo^.gModeID,                  FITTSCentral, GetAudioDevice));         PostSelectEngine;         PostSelectEngine2(ModeInfo);      except         FEngineStarted := False;      end;   finally      FITTSFind._Release;   end; end; procedure TMSpeech.PostSelectEngine; begin   OleCheck(FITTSCentral.QueryInterface(IID_ITTSAttributes, FITTSAttributes));   OleCheck(FITTSCentral.QueryInterface(IID_ITTSDialogs, FITTSDialogs));   OleCheck(FITTSCentral.Register(Pointer(FTTSNotifySink),                                  IID_ITTSNotifySink, FKey)); end; procedure TMSpeech.PostSelectEngine2; var CurrentPitch: Word;    CurrentRealTime, CurrentSpeed: LongWord; begin   { Retrieve Engine Information }   FInfo.Language := StrPas(ModeInfo.Language.szDialect);   with FInfo, ModeInfo do   begin      Name := StrPas(szModeName);      Manufacturer := StrPas(szMfgName);      Product := StrPas(szProductName);      ModeID := GUIDToString(gModeID);      EngineID := GUIDToString(gEngineID);      Speaker := StrPas(szSpeaker);      Style := StrPas(szStyle);      case wGender of         0: Gender := 'NEUTRAL';         1: Gender := 'FEMALE';         2: Gender := 'MALE';      end;      Age := wAge;      Features := dwFeatures;      Interfaces := dwInterfaces;      with FITTSAttributes do      begin         PitchGet(CurrentPitch);         PitchSet(TTSATTR_MAXPITCH);         PitchGet(MaxPitch);         PitchSet(TTSATTR_MINPITCH);         PitchGet(MinPitch);         PitchSet(CurrentPitch);         RealTimeGet(CurrentRealTime);         RealTimeSet(TTSATTR_MAXREALTIME);         RealTimeGet(MaxRealTime);         RealTimeSet(TTSATTR_MINREALTIME);         RealTimeGet(MinRealTime);         RealTimeSet(CurrentRealTime);         SpeedGet(CurrentSpeed);         SpeedSet(TTSATTR_MAXSPEED);         SpeedGet(MaxSpeed);         SpeedSet(TTSATTR_MINSPEED);         SpeedGet(MinSpeed);         SpeedSet(CurrentSpeed);         { According to MS's help file }         MaxVolume := 100;         MinVolume := 0;      end;   end; end; procedure TMSpeech.Pause; begin   OleCheck(FITTSCentral.AudioPause);   FPaused := True; end; procedure TMSpeech.Resume; begin   OleCheck(FITTSCentral.AudioResume);   FPaused := False; end; procedure TMSpeech.Show; begin   case DialogType of      sdAbout: OleCheck(FITTSDialogs.AboutDlg(ParentWnd, nil));      sdGeneral: OleCheck(FITTSDialogs.GeneralDlg(ParentWnd, nil));      sdLexicon: OleCheck(FITTSDialogs.LexiconDlg(ParentWnd, nil));      sdTranslate: OleCheck(FITTSDialogs.TranslateDlg(ParentWnd, nil));   end; end; procedure TMSpeech.Speak; var SData : TSData; begin   if not FInit then      raise EMSpeechException.Create(msgSENotInited);   if not FEngineStarted then      raise EMSpeechException.Create(msgSENotStarted);   FPaused := False; // OleCheck(FITTSCentral.AudioReset);   try      if FOutput = soFile then         if FIAF.DoSet(PWideChar(Filename), 1) < 0 then            raise EMSpeechException.Create('msgCannotOpenFile');      SData.dwSize := Length(FText.Text) + 1;      SData.pData := PChar(FText.Text);      OleCheck(FITTSCentral.TextData (CHARSET_TEXT, 0,               SData, Pointer(FTTSBufNotifySink), IID_ITTSBufNotifySink));   except   end; end; procedure TMSpeech.Stop; begin   FPaused := False;   OleCheck(FITTSCentral.AudioReset); end; function TMSpeech.GetEngineInfo; var Index, EngineCount: Integer;    ModeInfo: TTSModeInfo; begin   Result := False;   if not FInit then Exit;   Index := Engines.IndexOf(EngineName);   if Index < 0 then Exit;   if FITTSEnum.Reset < 0 then Exit;   if FITTSEnum.Skip(Index) < 0 then Exit;   if FITTSEnum.Next(1, ModeInfo, @EngineCount) < 0 then Exit;   { Retrieve Engine Information }   FillChar(Result, Sizeof(Result), 0);   Info.Language := StrPas(ModeInfo.Language.szDialect);   with Info, ModeInfo do   begin      Name := StrPas(szModeName);      Manufacturer := StrPas(szMfgName);      Product := StrPas(szProductName);      ModeID := GUIDToString(gModeID);      EngineID := GUIDToString(gEngineID);      Speaker := StrPas(szSpeaker);      Style := StrPas(szStyle);      case wGender of         0: Gender := 'NEUTRAL';         1: Gender := 'FEMALE';         2: Gender := 'MALE';      end;      Age := wAge;      Features := dwFeatures;      Interfaces := dwInterfaces;      MaxVolume := 100;   end;   Result := True; end; { Setting/Getting properties } { Undocumented property, for advanced user only } function TMSpeech.GetInterface; begin   case Index of      0: Result := GetAudioDevice;      1: Result := FITTSCentral;      2: Result := FITTSAttributes;      3: Result := FITTSDialogs;   end; end; function TMSpeech.GetPitch; begin   FITTSAttributes.PitchGet(Result); end; procedure TMSpeech.SetPitch; begin   FITTSCentral.Inject(PChar('/Pit=' + IntToStr(Value) + '/')); // FITTSAttributes.PitchSet(Value); end; function TMSpeech.GetRealTime; begin   FITTSAttributes.RealTimeGet(Result); end; procedure TMSpeech.SetRealTime; begin   FITTSAttributes.RealTimeSet(Value); end; function TMSpeech.GetSpeed; begin   FITTSAttributes.SpeedGet(Result); end; procedure TMSpeech.SetSpeed; begin   FITTSCentral.Inject(PChar('/Spd=' + IntToStr(Value) + '/')); // FITTSAttributes.SpeedSet(Value); end; {$ifdef MANUAL_SET_AND_GET_VOLUME} function TMSpeech.GetVolume; begin   FITTSAttributes.VolumeGet(Result); end; procedure TMSpeech.SetVolume; begin   FITTSCentral.Inject(PChar('/Vol=' + IntToStr(Volume) + '/')); end; {$else} function TMSpeech.GetVolume; var CurrentVolume: LongWord; begin   FITTSAttributes.VolumeGet(CurrentVolume);   Result := LoWord(CurrentVolume) * 100 div 65535; end; procedure TMSpeech.SetVolume; var TempVolume: LongWord; begin   TempVolume := 65535 * Value div 100;   TempVolume := MakeWParam(TempVolume, TempVolume);   FITTSCentral.Inject(PChar('/Vol=' + IntToStr(TempVolume) + '/')); // OleCheck(FITTSAttributes.VolumeSet(TempVolume)); end; {$endif} procedure TMSpeech.SetText; begin   FText.Assign(Value); end; { TTSNotifySink } constructor TTSNotifySink.Create; begin   FOwner := AOwner; end; function TTSNotifySink.AttribChanged; begin   Result := 0; end; function TTSNotifySink.AudioStart; begin   if Assigned(FOwner.FOnStart) then FOwner.FOnStart(Self);   Result := 0; end; function TTSNotifySink.AudioStop; begin   FOwner.FlushFile;   if Assigned(FOwner.FOnStop) then FOwner.FOnStop(Self);   Result := 0; end; function TTSNotifySink.Visual; begin   if Assigned(FOwner.FOnVisual) then FOwner.FOnVisual(Self, dwHints, apTTSMouth);   Result := 0; end; { TTSBufNotifySink } constructor TTSBufNotifySink.Create; begin   FOwner := AOwner; end; function TTSBufNotifySink.BookMark; begin   Result := 0; end; function TTSBufNotifySink.TextDataDone; begin   Result := 0; end; function TTSBufNotifySink.TextDataStarted; begin   Result := 0; end; function TTSBufNotifySink.WordPosition; begin   FOwner.FPos := dwByteOffset;   Result := 0; end; end. 009 (2000-12-31 12:28:00)   go on zyuz (2001-01-16 16:47:00)   我怎么好象没有看明白。。。。 zyy04 (2001-01-16 18:02:00)   说清楚你用的是Speech 4,还是Speech 5? 悲酥清风 (2001-04-02 13:15:00)   009:请自己提前或结束你的帖子，谢谢合作。 wjiachun (2001-06-17 20:17:00)   接受答案了. CJ的回答最终被接受。

doll_paul · 2006-07-07

网上有女声库！也有破解。不过，个人觉得，效果不好。

baihj · 2006-07-17

我用的是　Speech 5　想用中文女生

有没有人用过杭州中正的，指纹仪(50分)

baihj

Unregistered / Unconfirmed

baihj

Unregistered / Unconfirmed

baihj

Unregistered / Unconfirmed

wuchunhua

Unregistered / Unconfirmed

weiliu

Unregistered / Unconfirmed

doll_paul

Unregistered / Unconfirmed

baihj

Unregistered / Unconfirmed

Similar threads