david
d99a44999f
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@7 b6239004-a887-0f4b-9937-50029ccdca16
1531 lines
41 KiB
Plaintext
1531 lines
41 KiB
Plaintext
object xMethodsMainForm: TxMethodsMainForm
|
|
Left = 320
|
|
Top = 165
|
|
AutoScroll = False
|
|
Caption = 'RemObjects SDK - XMethods Client'
|
|
ClientHeight = 392
|
|
ClientWidth = 797
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
Scaled = False
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 797
|
|
Height = 392
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
BorderWidth = 5
|
|
Caption = 'Panel1'
|
|
TabOrder = 0
|
|
object pc_Pages: TPageControl
|
|
Left = 5
|
|
Top = 5
|
|
Width = 787
|
|
Height = 382
|
|
ActivePage = ts_Home
|
|
Align = alClient
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
MultiLine = True
|
|
ParentFont = False
|
|
TabIndex = 0
|
|
TabOrder = 0
|
|
object ts_Home: TTabSheet
|
|
BorderWidth = 5
|
|
Caption = 'Welcome'
|
|
ImageIndex = 9
|
|
object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
|
|
Left = 278
|
|
Top = 285
|
|
Width = 212
|
|
Height = 48
|
|
Cursor = crHandPoint
|
|
Anchors = [akLeft, akBottom]
|
|
ApplicationType = atClient
|
|
end
|
|
object ScrollBox1: TScrollBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 769
|
|
Height = 266
|
|
Align = alTop
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Color = clCream
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -15
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
765
|
|
262)
|
|
object Label34: TLabel
|
|
Left = 6
|
|
Top = 70
|
|
Width = 47
|
|
Height = 18
|
|
Caption = 'NOTE!'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -15
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label33: TLabel
|
|
Left = 6
|
|
Top = 27
|
|
Width = 747
|
|
Height = 36
|
|
Anchors = [akLeft, akTop, akRight]
|
|
AutoSize = False
|
|
Caption =
|
|
'This demo application shows how to access existing SOAP Web Serv' +
|
|
'ices using the RemObjects SDK.'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -15
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
object Label32: TLabel
|
|
Left = 6
|
|
Top = 6
|
|
Width = 299
|
|
Height = 18
|
|
Caption = 'Welcome to the XMethods Client Sample'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -15
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label35: TLabel
|
|
Left = 6
|
|
Top = 95
|
|
Width = 747
|
|
Height = 36
|
|
Anchors = [akLeft, akTop, akRight]
|
|
AutoSize = False
|
|
Caption =
|
|
'The Web Services accessed by this demo are provided by third par' +
|
|
'ties and not controlled or maintained by RemObjects Software.'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -15
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
object Label36: TLabel
|
|
Left = 6
|
|
Top = 141
|
|
Width = 747
|
|
Height = 54
|
|
Anchors = [akLeft, akTop, akRight]
|
|
AutoSize = False
|
|
Caption =
|
|
'Any of these services may become unavailable or unusable at any ' +
|
|
'time. If a service is not accessible or returns unexpected resul' +
|
|
'ts, this is not neccessarily due to a problem with RemObjects SD' +
|
|
'K.'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -15
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
object Label37: TLabel
|
|
Left = 6
|
|
Top = 222
|
|
Width = 373
|
|
Height = 18
|
|
Caption = 'Please visit the XMethods website for further information:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -15
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label38: TLabel
|
|
Left = 387
|
|
Top = 222
|
|
Width = 176
|
|
Height = 18
|
|
Cursor = crHandPoint
|
|
Caption = 'http://www.xmethods.com'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -15
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsUnderline]
|
|
ParentFont = False
|
|
OnClick = Label38Click
|
|
end
|
|
end
|
|
end
|
|
object tsQueryService: TTabSheet
|
|
BorderWidth = 5
|
|
Caption = 'XMethods Query Service'
|
|
object Label4: TLabel
|
|
Left = 7
|
|
Top = 10
|
|
Width = 23
|
|
Height = 13
|
|
Caption = 'URL:'
|
|
end
|
|
object Label22: TLabel
|
|
Left = 208
|
|
Top = 63
|
|
Width = 47
|
|
Height = 13
|
|
Alignment = taRightJustify
|
|
AutoSize = False
|
|
Caption = 'Publisher:'
|
|
end
|
|
object Label23: TLabel
|
|
Left = 202
|
|
Top = 88
|
|
Width = 53
|
|
Height = 13
|
|
Alignment = taRightJustify
|
|
AutoSize = False
|
|
Caption = 'Service ID:'
|
|
end
|
|
object eQueryService: TEdit
|
|
Left = 52
|
|
Top = 5
|
|
Width = 699
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Color = clInactiveBorder
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
Text =
|
|
'http://www.xmethods.com/ve2/ViewListing.po;jsessionid=m61LyCRL7p' +
|
|
'GYtuPs9yyNKXKU(QhxieSRM)?serviceid=25703'
|
|
OnDblClick = eBabelFishDblClick
|
|
end
|
|
object QueryServiceMemo: TMemo
|
|
Left = 0
|
|
Top = 130
|
|
Width = 769
|
|
Height = 214
|
|
Align = alBottom
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
ScrollBars = ssBoth
|
|
TabOrder = 6
|
|
end
|
|
object GetAllServiceNamesButton: TButton
|
|
Left = 7
|
|
Top = 32
|
|
Width = 163
|
|
Height = 22
|
|
Caption = 'Get list of all Services'
|
|
TabOrder = 1
|
|
OnClick = GetAllServiceNamesButtonClick
|
|
end
|
|
object GetServiceSummariesByPublisherButton: TButton
|
|
Left = 7
|
|
Top = 58
|
|
Width = 163
|
|
Height = 22
|
|
Caption = 'Get Services by Publisher'
|
|
TabOrder = 2
|
|
OnClick = GetAllServiceNamesButtonClick
|
|
end
|
|
object ePublisher: TEdit
|
|
Left = 261
|
|
Top = 59
|
|
Width = 488
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 3
|
|
Text = 'xmethods.net'
|
|
end
|
|
object GetServiceDetailButton: TButton
|
|
Left = 7
|
|
Top = 83
|
|
Width = 163
|
|
Height = 22
|
|
Caption = 'Get Service Details'
|
|
TabOrder = 4
|
|
OnClick = GetAllServiceNamesButtonClick
|
|
end
|
|
object eServiceID: TEdit
|
|
Left = 261
|
|
Top = 84
|
|
Width = 488
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 5
|
|
Text = 'uuid:A29C0D6C-5529-0D27-A91A-8E02D343532B'
|
|
end
|
|
end
|
|
object tsFedexTracker: TTabSheet
|
|
BorderWidth = 5
|
|
Caption = 'FedEx Tracker'
|
|
ImageIndex = 2
|
|
object Label6: TLabel
|
|
Left = 7
|
|
Top = 10
|
|
Width = 23
|
|
Height = 13
|
|
Caption = 'URL:'
|
|
end
|
|
object Label20: TLabel
|
|
Left = 7
|
|
Top = 130
|
|
Width = 55
|
|
Height = 13
|
|
Caption = 'Tracking #:'
|
|
end
|
|
object Label21: TLabel
|
|
Left = 7
|
|
Top = 209
|
|
Width = 51
|
|
Height = 13
|
|
Caption = 'Response:'
|
|
end
|
|
object Bevel3: TBevel
|
|
Left = 165
|
|
Top = 165
|
|
Width = 589
|
|
Height = 3
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Shape = bsTopLine
|
|
end
|
|
object Label45: TLabel
|
|
Left = 7
|
|
Top = 185
|
|
Width = 46
|
|
Height = 16
|
|
Caption = 'Result:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label46: TLabel
|
|
Left = 7
|
|
Top = 105
|
|
Width = 80
|
|
Height = 16
|
|
Caption = 'Run Sample:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label47: TLabel
|
|
Left = 7
|
|
Top = 34
|
|
Width = 701
|
|
Height = 34
|
|
Anchors = [akLeft, akTop, akRight]
|
|
AutoSize = False
|
|
Caption =
|
|
'Checks tracking information for shipments via Federal Express (F' +
|
|
'edEx).'
|
|
WordWrap = True
|
|
end
|
|
object Label48: TLabel
|
|
Left = 7
|
|
Top = 75
|
|
Width = 216
|
|
Height = 13
|
|
Caption = 'Visit the FedEx website for more information:'
|
|
end
|
|
object Label49: TLabel
|
|
Left = 233
|
|
Top = 75
|
|
Width = 111
|
|
Height = 13
|
|
Cursor = crHandPoint
|
|
Caption = 'http://www.fedex.com'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsUnderline]
|
|
ParentFont = False
|
|
OnClick = Label38Click
|
|
end
|
|
object eFedex: TEdit
|
|
Left = 52
|
|
Top = 5
|
|
Width = 699
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Color = clInactiveBorder
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
Text =
|
|
'http://www.xmethods.com/ve2/ViewListing.po;jsessionid=m61LyCRL7p' +
|
|
'GYtuPs9yyNKXKU(QhxieSRM)?serviceid=15'
|
|
OnDblClick = eBabelFishDblClick
|
|
end
|
|
object FedexMemo: TMemo
|
|
Left = 0
|
|
Top = 236
|
|
Width = 769
|
|
Height = 108
|
|
Align = alBottom
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Color = clBtnFace
|
|
ReadOnly = True
|
|
ScrollBars = ssBoth
|
|
TabOrder = 3
|
|
end
|
|
object eTrackingID: TEdit
|
|
Left = 120
|
|
Top = 126
|
|
Width = 100
|
|
Height = 21
|
|
TabOrder = 1
|
|
end
|
|
object GetTrackingStatusButton: TButton
|
|
Left = 7
|
|
Top = 155
|
|
Width = 150
|
|
Height = 22
|
|
Caption = 'Get Tracking Status'
|
|
TabOrder = 2
|
|
OnClick = GetTrackingStatusButtonClick
|
|
end
|
|
end
|
|
object tsEbay: TTabSheet
|
|
BorderWidth = 5
|
|
Caption = 'ebay Price Watcher'
|
|
ImageIndex = 3
|
|
object Label7: TLabel
|
|
Left = 7
|
|
Top = 10
|
|
Width = 23
|
|
Height = 13
|
|
Caption = 'URL:'
|
|
end
|
|
object Label31: TLabel
|
|
Left = 254
|
|
Top = 75
|
|
Width = 107
|
|
Height = 13
|
|
Cursor = crHandPoint
|
|
Caption = 'http://www.ebay.com'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsUnderline]
|
|
ParentFont = False
|
|
OnClick = Label38Click
|
|
end
|
|
object Label39: TLabel
|
|
Left = 7
|
|
Top = 75
|
|
Width = 237
|
|
Height = 13
|
|
Caption = 'Visit the ebay website to find a current auction at'
|
|
end
|
|
object Label14: TLabel
|
|
Left = 7
|
|
Top = 105
|
|
Width = 80
|
|
Height = 16
|
|
Caption = 'Run Sample:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label42: TLabel
|
|
Left = 7
|
|
Top = 185
|
|
Width = 46
|
|
Height = 16
|
|
Caption = 'Result:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label16: TLabel
|
|
Left = 7
|
|
Top = 130
|
|
Width = 33
|
|
Height = 13
|
|
Caption = 'Item #'
|
|
end
|
|
object Label17: TLabel
|
|
Left = 7
|
|
Top = 210
|
|
Width = 91
|
|
Height = 13
|
|
Caption = 'Auction Value, US$'
|
|
ShowAccelChar = False
|
|
end
|
|
object Label13: TLabel
|
|
Left = 7
|
|
Top = 34
|
|
Width = 729
|
|
Height = 34
|
|
Anchors = [akLeft, akTop, akRight]
|
|
AutoSize = False
|
|
Caption =
|
|
'Checks the current price of ebay auctions. Note that this WebSer' +
|
|
'vice seems to only handle Auction IDs from ebay.com, and not fro' +
|
|
'm the national subsites such as ebay.de etc.'
|
|
WordWrap = True
|
|
end
|
|
object Bevel1: TBevel
|
|
Left = 165
|
|
Top = 165
|
|
Width = 579
|
|
Height = 3
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Shape = bsTopLine
|
|
end
|
|
object eeBay: TEdit
|
|
Left = 52
|
|
Top = 5
|
|
Width = 699
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Color = clInactiveBorder
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
Text =
|
|
'http://www.xmethods.com/ve2/ViewListing.po;jsessionid=aW-BdLWQ0z' +
|
|
'GoqAXbmBSObRDy(QhxieSRM)?serviceid=1'
|
|
OnDblClick = eBabelFishDblClick
|
|
end
|
|
object GetCurrentPriceButton: TButton
|
|
Left = 7
|
|
Top = 155
|
|
Width = 150
|
|
Height = 22
|
|
Caption = 'Get Current Price'
|
|
TabOrder = 2
|
|
OnClick = GetCurrentPriceButtonClick
|
|
end
|
|
object eAuctionValue: TEdit
|
|
Left = 120
|
|
Top = 206
|
|
Width = 100
|
|
Height = 21
|
|
Color = clBtnFace
|
|
ReadOnly = True
|
|
TabOrder = 3
|
|
end
|
|
object eAuctionID: TEdit
|
|
Left = 120
|
|
Top = 126
|
|
Width = 100
|
|
Height = 21
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object tsBarnsAndNoblePrice: TTabSheet
|
|
BorderWidth = 5
|
|
Caption = 'Barnes && Noble Price'
|
|
ImageIndex = 7
|
|
object Label11: TLabel
|
|
Left = 7
|
|
Top = 10
|
|
Width = 23
|
|
Height = 13
|
|
Caption = 'URL:'
|
|
end
|
|
object Label55: TLabel
|
|
Left = 7
|
|
Top = 210
|
|
Width = 49
|
|
Height = 13
|
|
Caption = 'Price, US$'
|
|
ShowAccelChar = False
|
|
end
|
|
object Label56: TLabel
|
|
Left = 7
|
|
Top = 185
|
|
Width = 46
|
|
Height = 16
|
|
Caption = 'Result:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label57: TLabel
|
|
Left = 7
|
|
Top = 130
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'ISBN:'
|
|
end
|
|
object Label58: TLabel
|
|
Left = 7
|
|
Top = 105
|
|
Width = 80
|
|
Height = 16
|
|
Caption = 'Run Sample:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label59: TLabel
|
|
Left = 7
|
|
Top = 75
|
|
Width = 278
|
|
Height = 13
|
|
Caption = 'For more information, visit the Barnes & Noble website at:'
|
|
ShowAccelChar = False
|
|
end
|
|
object Label61: TLabel
|
|
Left = 303
|
|
Top = 75
|
|
Width = 160
|
|
Height = 13
|
|
Cursor = crHandPoint
|
|
Caption = 'http://www.barnesandnoble.com'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsUnderline]
|
|
ParentFont = False
|
|
OnClick = Label38Click
|
|
end
|
|
object Label30: TLabel
|
|
Left = 7
|
|
Top = 34
|
|
Width = 728
|
|
Height = 34
|
|
Anchors = [akLeft, akTop, akRight]
|
|
AutoSize = False
|
|
Caption =
|
|
'Checks for book prices via ISBN number, at Barnes & Noble online' +
|
|
' book store'
|
|
ShowAccelChar = False
|
|
WordWrap = True
|
|
end
|
|
object Bevel8: TBevel
|
|
Left = 165
|
|
Top = 165
|
|
Width = 579
|
|
Height = 3
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Shape = bsTopLine
|
|
end
|
|
object eBarns: TEdit
|
|
Left = 52
|
|
Top = 5
|
|
Width = 699
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Color = clInactiveBorder
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
Text =
|
|
'http://www.xmethods.com/ve2/ViewListing.po;jsessionid=HMVVAFY6kZ' +
|
|
'JLuYa1v1M-fWbv(QhxieSRM)?serviceid=7'
|
|
OnDblClick = eBabelFishDblClick
|
|
end
|
|
object eISBN: TEdit
|
|
Left = 120
|
|
Top = 126
|
|
Width = 100
|
|
Height = 21
|
|
TabOrder = 1
|
|
Text = '0735614067'
|
|
end
|
|
object GetPriceButton: TButton
|
|
Left = 7
|
|
Top = 155
|
|
Width = 150
|
|
Height = 22
|
|
Caption = 'GetPrice'
|
|
TabOrder = 2
|
|
OnClick = GetPriceButtonClick
|
|
end
|
|
object ePrice: TEdit
|
|
Left = 120
|
|
Top = 206
|
|
Width = 100
|
|
Height = 21
|
|
Color = clBtnFace
|
|
ReadOnly = True
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object ts_DomainChecker: TTabSheet
|
|
BorderWidth = 5
|
|
Caption = 'Domain Checker'
|
|
ImageIndex = 4
|
|
TabVisible = False
|
|
object Label8: TLabel
|
|
Left = 0
|
|
Top = 9
|
|
Width = 67
|
|
Height = 17
|
|
Alignment = taRightJustify
|
|
AutoSize = False
|
|
Caption = 'URL:'
|
|
end
|
|
object Label15: TLabel
|
|
Left = 10
|
|
Top = 293
|
|
Width = 90
|
|
Height = 13
|
|
Caption = 'Domain availabilty:'
|
|
end
|
|
object Label40: TLabel
|
|
Left = 10
|
|
Top = 52
|
|
Width = 163
|
|
Height = 26
|
|
Caption = 'Checks the availability of internet domains.'
|
|
WordWrap = True
|
|
end
|
|
object Label41: TLabel
|
|
Left = 10
|
|
Top = 157
|
|
Width = 66
|
|
Height = 17
|
|
AutoSize = False
|
|
Caption = 'Domain:'
|
|
end
|
|
object Bevel2: TBevel
|
|
Left = 126
|
|
Top = 230
|
|
Width = 587
|
|
Height = 3
|
|
Shape = bsTopLine
|
|
end
|
|
object Label43: TLabel
|
|
Left = 10
|
|
Top = 126
|
|
Width = 93
|
|
Height = 18
|
|
Caption = 'Run Sample:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -15
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label44: TLabel
|
|
Left = 10
|
|
Top = 262
|
|
Width = 53
|
|
Height = 18
|
|
Caption = 'Result:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -15
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object eDomainChecker: TEdit
|
|
Left = 73
|
|
Top = 5
|
|
Width = 644
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Color = clInactiveBorder
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
Text =
|
|
'http://www.xmethods.com/ve2/ViewListing.po;jsessionid=4oRAKEJuXk' +
|
|
'32Uqwgu6y7r0yk(QhxieSRM)?serviceid=6'
|
|
OnDblClick = eBabelFishDblClick
|
|
end
|
|
object eDomain: TEdit
|
|
Left = 136
|
|
Top = 153
|
|
Width = 218
|
|
Height = 21
|
|
TabOrder = 1
|
|
Text = 'http://www.remobjects.com'
|
|
end
|
|
object CheckDomainButton: TButton
|
|
Left = 10
|
|
Top = 216
|
|
Width = 109
|
|
Height = 32
|
|
Caption = 'Check Domain'
|
|
TabOrder = 2
|
|
OnClick = CheckDomainButtonClick
|
|
end
|
|
object eDomainAvailability: TEdit
|
|
Left = 136
|
|
Top = 289
|
|
Width = 218
|
|
Height = 21
|
|
Color = clBtnFace
|
|
ReadOnly = True
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object tsBabelFish: TTabSheet
|
|
BorderWidth = 5
|
|
Caption = 'BabelFish'
|
|
ImageIndex = 8
|
|
object Label1: TLabel
|
|
Left = 7
|
|
Top = 10
|
|
Width = 23
|
|
Height = 13
|
|
Caption = 'URL:'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 7
|
|
Top = 34
|
|
Width = 472
|
|
Height = 13
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Caption =
|
|
'Translates a piece of text between English and other European la' +
|
|
'nguages via AltaVista'#39's BabelFish'
|
|
WordWrap = True
|
|
end
|
|
object Label3: TLabel
|
|
Left = 7
|
|
Top = 75
|
|
Width = 139
|
|
Height = 13
|
|
Caption = 'Visit the BabelFish website at'
|
|
end
|
|
object Label50: TLabel
|
|
Left = 156
|
|
Top = 75
|
|
Width = 143
|
|
Height = 13
|
|
Cursor = crHandPoint
|
|
Caption = 'http://babelfish.altavista.com'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsUnderline]
|
|
ParentFont = False
|
|
OnClick = Label38Click
|
|
end
|
|
object Label51: TLabel
|
|
Left = 7
|
|
Top = 105
|
|
Width = 80
|
|
Height = 16
|
|
Caption = 'Run Sample:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label52: TLabel
|
|
Left = 7
|
|
Top = 130
|
|
Width = 26
|
|
Height = 13
|
|
Caption = 'Text:'
|
|
end
|
|
object Label53: TLabel
|
|
Left = 7
|
|
Top = 185
|
|
Width = 46
|
|
Height = 16
|
|
Caption = 'Result:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label54: TLabel
|
|
Left = 8
|
|
Top = 210
|
|
Width = 57
|
|
Height = 13
|
|
Caption = 'Translation:'
|
|
ShowAccelChar = False
|
|
end
|
|
object Bevel4: TBevel
|
|
Left = 164
|
|
Top = 165
|
|
Width = 375
|
|
Height = 3
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Shape = bsTopLine
|
|
end
|
|
object TranslateButton: TButton
|
|
Left = 7
|
|
Top = 155
|
|
Width = 150
|
|
Height = 22
|
|
Caption = 'Translate'
|
|
TabOrder = 3
|
|
OnClick = TranslateButtonClick
|
|
end
|
|
object eInput: TEdit
|
|
Left = 95
|
|
Top = 126
|
|
Width = 447
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 1
|
|
Text = 'This is a test for the BabelFish service.'
|
|
end
|
|
object eOutput: TEdit
|
|
Left = 95
|
|
Top = 206
|
|
Width = 447
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Color = clBtnFace
|
|
ReadOnly = True
|
|
TabOrder = 4
|
|
end
|
|
object rbBabelTransMode: TRadioGroup
|
|
Left = 549
|
|
Top = 96
|
|
Width = 216
|
|
Height = 222
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Translation Mode:'
|
|
TabOrder = 2
|
|
end
|
|
object eBabelFish: TEdit
|
|
Left = 52
|
|
Top = 5
|
|
Width = 709
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Color = clInactiveBorder
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
Text =
|
|
'http://www.xmethods.com/ve2/ViewListing.po;jsessionid=6xN0Okme_1' +
|
|
'8dohOFDz0Hcoi0(QhxieSRM)?serviceid=14'
|
|
OnDblClick = eBabelFishDblClick
|
|
end
|
|
end
|
|
object tsExchange: TTabSheet
|
|
BorderWidth = 5
|
|
Caption = 'Currency Exchange'
|
|
ImageIndex = 5
|
|
object Label9: TLabel
|
|
Left = 7
|
|
Top = 10
|
|
Width = 23
|
|
Height = 13
|
|
Caption = 'URL:'
|
|
end
|
|
object Label64: TLabel
|
|
Left = 7
|
|
Top = 34
|
|
Width = 757
|
|
Height = 34
|
|
Anchors = [akLeft, akTop, akRight]
|
|
AutoSize = False
|
|
Caption = 'Retrieve exchange rate to Convert between different currencies.'
|
|
WordWrap = True
|
|
end
|
|
object Label65: TLabel
|
|
Left = 7
|
|
Top = 75
|
|
Width = 80
|
|
Height = 16
|
|
Caption = 'Run Sample:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label66: TLabel
|
|
Left = 7
|
|
Top = 100
|
|
Width = 68
|
|
Height = 13
|
|
Caption = 'Convert from:'
|
|
end
|
|
object Label67: TLabel
|
|
Left = 7
|
|
Top = 160
|
|
Width = 46
|
|
Height = 16
|
|
Caption = 'Result:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label69: TLabel
|
|
Left = 329
|
|
Top = 100
|
|
Width = 14
|
|
Height = 13
|
|
Caption = 'to:'
|
|
end
|
|
object Bevel7: TBevel
|
|
Left = 165
|
|
Top = 140
|
|
Width = 599
|
|
Height = 3
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Shape = bsTopLine
|
|
end
|
|
object eExchange: TEdit
|
|
Left = 52
|
|
Top = 5
|
|
Width = 709
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Color = clInactiveBorder
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
Text =
|
|
'http://www.xmethods.com/ve2/ViewListing.po;jsessionid=4oRAKEJuXk' +
|
|
'32Uqwgu6y7r0yk(QhxieSRM)?serviceid=5'
|
|
OnDblClick = eBabelFishDblClick
|
|
end
|
|
object cbFrom: TComboBox
|
|
Left = 110
|
|
Top = 96
|
|
Width = 210
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
ItemIndex = 151
|
|
TabOrder = 1
|
|
Text = 'usa'
|
|
Items.Strings = (
|
|
'afghanistan'
|
|
'albania'
|
|
'algeria'
|
|
'andorra'
|
|
'andorra'
|
|
'angola'
|
|
'argentina'
|
|
'aruba'
|
|
'australia'
|
|
'austria'
|
|
'bahrain'
|
|
'bangladesh'
|
|
'barbados'
|
|
'belgium'
|
|
'belize'
|
|
'bermuda'
|
|
'bhutan'
|
|
'bolivian'
|
|
'botswana'
|
|
'brazil'
|
|
'england'
|
|
'united kingdom'
|
|
'uk'
|
|
'great britain'
|
|
'brunei'
|
|
'burundi'
|
|
'cambodia'
|
|
'canada'
|
|
'cape verde'
|
|
'cayman islands'
|
|
'chile'
|
|
'china'
|
|
'colombia'
|
|
'comoros'
|
|
'costa rica'
|
|
'croatia'
|
|
'cuba'
|
|
'cyprus'
|
|
'czech republic'
|
|
'denmark'
|
|
'dijibouti'
|
|
'dominican republic'
|
|
'netherlands'
|
|
'east caribbean'
|
|
'ecuador'
|
|
'egypt'
|
|
'el salvador'
|
|
'estonia'
|
|
'ethiopia'
|
|
'euro'
|
|
'falkland islands'
|
|
'fiji'
|
|
'finland'
|
|
'france'
|
|
'gambia'
|
|
'germany'
|
|
'ghana'
|
|
'gibraltar'
|
|
'greece'
|
|
'guatemala'
|
|
'guinea'
|
|
'guyana'
|
|
'haiti'
|
|
'honduras'
|
|
'hong kong'
|
|
'hungary'
|
|
'iceland'
|
|
'india'
|
|
'indonesia'
|
|
'iraq'
|
|
'ireland'
|
|
'israel'
|
|
'italy'
|
|
'jamaica'
|
|
'japan'
|
|
'jordan'
|
|
'kazakhstan'
|
|
'kenya'
|
|
'korea'
|
|
'kuwait'
|
|
'laos'
|
|
'latvia'
|
|
'lebanon'
|
|
'lesotho'
|
|
'liberia'
|
|
'libya'
|
|
'lithuania'
|
|
'luxembourg'
|
|
'macau'
|
|
'macedonia'
|
|
'malaga'
|
|
'malawi kwacha'
|
|
'malaysia'
|
|
'maldives'
|
|
'malta'
|
|
'mauritania'
|
|
'mauritius'
|
|
'mexico'
|
|
'moldova'
|
|
'mongolia'
|
|
'morocco'
|
|
'mozambique'
|
|
'myanmar'
|
|
'namibia'
|
|
'nepal'
|
|
'new Zealand'
|
|
'nicaragua'
|
|
'nigeria'
|
|
'north korea'
|
|
'norway'
|
|
'oman'
|
|
'pakistan'
|
|
'panama'
|
|
'papua new guinea'
|
|
'paraguay'
|
|
'peru'
|
|
'philippines'
|
|
'poland'
|
|
'portugal'
|
|
'qatar'
|
|
'romania'
|
|
'russia'
|
|
'samoa'
|
|
'sao tome'
|
|
'saudi arabia'
|
|
'seychelles'
|
|
'sierra leone'
|
|
'singapore'
|
|
'slovakia'
|
|
'slovenia'
|
|
'solomon islands'
|
|
'somalia'
|
|
'south africa'
|
|
'spain'
|
|
'sri lanka'
|
|
'st helena'
|
|
'sudan'
|
|
'suriname'
|
|
'swaziland'
|
|
'sweden'
|
|
'switzerland'
|
|
'syria'
|
|
'taiwan'
|
|
'tanzania'
|
|
'thailand'
|
|
'tonga'
|
|
'trinidad'
|
|
'tunisia'
|
|
'turkey'
|
|
'united states'
|
|
'us'
|
|
'usa'
|
|
'uae'
|
|
'united arib emirates'
|
|
'uganda'
|
|
'ukraine'
|
|
'uzbekistan'
|
|
'vanuatu'
|
|
'venezuela'
|
|
'vietnam'
|
|
'yemen'
|
|
'yugoslavua'
|
|
'zambia'
|
|
'zimbabwe')
|
|
end
|
|
object cbTo: TComboBox
|
|
Left = 357
|
|
Top = 96
|
|
Width = 210
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
ItemIndex = 49
|
|
TabOrder = 2
|
|
Text = 'euro'
|
|
Items.Strings = (
|
|
'afghanistan'
|
|
'albania'
|
|
'algeria'
|
|
'andorra'
|
|
'andorra'
|
|
'angola'
|
|
'argentina'
|
|
'aruba'
|
|
'australia'
|
|
'austria'
|
|
'bahrain'
|
|
'bangladesh'
|
|
'barbados'
|
|
'belgium'
|
|
'belize'
|
|
'bermuda'
|
|
'bhutan'
|
|
'bolivian'
|
|
'botswana'
|
|
'brazil'
|
|
'england'
|
|
'united kingdom'
|
|
'uk'
|
|
'great britain'
|
|
'brunei'
|
|
'burundi'
|
|
'cambodia'
|
|
'canada'
|
|
'cape verde'
|
|
'cayman islands'
|
|
'chile'
|
|
'china'
|
|
'colombia'
|
|
'comoros'
|
|
'costa rica'
|
|
'croatia'
|
|
'cuba'
|
|
'cyprus'
|
|
'czech republic'
|
|
'denmark'
|
|
'dijibouti'
|
|
'dominican republic'
|
|
'netherlands'
|
|
'east caribbean'
|
|
'ecuador'
|
|
'egypt'
|
|
'el salvador'
|
|
'estonia'
|
|
'ethiopia'
|
|
'euro'
|
|
'falkland islands'
|
|
'fiji'
|
|
'finland'
|
|
'france'
|
|
'gambia'
|
|
'germany'
|
|
'ghana'
|
|
'gibraltar'
|
|
'greece'
|
|
'guatemala'
|
|
'guinea'
|
|
'guyana'
|
|
'haiti'
|
|
'honduras'
|
|
'hong kong'
|
|
'hungary'
|
|
'iceland'
|
|
'india'
|
|
'indonesia'
|
|
'iraq'
|
|
'ireland'
|
|
'israel'
|
|
'italy'
|
|
'jamaica'
|
|
'japan'
|
|
'jordan'
|
|
'kazakhstan'
|
|
'kenya'
|
|
'korea'
|
|
'kuwait'
|
|
'laos'
|
|
'latvia'
|
|
'lebanon'
|
|
'lesotho'
|
|
'liberia'
|
|
'libya'
|
|
'lithuania'
|
|
'luxembourg'
|
|
'macau'
|
|
'macedonia'
|
|
'malaga'
|
|
'malawi kwacha'
|
|
'malaysia'
|
|
'maldives'
|
|
'malta'
|
|
'mauritania'
|
|
'mauritius'
|
|
'mexico'
|
|
'moldova'
|
|
'mongolia'
|
|
'morocco'
|
|
'mozambique'
|
|
'myanmar'
|
|
'namibia'
|
|
'nepal'
|
|
'new Zealand'
|
|
'nicaragua'
|
|
'nigeria'
|
|
'north korea'
|
|
'norway'
|
|
'oman'
|
|
'pakistan'
|
|
'panama'
|
|
'papua new guinea'
|
|
'paraguay'
|
|
'peru'
|
|
'philippines'
|
|
'poland'
|
|
'portugal'
|
|
'qatar'
|
|
'romania'
|
|
'russia'
|
|
'samoa'
|
|
'sao tome'
|
|
'saudi arabia'
|
|
'seychelles'
|
|
'sierra leone'
|
|
'singapore'
|
|
'slovakia'
|
|
'slovenia'
|
|
'solomon islands'
|
|
'somalia'
|
|
'south africa'
|
|
'spain'
|
|
'sri lanka'
|
|
'st helena'
|
|
'sudan'
|
|
'suriname'
|
|
'swaziland'
|
|
'sweden'
|
|
'switzerland'
|
|
'syria'
|
|
'taiwan'
|
|
'tanzania'
|
|
'thailand'
|
|
'tonga'
|
|
'trinidad'
|
|
'tunisia'
|
|
'turkey'
|
|
'united states'
|
|
'us'
|
|
'usa'
|
|
'uae'
|
|
'united arib emirates'
|
|
'uganda'
|
|
'ukraine'
|
|
'uzbekistan'
|
|
'vanuatu'
|
|
'venezuela'
|
|
'vietnam'
|
|
'yemen'
|
|
'yugoslavua'
|
|
'zambia'
|
|
'zimbabwe')
|
|
end
|
|
object GetRateButton: TButton
|
|
Left = 7
|
|
Top = 130
|
|
Width = 150
|
|
Height = 22
|
|
Caption = 'Get Rate'
|
|
TabOrder = 3
|
|
OnClick = GetRateButtonClick
|
|
end
|
|
object eRate: TMemo
|
|
Left = 0
|
|
Top = 185
|
|
Width = 769
|
|
Height = 159
|
|
Align = alBottom
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
ParentColor = True
|
|
ReadOnly = True
|
|
ScrollBars = ssVertical
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
object tsTraffic: TTabSheet
|
|
BorderWidth = 5
|
|
Caption = 'California Highway Traffic'
|
|
ImageIndex = 6
|
|
object Label10: TLabel
|
|
Left = 7
|
|
Top = 10
|
|
Width = 23
|
|
Height = 13
|
|
Caption = 'URL:'
|
|
end
|
|
object Label18: TLabel
|
|
Left = 7
|
|
Top = 34
|
|
Width = 732
|
|
Height = 34
|
|
Anchors = [akLeft, akTop, akRight]
|
|
AutoSize = False
|
|
Caption = 'Checks Traffic on California Highways.'
|
|
WordWrap = True
|
|
end
|
|
object Label19: TLabel
|
|
Left = 7
|
|
Top = 75
|
|
Width = 80
|
|
Height = 16
|
|
Caption = 'Run Sample:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label60: TLabel
|
|
Left = 7
|
|
Top = 100
|
|
Width = 45
|
|
Height = 13
|
|
Caption = 'Highway:'
|
|
end
|
|
object Label62: TLabel
|
|
Left = 7
|
|
Top = 160
|
|
Width = 46
|
|
Height = 16
|
|
Caption = 'Result:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Bevel6: TBevel
|
|
Left = 165
|
|
Top = 140
|
|
Width = 579
|
|
Height = 3
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Shape = bsTopLine
|
|
end
|
|
object eTraffic: TEdit
|
|
Left = 52
|
|
Top = 5
|
|
Width = 699
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Color = clInactiveBorder
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
Text =
|
|
'http://www.xmethods.com/ve2/ViewListing.po;jsessionid=4oRAKEJuXk' +
|
|
'32Uqwgu6y7r0yk(QhxieSRM)?serviceid=4'
|
|
OnDblClick = eBabelFishDblClick
|
|
end
|
|
object TrafficMemo: TMemo
|
|
Left = 0
|
|
Top = 195
|
|
Width = 769
|
|
Height = 149
|
|
Align = alBottom
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Color = clBtnFace
|
|
ReadOnly = True
|
|
ScrollBars = ssBoth
|
|
TabOrder = 3
|
|
end
|
|
object eHighway: TEdit
|
|
Left = 110
|
|
Top = 96
|
|
Width = 204
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 1
|
|
Text = '101'
|
|
end
|
|
object GetTrafficButton: TButton
|
|
Left = 7
|
|
Top = 130
|
|
Width = 150
|
|
Height = 22
|
|
Caption = 'Get Traffic'
|
|
TabOrder = 2
|
|
OnClick = GetTrafficButtonClick
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object SOAPMessage: TROSOAPMessage
|
|
SerializationOptions = [xsoWriteMultiRefArray, xsoWriteMultiRefObject]
|
|
Left = 220
|
|
Top = 307
|
|
end
|
|
object HttpChannel: TROWinInetHTTPChannel
|
|
ServerLocators = <>
|
|
DispatchOptions = []
|
|
UserAgent = 'RemObjects SDK'
|
|
Left = 248
|
|
Top = 307
|
|
end
|
|
end
|