78 lines
1.8 KiB
Plaintext
78 lines
1.8 KiB
Plaintext
|
object ClientDataModule: TClientDataModule
|
||
|
|
OldCreateOrder = True
|
||
|
|
Left = 204
|
||
|
|
Top = 209
|
||
|
|
Height = 340
|
||
|
|
Width = 300
|
||
|
|
object Channel: TROWinInetHTTPChannel
|
||
|
|
UserAgent = 'RemObjects SDK'
|
||
|
|
TargetURL = 'http://localhost:8099/BIN'
|
||
|
|
TrustInvalidCA = False
|
||
|
|
ServerLocators = <>
|
||
|
|
DispatchOptions = []
|
||
|
|
Left = 40
|
||
|
|
Top = 8
|
||
|
|
end
|
||
|
|
object Message: TROBinMessage
|
||
|
|
Envelopes = <>
|
||
|
|
Left = 40
|
||
|
|
Top = 52
|
||
|
|
end
|
||
|
|
object RemoteService: TRORemoteService
|
||
|
|
Message = Message
|
||
|
|
Channel = Channel
|
||
|
|
ServiceName = 'DASampleService'
|
||
|
|
Left = 40
|
||
|
|
Top = 96
|
||
|
|
end
|
||
|
|
object DataStreamer: TDABin2DataStreamer
|
||
|
|
Left = 40
|
||
|
|
Top = 140
|
||
|
|
end
|
||
|
|
object RemoteDataAdapter: TDARemoteDataAdapter
|
||
|
|
DataStreamer = DataStreamer
|
||
|
|
GetSchemaCall.RemoteService = RemoteService
|
||
|
|
GetDataCall.RemoteService = RemoteService
|
||
|
|
UpdateDataCall.RemoteService = RemoteService
|
||
|
|
GetScriptsCall.RemoteService = RemoteService
|
||
|
|
RemoteService = RemoteService
|
||
|
|
Left = 40
|
||
|
|
Top = 184
|
||
|
|
end
|
||
|
|
object tblQueryResults: TDAMemDataTable
|
||
|
|
RemoteUpdatesOptions = []
|
||
|
|
Fields = <>
|
||
|
|
Params = <>
|
||
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||
|
|
RemoteDataAdapter = RemoteDataAdapter
|
||
|
|
IndexDefs = <>
|
||
|
|
Left = 128
|
||
|
|
Top = 8
|
||
|
|
end
|
||
|
|
object dsQueryResults: TDADataSource
|
||
|
|
DataSet = tblQueryResults.Dataset
|
||
|
|
DataTable = tblQueryResults
|
||
|
|
Left = 128
|
||
|
|
Top = 56
|
||
|
|
end
|
||
|
|
object drLoginRequest: TRODynamicRequest
|
||
|
|
RemoteService = RemoteService
|
||
|
|
MethodName = 'Login'
|
||
|
|
Params = <
|
||
|
|
item
|
||
|
|
Name = 'aPlatform'
|
||
|
|
DataType = rtUserDefined
|
||
|
|
Flag = fIn
|
||
|
|
TypeName = 'PlatformEnum'
|
||
|
|
Value = Null
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'aName'
|
||
|
|
DataType = rtWidestring
|
||
|
|
Flag = fIn
|
||
|
|
end>
|
||
|
|
Left = 40
|
||
|
|
Top = 232
|
||
|
|
end
|
||
|
|
end
|