main.dfm

Delphi编写的串口测试程序

      Height = 12
      Caption = 'Label10'
    end
    object Label11: TLabel
      Left = 346
      Top = 163
      Width = 72
      Height = 12
      Caption = #25104#21151#25509#25910#29575#65306
    end
    object Label12: TLabel
      Left = 418
      Top = 163
      Width = 42
      Height = 12
      Caption = 'Label12'
    end
    object Image1: TImage
      Left = 480
      Top = 160
      Width = 16
      Height = 16
      AutoSize = True
      Picture.Data = {
        07544269746D617006040000424D060400000000000006030000280000001000
        000010000000010008000000000000010000120B0000120B0000B4000000B400
        000000000000FFFFFF00FF00FF00372E3000382B2D00372C2D00382E2F003C1B
        1D0039282900382B2C00400A0B003A272700373030003B201F003B2120003E12
        10003B2523003C2320003A2725003E1A15003A27240000FEFF0000FFFF0000FB
        FE0004EDF0001EFDFE0044FFFF0042E2E20071FBFC008BFEFF00B4FFFF00CEFF
        FF00D8FFFF00DCFFFF00DDFFFF00E8FFFF00ECFFFF00F9FFFF0000F6FF0000F7
        FF0000F8FF0002F0F70006F8FF0011F6FF000CA1A4000FBABD0013B0B600129C
        9F002AF6FD0042FAFF00245B5D006CFCFF0075F9FE0090FDFF0099FDFF00B0FB
        FE00C6FEFF0000F0FF0000F2FF0000F3FF0001EEFC0001EFF90005F4FF0005D8
        E1000ACFDA000CC8D40011EEF80020F4FF00189DA50019989F0072F4FC00A3FB
        FF0000EAFF0000EDFF0000EEFF0000EFFF000AEFFF000BC9D60011B1BD0016A1
        AC00169FAA001A939E008EF7FE0000E5FF0000E6FF0000DEF90002E2F90003DD
        F40014A2B300169BAA00169DAA001895A1002763690028565B002F4B4E00A1F6
        FE0000DFFF0000E1FF0000E2FF0002DFFB0009C2DC001697AA001699AA001990
        9F002EE3FA0053E7FD0066ECFD0068ECFD0000DBFF0000DCFF0000D5FC0000D1
        F30000CFF20000CEF10000CBF0000EACC7001793A7004DE5FD002F474B0000D3
        FF0000D4FF0000D6FF0000CDF60000CDF50000C6F10000C8F10000C7EF0000C4
        EE0000BFE70000BBE30001C1EB0006CAF20007CEF80007CCF700158EA8001793
        AB0024D8FB0027D9FC00216F8000285E680000D0FF0000CFFE0000C6F50000C7
        F50000C2F20000C5F10000BBE80000B9E60000BBE50000B4E00000ADD90000A5
        CE0000A4CD0002CBF80003C9F80003C7F50004C6F60004C6F20006BFE80008CA
        F6000CCEFD00226F82002365750027606E0000B1E40000A2D000009CC8002B52
        5D0000AEE10000A9DC0000A6D90000A5D80000A4D70000A4D60000A3D50000A1
        D30000A0D200008FBC003436380035353600020202020202ADABAEAF02020202
        020202020202927D7A7E809496A5020202020202A8726261738AA286828198B1
        020202027048546706101214A39E7C970202027F4B39510E0CB2B2B311A79B91
        A60202552841080B050909040313A18C9502903C274D454F505A596665748799
        8FB09D302B271616153A4B49264960778DAC9F3431273D2E404A535658646D79
        78A99C521D162D075C29284E0D8B636C6EAA026A221A2C0A5E1816440F765761
        7B02028838201B322F17273F5D5B4854930202027524231C192A3B3E424C4B71
        02020202A0691F25211E363533436FA4020202020202896B5F37474668830202
        02020202020202029A84858E020202020202}
      Transparent = True
      Visible = False
    end
    object Image2: TImage
      Left = 480
      Top = 160
      Width = 16
      Height = 16
      AutoSize = True
      Picture.Data = {
        07544269746D617026040000424D260400000000000026030000280000001000
        000010000000010008000000000000010000120B0000120B0000BC000000BC00
        000000000000FFFFFF000100A10001009F00FF00FF003630210034290B003B32
        110039362500D5E2FF00D8E4FF00AEC5FF003E70FF004172FF004D7CFA005B88
        FF005075DB003C569F007295F400799EFE009DB7FF00B6CAFF00BACCFF00BFD1
        FF00C1D2FF00C4D4FF001B53FF00295CFF002C5EFE002C5CF5003061FF003465
        FF003565FF003669FF003767FF003969FF003659C3004D78FF00334E9F00537E
        FF002F427D00638BFF007898FE007B9DFF007D9EFF0089A7FF0090ACFF009CB5
        FF009FB6FF0032394E00ADC2FF000439FF000C3FFC001044FF001045FF001144
        FF001346FF001449FE00154AFF001849FD00153BC5001C50FD001D4FFF001F50
        FF001F51FD001D4AE300295BFF002A5AFF001F3FB6002751DE002D5DFF002C59
        F000294BBF002643A5003D66F900273C8800587CFF005A7DFF006E8FFF007393
        FF00353E5C000135FF000133FB000330F2000635F700073AFF000838F900093B
        FF000A3AFE000B3AF3000D3CFF000D39F1000F3FFF001141FF00123BEC001544
        FF001644FF00153FE7001845FF001741E0001C4AFF001E3AAE002E59FF00305B
        FF00223A9900233995002A39720032374A00002BF700032FF400052CE4000630
        F7000A33F3000F35EB00113BF300123AEB001237E400132FB70027377D002633
        71002E344E000022E3000127F2000122E6000120DA00062BF1000727E4000828
        D6000E2FE3001031E20023318300273478000120E700011FE600011DE500011C
        D7000223F2000D28DB001227BC001B2EA3000015C5000118CA000115C8000319
        DA000318D800031AD800051CD8000F23C700293066000210C7000316D4000313
        D0000313CF000417D6000514CE001A259900222A78000310CC00040EC900060F
        C400030CC300040DC8000409C500040AC200060EC600080EBC000B11B9000000
        9C000103A5000102A3000101A2000102A1000203B3000202B2000202AA000202
        A6000303C0000303BE000304BA000303B9000303B2000407C0000407BE000404
        BC000405BC000404BB000404BA00080AB400040404040404ABAAAA0204040404
        0404040404048E95A0B8BAB3B4AE0404040404047C79848F97A1B6B9B7B1ADA7
        0404040453595B707E929AA4A2A5BBAD0404045435384B6172718089939CA6B0
        AF04043B3E35446A6574818B949B9FB9AC045746423F3863697683828A999EB5
        B2035D2522433F3934566F7D8886969DA3AA6413271F1C4841375552757F8591
        98A8602E2B0C2405283D363C08777A7B90A9044F150F1106501D1A4907786D6C
        87040466180B103126211B456B6833518C0404044D0917120E0D201E47403A6E
        040404045A4C190A16142D2C2923738D040404040404674E30322F2A4A5E0404
        04040404040404045C625F58040404040404}
      Transparent = True
      Visible = False
    end
    object Memo2: TMemo
      Left = 2
      Top = 14
      Width = 509
      Height = 132
      Align = alTop
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object GroupBox4: TGroupBox
    Left = 0
    Top = 208
    Width = 185
    Height = 161
    Caption = #21457#36865#36873#39033#65306
    Enabled = False
    TabOrder = 3
    object Label15: TLabel
      Left = 24
      Top = 48
      Width = 132
      Height = 12
      Caption = #22312#21457#36865#21306#20869#36755#20837#23383#31526#21457#36865
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 29
      Top = 101
      Width = 60
      Height = 12
      Caption = #26102#38388#38388#38548#65306
    end
    object Label14: TLabel
      Left = 137
      Top = 101
      Width = 24
      Height = 12
      Caption = #27627#31186
    end
    object RadioButton2: TRadioButton
      Left = 8
      Top = 24
      Width = 145
      Height = 17
      Caption = #25163#24037#36755#20837#23383#31526#21457#36865
      TabOrder = 0
      OnClick = RadioButton2Click
    end
    object RadioButton1: TRadioButton
      Left = 8
      Top = 68
      Width = 113
      Height = 17
      Caption = #23450#26102#21457#36865#38543#26426#25968
      TabOrder = 1
      OnClick = RadioButton1Click
    end
    object Edit1: TEdit
      Left = 88
      Top = 93
      Width = 41
      Height = 20
      TabOrder = 2
      Text = '500'
    end
    object BitBtn3: TBitBtn
      Left = 12
      Top = 128
      Width = 75
      Height = 25
      Caption = #24320#22987'(&G)'
      TabOrder = 3
      OnClick = BitBtn3Click
      Glyph.Data = {
        9A030000424D9A030000000000009A0200002800000010000000100000000100
        08000000000000010000120B0000120B0000990000009900000000000000FFFF
        FF00FF00FF000457080004680B0004670B0004570900056A0C00066F0E000871
        100004680C0004670C0008AB170008AB180009B8190009B81A0009B71A0008A6
        160008A6170008A6180008A5160008A51700078D120009B1180009B018000AB2
        19000AA71800097A14000A7A14000B7C150009BE1C000AB31C000BB81D000CB2
        1F000DB320000DA81F000D851A00108F1F000DBA23000EB424000EA9220010BA
        270011AB270014A42800139C260030BD440010B4290013B52D0015BD3100129A
        28004EC9620014BB310014AE2F0015AF32001ABE3A007CD78D0018B93A001BBE
        3E001BBA3D001AB03A001BB23C001AAF3900A8E4B400D3F1D900F1FBF3001BAD
        3C001EC045001FBB460020B4450022BB480021B5480023B74A0022B5480025B7
        4A0037BC5A0038BB5A004CC36B0051C56F0053C57100AAE5B90020B5480023C0
        4E0021B5490023BC4E0023B54B0029BF53002EB9530042C0640051C5700025C5
        540024BE510027BF55002BBF570027BB57002AC25D002CBF5D002BC160002BBF
        5E0031C4640035C3670079D899002DC1630030C3680034C5690034C46B00F3FB
        F60030C56A0032C36B0032C36C0036C56E0036C5700037C56E0039C570003BC7
        72003FC8760042C8760043C8770044C9780046C97A0048CA7A004ECC7F004FCD
        820050CC800052CC810057CE850059CF87005BD088005DD08A005ED08A0065D2
        8F0067D391006FD5970078D79D0080DAA30086DBA7008ADEAC0091DFAF0095E0
        B3009BE3B8009DE3B900A6E5BF00AEE8C50034C873003BC7740058D08A006AD5
        960077D89F0087DDAA0092E0B300A9E6C200AEE8C600B1E9C800DDF5E7000202
        020202020202020202020202020202021D1B0907050B0B0B0B0B0B0602020231
        3B352A231314141212150D16030202415942363029200E0F0F101E0C0B020244
        6255453A3F2D2219171810120A02024872635C53014032271F170F120B020246
        9076675F010101372E2110110B020246927B7168010101013E2F261A04020246
        877F736F010101014F3833280802024689817771010101645A4339341C020246
        8B837C7801697E66605B513C240202469585807D987A74706B655E5025020252
        8D8C888684827D756D6C6A5D2C020248949697958A9391798F6E8E612B020202
        4B584E4D4C574A564954473D020202020202020202020202020202020202}
    end
    object BitBtn4: TBitBtn
      Left = 96
      Top = 128
      Width = 75
      Height = 25
      Caption = #20572#27490'(&P)'
      TabOrder = 4
      OnClick = BitBtn4Click
      Glyph.Data = {
        B6020000424DB602000000000000B60100002800000010000000100000000100
        08000000000000010000120B0000120B0000600000006000000000000000FFFF
        FF00FF00FF00007EFF00007CFA00007BF800007AF6000079F4000078F2000077
        F0000076EE000075EC000074EA000073E8000072E6000071E4000070E200006F
        E000006EDE00006DDC00006CDA00006BD800006AD6000069D4000068D2000067
        D0000066CE00005FC000005BB800005AB6000054AA000053A800004E9E00004C
        9A00004A96000049940000489200004184000380FF000581FF000782FF000983
        FF000D85FF000F86FF001081F500107FEF001388FF001589FF00178AFF00198B
        FF001B8CFF001F8EFF00228FFF002390FF002490FF002591FF002792FF002B94
        FF002D95FF002F96FF003398FF003599FF003B9CFF003D9DFF00419FFF0043A0
        FF004BA4FF004FA6FF0051A7FF0057AAFF0061AFFF006BB4FF0071B7FF0075B9
        FF0077BAFF009FCCFA00A4D1FF009FC9F300A9D4FF00CFE7FF00D1E8FF00CFE6
        FD00D5EAFF007FBEFF0081BFFF0083C0FF008BC4FF008DC5FF0097CAFF0099CB
        FF00A1CFFF00A5D1FF00D0E7FF00CFE6FE00CFE4FA00F2F8FF00020202020202
        0202020202020202020202021E1F202224242424242424250202021A0D101317
        1A1A1A1A1A1A181C2502020E280407090D11111111110F18240202082B270508
        0B0F11131415111A23020207332E2801512D0D4D0114111A240202073F382E5C
        01514B015E12111A24020207463D32345C0101512D0E0F19230202074A403530
        4C01015D2C0A0B16210202075542394E015050014F0607111E02020757453E5F
        523836500126030C1D0202075947413F3B3735312B2928081B0202075A585348
        46433F372F2B2B031A020207545A5B595649443C322F3028150202022A3A3B3A
        38322A260507060E020202020202020202020202020202020202}
    end
  end
  object Comm1: TComm
    CommName = 'COM2'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsDisable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = Comm1ReceiveData
    Left = 536
    Top = 48
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = True
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clFuchsia
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clGradientInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clPurple
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = True
    Active = True
    Left = 512
    Top = 24
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 592
    Top = 88
  end
end