voiceformpu.~dfm

我自己写的DELPHI 调用语音库朗读的例子, 有完整的代码. 我的QQ: 740203690 已经应用我的顺时针写作软件里了.

object VoiceFormp: TVoiceFormp
  Left = 321
  Top = 93
  BorderStyle = bsNone
  ClientHeight = 368
  ClientWidth = 192
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 192
    Height = 241
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 56
      Width = 24
      Height = 13
      Caption = #38899#37327
    end
    object Label2: TLabel
      Left = 8
      Top = 112
      Width = 24
      Height = 13
      Caption = #36895#24230
    end
    object ComboEngine: TComboBox
      Left = 15
      Top = 16
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = 'ComboEngine'
    end
    object TrackBar1: TTrackBar
      Left = 32
      Top = 72
      Width = 150
      Height = 45
      TabOrder = 1
      OnChange = TrackBar1Change
    end
    object TrackBar2: TTrackBar
      Left = 24
      Top = 128
      Width = 150
      Height = 45
      TabOrder = 2
      OnChange = TrackBar2Change
    end
    object BitBtn1: TBitBtn
      Left = 24
      Top = 208
      Width = 75
      Height = 25
      Caption = #26391#35835
      TabOrder = 3
      OnClick = BitBtn1Click
    end
    object Button1: TButton
      Left = 101
      Top = 208
      Width = 75
      Height = 25
      Caption = #26242#20572
      TabOrder = 4
      OnClick = Button1Click
    end
  end
  object Memo1: TMemo
    Left = 16
    Top = 272
    Width = 144
    Height = 89
    Lines.Strings = (
      #24403#28982#36824#26377'Voice('#21363#20320#35201#30340#20013
      #25991#35821#38899')'
      #65292
      #29992'TSpObjectTokens'#30340
      'EnumTokens'
      #26041#27861#24471#21040#30446#21069#23433#35013#30340#35821#38899
      #65292
      #35013#20102#20013#25991#21253#21518#20320#23601#33021#24471#21040
      #20013#25991#30340
      #37027#20010#35821#38899#65292#28982#21518
      'TSpVoice.Voice := '
      '...'#23601#21487#20197#20102#12290
      #35814#32454#35831#30475'SAPI.chm'
      #65288'sdk5.1'#20013#33258#24102
      #30340'help'#65289#20197#21450#20854#20013#30340#20363#31243
      #12290'   '
      '   '#20197#19979#26159#20840#37096#28304#30721','#22522#26412#21151
      #33021#20197#23454
      #29616',')
    TabOrder = 1
  end
  object SpVoice1: TSpVoice
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 152
    Top = 40
  end
end