bk/2024-06-15-0116

Author: Cesar4D

Src/AI/DelphiCopilot.AI.ChatGPT.pas

@@ -39,6 +39,7 @@ constructor TDelphiCopilotAIChatGPT.Create(const ASettings: TDelphiCopilotSettin
 
 function TDelphiCopilotAIChatGPT.GetResponse(const AQuestion: string): string;
 var
+  LQuestion: string;
   LApiUrl: string;
   LResponse: IResponse;
   LReturnValue: TJSONValue;
@@ -52,12 +53,16 @@ function TDelphiCopilotAIChatGPT.GetResponse(const AQuestion: string): string;
   Result := '';
   LApiUrl := FSettings.BaseUrlOpenAI;
 
+  TUtils.ShowMsgSynchronize(AQuestion);
+  LQuestion := AQuestion.Replace(sLineBreak, '\n', [rfReplaceAll, rfIgnoreCase]);
+  TUtils.ShowMsgSynchronize(LQuestion);
+
   LResponse := TRequest.New
     .BaseURL(LApiUrl)
     .ContentType('application/json')
     .Accept('application/json')
     .Token('Bearer ' + FSettings.ApiKeyOpenAI)
-    .AddBody(Format(API_JSON_BODY_BASE, [FSettings.ModelOpenAI, AQuestion.Trim]))
+    .AddBody(Format(API_JSON_BODY_BASE, [FSettings.ModelOpenAI, LQuestion.Trim]))
     .Post;
 
   if LResponse.StatusCode <> 200 then

Src/AI/DelphiCopilot.AI.Gemini.pas

@@ -51,10 +51,9 @@ function TDelphiCopilotAIGemini.GetResponse(const AQuestion: string): string;
 begin
   Result := '';
   LApiUrl := FSettings.BaseUrlGemini + FSettings.ModelGemini + '?key=' + FSettings.ApiKeyGemini;
-  //TUtils.ShowMsgSynchronize(LApiUrl);
 
   LResponse := TRequest.New
-    .BaseURL(LApiUrl) //API_URL - API_KEY
+    .BaseURL(LApiUrl)
     .Accept('application/json')
     .AddBody(Format(API_JSON_BODY_BASE, [AQuestion.Trim]))
     .Post;
@@ -78,7 +77,6 @@ function TDelphiCopilotAIGemini.GetResponse(const AQuestion: string): string;
       begin
         LPartsObj := LPartsArray.Items[j] as TJsonObject;
         LJsonText := LPartsObj.GetValue<string>('text');
-        //FResponse.Add(TUtils.ConfReturnAI(JsonText));
         Result := LJsonText;
       end;
     end;

Src/Test/Test.pas

@@ -2,6 +2,37 @@
 
 interface
 
+uses
+  SysUtils, Classes;
+
+type
+  // Classe Cliente
+  TCliente = class
+  private
+    FId: Integer;
+    FNome: String;
+    FTelefone: String;
+    FCidade: String;
+  public
+    // Propriedades
+    property Id: Integer read FId write FId;
+    property Nome: String read FNome write FNome;
+    property Telefone: String read FTelefone write FTelefone;
+    property Cidade: String read FCidade write FCidade;
+
+    // Construtor
+    constructor Create(const AId: Integer; const ANome: String; const ATelefone: String; const ACidade: String);
+  end;
+
 implementation
 
+// Construtor da classe Cliente
+constructor TCliente.Create(const AId: Integer; const ANome: String; const ATelefone: String; const ACidade: String);
+begin
+  FId := AId;
+  FNome := ANome;
+  FTelefone := ATelefone;
+  FCidade := ACidade;
+end;
+
 end.