-
Notifications
You must be signed in to change notification settings - Fork 1
/
Unit1.dfm
177 lines (177 loc) · 3.92 KB
/
Unit1.dfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Google Vision Object Localization API '
ClientHeight = 497
ClientWidth = 490
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 16
Width = 52
Height = 13
Caption = 'Image URL'
end
object Label2: TLabel
Left = 8
Top = 61
Width = 55
Height = 13
Caption = 'maxResults'
end
object Button1: TButton
Left = 8
Top = 107
Width = 474
Height = 25
Caption = 'Send Request'
TabOrder = 0
OnClick = Button1Click
end
object Edit1: TEdit
Left = 9
Top = 31
Width = 473
Height = 21
TabOrder = 1
Text =
'https://upload.wikimedia.org/wikipedia/commons/thumb/5/53/Entard' +
'ecer_elevedor_lacerda.jpg/1280px-Entardecer_elevedor_lacerda.jpg'
end
object PageControl1: TPageControl
Left = 8
Top = 144
Width = 474
Height = 345
ActivePage = TabSheet2
TabOrder = 2
object TabSheet1: TTabSheet
Caption = 'Headers'
object Memo2: TMemo
Left = 0
Top = 0
Width = 466
Height = 317
Align = alClient
Lines.Strings = (
'')
TabOrder = 0
end
end
object TabSheet2: TTabSheet
Caption = 'Body'
ImageIndex = 1
object Memo3: TMemo
Left = 0
Top = 0
Width = 466
Height = 317
Align = alClient
Lines.Strings = (
'')
TabOrder = 0
end
end
object TabSheet3: TTabSheet
Caption = 'Tabular Data'
ImageIndex = 2
object StringGrid1: TStringGrid
Left = 0
Top = 0
Width = 466
Height = 317
Align = alClient
ColCount = 1
FixedCols = 0
RowCount = 2
TabOrder = 0
ColWidths = (
64)
ColAligments = (
0)
end
end
end
object Edit2: TEdit
Left = 8
Top = 80
Width = 474
Height = 21
TabOrder = 3
Text = '5'
end
object RESTClient1: TRESTClient
Accept = 'application/json, text/plain; q=0.9, text/html;q=0.8,'
AcceptCharset = 'UTF-8, *;q=0.8'
BaseURL = 'https://vision.googleapis.com'
Params = <>
RaiseExceptionOn500 = False
Left = 328
Top = 208
end
object RESTRequest1: TRESTRequest
AssignedValues = [rvConnectTimeout, rvReadTimeout]
Client = RESTClient1
Method = rmPOST
Params = <
item
Kind = pkREQUESTBODY
Name = 'body'
ContentType = ctAPPLICATION_JSON
end>
Resource = 'v1/images:annotate?key=AIzaSyBLSdcJ7BKTrM-0CSBHJ9u4yZCOXe'
Response = RESTResponse1
SynchronizedEvents = False
Left = 328
Top = 264
end
object RESTResponse1: TRESTResponse
ContentType = 'application/json'
Left = 328
Top = 320
end
object BindingsList1: TBindingsList
Methods = <>
OutputConverters = <>
Left = 140
Top = 221
object LinkGridToDataSourceBindSourceDB1: TLinkGridToDataSource
Category = 'Quick Bindings'
DataSource = BindSourceDB1
GridControl = StringGrid1
Columns = <>
end
end
object RESTResponseDataSetAdapter1: TRESTResponseDataSetAdapter
Dataset = FDMemTable1
FieldDefs = <>
Response = RESTResponse1
Left = 324
Top = 376
end
object FDMemTable1: TFDMemTable
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 324
Top = 432
end
object BindSourceDB1: TBindSourceDB
DataSet = FDMemTable1
ScopeMappings = <>
Left = 240
Top = 256
end
end