david
2a98435b14
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@68 b6239004-a887-0f4b-9937-50029ccdca16
156 lines
3.3 KiB
Plaintext
156 lines
3.3 KiB
Plaintext
object ClientForm: TClientForm
|
|
Left = 372
|
|
Top = 277
|
|
Width = 412
|
|
Height = 373
|
|
Caption = 'RemObjects Client'
|
|
Color = clBtnFace
|
|
Constraints.MinHeight = 372
|
|
Constraints.MinWidth = 412
|
|
ParentFont = True
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Label1: TLabel
|
|
Left = 0
|
|
Top = 65
|
|
Width = 396
|
|
Height = 13
|
|
Align = alTop
|
|
Caption = 'Services discovered so far:'
|
|
end
|
|
object Splitter1: TSplitter
|
|
Left = 0
|
|
Top = 197
|
|
Width = 396
|
|
Height = 3
|
|
Cursor = crVSplit
|
|
Align = alBottom
|
|
AutoSnap = False
|
|
Beveled = True
|
|
ResizeStyle = rsUpdate
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 396
|
|
Height = 65
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object roButton: TROPoweredByRemObjectsButton
|
|
Left = 8
|
|
Top = 9
|
|
Width = 212
|
|
Height = 48
|
|
Cursor = crHandPoint
|
|
ApplicationType = atClient
|
|
end
|
|
object btUseService: TButton
|
|
Left = 232
|
|
Top = 8
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Use service'
|
|
Enabled = False
|
|
TabOrder = 0
|
|
OnClick = btUseServiceClick
|
|
end
|
|
object btServiceInfo: TButton
|
|
Left = 312
|
|
Top = 8
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Service info'
|
|
Enabled = False
|
|
TabOrder = 1
|
|
OnClick = btServiceInfoClick
|
|
end
|
|
end
|
|
object lvServices: TListView
|
|
Left = 0
|
|
Top = 78
|
|
Width = 396
|
|
Height = 119
|
|
Align = alClient
|
|
Columns = <
|
|
item
|
|
AutoSize = True
|
|
Caption = 'Service name'
|
|
end
|
|
item
|
|
AutoSize = True
|
|
Caption = 'Host name'
|
|
end
|
|
item
|
|
AutoSize = True
|
|
Caption = 'Port Number'
|
|
end>
|
|
ColumnClick = False
|
|
GridLines = True
|
|
HideSelection = False
|
|
ReadOnly = True
|
|
RowSelect = True
|
|
TabOrder = 1
|
|
ViewStyle = vsReport
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 200
|
|
Width = 396
|
|
Height = 137
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
object Label2: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 396
|
|
Height = 13
|
|
Align = alTop
|
|
Caption = 'Communication log:'
|
|
end
|
|
object edLog: TMemo
|
|
Left = 0
|
|
Top = 13
|
|
Width = 396
|
|
Height = 124
|
|
Align = alClient
|
|
ReadOnly = True
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object ROMessage: TROBinMessage
|
|
Envelopes = <>
|
|
Left = 36
|
|
Top = 8
|
|
end
|
|
object ROChannel: TROWinInetHTTPChannel
|
|
UserAgent = 'RemObjects SDK'
|
|
TargetURL = 'http://localhost:8099/BIN'
|
|
TrustInvalidCA = False
|
|
ServerLocators = <>
|
|
DispatchOptions = []
|
|
Left = 8
|
|
Top = 8
|
|
end
|
|
object RORemoteService: TRORemoteService
|
|
Message = ROMessage
|
|
Channel = ROChannel
|
|
ServiceName = 'BonjourDiscoverableService'
|
|
Left = 64
|
|
Top = 8
|
|
end
|
|
object ROZeroConfBrowser: TROZeroConfBrowser
|
|
Active = True
|
|
Domain = 'local.'
|
|
ServiceType = '_bonjourdiscoverableservice_rosdk._tcp.'
|
|
OnServiceAdded = ROZeroConfBrowserServiceAdded
|
|
OnServiceRemoved = ROZeroConfBrowserServiceRemoved
|
|
Left = 96
|
|
Top = 8
|
|
end
|
|
end
|