Skip to content

Commit 45979b6

Browse files
Cesar4DCesar4D
committed
refactor/melhorias
1 parent f5ba153 commit 45979b6

2 files changed

Lines changed: 56 additions & 22 deletions

File tree

‎Samples/FunctionCalling/Src/Main.View.dfm‎

Lines changed: 43 additions & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@ object MainView: TMainView
33
Top = 0
44
Caption = 'IA na pr'#225'tica: Function Calling/Tool Calling (chamada de fun'#231#227'o)'
55
ClientHeight = 665
6-
ClientWidth = 752
6+
ClientWidth = 931
77
Color = clBtnFace
88
Font.Charset = DEFAULT_CHARSET
99
Font.Color = clWindowText
@@ -17,7 +17,7 @@ object MainView: TMainView
1717
object Splitter1: TSplitter
1818
Left = 0
1919
Top = 321
20-
Width = 752
20+
Width = 931
2121
Height = 5
2222
Cursor = crVSplit
2323
Align = alTop
@@ -28,7 +28,7 @@ object MainView: TMainView
2828
object pnTop: TPanel
2929
Left = 0
3030
Top = 0
31-
Width = 752
31+
Width = 931
3232
Height = 65
3333
Align = alTop
3434
TabOrder = 0
@@ -131,15 +131,15 @@ object MainView: TMainView
131131
object pnBoth: TPanel
132132
Left = 0
133133
Top = 65
134-
Width = 752
134+
Width = 931
135135
Height = 256
136136
Align = alTop
137137
TabOrder = 1
138138
ExplicitWidth = 742
139139
object gBoxQuestion: TGroupBox
140140
Left = 1
141141
Top = 1
142-
Width = 750
142+
Width = 929
143143
Height = 222
144144
Align = alClient
145145
Caption = ' Prompt / question '
@@ -151,7 +151,7 @@ object MainView: TMainView
151151
object mmQuestion: TMemo
152152
Left = 3
153153
Top = 17
154-
Width = 744
154+
Width = 923
155155
Height = 101
156156
Align = alClient
157157
BorderStyle = bsNone
@@ -164,21 +164,24 @@ object MainView: TMainView
164164
object gBoxDefaultsPrompts: TGroupBox
165165
Left = 3
166166
Top = 118
167-
Width = 744
167+
Width = 923
168168
Height = 101
169169
Align = alBottom
170170
Caption = ' Defaults Prompts '
171171
TabOrder = 1
172+
ExplicitWidth = 744
172173
object pnDefaultsPrompts01: TPanel
173174
Left = 2
174175
Top = 17
175-
Width = 740
176+
Width = 919
176177
Height = 27
177178
Align = alTop
178179
BevelOuter = bvNone
179180
Padding.Bottom = 3
180181
TabOrder = 0
181-
ExplicitWidth = 730
182+
ExplicitLeft = 3
183+
ExplicitTop = 11
184+
ExplicitWidth = 1182
182185
object btnDadosCliente: TButton
183186
Left = 182
184187
Top = 0
@@ -215,7 +218,7 @@ object MainView: TMainView
215218
object pnDefaultsPrompts02: TPanel
216219
Left = 2
217220
Top = 44
218-
Width = 740
221+
Width = 919
219222
Height = 27
220223
Align = alTop
221224
BevelOuter = bvNone
@@ -257,23 +260,35 @@ object MainView: TMainView
257260
ExplicitLeft = 358
258261
ExplicitTop = -3
259262
end
260-
object btnVendasPeriodoEmailClimaisVendas: TButton
263+
object btnVendasPeriodoEmailMaisVendas: TButton
261264
Left = 546
262265
Top = 0
263266
Width = 182
264267
Height = 24
265268
Align = alLeft
266269
Caption = 'Email clientes mais vendas'
267270
TabOrder = 3
268-
OnClick = btnVendasPeriodoEmailClimaisVendasClick
271+
OnClick = btnVendasPeriodoEmailMaisVendasClick
269272
ExplicitLeft = 552
270273
ExplicitTop = -3
271274
end
275+
object btnVendasDoDiaX: TButton
276+
Left = 728
277+
Top = 0
278+
Width = 182
279+
Height = 24
280+
Align = alLeft
281+
Caption = 'Vendas do dia X'
282+
TabOrder = 4
283+
OnClick = btnVendasDoDiaXClick
284+
ExplicitLeft = 734
285+
ExplicitTop = -3
286+
end
272287
end
273288
object pnDefaultsPrompts03: TPanel
274289
Left = 2
275290
Top = 71
276-
Width = 740
291+
Width = 919
277292
Height = 27
278293
Align = alTop
279294
BevelOuter = bvNone
@@ -312,7 +327,7 @@ object MainView: TMainView
312327
object Panel1: TPanel
313328
Left = 1
314329
Top = 223
315-
Width = 750
330+
Width = 929
316331
Height = 32
317332
Align = alBottom
318333
Padding.Top = 2
@@ -330,6 +345,8 @@ object MainView: TMainView
330345
Caption = 'Execute'
331346
TabOrder = 0
332347
OnClick = btnExecuteClick
348+
ExplicitLeft = -2
349+
ExplicitTop = 1
333350
end
334351
object ProgressBar1: TProgressBar
335352
AlignWithMargins = True
@@ -353,7 +370,7 @@ object MainView: TMainView
353370
object gBoxResponse: TGroupBox
354371
Left = 0
355372
Top = 326
356-
Width = 752
373+
Width = 931
357374
Height = 339
358375
Align = alClient
359376
Caption = ' Response '
@@ -366,14 +383,24 @@ object MainView: TMainView
366383
object mmResponse: TMemo
367384
Left = 3
368385
Top = 17
369-
Width = 746
386+
Width = 925
370387
Height = 319
371388
Align = alClient
372389
BorderStyle = bsNone
373390
ScrollBars = ssVertical
374391
TabOrder = 0
375392
ExplicitLeft = 2
376393
ExplicitTop = 16
394+
ExplicitWidth = 746
395+
end
396+
object Memo1: TMemo
397+
Left = 536
398+
Top = 24
399+
Width = 225
400+
Height = 249
401+
Lines.Strings = (
402+
'Memo1')
403+
TabOrder = 1
377404
end
378405
end
379406
end

‎Samples/FunctionCalling/Src/Main.View.pas‎

Lines changed: 13 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -50,7 +50,9 @@ TMainView = class(TForm)
5050
btnAPIViaCep: TButton;
5151
btnAPIViaCepMaisInternet: TButton;
5252
btnVendasPeriodoClienteMaisVendas: TButton;
53-
btnVendasPeriodoEmailClimaisVendas: TButton;
53+
btnVendasPeriodoEmailMaisVendas: TButton;
54+
btnVendasDoDiaX: TButton;
55+
Memo1: TMemo;
5456
procedure FormCreate(Sender: TObject);
5557
procedure btnExecuteClick(Sender: TObject);
5658
procedure TMSFNCCloudAI1Executed(Sender: TObject; AResponse: TTMSFNCCloudAIResponse; AHttpStatusCode: Integer;
@@ -66,8 +68,9 @@ TMainView = class(TForm)
6668
procedure btnAPIViaCepClick(Sender: TObject);
6769
procedure btnAPIViaCepMaisInternetClick(Sender: TObject);
6870
procedure btnVendasPeriodoClienteMaisVendasClick(Sender: TObject);
69-
procedure btnVendasPeriodoEmailClimaisVendasClick(Sender: TObject);
71+
procedure btnVendasPeriodoEmailMaisVendasClick(Sender: TObject);
7072
procedure TMSFNCCloudAI1Tools3Execute(Sender: TObject; Args: TJSONObject; var Result: string);
73+
procedure btnVendasDoDiaXClick(Sender: TObject);
7174
private
7275
function GetEndereco(const ACEP: string): string;
7376
public
@@ -116,28 +119,30 @@ procedure TMainView.btnVendasPeriodoClick(Sender: TObject);
116119

117120
procedure TMainView.btnVendasPeriodoDetalhandoClick(Sender: TObject);
118121
begin
119-
cBoxIAService.ItemIndex := 0;
120122
mmQuestion.Clear;
121123
mmQuestion.Lines.Add('- Retorne os dados das vendas do periodo 01/06/2025 a 25/06/2025');
122124
mmQuestion.Lines.Add('- Mostre as 5 primeiras vendas');
123125
end;
124126

125127
procedure TMainView.btnVendasPeriodoClienteMaisVendasClick(Sender: TObject);
126128
begin
127-
cBoxIAService.ItemIndex := 0;
128129
mmQuestion.Clear;
129130
mmQuestion.Lines.Add('- Retorne os dados das vendas do periodo 01/06/2025 a 25/06/2025');
130131
mmQuestion.Lines.Add('- Liste quais clientes tem um número maior de vendas');
131132
end;
132133

133-
procedure TMainView.btnVendasPeriodoEmailClimaisVendasClick(Sender: TObject);
134+
procedure TMainView.btnVendasPeriodoEmailMaisVendasClick(Sender: TObject);
134135
begin
135-
cBoxIAService.ItemIndex := 0;
136136
mmQuestion.Clear;
137137
mmQuestion.Lines.Add('- Retorne os dados das vendas do periodo 01/06/2025 a 25/06/2025');
138138
mmQuestion.Lines.Add('- Crie um email para os 3 clientes que tem um número maior de vendas');
139139
end;
140140

141+
procedure TMainView.btnVendasDoDiaXClick(Sender: TObject);
142+
begin
143+
mmQuestion.Text := 'Vendas do dia 06/06/2025';
144+
end;
145+
141146
procedure TMainView.btnAPIViaCepClick(Sender: TObject);
142147
begin
143148
mmQuestion.Text := 'Qual é o endereço do CEP: 13098-615';
@@ -154,6 +159,7 @@ procedure TMainView.btnExecuteClick(Sender: TObject);
154159
begin
155160
TMSFNCCloudAI1.Service := TTMSFNCCloudAIService(cBoxIAService.Items.Objects[cBoxIAService.ItemIndex]);
156161

162+
mmResponse.Text := 'Processando...';
157163
TMSFNCCloudAI1.Context := mmQuestion.Lines;
158164
TMSFNCCloudAI1.Execute();
159165
ProgressBar1.State := pbsNormal;
@@ -163,6 +169,7 @@ procedure TMainView.TMSFNCCloudAI1Executed(Sender: TObject; AResponse: TTMSFNCCl
163169
AHttpResult: string);
164170
begin
165171
ProgressBar1.State := pbsPaused;
172+
166173
if AHttpStatusCode <> 200 then
167174
begin
168175
mmResponse.Lines.Text := 'HTTP error code: ' + AHttpStatusCode.ToString + sLineBreak + AHttpResult;

0 commit comments

Comments
 (0)