Componentes.Terceros.RemObj.../internal/5.0.23.613/1/RemObjects SDK for Delphi/Samples/Async/AsyncClientMain.dfm

143 lines
2.9 KiB
Plaintext
Raw Normal View History

object AsyncClientMainForm: TAsyncClientMainForm
Left = 69
Top = 77
BorderStyle = bsDialog
Caption = 'Async Client'
ClientHeight = 268
ClientWidth = 241
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 32
Top = 11
Width = 35
Height = 13
Caption = 'Value 1'
end
object Label2: TLabel
Left = 32
Top = 35
Width = 35
Height = 13
Caption = 'Value 2'
end
object Label3: TLabel
Left = 32
Top = 59
Width = 20
Height = 13
Caption = 'Sum'
end
object Label4: TLabel
Left = 32
Top = 248
Width = 35
Height = 13
Caption = 'Status:'
end
object lbl_Status: TLabel
Left = 72
Top = 248
Width = 3
Height = 13
end
object ed_Value1: TEdit
Left = 80
Top = 8
Width = 121
Height = 21
TabOrder = 0
Text = '5'
end
object ed_Value2: TEdit
Left = 80
Top = 32
Width = 121
Height = 21
TabOrder = 1
Text = '8'
end
object CalcLiveButton: TButton
Left = 32
Top = 88
Width = 169
Height = 25
Caption = 'Calc Live (This will take 10 secs!)'
TabOrder = 2
OnClick = CalcLiveButtonClick
end
object CalcAsyncHttpButton: TButton
Left = 32
Top = 128
Width = 169
Height = 25
Caption = 'Calc Async (HTTP)'
TabOrder = 3
OnClick = CalcAsyncHttpButtonClick
end
object GetResultButton: TButton
Left = 32
Top = 213
Width = 169
Height = 25
Caption = 'Retrieve Result'
Enabled = False
TabOrder = 4
OnClick = GetResultButtonClick
end
object ed_Result: TEdit
Left = 80
Top = 56
Width = 121
Height = 21
ParentColor = True
ReadOnly = True
TabOrder = 5
end
object CheckForAnswerBytton: TButton
Left = 32
Top = 188
Width = 169
Height = 25
Caption = 'Check if Answer is Available'
Enabled = False
TabOrder = 6
OnClick = CheckForAnswerByttonClick
end
object CalcAsyncUdpButton: TButton
Left = 32
Top = 153
Width = 169
Height = 25
Caption = 'Calc Async (UDP)'
TabOrder = 7
OnClick = CalcAsyncUdpButtonClick
end
object ROBINMessage1: TROBinMessage
end
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
ServerLocators = <>
DispatchOptions = []
UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8099/bin'
Top = 32
end
object ROIndyUDPChannel1: TROIndyUDPChannel
ServerLocators = <>
DispatchOptions = []
AsyncTimeOut = 50000
Retrys = 5
IndyClient.Port = 8098
Port = 8098
Top = 64
end
end