mainp.dfm

短信猫完整开发例子,里面包含全部的字节流码

object Form1: TForm1
  Left = 61
  Top = 141
  Width = 784
  Height = 422
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 88
    Top = 16
    Width = 48
    Height = 12
    Caption = #25163#26426#21495#30721
  end
  object nrTerminal1: TnrTerminal
    Left = 48
    Top = 127
    Width = 681
    Height = 261
    Mode = tmANSI
    Rows = 24
    Columns = 80
    CaretView = cvSquare
    Options = []
    Font.Charset = GB2312_CHARSET
    Font.Color = clYellow
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    Color = clBlack
  end
  object Button1: TButton
    Left = 336
    Top = 68
    Width = 75
    Height = 25
    Caption = #21457#36865
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object phonenum: TEdit
    Left = 144
    Top = 16
    Width = 121
    Height = 20
    TabOrder = 2
  end
  object Memo1: TMemo
    Left = 64
    Top = 42
    Width = 241
    Height = 71
    Lines.Strings = (
      #20320#22909#65292#25105#26159#26032#27979#35797#31243#24207#65281)
    TabOrder = 3
  end
  object Button2: TButton
    Left = 488
    Top = 68
    Width = 75
    Height = 25
    Caption = #35843#35797
    TabOrder = 4
    OnClick = Button2Click
  end
  object comm: TnrComm
    Active = False
    BaudRate = 9600
    Parity = pNone
    StopBits = sbOne
    ByteSize = 8
    ComPortNo = 1
    ComPort = cpCOM1
    EventListOnLine = False
    TraceStates = []
    EventChar = #0
    StreamProtocol = spNone
    BufferInSize = 4096
    BufferOutSize = 4096
    TimeoutRead = 0
    TimeoutWrite = 100
    RS485Mode = False
    Terminal = nrTerminal1
    TerminalUsage = tuBoth
    TerminalEcho = False
    Left = 32
    Top = 8
  end
end