unit1.dfm

基于EMS的短信收发SP程序 主要实现短信的上行和下行,实际应用较高的稳定性

object Form1: TForm1
  Left = 204
  Top = 120
  Width = 690
  Height = 476
  Caption = #25163#26426#30701#20449#25910#21457#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001817000001000800AC0600001600000028000000180000002E00
    0000010008000000000084020000000000000000000000010000000000000000
    0000FFFFFF00EFEFEF00D6CAD6008C848C00CEC5CE00C5BDC500BDB5BD00EFE6
    EF00DED6DE00FFF7FF00F7EFF700E6DEE60084818400A57B9C00B198A900E6CE
    DE00988C9400B9ADB50073636B0094848C00C5B5BD00E6D6DE00AD949C00CEB5
    BD00CAADB500987377008C6B6B00CEB5B50094848400A59494009C8C8C00F7DE
    DE00AD9C9C00B5A5A500CEBDBD00BDADAD00D6C5C500C5B5B500DECECE00FAEC
    EC008C848400A59C9C009C949400948C8C00CEC5C500B5ADAD00ADA5A500C5BD
    BD00BDB5B500EFE6E600DED6D600D6CECE00FFF7F7007B080000986B6700D652
    420094524A009C5A5200E6DFDE00AD423100BD5A4A007B4A420094635A00B584
    7B00B58C8400B5290800CE422100C5422100C5310800C54A290084423100A55A
    4600DE421000B54A2900D65A3100EF8463008C5A4A00AD7B6B00C59484009873
    670094311000A54A2900DE6B4200E6886700946352009C6B5A00FB6325008C36
    1500FF845200B56B4E00FF9C7300DA5A2100B55A3100F7845200FF8C5A00CE7B
    560088635200FF733100E66B3100E6733A00FF8C5200EF885600FF732900FF8C
    4A00B55A2500FF945200EB986700FBA56F00D6BDAD00B96B3600DE946300D1C0
    B500FF882E00E6843A00DEA57B00DE7B2900FF984600D68C4E00EFB58400EFBD
    9400BD6B2100C5AD9800A59C9400E6A56300AD845A00E6C19C00A58C73007B73
    6B009C948C00C5BDB500FFF7EF00E69C4A00C5996800F3DAB900BAB5AD00DAD6
    CE00BAB58700EFEBCA009C944200CECA9000B5B54A00EFEFB500EFEFE600FFFF
    F700A9D67700C1DEA100CDE6B500ADCE900094C573006B9C520073C55A003A7B
    29008CCE840063C563007BD67B008CDE8C008CD68C00848C8400BDC5BD00F7FF
    F700EFF7EF0056C15A0084DE8C00CAF3CE009CDEA50084EF9C009CF7B5007BCE
    940025D25F00A5E6BD0080EFAD004AEF9800B5E6CE00DEFFEF00ADBDB500EFFF
    F700E6FFF700C5FFEF00DAFBF7007B9C9C00E6F7F700EFFFFF00DEEBEB00848C
    8C00949C9C00E6EFEF00CED6D600F7FFFF00EFF7F700C4C5C50063ADB50000CE
    F70019C5E6003AADC500B9F3FF0000CEFF0021B5D60008C5F70019ADD6004ED6
    FB0000C5FF0000BDF70008C5FF0021B5E60029ADD60000BDFF0000B5F70004AD
    EB0019B5EF0063BDDE0073D6F700CEE6EF0010ADEF0019ADE60019A5E60046AD
    DA0010ADF700109CE6004A94BD002994DA003A9CDE00318CCE00298CDA00318C
    D600429CE60094BDDE004A94D60073A9DA006B94B9009CA5AD00BDCEDE00EFF7
    FF003A639400BDD2EF00DEE6F70084849C00EFEFFF00C5C5CE00B5B5BD00E6E6
    EF00F7F7FF00DEDEE600F7F7F700E6E6E600DEDEDE00D6D6D600CECECE00BDBD
    BD00B5B5B500ADADAD009C9C9C00949494008C8C8C007B7B7B00FFFFFF000101
    010202BE2B2B2B2B2BFA020202F30101010101010101F3F62DFC2B312D2D2D2D
    2D11FCFD1DFBF50101010101010102F92D05F53501010101010B3B27300D2D01
    0101010101F102F7013BF408F5F5F5F5F5342D2731FB020101010101BCE20234
    F3F609F6BEBEBEBEBE2E2181FEBEEA0101010101EAD802F70B2F872422211F9E
    8013B988F2E4E1E8010101EBDDD3F33434123202320C099F1C0F170DE9DFD0C3
    0101B7E3D0C301012D180BB787702028A1B5D4E4DCD9C0D80EE5DCCFC8010101
    2E25016D58696E60857AE5DFD5C0C4D1E0DACEC7BA0101013003014F5C757565
    6BECDED5C9C4C4C6CAC4C8B8330101012D0CBD4E5C717673B4DED7CAC9C9C4C4
    CBD23B1FBE01013B2E3B8F485772928937DBD6C6C4C4C4C4C9DB1611050101F6
    24BD16525789AC8D71743A7FBFC2CDC5C1CCE72BF70101332490704267A6A9A2
    786C5D796E7D89765A7B0314F501F33126B04145849C958C8A8E96988B919262
    497ABE293201022A25013F536C997786A59AA2A9979194634482F82C2801022B
    3BF347665F94A886939DA3A39BAC8C663D052EF90101022C28BB58596585ABA4
    8AA4ADAAA7AB6F6B5A1017AF01019F2A83FA51686A5E7C93AEB1B3B293855B60
    370214F701012F2F011A364346384A69547E7E544B644C3C40350D0C01018123
    01E61A4E1B3750616156554D3948393E70F0040101011E87F0B3A1A0B6ED01BC
    B6010AB6BCF1F3BD01EEFC010101F488BE23232330061C1C2631261919EF1507
    120F9F0101010000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000}
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 8
    Width = 681
    Height = 2
  end
  object Bevel2: TBevel
    Left = 0
    Top = 8
    Width = 2
    Height = 129
  end
  object Label1: TLabel
    Left = 16
    Top = 24
    Width = 48
    Height = 13
    Caption = #29992#25143#21517#65306
  end
  object Label2: TLabel
    Left = 208
    Top = 24
    Width = 60
    Height = 13
    Caption = #26412#22320#22320#22336#65306
  end
  object Label3: TLabel
    Left = 432
    Top = 24
    Width = 96
    Height = 13
    Caption = #19994#21153#26381#21153#22120#22320#22336#65306
  end
  object Bevel3: TBevel
    Left = 0
    Top = 48
    Width = 681
    Height = 2
  end
  object Bevel4: TBevel
    Left = 192
    Top = 8
    Width = 2
    Height = 129
  end
  object Bevel5: TBevel
    Left = 416
    Top = 8
    Width = 2
    Height = 129
  end
  object Bevel6: TBevel
    Left = 680
    Top = 8
    Width = 2
    Height = 129
  end
  object Label4: TLabel
    Left = 16
    Top = 64
    Width = 36
    Height = 13
    Caption = #23494#30721#65306
  end
  object Label5: TLabel
    Left = 208
    Top = 64
    Width = 60
    Height = 13
    Caption = #26412#22320#31471#21475#65306
  end
  object Label6: TLabel
    Left = 432
    Top = 64
    Width = 96
    Height = 13
    Caption = #19994#21153#26381#21153#22120#31471#21475#65306
  end
  object Bevel7: TBevel
    Left = 0
    Top = 88
    Width = 681
    Height = 2
  end
  object Label7: TLabel
    Left = 8
    Top = 104
    Width = 48
    Height = 13
    Caption = #21457#36865#28304#65306
  end
  object Label8: TLabel
    Left = 208
    Top = 96
    Width = 60
    Height = 13
    Caption = #19994#21153#20195#30721#65306
  end
  object Bevel8: TBevel
    Left = 0
    Top = 136
    Width = 681
    Height = 2
  end
  object Label9: TLabel
    Left = 8
    Top = 152
    Width = 36
    Height = 13
    Caption = #26085#24535#65306
  end
  object EmeSmsSvr1: TEmeSmsSvr
    Left = 88
    Top = 152
    Width = 90
    Height = 20
    TabOrder = 0
    OnUserRequest = EmeSmsSvr1UserRequest
    ControlData = {
      000300004D090000110200000300032700000B0000000B00000008001E000000
      3200300032002E003100300031002E003100360035002E003800320000000300
      28230000}
  end
  object EmeSmsSender1: TEmeSmsSender
    Left = 192
    Top = 152
    Width = 90
    Height = 20
    TabOrder = 1
    ControlData = {
      000300004D0900001102000008001E0000003200300032002E00310030003100
      2E003100360035002E0038003200000003002823000008000200000000000800
      02000000000002000000080004000000200000000300000000000B0000000800
      04000000200000000800040000002000000002001E0008000200000000000200
      0000020000000200000002000000}
  end
  object Edit1: TEdit
    Left = 72
    Top = 16
    Width = 105
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 2
    Text = '09166'
  end
  object Edit2: TEdit
    Left = 280
    Top = 16
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 3
    Text = '211.140.160.79'
  end
  object Edit3: TEdit
    Left = 544
    Top = 16
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 4
    Text = '211.140.160.70'
  end
  object Edit4: TEdit
    Left = 72
    Top = 56
    Width = 105
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    PasswordChar = '*'
    TabOrder = 5
    Text = '09166'
  end
  object Edit5: TEdit
    Left = 280
    Top = 56
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 6
    Text = '10800'
  end
  object Edit6: TEdit
    Left = 544
    Top = 56
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 7
    Text = '9000'
  end
  object Edit7: TEdit
    Left = 72
    Top = 96
    Width = 105
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 8
    Text = '09166'
  end
  object Edit8: TEdit
    Left = 280
    Top = 96
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 9
    Text = '-DXSXT'
  end
  object Button1: TButton
    Left = 440
    Top = 104
    Width = 81
    Height = 25
    Caption = #19994#21153#30331#38470
    TabOrder = 10
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 568
    Top = 104
    Width = 73
    Height = 25
    Caption = #36864#20986
    TabOrder = 11
    OnClick = Button2Click
  end
  object Memo1: TMemo
    Left = 0
    Top = 176
    Width = 681
    Height = 273
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ReadOnly = True
    TabOrder = 12
  end
  object Database1: TDatabase
    AliasName = 'CMPP3'
    Connected = True
    DatabaseName = 'LS'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa'
      'PASSWORD=mobile')
    SessionName = 'Default'
    Left = 416
    Top = 144
  end
  object Query1: TQuery
    DatabaseName = 'LS'
    Left = 456
    Top = 144
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 496
    Top = 144
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 200
    OnTimer = Timer1Timer
    Left = 48
    Top = 144
  end
  object Query2: TQuery
    DatabaseName = 'LS'
    Left = 544
    Top = 144
  end
end