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

183 lines
3.9 KiB
Plaintext

object AsyncClientMainForm: TAsyncClientMainForm
Left = 518
Top = 137
BorderStyle = bsDialog
Caption = 'Async Client'
ClientHeight = 326
ClientWidth = 241
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
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 = 308
Width = 35
Height = 13
Caption = 'Status:'
end
object lbl_Status: TLabel
Left = 72
Top = 308
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 = 22
Caption = 'Calc Live (This will take 10 secs!)'
TabOrder = 2
OnClick = CalcLiveButtonClick
end
object CalcAsyncHttpButton: TButton
Left = 32
Top = 128
Width = 169
Height = 22
Caption = 'Calc Async (Http)'
TabOrder = 3
OnClick = CalcAsyncHttpButtonClick
end
object GetResultButton: TButton
Left = 32
Top = 271
Width = 169
Height = 22
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 = 248
Width = 169
Height = 22
Caption = 'Check if Answer is Available'
Enabled = False
TabOrder = 6
OnClick = CheckForAnswerByttonClick
end
object CalcAsyncUdpButton: TButton
Left = 32
Top = 150
Width = 169
Height = 22
Caption = 'Calc Async (UDP)'
TabOrder = 7
OnClick = CalcAsyncUdpButtonClick
end
object btn_CalcAsyncEmail: TButton
Left = 32
Top = 172
Width = 169
Height = 22
Caption = 'Calc Async (Email)'
TabOrder = 8
OnClick = btn_CalcAsyncEmailClick
end
object bSetupEmailSettings: TButton
Left = 32
Top = 197
Width = 169
Height = 22
Caption = 'Setup of email settings...'
TabOrder = 9
OnClick = bSetupEmailSettingsClick
end
object ROBINMessage1: TROBinMessage
Top = 296
end
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8099/bin'
ServerLocators = <>
DispatchOptions = []
Left = 32
Top = 296
end
object ROIndyUDPChannel1: TROIndyUDPChannel
AsyncTimeOut = 50000
Retrys = 5
IndyClient.Port = 8098
Port = 8098
ServerLocators = <>
DispatchOptions = []
Left = 64
Top = 296
end
object ROEmailChannel: TROEmailChannel
Pop3ServerAddress = 'mail.elitedev.com'
SmtpServerAddress = 'mail.elitedev.com'
ServerEmail = 'testserver@remobjects.com'
ClientEmail = 'testclient@remobjects.com'
SmtpClient.Host = 'mail.elitedev.com'
Pop3Client.Host = 'mail.elitedev.com'
Pop3Client.Password = 'testclient'
Pop3Password = 'testclient'
ServerLocators = <>
DispatchOptions = []
Left = 93
Top = 295
end
object ROPostMessage: TROPostMessage
Left = 122
Top = 297
end
end