u_main.dfm

手机信息(红外线通信)delphi源码. 利用红外线通信获得手机信息

          0C0E0C0000000808080808080808080808171717171717171717171716171617
          1617081716171617161708171617161716170817161716000000191919191919
          1919191919191919191919191919191919191919191919191919191919191919
          1919191919191919191919000000141414141414141414141414141414141414
          1414141414141414141414141414141414141414141414141414141414141400
          00000B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B
          0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B00000002020202020202020202
          0210101010101010101010101110111011100210111011101110021011101110
          1110021011101100000003030303030303030303031515151515151515151515
          1615161516150315161516151615031516151615161503151615160000000F0F
          0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F
          0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0000000A0A0A0A0A0A0A0A0A0A0A0A0A0A
          0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
          0A0A0A00000007070707070707070707070E0E0E0E0E0E0E0E0E0E0E0D0E0D0E
          0D0E070E0D0E0D0E0D0E070E0D0E0D0E0D0E070E0D0E0D000000131313131313
          1313131313131313131313131313131313131313131313131313131313131313
          13131313131313131313130000000D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
          0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D00
          0000060606060606060606060609090909090909090909090109010901090609
          010901090109060901090109010906090109010000000C0C0C0C0C0C0C0C0C0C
          0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
          0C0C0C0C0C0C0C00000012121212121212121212121212121212121212121212
          1212121212121212121212121212121212121212121212121212120000000C0C
          0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
          0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000101010101010101010101010101
          0101010101010101010101010101010101010101010101010101010101010101
          0101010000000101010101010101010101010101010101010101010101010101
          01010101010101010101010101010101010101010101010000001D1D1D1D1D1D
          1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D1D
          1D1D1D1D1D1D1D1D1D1D1D000000}
        Stretch = True
      end>
    TitleBarDrawAppIcon = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    MenuBarColor = 15198183
    MenuBarHeight = 22
    RoundCorner = 0
    Version = '4.30'
    object sSB_Status: TsuiStatusBar
      Left = 0
      Top = 443
      Width = 739
      Height = 19
      Color = 15198183
      Panels = <
        item
          Width = 200
        end
        item
          Width = 200
        end
        item
          Width = 50
        end>
      UIStyle = MacOS
      PanelColor = 15198183
    end
    object LV_ViewInfo: TsuiListView
      Left = 0
      Top = 83
      Width = 739
      Height = 360
      UIStyle = MacOS
      BorderColor = 15198183
      Align = alClient
      BorderStyle = bsNone
      BorderWidth = 2
      Color = 15198183
      Columns = <
        item
          Caption = 'AT指令'
          Width = 100
        end
        item
          Caption = '手机返回信息'
          Width = 320
        end
        item
          Caption = 'AT指令说明'
          Width = 200
        end
        item
          Alignment = taCenter
          Caption = '状态'
          Width = 100
        end>
      GridLines = True
      ReadOnly = True
      RowSelect = True
      PopupMenu = PMenu
      TabOrder = 2
      ViewStyle = vsReport
    end
    object suiPanel1: TsuiPanel
      Left = 0
      Top = 23
      Width = 739
      Height = 60
      UIStyle = MacOS
      BorderColor = 8355711
      Caption = '控制按钮'
      ShowButton = True
      CaptionFontColor = clBlack
      Align = alTop
      TabOrder = 3
      Color = 15198183
      object IMage: TImage
        Left = 659
        Top = 37
        Width = 17
        Height = 17
        Transparent = True
      end
      object sB_Conn: TsuiButton
        Left = 292
        Top = 27
        Width = 80
        Height = 27
        Cursor = crHandPoint
        Caption = '联机'
        AutoSize = False
        UIStyle = MacOS
        Enabled = False
        TabOrder = 0
        Transparent = True
        ModalResult = 0
        FocusedRectMargin = 2
        Layout = blGlyphLeft
        Spacing = 4
        MouseContinuouslyDownInterval = 100
        OnClick = sB_ConnClick
        ResHandle = 0
      end
      object sB_Disconn: TsuiButton
        Left = 380
        Top = 27
        Width = 80
        Height = 27
        Cursor = crHandPoint
        Caption = '断开'
        AutoSize = False
        UIStyle = MacOS
        Enabled = False
        TabOrder = 1
        Transparent = True
        ModalResult = 0
        FocusedRectMargin = 2
        Layout = blGlyphLeft
        Spacing = 4
        MouseContinuouslyDownInterval = 100
        OnClick = sB_DisconnClick
        ResHandle = 0
      end
      object sB_Rescan: TsuiButton
        Left = 204
        Top = 27
        Width = 80
        Height = 27
        Cursor = crHandPoint
        Hint = '搜索红外线接口'
        Caption = '搜索'
        AutoSize = False
        UIStyle = MacOS
        TabOrder = 2
        Transparent = True
        ModalResult = 0
        FocusedRectMargin = 2
        Layout = blGlyphLeft
        Spacing = 4
        MouseContinuouslyDownInterval = 100
        OnClick = sB_RescanClick
        ResHandle = 0
      end
      object CB_BXTag: TCheckBox
        Left = 488
        Top = 32
        Width = 97
        Height = 17
        Caption = '是否使用并行'
        TabOrder = 3
      end
    end
  end
  object WIrSocket: TWIrCOMMSocket
    LineMode = False
    LineLimit = 65536
    LineEnd = #13#10
    LineEcho = False
    LineEdit = False
    MultiThreaded = True
    ComponentOptions = []
    OnDataAvailable = WIrSocketDataAvailable
    OnSessionClosed = WIrSocketSessionClosed
    OnSessionConnected = WIrSocketSessionConnected
    FlushTimeout = 100
    SendFlags = wsSendNormal
    LingerOnOff = wsLingerOn
    LingerTimeout = 100
    Left = 705
    Top = 48
  end
  object ImageList: TImageList
    Left = 33
    Top = 47
    Bitmap = {
      494C010106000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001002000000000000030
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000