umain.~dfm

Windows API 实现串口通信 用API制作的串口调试器。 供大家学习串口相关的API函数。 有兴趣可以与我联系。

object Form1: TForm1
  Left = 224
  Top = 131
  Width = 655
  Height = 422
  Caption = 'WIN32 API '#20018#21475#36890#20449#31034#20363
  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 Label6: TLabel
    Left = 176
    Top = 32
    Width = 73
    Height = 13
    AutoSize = False
    Caption = #21457#36865
  end
  object Label7: TLabel
    Left = 176
    Top = 216
    Width = 73
    Height = 13
    AutoSize = False
    Caption = #25509#25910
  end
  object GroupBox1: TGroupBox
    Left = 408
    Top = 24
    Width = 225
    Height = 201
    Caption = #22522#26412#35774#32622
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #31471#21475#21495
    end
    object Label2: TLabel
      Left = 16
      Top = 64
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #27874#29305#29575
    end
    object Label3: TLabel
      Left = 16
      Top = 96
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #25968#25454#20301
    end
    object Label4: TLabel
      Left = 16
      Top = 128
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #26657#39564
    end
    object Label5: TLabel
      Left = 16
      Top = 160
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #20572#27490#20301
    end
    object ComboBox1: TComboBox
      Left = 80
      Top = 30
      Width = 129
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = 'COM1'
      Items.Strings = (
        'COM1'
        'COM2'
        'COM3'
        'COM4'
        'COM5'
        'COM6')
    end
    object ComboBox2: TComboBox
      Left = 80
      Top = 62
      Width = 129
      Height = 21
      ItemHeight = 13
      ItemIndex = 3
      TabOrder = 1
      Text = '19200'
      Items.Strings = (
        '2400'
        '4800'
        '9600'
        '19200'
        '38400'
        '57600'
        '115200')
    end
    object ComboBox3: TComboBox
      Left = 80
      Top = 94
      Width = 129
      Height = 21
      ItemHeight = 13
      ItemIndex = 3
      TabOrder = 2
      Text = '7'
      Items.Strings = (
        '4'
        '5'
        '6'
        '7'
        '8')
    end
    object ComboBox4: TComboBox
      Left = 80
      Top = 126
      Width = 129
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 3
      Text = 'EVENPARITY'
      Items.Strings = (
        'EVENPARITY'
        'NOPARITY'
        'MARKPARITY'
        'ODDPARITY'
        'SPACEPARITY')
    end
    object ComboBox5: TComboBox
      Left = 80
      Top = 158
      Width = 129
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 4
      Text = 'ONESTOPBIT'
      Items.Strings = (
        'ONESTOPBIT'
        'ONE5STOPBITS'
        'TWOSTOPBITS')
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 369
    Width = 647
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object btnSendData: TBitBtn
    Left = 416
    Top = 248
    Width = 81
    Height = 41
    Caption = #21457#36865#25968#25454
    TabOrder = 2
    OnClick = btnSendDataClick
  end
  object btnOpenCom: TBitBtn
    Left = 544
    Top = 248
    Width = 81
    Height = 41
    Caption = #25171#24320#20018#21475
    TabOrder = 3
    OnClick = btnOpenComClick
  end
  object BitBtn3: TBitBtn
    Left = 544
    Top = 312
    Width = 81
    Height = 41
    Caption = #20851#38381#20018#21475
    TabOrder = 4
    OnClick = BitBtn3Click
  end
  object btnReceiveData: TBitBtn
    Left = 416
    Top = 312
    Width = 81
    Height = 41
    Caption = #25509#25910#25968#25454
    TabOrder = 5
    OnClick = btnReceiveDataClick
  end
  object Memo1: TMemo
    Left = 8
    Top = 56
    Width = 393
    Height = 129
    Lines.Strings = (
      'Memo1')
    TabOrder = 6
  end
  object Memo2: TMemo
    Left = 8
    Top = 240
    Width = 393
    Height = 118
    Lines.Strings = (
      'Memo1')
    TabOrder = 7
  end
end