| Server IP : 209.209.40.120 / Your IP : 216.73.217.112 Web Server : Microsoft-IIS/10.0 System : Windows NT NEWWWW 10.0 build 17763 (Windows Server 2019) i586 User : NEWWWW$ ( 0) PHP Version : 8.3.30 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/Program Files/SMSC client .NET/samples/delphi/SEMA/ |
Upload File : |
object fmMain: TfmMain
Left = 419
Top = 214
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'SMSC client .NET SEMA sample'
ClientHeight = 488
ClientWidth = 414
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 20
Top = 16
Width = 73
Height = 13
Caption = 'SMSC address:'
end
object Label2: TLabel
Left = 224
Top = 16
Width = 22
Height = 13
Caption = 'Port:'
end
object Shape1: TShape
Left = 16
Top = 76
Width = 380
Height = 1
Pen.Color = clAppWorkSpace
end
object Label3: TLabel
Left = 20
Top = 92
Width = 48
Height = 13
Caption = 'Originator:'
end
object Label4: TLabel
Left = 20
Top = 116
Width = 26
Height = 13
Caption = 'TON:'
end
object Label5: TLabel
Left = 188
Top = 116
Width = 21
Height = 13
Caption = 'NPI:'
end
object Shape2: TShape
Left = 16
Top = 144
Width = 380
Height = 1
Pen.Color = clAppWorkSpace
end
object Label6: TLabel
Left = 20
Top = 160
Width = 56
Height = 13
Caption = 'Destination:'
end
object Label7: TLabel
Left = 20
Top = 184
Width = 46
Height = 13
Caption = 'Message:'
end
object Label16: TLabel
Left = 20
Top = 236
Width = 51
Height = 26
Caption = 'User Data Header:'
WordWrap = True
end
object Label9: TLabel
Left = 20
Top = 276
Width = 48
Height = 13
Caption = 'Encoding:'
end
object Shape3: TShape
Left = 16
Top = 344
Width = 380
Height = 1
Pen.Color = clAppWorkSpace
end
object Label17: TLabel
Left = 20
Top = 352
Width = 48
Height = 13
Caption = 'Event log:'
end
object eHost: TEdit
Left = 100
Top = 12
Width = 117
Height = 21
TabOrder = 4
Text = '0.0.0.0'
end
object ePort: TEdit
Left = 260
Top = 12
Width = 41
Height = 21
TabOrder = 5
Text = '0'
end
object bConnect: TButton
Left = 320
Top = 12
Width = 69
Height = 23
Caption = 'Connect'
TabOrder = 0
OnClick = bConnectClick
end
object bDisconnect: TButton
Left = 320
Top = 44
Width = 69
Height = 23
Caption = 'Disconnect'
TabOrder = 1
OnClick = bDisconnectClick
end
object eOriginator: TEdit
Left = 100
Top = 88
Width = 201
Height = 21
TabOrder = 6
end
object eTON: TEdit
Left = 100
Top = 112
Width = 77
Height = 21
TabOrder = 7
Text = '1'
end
object eNPI: TEdit
Left = 220
Top = 112
Width = 81
Height = 21
TabOrder = 8
Text = '1'
end
object bInitialize: TButton
Left = 320
Top = 88
Width = 69
Height = 23
Caption = 'Initialize'
TabOrder = 2
OnClick = bInitializeClick
end
object bSubmit: TButton
Left = 320
Top = 156
Width = 69
Height = 23
Caption = 'Submit'
TabOrder = 3
OnClick = bSubmitClick
end
object eDestination: TEdit
Left = 100
Top = 156
Width = 201
Height = 21
TabOrder = 9
end
object mSubmit: TMemo
Left = 100
Top = 180
Width = 201
Height = 53
TabOrder = 10
end
object mUDH: TMemo
Left = 100
Top = 236
Width = 201
Height = 33
TabOrder = 11
end
object cEncoding: TComboBox
Left = 100
Top = 272
Width = 201
Height = 21
Style = csDropDownList
TabOrder = 12
Items.Strings = (
'7 bit encoded text'
'8 bit encoded data'
'UCS2 encoded text')
end
object cbStatusReport: TCheckBox
Left = 100
Top = 304
Width = 209
Height = 17
Caption = 'Request status report for the message'
Checked = True
State = cbChecked
TabOrder = 13
end
object cbDirectDisplay: TCheckBox
Left = 100
Top = 320
Width = 209
Height = 17
Caption = 'Direct display (Flash SMS)'
TabOrder = 14
end
object mLog: TMemo
Left = 20
Top = 368
Width = 373
Height = 101
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 15
end
object SMSCclientSEMA1: TSMSCclientSEMA
AutoConnect = False
ConnectKind = ckRunningOrNew
OnSemaTcpDisconnected = SMSCclientSEMA1TcpDisconnected
OnSemaMessageReceived = SMSCclientSEMA1SemaMessageReceived
OnSemaStatusReportReceived = SMSCclientSEMA1SemaStatusReportReceived
Left = 348
Top = 256
end
end