demo.~dfm

电脑控制继电器.可以用远程控制电脑.然后电脑控制继电器控制家电等

    end
    object d2: TCheckBox
      Left = 64
      Top = 32
      Width = 33
      Height = 17
      Caption = '10'
      TabOrder = 10
      OnClick = d1Click
    end
    object d3: TCheckBox
      Left = 96
      Top = 32
      Width = 33
      Height = 17
      Caption = '11'
      TabOrder = 11
      OnClick = d1Click
    end
    object d4: TCheckBox
      Left = 128
      Top = 32
      Width = 33
      Height = 17
      Caption = '12'
      TabOrder = 12
      OnClick = d1Click
    end
    object d5: TCheckBox
      Left = 160
      Top = 32
      Width = 33
      Height = 17
      Caption = '13'
      TabOrder = 13
      OnClick = d1Click
    end
    object d6: TCheckBox
      Left = 192
      Top = 32
      Width = 33
      Height = 17
      Caption = '14'
      TabOrder = 14
      OnClick = d1Click
    end
    object d7: TCheckBox
      Left = 224
      Top = 32
      Width = 33
      Height = 17
      Caption = '15'
      TabOrder = 15
      OnClick = d1Click
    end
    object d8: TCheckBox
      Left = 256
      Top = 32
      Width = 33
      Height = 17
      Caption = '16'
      TabOrder = 16
      OnClick = d1Click
    end
    object q1: TCheckBox
      Left = 32
      Top = 56
      Width = 33
      Height = 17
      Caption = '17'
      TabOrder = 17
      OnClick = q1Click
    end
    object q2: TCheckBox
      Left = 64
      Top = 56
      Width = 33
      Height = 17
      Caption = '18'
      TabOrder = 18
      OnClick = q1Click
    end
    object q3: TCheckBox
      Left = 96
      Top = 56
      Width = 33
      Height = 17
      Caption = '19'
      TabOrder = 19
      OnClick = q1Click
    end
    object q4: TCheckBox
      Left = 128
      Top = 56
      Width = 33
      Height = 17
      Caption = '20'
      TabOrder = 20
      OnClick = q1Click
    end
    object Button2: TButton
      Left = 12
      Top = 116
      Width = 75
      Height = 27
      Caption = #20840#37096#20851#38381
      TabOrder = 21
      OnClick = Button2Click
    end
    object q5: TCheckBox
      Left = 160
      Top = 56
      Width = 33
      Height = 17
      Caption = '21'
      TabOrder = 22
      OnClick = q1Click
    end
    object q6: TCheckBox
      Left = 192
      Top = 56
      Width = 33
      Height = 17
      Caption = '22'
      TabOrder = 23
      OnClick = q1Click
    end
    object q7: TCheckBox
      Left = 224
      Top = 56
      Width = 33
      Height = 17
      Caption = '23'
      TabOrder = 24
      OnClick = q1Click
    end
    object q8: TCheckBox
      Left = 256
      Top = 56
      Width = 33
      Height = 17
      Caption = '24'
      TabOrder = 25
      OnClick = q1Click
    end
    object Panel2: TPanel
      Left = 49
      Top = 77
      Width = 90
      Height = 33
      AutoSize = True
      BevelOuter = bvLowered
      Caption = 'Panel2'
      TabOrder = 26
      object Image1: TImage
        Left = 1
        Top = 1
        Width = 88
        Height = 31
        Cursor = crHandPoint
        Hint = '('#28857#20987#35775#38382')'#26032#29256#26412#21644#26356#22810#30456#20851#36164#26009#35831#35775#38382'http://www.cdle.net'
        AutoSize = True
        ParentShowHint = False
        Picture.Data = {
          0A544A504547496D6167653E080000FFD8FFE000104A46494600010200000100
          010000FFE100E645786966000049492A00080000000500120103000100000001
          000000310102001C0000004A0000003201020014000000660000001302030001
          0000000100000069870400010000007A00000000000000414344205379737465
          6D73204469676974616C20496D6167696E6700323030343A30333A3135203131
          3A33303A35300005000090070004000000303232309092020004000000373033
          0002A00400010000005800000003A00400010000001F00000005A00400010000
          00BC000000000000000200010002000400000052393800020007000400000030
          3130300000000000000000FFC0001108001F005803012200021101031101FFDB
          00840008050607060508070607090808090C140D0C0B0B0C1811120E141D191E
          1E1C191C1B20242E2720222B221B1C2836282B2F313334331F26383C38323C2E
          323331010C0D0D120F12231313234A312A314A4A4A4A4A4A4A4A4A4A4A4A4A4A
          4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A
          4A4A4A4AFFC40085000100020301010000000000000000000005040601030700
          0210000202020103030301050900000000000102030405111200062107133114
          22411532335161711623255254627281F0010002030101000000000000000000
          0000000201030604051100010401030403010000000000000000010002031104
          14529105214151313271C1FFDA000C03010002110311003F00BB77059ADDBFD8
          D0E6970E32969E658443F52D1348CF21450BA07677AF1E3C6FAABE5BB8B2D8A8
          F2F158EDBA924F889E9A59921F7DA3512A0E6A01705D8B9409AFC483901A27A9
          BEAD55B76FD37EDC8A9C535863998F7043197693F7BA1A1FFB7AEB9AD2EDDBAB
          829A09FB7BBB4DDF6A068CAD5E28B0283EFAB82BA249E5C09048E31688E2475C
          18D8D0BA1612C1743C0F4A0014BB6652E62E8CD03498CA75EB19624B0D6F2823
          9220EA095F6D4B1320275C7F3A3A3F9E85EC0EE9C1E72DC98FCD54F66FCF6ED2
          524AF5ECAAC90C201F2493F7EB91D7F2D6812012B36B99C2E74775E0FB51D2A6
          3A950A98E8EC7896485B8968447A67331694AF2F057DB3E5B641F8F4EB1992C7
          77D61B1F95A93C0FDB98FB567276E5004265B079F870483A5651F8F28DF807AB
          F4B06C1C04504DDDCED14F5331D81AF8C718A9B1ED6E76969DC16B902E0055F0
          40DAAF92A7F237F1D3BDBB630DDDB808B2FDAD8BFA885E568D96F4F2D6E257E7
          442B72FC7C78FE7B04742C77A7A99DCF7A9B92C7641B1C95571F8D8161D4DF4E
          0EDA768D88654671B1F0DC589200F3D4EF47DECF6DFA5D81AD77139269E559A5
          648A0E4501958AF21B1ADA904746960D83808A0B46067B5DCD359186C0636B47
          8BCABD0BE6D642662E13F6FDAE29F3E4105BF87C79D827BEFB8D7B7F3F9DAD43
          194A6A587C6C53C8D234A64362570B1C7E1C783C94FC7C03E7C8E93EC8B197ED
          587B8A59FB5F316DF279E9EE431C31A03EC3F1D3925800740FDBF3BD0FE24147
          0B59BD51F5026B15A4B26BE3A3B30C92869384A613A65DF8D8059575F00687C1
          E8D2C1B0701141258EEE9EDDFECEC998C9E267152BE3E2B735A81DB81776E223
          58CB7B836DE159942B698EC01B31E6EE3A15B2AF6A7C521C42D28D9E947373C9
          4565C82A86257DE8A9F8201F04EF40F5EF45B0670DD9D5BBA646ADBB38F31880
          63D639010FF693322991836813B0DF823C003AA7CBDA576BE62FE2B9DDC8632F
          E31A7B566D24CC93DB0EDC7DC9520123F13A709F2481F779D746960D83808A0B
          AA47053BDD9DFAB7E8B731168801AB5B2C248DB9853E37E47CE8FE468E8740F5
          62C54AF37A5340CC2D8992AC31CBF56AE25F71594372E601DEC1F3AD7F0F1AEA
          BBD673AAC6C8E60182BB78FD291DF29DC7C7904C746E9DDD5F170FB524E2BCB5
          A26291A369DF931078824127E0721D4845C9C96A3AA9DFF4DAC48014885480BB
          02A586872D9DA82DFD013D0395831B97C7622BDA7B304942673318D030B15DF6
          2580FDC34AE38EFF00E23A88985C2C7DB6B8B4B79159D2E0B0B7022875409EC8
          8B41FE3E9FFBAF9FF76BF1D7B78D998CD858D73E8D04C0AB4AFEA4D2578D7D40
          A65ED2A3C0A2AC1B955C3142A397DC182B11AF9E275F07AD95ABE62D346B57BE
          ABCE655678C474A16E6AAC1588D1F2031009FC1207550FD1312982BF420B76E3
          9E4B69631D6BE9D59B1CB13F3863405FC842D279D8D8723ADB4F1F470B065076
          BDFB38A9ECAC715090D449C63E20FCE4450EFF0077376909DEBF687F94757EBB
          12BEE8B5619E7B95F28B8B9FD46C7C59072156A3D7AEB2927E0042DBD9FC78EB
          304F72C64CE32BFA8B8F96F82C0D54AF5DA5047CFD81B7E3477E3F1D0B2BFF00
          8CCF621B55BE8AC6423BED14F8A596652BEDED56432E87EEFC1E1B5DEC791D68
          86BC6D7298BB723968D2C93642248F1A12C722ECEAA6532B0D02DA3A50481AF1
          D26BF1F78565B3DAB388B2C71DFA88EFCAA68FFA9FA383DAF9D7ED6F5F3E3E7E
          7AC62D32997491F13DFD52FAC478BB56A904A10FCE8F163A3D5422A538ECE9FB
          5E5CBA363D90889D71856546F74480B1F7C861BD8D003FAF4AE32FE428D0A956
          2CCFB220BA934AD0E3F91B108D97898CB348DB6247DFBD803A35F8FBC2825BE0
          A6C459630C530EFDAA629A6F6237FA3838BC9B23803BF2DB046879D83D435C93
          B34AABEA6E299A15679008AB6D154E989FBBC01F927AAD637B7F118FB18EB105
          DBAB257BED7AD20AE9EDDA6E6EC878973C1D4385E60F903447C6A6F6446BDAD2
          3C4D7BEB693F2DC6D49849A2C5800CD3B2A805BC8541BD0E9CE762D767A4B494
          96E4C8E3AD3D5EF8A19D8600866AF562849D16D2ED91895F3E7F9EBA2BA4E9DA
          A343B5E7C4D7123C92CF2CDEE7B2B18FBE76940D063F01B5FF005F8E8CEB3BD5
          658E59818CD8AFE94AE36BFFD9}
        ShowHint = True
        OnClick = Image1Click
      end
    end
  end
  object comm: TComm
    CommName = 'COM1'
    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 = RtsEnable
    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 = commReceiveData
    Left = 176
    Top = 16
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 248
    Top = 16
  end
end