main.~dfm

一个通过串口读写WAV语音文件的的小程序

object Form1: TForm1
  Left = 296
  Top = 158
  Width = 515
  Height = 360
  Caption = #35821#38899#20889#21345
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object sbtn_open: TSpeedButton
    Left = 422
    Top = 49
    Width = 63
    Height = 22
    Caption = #25171#24320#20018#21475
    OnClick = sbtn_openClick
  end
  object sbtn_seting: TSpeedButton
    Left = 422
    Top = 18
    Width = 63
    Height = 22
    Caption = #35774#32622#20018#21475
    OnClick = sbtn_setingClick
  end
  object sbtn_selectFile: TSpeedButton
    Left = 422
    Top = 98
    Width = 63
    Height = 22
    Caption = #36873#25321#25991#20214
    OnClick = sbtn_selectFileClick
  end
  object sbtn_send: TSpeedButton
    Left = 422
    Top = 145
    Width = 63
    Height = 22
    Caption = #21457#36865#25991#20214
    Enabled = False
    OnClick = sbtn_sendClick
  end
  object SpeedButton1: TSpeedButton
    Left = 422
    Top = 186
    Width = 63
    Height = 22
    Caption = #21551#21160#35821#38899
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 422
    Top = 226
    Width = 63
    Height = 22
    Caption = #32456#27490#21457#36865
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton
    Left = 422
    Top = 265
    Width = 63
    Height = 22
    Caption = #36864#20986#31243#24207
    OnClick = SpeedButton2Click
  end
  object SpeedButton4: TSpeedButton
    Left = 422
    Top = 297
    Width = 63
    Height = 22
    Caption = 'test'
    OnClick = SpeedButton4Click
  end
  object Panel1: TPanel
    Left = 0
    Top = 272
    Width = 408
    Height = 57
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    object ComLed1: TComLed
      Left = 67
      Top = 8
      Width = 25
      Height = 25
      ComPort = ComPort
      LedSignal = lsCTS
      Kind = lkPurpleLight
    end
    object ComLed2: TComLed
      Left = 99
      Top = 8
      Width = 25
      Height = 25
      ComPort = ComPort
      LedSignal = lsDSR
      Kind = lkPurpleLight
    end
    object ComLed3: TComLed
      Left = 131
      Top = 8
      Width = 25
      Height = 25
      ComPort = ComPort
      LedSignal = lsRLSD
      Kind = lkPurpleLight
    end
    object ComLed4: TComLed
      Left = 184
      Top = 8
      Width = 25
      Height = 25
      ComPort = ComPort
      LedSignal = lsRing
      Kind = lkYellowLight
    end
    object Label2: TLabel
      Left = 67
      Top = 32
      Width = 21
      Height = 13
      Caption = 'CTS'
    end
    object Label3: TLabel
      Left = 99
      Top = 32
      Width = 23
      Height = 13
      Caption = 'DSR'
    end
    object Label4: TLabel
      Left = 131
      Top = 32
      Width = 29
      Height = 13
      Caption = 'RLSD'
    end
    object Label5: TLabel
      Left = 184
      Top = 32
      Width = 22
      Height = 13
      Caption = 'Ring'
    end
    object ComLed5: TComLed
      Left = 243
      Top = 8
      Width = 25
      Height = 25
      ComPort = ComPort
      LedSignal = lsTx
      Kind = lkRedLight
    end
    object ComLed6: TComLed
      Left = 275
      Top = 8
      Width = 25
      Height = 25
      ComPort = ComPort
      LedSignal = lsRx
      Kind = lkRedLight
    end
    object Label1: TLabel
      Left = 249
      Top = 32
      Width = 12
      Height = 13
      Caption = 'Tx'
    end
    object Label6: TLabel
      Left = 281
      Top = 32
      Width = 13
      Height = 13
      Caption = 'Rx'
    end
    object ComLed7: TComLed
      Left = 22
      Top = 8
      Width = 25
      Height = 25
      ComPort = ComPort
      LedSignal = lsConn
      Kind = lkRedLight
    end
    object Label7: TLabel
      Left = 26
      Top = 32
      Width = 16
      Height = 13
      Caption = 'I/O'
    end
  end
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 407
    Height = 270
    Ctl3D = True
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ParentCtl3D = False
    TabOrder = 1
  end
  object ComPort: TComPort
    BaudRate = br57600
    Port = 'COM1'
    Parity.Bits = prNone
    StopBits = sbOneStopBit
    DataBits = dbEight
    Events = [evRxChar, evTxEmpty, evRxFlag, evRing, evBreak, evCTS, evDSR, evError, evRLSD, evRx80Full]
    FlowControl.OutCTSFlow = False
    FlowControl.OutDSRFlow = False
    FlowControl.ControlDTR = dtrDisable
    FlowControl.ControlRTS = rtsDisable
    FlowControl.XonXoffOut = False
    FlowControl.XonXoffIn = False
    OnAfterOpen = ComPortAfterOpen
    OnAfterClose = ComPortAfterClose
    OnRxChar = ComPortRxChar
    Left = 64
    Top = 24
  end
  object OpenDialog1: TOpenDialog
    Filter = #22768#38899#25991#20214'|*.wav'
    Left = 328
    Top = 32
  end
end