unit1.dfm

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

object Form1: TForm1
  Left = 161
  Top = 139
  Width = 544
  Height = 375
  Caption = #39034#26102#38024#20889#20316#36719#20214'  qq 740203690'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 232
    Top = 24
    Width = 291
    Height = 78
    Caption = 
      #25105#33258#24049#20889#30340'DELPHI '#35843#29992#35821#38899#24211#26391#35835#30340#20363#23376',                      '#13#10#26377#23436#25972#30340#20195#30721'. '#13#10#25105#30340'QQ:  ' +
      '740203690 '#13#10#24212#29992#30340#36719#20214':'#13#10#39034#26102#38024#20889#20316#36719#20214#13#10'http://hi.baidu.com/rcomponent     ' +
      '       '
  end
  object Button1: TButton
    Left = 144
    Top = 24
    Width = 75
    Height = 25
    Caption = #26242#20572
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 144
    Top = 56
    Width = 75
    Height = 25
    Caption = #37325#26032#24320#22987
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 144
    Top = 88
    Width = 75
    Height = 25
    Caption = ' '#36895#24230#21152
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 144
    Top = 120
    Width = 177
    Height = 25
    Caption = #35774#32622#21487#29992#24341#25806'  '
    TabOrder = 3
    OnClick = Button4Click
  end
  object ComboEngine: TComboBox
    Left = 224
    Top = 168
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    Text = 'ComboEngine'
    OnCloseUp = ComboEngineCloseUp
  end
  object BitBtn1: TBitBtn
    Left = 56
    Top = 16
    Width = 75
    Height = 25
    Caption = #26391#35835
    TabOrder = 5
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 56
    Top = 56
    Width = 75
    Height = 25
    Caption = #36895#24230#20943
    TabOrder = 6
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 56
    Top = 96
    Width = 75
    Height = 25
    Caption = #38899#37327#21152
    TabOrder = 7
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 56
    Top = 128
    Width = 75
    Height = 25
    Caption = #38899#37327'j'#20943
    TabOrder = 8
    OnClick = BitBtn4Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 322
    Width = 536
    Height = 19
    Panels = <>
  end
  object BitBtn5: TBitBtn
    Left = 48
    Top = 160
    Width = 155
    Height = 25
    Caption = 'ComboEngine inint'
    TabOrder = 10
    OnClick = BitBtn5Click
  end
  object Memo1: TMemo
    Left = 40
    Top = 208
    Width = 473
    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 = 11
  end
  object SpVoice1: TSpVoice
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 24
    Top = 72
  end
end