www.pudn.com > java_delphi.rar > Unit1.dfm
object Form1: TForm1
Left = 207
Top = 332
Width = 759
Height = 655
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 8
Top = 8
Width = 137
Height = 193
BevelOuter = bvLowered
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 14
Width = 41
Height = 13
Alignment = taCenter
AutoSize = False
Caption = #20018' '#21475
end
object Label2: TLabel
Left = 6
Top = 38
Width = 49
Height = 13
Alignment = taCenter
AutoSize = False
Caption = #27874#29305#29575
end
object Label3: TLabel
Left = 6
Top = 61
Width = 49
Height = 13
Alignment = taCenter
AutoSize = False
Caption = #26657#39564#20301
end
object Label4: TLabel
Left = 6
Top = 85
Width = 49
Height = 13
Alignment = taCenter
AutoSize = False
Caption = #25968#25454#20301
end
object Label5: TLabel
Left = 6
Top = 109
Width = 49
Height = 13
Alignment = taCenter
AutoSize = False
Caption = #20572#27490#20301
end
object Shape_ComState: TShape
Left = 8
Top = 136
Width = 25
Height = 25
Brush.Color = clRed
Shape = stEllipse
end
object CB_ComNum: TComboBox
Left = 54
Top = 11
Width = 75
Height = 21
ItemHeight = 13
TabOrder = 0
Text = 'COM1'
Items.Strings = (
'COM1'
'COM2'
'COM3'
'COM4'
'COM5'
'COM6'
'COM7'
'COM8'
'COM9')
end
object CB_Baud: TComboBox
Left = 54
Top = 35
Width = 75
Height = 21
ItemHeight = 13
TabOrder = 1
Text = '9600'
Items.Strings = (
'150'
'300'
'600'
'1200'
'2400'
'4800'
'9600'
'19200'
'38400'
'57600'
'115200')
end
object CB_Parity: TComboBox
Left = 54
Top = 59
Width = 75
Height = 21
ItemHeight = 13
TabOrder = 2
Text = 'pNone'
Items.Strings = (
'pEven'
'pMark'
'pNone'
'pOdd'
'pSpace')
end
object CB_DataBits: TComboBox
Left = 54
Top = 83
Width = 75
Height = 21
ItemHeight = 13
TabOrder = 3
Text = '8'
Items.Strings = (
'5'
'6'
'7'
'8')
end
object CB_StopBits: TComboBox
Left = 54
Top = 107
Width = 75
Height = 21
ItemHeight = 13
TabOrder = 4
Text = '1'
Items.Strings = (
'1'
'2')
end
object Button2: TButton
Left = 56
Top = 136
Width = 65
Height = 25
Caption = #21442#25968#35774#23450
TabOrder = 5
OnClick = Button2Click
end
end
object Memo_Show: TRichEdit
Left = 168
Top = 8
Width = 569
Height = 153
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
HideScrollBars = False
ParentFont = False
ScrollBars = ssBoth
TabOrder = 2
end
object SendMemo: TRichEdit
Left = 168
Top = 168
Width = 569
Height = 89
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object Panel2: TPanel
Left = 8
Top = 216
Width = 153
Height = 409
BevelOuter = bvLowered
TabOrder = 4
object Label6: TLabel
Left = 24
Top = 8
Width = 96
Height = 13
Caption = #25163#26426#20449#24687#20013#24515#21495#30721
end
object Label7: TLabel
Left = 26
Top = 56
Width = 95
Height = 13
AutoSize = False
Caption = #23545#26041#25910#26426#21495#30721
end
object Label8: TLabel
Left = 24
Top = 104
Width = 65
Height = 13
AutoSize = False
Caption = #30701#20449#20869#23481
end
object Edit1: TEdit
Left = 8
Top = 29
Width = 137
Height = 21
TabOrder = 0
Text = '8613800220500'
end
object Edit2: TEdit
Left = 8
Top = 75
Width = 137
Height = 21
TabOrder = 1
Text = '13821371635'
end
object memo1: TMemo
Left = 7
Top = 124
Width = 137
Height = 229
Lines.Strings = (
'AT+CMGL=0'
'')
TabOrder = 2
end
end
object Button1: TButton
Left = 56
Top = 584
Width = 75
Height = 25
Caption = #21457#36865
TabOrder = 0
OnClick = Button1Click
end
object Button3: TButton
Left = 592
Top = 264
Width = 75
Height = 25
Caption = 'Decode_cn'
TabOrder = 5
OnClick = Button3Click
end
object Button4: TButton
Left = 184
Top = 264
Width = 75
Height = 25
Caption = #35835#30701#20449
TabOrder = 6
OnClick = Button4Click
end
object Button5: TButton
Left = 440
Top = 264
Width = 123
Height = 25
Caption = 'str_Gb2UniCode'
TabOrder = 7
OnClick = Button5Click
end
object Edit3: TEdit
Left = 176
Top = 304
Width = 497
Height = 21
TabOrder = 8
Text = 'Edit3'
end
object Button6: TButton
Left = 304
Top = 264
Width = 105
Height = 25
Caption = ' DecodeSMS7Bit'
TabOrder = 9
OnClick = Button6Click
end
object Button7: TButton
Left = 328
Top = 520
Width = 75
Height = 25
Caption = 'Button7'
TabOrder = 10
OnClick = Button7Click
end
object Edit4: TEdit
Left = 176
Top = 520
Width = 121
Height = 21
TabOrder = 11
Text = 'Edit4'
end
object Memo2: TMemo
Left = 168
Top = 552
Width = 569
Height = 65
Lines.Strings = (
'AT+CMGL=1'
'+CMGL:1,1,,490891683108200205F0240D91683128206656F92600505091918' +
'572002163982C56BBDD003199CD357EB74163982C56BBDD00E77638CD768DDF6' +
'D'
'+CMGL:2,1,,240891683108200205F0040D91683128900822F00008502131915' +
'38200044E0A7EBF'
'+CMGL:3,1,,860891683108200205F0040D91683157226225F20008501052518' +
'3200042003200300032002E00390039002E00360037002E003200330030003A0' +
'04A003500310043005200410042003A003500310043005200410042003200200' +
'03000300034'
'+CMGL:4,1,,1560891683108301505F0240D91683138653674F4000850907122' +
'9071008863D0524D90014E004E2A6708997C002C7B2C4E005C42662F4F538D34' +
'002E7B2C4E8C5C42662F51736000002E7B2C4E095C42662F6D6A6F2B002E7B2C' +
'56DB5C426E2999A8002E4E2D95F452A05C42751C871C002E795D4F6067095F00' +
'5FC376844E00523B002E5FEB4E5076844E005929002E5E735B8976844E005E74' +
'5E78798F76844E00751F002E'
'+CMGL:8,1,,240891683108200205F0040D91683128900822F00008502151028' +
'13400044E0A7EBF'
'+CMGL:9,1,,260891683108200205F0040D91683128900822F00008502151127' +
'354000662A595194E86'
'+CMGL:10,1,,780891683108200205F0240D91683128311736F5000850219122' +
'6200003A4F60597DFF0C0047004A004D004100470054004A002E006A006D0062' +
'0074006D003100320033003400350036002E003F0021201C201D300A300B'
'+CMGL:11,1,,1400891683108200245F0240EA10106223669394921085021029' +
'1520300784E3A88688BDA610F89C18D274ED86B3EFF0C672C5E024EE3529E540' +
'479CD4E0A7F51658751EDFF0C53D17968FF0C623F672CFF0C623753E3672CFF0' +
'C540479CD8D44683C8BC1FF0C4E134E1A66FF80037B49591A79CD4E1A52A1753' +
'58BDD003100330032003100320032003000390035003600385218534E'
'+CMGL:12,1,,230891683108200205F0240D91683128311736F5000050210222' +
'2383000341621B'
'+CMGL:22,1,,700891683108200205F0040D91683157226225F2000840117131' +
'9165003200390035003500390039002000200038003000300032002000200030' +
'00300038003300380020002000370033003200310034'
'+CMGL:23,1,,740891683108200205F0040D91683157226225F2000840118101' +
'900300360046003100460046004E0056002D004200500042005300550057002D' +
'004900560042003600530034002D004200570035003200300030'
'+CMGL:25,1,,360891683108100005F0240D91683163963824F0210050100221' +
'94702312C827B4487D56874890B2CCCCD1E9CC2B'
'OK')
ScrollBars = ssBoth
TabOrder = 12
end
object ProgressBar1: TProgressBar
Left = 176
Top = 336
Width = 529
Height = 25
Min = 0
Max = 100
TabOrder = 13
end
object Button8: TButton
Left = 432
Top = 520
Width = 75
Height = 25
Caption = 'Button8'
TabOrder = 14
OnClick = Button8Click
end
object Memo3: TMemo
Left = 176
Top = 376
Width = 537
Height = 129
Lines.Strings = (
'Memo3')
TabOrder = 15
end
object ComPort1: TApdComPort
InSize = 40960
TraceName = 'APRO.TRC'
LogName = 'APRO.LOG'
OnTrigger = ComPort1Trigger
Left = 152
Top = 104
end
object Timer1: TTimer
Interval = 500
OnTimer = Timer1Timer
Left = 152
Top = 56
end
object Timer2: TTimer
Enabled = False
Interval = 10000
OnTimer = Timer2Timer
Left = 696
Top = 272
end
end