main.~dfm

短信收发程序

object FrmMain: TFrmMain
  Left = 243
  Top = 150
  BorderStyle = bsSingle
  Caption = 'ISMG'#30701#20449#25910#21457#31243#24207
  ClientHeight = 471
  ClientWidth = 476
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Memo1: TMemo
    Left = 6
    Top = 158
    Width = 465
    Height = 311
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 5
    Top = 0
    Width = 465
    Height = 33
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = '     '
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 11
      Width = 60
      Height = 12
      Caption = #26381#21153#22120'IP'#65306
    end
    object Label4: TLabel
      Left = 256
      Top = 34
      Width = 36
      Height = 12
      Caption = 'SPID'#65306
      Visible = False
    end
    object Label5: TLabel
      Left = 8
      Top = 34
      Width = 60
      Height = 12
      Caption = #36830#25509#23494#30721#65306
      Visible = False
    end
    object Label7: TLabel
      Left = 256
      Top = 10
      Width = 60
      Height = 12
      Caption = #30417#21548#31471#21475#65306
    end
    object eIp: TEdit
      Left = 96
      Top = 8
      Width = 105
      Height = 18
      Ctl3D = False
      Enabled = False
      ParentCtl3D = False
      TabOrder = 0
      Text = '127.0.0.1'
    end
    object eSpid: TEdit
      Left = 344
      Top = 32
      Width = 105
      Height = 18
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 1
      Text = '012345'
      Visible = False
    end
    object eShaSec: TEdit
      Left = 96
      Top = 32
      Width = 105
      Height = 18
      TabOrder = 2
      Text = '912345'
      Visible = False
    end
    object ePort: TEdit
      Left = 344
      Top = 5
      Width = 105
      Height = 18
      TabOrder = 3
      Text = '7890'
    end
  end
  object Panel2: TPanel
    Left = 5
    Top = 36
    Width = 465
    Height = 110
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 2
    object Label3: TLabel
      Left = 8
      Top = 10
      Width = 60
      Height = 12
      Caption = #30446#30340#21495#30721#65306
    end
    object Label2: TLabel
      Left = 8
      Top = 34
      Width = 60
      Height = 12
      Caption = #30701#20449#20869#23481#65306
    end
    object BtnExit: TSpeedButton
      Left = 344
      Top = 72
      Width = 105
      Height = 31
      Caption = #20851#38381#31995#32479
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB
        BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0
        BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B
        BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB
        BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E
        EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE
        EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE
        EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE
        EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE333377777777777773}
      NumGlyphs = 2
      OnClick = BtnExitClick
    end
    object bInit: TSpeedButton
      Left = 344
      Top = 8
      Width = 105
      Height = 32
      Caption = #24320#21551#26381#21153#22120
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000333300
        0000377777F3337777770FFFF099990FFFF07FFFF7FFFF7FFFF7000000999900
        00007777777777777777307703399330770337FF7F37F337FF7F300003399330
        000337777337F337777333333339933333333FFFFFF7F33FFFFF000000399300
        0000777777F7F37777770FFFF099990FFFF07FFFF7F7FF7FFFF7000000999900
        00007777777777777777307703399330770337FF7F37F337FF7F300003399330
        0003377773F7FFF77773333330000003333333333777777F3333333330FFFF03
        3333333337FFFF7F333333333000000333333333377777733333333333077033
        33333333337FF7F3333333333300003333333333337777333333}
      NumGlyphs = 2
      OnClick = bInitClick
    end
    object bSubmit: TSpeedButton
      Left = 344
      Top = 40
      Width = 105
      Height = 32
      Caption = #30701#20449#21457#36865'(MO)'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF
        77F07F773FF3333F77370FFF77FFFF77FFF07F33773FFF7733370FFFFF0000FF
        FFF07F333F77773FF3F70FFF70EEEE07F9F07F3F7733337737F70F707FFFFFF7
        97F07F7733333FFF7737007EEEE3000EE70977FFFFFF777FFF37077777307080
        77907777777737377773307EE307088809033773FF7F7FF37733337030070088
        07333337777F77377FFF33337008080809993333377F7F737777333330080088
        03333333377F77337FF333333308088809333333337373F3773F333333308080
        33933333333737F7337333333333000333393333333377733337}
      NumGlyphs = 2
      OnClick = bSubmitClick
    end
    object bTerminate: TSpeedButton
      Left = 224
      Top = 64
      Width = 105
      Height = 32
      Caption = #36830#25509#26029#24320
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000333300
        0000377777FFFF7777770FFFF099990FFFF07FFFF777777FFFF7000000333300
        00007777773333777777307703333330770337FF7F333337FF7F300003333330
        0003377773333337777333993333333399333F7FFFF3333FF7FF000000333300
        0000777777F3337777770FFFF033330FFFF07FFFF7F3337FFFF7000000333300
        00007777773333777777307703333330770337FF7F333337FF7F300003333330
        0003377773FFFFF777733393300000033933337F3777777F37F3339990FFFF09
        99333373F7FFFF7FF73333399000000993333337777777777333333333077033
        33333333337FF7F3333333333300003333333333337777333333}
      NumGlyphs = 2
      Visible = False
      OnClick = bTerminateClick
    end
    object Label6: TLabel
      Left = 184
      Top = 10
      Width = 48
      Height = 12
      Caption = 'SP'#21495#30721#65306
    end
    object eTel: TEdit
      Left = 72
      Top = 8
      Width = 89
      Height = 18
      TabOrder = 0
      Text = '13912345678'
    end
    object eSourceAdd: TEdit
      Left = 232
      Top = 8
      Width = 89
      Height = 18
      TabOrder = 1
      Text = '13901012233'
    end
    object eMsg: TMemo
      Left = 72
      Top = 32
      Width = 249
      Height = 71
      Lines.Strings = (
        #20170#22825#27668#28201'23'#25668#27663#24230#65292#21320#21518#26377#38647#38632#65281)
      ScrollBars = ssVertical
      TabOrder = 2
    end
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnClientRead = ServerSocketClientRead
    Left = 16
    Top = 96
  end
end