unit1.dfm

delphi 短信下发和接收的demo 程序.可以在windows环境下调用linux提供的接口发送和接收短信

object Form1: TForm1
  Left = 480
  Top = 171
  Width = 739
  Height = 480
  Caption = 'SmsDemo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 80
    Width = 10
    Height = 13
    Caption = 'IP'
  end
  object Label2: TLabel
    Left = 217
    Top = 80
    Width = 60
    Height = 13
    Caption = #20225#19994#25509#20837#21495
    WordWrap = True
  end
  object Label3: TLabel
    Left = 435
    Top = 80
    Width = 72
    Height = 13
    Caption = #20225#19994#25509#20837#23494#30721
    WordWrap = True
  end
  object Label4: TLabel
    Left = 8
    Top = 136
    Width = 36
    Height = 26
    Caption = #25509#25910#25163#26426#21495
    WordWrap = True
  end
  object Label5: TLabel
    Left = 440
    Top = 136
    Width = 36
    Height = 26
    Caption = #30701#20449#20869#23481
    WordWrap = True
  end
  object Label6: TLabel
    Left = 8
    Top = 184
    Width = 36
    Height = 13
    Caption = #38271#21495#30721
  end
  object Label7: TLabel
    Left = 224
    Top = 136
    Width = 35
    Height = 13
    Caption = #32593#20851'ID'
  end
  object Label8: TLabel
    Left = 224
    Top = 184
    Width = 36
    Height = 26
    Caption = #21672#36153#31867#21035
    WordWrap = True
  end
  object Label9: TLabel
    Left = 8
    Top = 248
    Width = 3
    Height = 13
  end
  object Label10: TLabel
    Left = 8
    Top = 240
    Width = 55
    Height = 26
    Caption = 'mas'#26381#21153#22120#32534#21495
    WordWrap = True
  end
  object Label11: TLabel
    Left = 216
    Top = 240
    Width = 48
    Height = 26
    Caption = #20225#19994#25509#20837#24212#29992#32534#21495
    WordWrap = True
  end
  object Label12: TLabel
    Left = 448
    Top = 248
    Width = 3
    Height = 13
    WordWrap = True
  end
  object Label13: TLabel
    Left = 424
    Top = 240
    Width = 72
    Height = 26
    Caption = #31532#19977#26041#25509#20837#30340#19994#21153#31867#21035
    WordWrap = True
  end
  object Label14: TLabel
    Left = 8
    Top = 304
    Width = 59
    Height = 13
    Caption = #20869#37096#19994#21153'ID'
    WordWrap = True
  end
  object Button1: TButton
    Left = 136
    Top = 344
    Width = 75
    Height = 25
    Caption = #36830#25509'(&C)'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 256
    Top = 344
    Width = 75
    Height = 25
    Caption = #26029#24320'(&D)'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Edit1: TEdit
    Left = 68
    Top = 80
    Width = 121
    Height = 21
    TabOrder = 2
    Text = '172.16.9.47'
  end
  object Edit2: TEdit
    Left = 286
    Top = 80
    Width = 121
    Height = 21
    TabOrder = 3
    Text = '901235'
  end
  object Edit3: TEdit
    Left = 520
    Top = 80
    Width = 121
    Height = 21
    TabOrder = 4
    Text = '901235'
  end
  object Button3: TButton
    Left = 368
    Top = 344
    Width = 75
    Height = 25
    Caption = #21457#20449#24687'(&S)'
    TabOrder = 5
    OnClick = Button3Click
  end
  object Edit5: TEdit
    Left = 68
    Top = 132
    Width = 121
    Height = 21
    TabOrder = 6
    Text = '13996991738'
  end
  object Edit6: TEdit
    Left = 68
    Top = 184
    Width = 121
    Height = 21
    TabOrder = 7
    Text = '111177'
  end
  object Edit4: TEdit
    Left = 284
    Top = 136
    Width = 121
    Height = 21
    TabOrder = 8
    Text = '1'
  end
  object Edit7: TEdit
    Left = 288
    Top = 184
    Width = 121
    Height = 21
    TabOrder = 9
    Text = '02'
  end
  object Edit8: TEdit
    Left = 72
    Top = 240
    Width = 121
    Height = 21
    TabOrder = 10
    Text = 'M10JS065400000'
  end
  object Edit9: TEdit
    Left = 288
    Top = 240
    Width = 121
    Height = 21
    TabOrder = 11
    Text = '0006'
  end
  object Edit10: TEdit
    Left = 520
    Top = 240
    Width = 121
    Height = 21
    TabOrder = 12
    Text = '0001'
  end
  object Memo1: TMemo
    Left = 512
    Top = 128
    Width = 185
    Height = 89
    Lines.Strings = (
      'Memo1')
    MaxLength = 160
    TabOrder = 13
  end
  object Edit11: TEdit
    Left = 72
    Top = 296
    Width = 121
    Height = 21
    TabOrder = 14
    Text = '10'
  end
end