feature/api-cep-populacao

Author: Cesar4D

Samples/FunctionCalling/Src/Main.View.dfm

@@ -153,7 +153,7 @@ object MainView: TMainView
         Align = alClient
         BorderStyle = bsNone
         Lines.Strings = (
-          'Retorne os dados das vendas do periodo 01/06/2025 a 24/06/2025')
+          'Ol'#225' quem '#233' voc'#234' e quem '#233' o seu fabricante?')
         TabOrder = 0
         ExplicitLeft = 2
         ExplicitTop = 11
@@ -186,7 +186,7 @@ object MainView: TMainView
             Caption = 'Dados cliente'
             TabOrder = 0
             OnClick = Button3Click
-            ExplicitLeft = -6
+            ExplicitLeft = 176
             ExplicitTop = -3
           end
           object Button4: TButton
@@ -222,7 +222,7 @@ object MainView: TMainView
           BevelOuter = bvNone
           Padding.Bottom = 3
           TabOrder = 1
-          ExplicitTop = 41
+          ExplicitTop = 47
           object Button1: TButton
             Left = 0
             Top = 0
@@ -245,6 +245,30 @@ object MainView: TMainView
             ExplicitLeft = 107
             ExplicitTop = 3
           end
+          object Button6: TButton
+            Left = 364
+            Top = 0
+            Width = 182
+            Height = 21
+            Align = alLeft
+            Caption = 'API ViaCep'
+            TabOrder = 2
+            OnClick = Button6Click
+            ExplicitLeft = 370
+            ExplicitTop = 3
+          end
+          object Button7: TButton
+            Left = 546
+            Top = 0
+            Width = 182
+            Height = 21
+            Align = alLeft
+            Caption = 'API ViaCep + Internet'
+            TabOrder = 3
+            OnClick = Button7Click
+            ExplicitLeft = 552
+            ExplicitTop = 3
+          end
         end
       end
     end

Samples/FunctionCalling/Src/Main.View.pas

@@ -46,6 +46,8 @@   TMainView = class(TForm)
     Button1: TButton;
     Button2: TButton;
     Button5: TButton;
+    Button6: TButton;
+    Button7: TButton;
     procedure FormCreate(Sender: TObject);
     procedure btnExecuteClick(Sender: TObject);
     procedure TMSFNCCloudAI1Executed(Sender: TObject; AResponse: TTMSFNCCloudAIResponse; AHttpStatusCode: Integer;
@@ -59,6 +61,8 @@   TMainView = class(TForm)
     procedure Button3Click(Sender: TObject);
     procedure Button4Click(Sender: TObject);
     procedure Button5Click(Sender: TObject);
+    procedure Button6Click(Sender: TObject);
+    procedure Button7Click(Sender: TObject);
   private
     function GetEndereco(const ACEP: string): string;
   public
@@ -112,6 +116,18 @@ procedure TMainView.Button2Click(Sender: TObject);
     'Mostre as 5 primeiras vendas';
 end;
 
+procedure TMainView.Button6Click(Sender: TObject);
+begin
+  mmQuestion.Text := 'Qual é o endereço do CEP: 13098-615';
+end;
+
+procedure TMainView.Button7Click(Sender: TObject);
+begin
+  mmQuestion.Clear;
+  mmQuestion.Lines.Add('- Qual é o endereço do CEP: 13098-615.');
+  mmQuestion.Lines.Add('- Logo depois pesquise na internet quantos habitantes tem a cidade do CEP.');
+end;
+
 procedure TMainView.btnExecuteClick(Sender: TObject);
 begin
   TMSFNCCloudAI1.Service := TTMSFNCCloudAIService(cBoxIAService.Items.Objects[cBoxIAService.ItemIndex]);