refactor/treatments-return-ais

Author: Cesar4D

Package/DelphiAIDeveloper.dpk

@@ -57,7 +57,7 @@ contains
   DelphiAIDev.Test in '..\Src\Test\DelphiAIDev.Test.pas',
   DelphiAIDev.Settings.View in '..\Src\Settings\DelphiAIDev.Settings.View.pas' {DelphiAIDevSettingsView},
   DelphiAIDev.Settings in '..\Src\Settings\DelphiAIDev.Settings.pas',
-  DelphiAIDev.AI in '..\Src\AI\DelphiAIDev.AI.pas',
+  DelphiAIDev.AI.Facade in '..\Src\AI\DelphiAIDev.AI.Facade.pas',
   DelphiAIDev.Chat.View in '..\Src\Chat\DelphiAIDev.Chat.View.pas' {DelphiAIDevChatView},
   DelphiAIDev.Chat.ProcessResponse in '..\Src\Chat\DelphiAIDev.Chat.ProcessResponse.pas',
   DelphiAIDev.AI.Gemini in '..\Src\AI\DelphiAIDev.AI.Gemini.pas',
@@ -113,6 +113,7 @@ contains
   DelphiAIDev.IDE.NTAEditViewNotifier in '..\Src\IDE\NTAEditViewNotifier\DelphiAIDev.IDE.NTAEditViewNotifier.pas',
   DelphiAIDev.CodeCompletion.Search in '..\Src\CodeCompletion\DelphiAIDev.CodeCompletion.Search.pas',
   DelphiAIDev.Test.Client in '..\Src\Test\DelphiAIDev.Test.Client.pas',
-  DelphiAIDev.CodeCompletion.KeyTab in '..\Src\CodeCompletion\DelphiAIDev.CodeCompletion.KeyTab.pas';
+  DelphiAIDev.CodeCompletion.KeyTab in '..\Src\CodeCompletion\DelphiAIDev.CodeCompletion.KeyTab.pas',
+  DelphiAIDev.AI.Response in '..\Src\AI\DelphiAIDev.AI.Response.pas';
 
 end.

Package/DelphiAIDeveloper.dproj

@@ -154,7 +154,7 @@
             <Form>DelphiAIDevSettingsView</Form>
         </DCCReference>
         <DCCReference Include="..\Src\Settings\DelphiAIDev.Settings.pas"/>
-        <DCCReference Include="..\Src\AI\DelphiAIDev.AI.pas"/>
+        <DCCReference Include="..\Src\AI\DelphiAIDev.AI.Facade.pas"/>
         <DCCReference Include="..\Src\Chat\DelphiAIDev.Chat.View.pas">
             <Form>DelphiAIDevChatView</Form>
         </DCCReference>
@@ -229,6 +229,7 @@
         <DCCReference Include="..\Src\CodeCompletion\DelphiAIDev.CodeCompletion.Search.pas"/>
         <DCCReference Include="..\Src\Test\DelphiAIDev.Test.Client.pas"/>
         <DCCReference Include="..\Src\CodeCompletion\DelphiAIDev.CodeCompletion.KeyTab.pas"/>
+        <DCCReference Include="..\Src\AI\DelphiAIDev.AI.Response.pas"/>
         <RcItem Include="Img\c4d_Logo.bmp">
             <ResourceType>BITMAP</ResourceType>
             <ResourceId>c4d_Logo</ResourceId>

Src/AI/DelphiAIDev.AI.ChatGPT.pas

@@ -16,29 +16,25 @@ interface
   TDelphiAIDevAIChatGPT = class(TInterfacedObject, IDelphiAIDevAI)
   private
     FSettings: TDelphiAIDevSettings;
+    FResponse: IDelphiAIDevAIResponse;
   protected
-    function GetResponse(const AQuestion: string): string;
+    function GetResponse(const AQuestion: string): IDelphiAIDevAIResponse;
   public
-    class function New(const ASettings: TDelphiAIDevSettings): IDelphiAIDevAI;
-    constructor Create(const ASettings: TDelphiAIDevSettings);
+    constructor Create(const ASettings: TDelphiAIDevSettings; const AResponse: IDelphiAIDevAIResponse);
   end;
 
 implementation
 
 const
   API_JSON_BODY_BASE = '{"model": "%s", "messages": [{"role": "user", "content": "%s"}], "stream": false, "max_tokens": 2048}';
 
-class function TDelphiAIDevAIChatGPT.New(const ASettings: TDelphiAIDevSettings): IDelphiAIDevAI;
-begin
-  Result := Self.Create(ASettings);
-end;
-
-constructor TDelphiAIDevAIChatGPT.Create(const ASettings: TDelphiAIDevSettings);
+constructor TDelphiAIDevAIChatGPT.Create(const ASettings: TDelphiAIDevSettings; const AResponse: IDelphiAIDevAIResponse);
 begin
   FSettings := ASettings;
+  FResponse := AResponse;
 end;
 
-function TDelphiAIDevAIChatGPT.GetResponse(const AQuestion: string): string;
+function TDelphiAIDevAIChatGPT.GetResponse(const AQuestion: string): IDelphiAIDevAIResponse;
 var
   LResponse: IResponse;
   LJsonValueAll: TJSONValue;
@@ -48,8 +44,9 @@ function TDelphiAIDevAIChatGPT.GetResponse(const AQuestion: string): string;
   LJsonValueMessage: TJSONValue;
   LJsonObjMessage: TJSONObject;
   LItemChoices: Integer;
+  LResult: string;
 begin
-  Result := '';
+  Result := FResponse;
 
   LResponse := TRequest.New
     .BaseURL(FSettings.BaseUrlOpenAI)
@@ -59,18 +56,29 @@ function TDelphiAIDevAIChatGPT.GetResponse(const AQuestion: string): string;
     .AddBody(Format(API_JSON_BODY_BASE, [FSettings.ModelOpenAI, AQuestion]))
     .Post;
 
+  FResponse.SetStatusCode(LResponse.StatusCode);
+
   if LResponse.StatusCode <> 200 then
-    Exit('Question cannot be answered' + sLineBreak + 'Return: ' + LResponse.Content);
+  begin
+    FResponse.SetContentText('Question cannot be answered' + sLineBreak + 'Return: ' + LResponse.Content);
+    Exit;
+  end;
 
   LJsonValueAll := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(LResponse.Content), 0);
   if not(LJsonValueAll is TJSONObject) then
-    Exit('The question cannot be answered, return object not found.' + sLineBreak +
+  begin
+    FResponse.SetContentText('The question cannot be answered, return object not found.' + sLineBreak +
       'Return: ' + LResponse.Content);
+    Exit;
+  end;
 
   LJsonValueChoices := TJSONObject(LJsonValueAll).GetValue('choices');
   if not(LJsonValueChoices is TJSONArray) then
-    Exit('The question cannot be answered, choices not found.' + sLineBreak +
+  begin
+    FResponse.SetContentText('The question cannot be answered, choices not found.' + sLineBreak +
       'Return: ' + LResponse.Content);
+    Exit;
+  end;
 
   LJsonArrayChoices := LJsonValueChoices as TJSONArray;
   for LItemChoices := 0 to Pred(LJsonArrayChoices.Count) do
@@ -88,10 +96,10 @@ function TDelphiAIDevAIChatGPT.GetResponse(const AQuestion: string): string;
 
     //GET MESSAGE LIKE TJSONObject
     LJsonObjMessage := LJsonValueMessage as TJSONObject;
-    Result := Result + TJSONString(LJsonObjMessage.GetValue('content')).Value.Trim + sLineBreak;
+    LResult := LResult + TJSONString(LJsonObjMessage.GetValue('content')).Value.Trim + sLineBreak;
   end;
 
-  Result := Result.Trim;
+  FResponse.SetContentText(LResult.Trim);
 end;
 
 end.

Src/AI/DelphiAIDev.AI.Facade.pas

@@ -0,0 +1,88 @@
+unit DelphiAIDev.AI.Facade;
+
+interface
+
+uses
+  System.SysUtils,
+  System.Classes,
+  DelphiAIDev.Utils,
+  DelphiAIDev.Types,
+  DelphiAIDev.Settings,
+  DelphiAIDev.AI.Interfaces,
+  DelphiAIDev.AI.Response,
+  DelphiAIDev.AI.Gemini,
+  DelphiAIDev.AI.ChatGPT,
+  DelphiAIDev.AI.Groq,
+  DelphiAIDev.AI.Ollama;
+
+type
+  IDelphiAIDevAIResponse = DelphiAIDev.AI.Interfaces.IDelphiAIDevAIResponse;
+
+  TDelphiAIDevAIFacade = class
+  private
+    FAiUse: TC4DAiAvailable;
+    FSettings: TDelphiAIDevSettings;
+    FResponse: IDelphiAIDevAIResponse;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    function AiUse(const Value: TC4DAiAvailable): TDelphiAIDevAIFacade;
+    function ProcessSend(const AQuestion: string): TDelphiAIDevAIFacade;
+    function Response: IDelphiAIDevAIResponse;
+  end;
+
+implementation
+
+constructor TDelphiAIDevAIFacade.Create;
+begin
+  FSettings := TDelphiAIDevSettings.GetInstance;
+  FSettings.LoadData;
+  FAiUse := FSettings.AIDefault;
+  FResponse := TDelphiAIDevAIResponse.New;
+end;
+
+destructor TDelphiAIDevAIFacade.Destroy;
+begin
+  inherited;
+end;
+
+function TDelphiAIDevAIFacade.AiUse(const Value: TC4DAiAvailable): TDelphiAIDevAIFacade;
+begin
+  Result := Self;
+  FAiUse := Value;
+end;
+
+function TDelphiAIDevAIFacade.ProcessSend(const AQuestion: string): TDelphiAIDevAIFacade;
+var
+  LQuestion: string;
+  LRequest: IDelphiAIDevAI;
+begin
+  Result := Self;
+  LQuestion := TUtils.AdjustQuestionToJson(AQuestion);
+
+  if TUtils.DebugMyIsOn then
+    TUtils.AddLogDeleteFileFirst(LQuestion, 'DelphiAIDevAI_ProcessSend');
+
+  case FAiUse of
+    TC4DAiAvailable.Gemini:
+      LRequest := TDelphiAIDevAIGemini.Create(FSettings, FResponse);
+    TC4DAiAvailable.OpenAI:
+      LRequest := TDelphiAIDevAIChatGPT.Create(FSettings, FResponse);
+    TC4DAiAvailable.Groq:
+      LRequest := TDelphiAIDevAIGroq.Create(FSettings, FResponse);
+    TC4DAiAvailable.Ollama:
+      LRequest := TDelphiAIDevAIOllama.Create(FSettings, FResponse);
+  else
+    FResponse.SetContentText('Default AI not reported in Delphi AI Developer settings');
+    Exit;
+  end;
+
+  LRequest.GetResponse(LQuestion);
+end;
+
+function TDelphiAIDevAIFacade.Response: IDelphiAIDevAIResponse;
+begin
+  Result := FResponse;
+end;
+
+end.

Src/AI/DelphiAIDev.AI.Gemini.pas

@@ -10,35 +10,32 @@ interface
   DelphiAIDev.Consts,
   DelphiAIDev.Utils,
   DelphiAIDev.Settings,
-  DelphiAIDev.AI.Interfaces;
+  DelphiAIDev.AI.Interfaces,
+  DelphiAIDev.AI.Response;
 
 type
   TDelphiAIDevAIGemini = class(TInterfacedObject, IDelphiAIDevAI)
   private
     FSettings: TDelphiAIDevSettings;
+    FResponse: IDelphiAIDevAIResponse;
   protected
-    function GetResponse(const AQuestion: string): string;
+    function GetResponse(const AQuestion: string): IDelphiAIDevAIResponse;
   public
-    class function New(const ASettings: TDelphiAIDevSettings): IDelphiAIDevAI;
-    constructor Create(const ASettings: TDelphiAIDevSettings);
+    constructor Create(const ASettings: TDelphiAIDevSettings; const AResponse: IDelphiAIDevAIResponse);
   end;
 
 implementation
 
 const
   API_JSON_BODY_BASE = '{"contents": [{"parts": [ {"text": "%s"}]}]}';
 
-class function TDelphiAIDevAIGemini.New(const ASettings: TDelphiAIDevSettings): IDelphiAIDevAI;
-begin
-  Result := Self.Create(ASettings);
-end;
-
-constructor TDelphiAIDevAIGemini.Create(const ASettings: TDelphiAIDevSettings);
+constructor TDelphiAIDevAIGemini.Create(const ASettings: TDelphiAIDevSettings; const AResponse: IDelphiAIDevAIResponse);
 begin
   FSettings := ASettings;
+  FResponse := AResponse;
 end;
 
-function TDelphiAIDevAIGemini.GetResponse(const AQuestion: string): string;
+function TDelphiAIDevAIGemini.GetResponse(const AQuestion: string): IDelphiAIDevAIResponse;
 var
   LApiUrl: string;
   LResponse: IResponse;
@@ -49,23 +46,32 @@ function TDelphiAIDevAIGemini.GetResponse(const AQuestion: string): string;
   LJsonObjParts: TJsonObject;
   LItemCandidates: Integer;
   LItemParts: Integer;
+  LResult: string;
 begin
-  Result := '';
-  LApiUrl := FSettings.BaseUrlGemini + FSettings.ModelGemini + '?key=' + FSettings.ApiKeyGemini;
+  Result := FResponse;
 
+  LApiUrl := FSettings.BaseUrlGemini + FSettings.ModelGemini + '?key=' + FSettings.ApiKeyGemini;
   LResponse := TRequest.New
     .BaseURL(LApiUrl)
     .Accept(TConsts.APPLICATION_JSON)
     .AddBody(Format(API_JSON_BODY_BASE, [AQuestion]))
     .Post;
 
+  FResponse.SetStatusCode(LResponse.StatusCode);
+
   if LResponse.StatusCode <> 200 then
-    Exit('Question cannot be answered' + sLineBreak + 'Return: ' + LResponse.Content);
+  begin
+    FResponse.SetContentText('Question cannot be answered' + sLineBreak + 'Return: ' + LResponse.Content);
+    Exit;
+  end;
 
   LJsonValueAll := TJsonObject.ParseJSONValue(LResponse.Content);
   if not(LJsonValueAll is TJSONObject) then
-    Exit('The question cannot be answered, return object not found.' + sLineBreak +
+  begin
+    FResponse.SetContentText('The question cannot be answered, return object not found.' + sLineBreak +
       'Return: ' + LResponse.Content);
+    Exit;
+  end;
 
   LJsonArrayCandidates := (LJsonValueAll as TJsonObject).GetValue<TJsonArray>('candidates');
   for LItemCandidates := 0 to Pred(LJsonArrayCandidates.Count) do
@@ -75,11 +81,11 @@ function TDelphiAIDevAIGemini.GetResponse(const AQuestion: string): string;
     for LItemParts := 0 to Pred(LJsonArrayParts.Count) do
     begin
       LJsonObjParts := LJsonArrayParts.Items[LItemParts] as TJsonObject;
-      Result := Result + LJsonObjParts.GetValue<string>('text').Trim + sLineBreak;
+      LResult := LResult + LJsonObjParts.GetValue<string>('text').Trim + sLineBreak;
     end;
   end;
 
-  Result := Result.Trim;
+  FResponse.SetContentText(LResult.Trim);
 end;
 
 end.

Src/AI/DelphiAIDev.AI.Groq.pas

@@ -16,38 +16,35 @@ interface
   TDelphiAIDevAIGroq = class(TInterfacedObject, IDelphiAIDevAI)
   private
     FSettings: TDelphiAIDevSettings;
+    FResponse: IDelphiAIDevAIResponse;
   protected
-    function GetResponse(const AQuestion: string): string;
+    function GetResponse(const AQuestion: string): IDelphiAIDevAIResponse;
   public
-    class function New(const ASettings: TDelphiAIDevSettings): IDelphiAIDevAI;
-    constructor Create(const ASettings: TDelphiAIDevSettings);
+    constructor Create(const ASettings: TDelphiAIDevSettings; const AResponse: IDelphiAIDevAIResponse);
   end;
 
 implementation
 
 const
   API_JSON_BODY_BASE = '{"messages": [{"role": "user", "content": "%s"}], "model": "%s"}';
 
-class function TDelphiAIDevAIGroq.New(const ASettings: TDelphiAIDevSettings): IDelphiAIDevAI;
-begin
-  Result := Self.Create(ASettings);
-end;
-
-constructor TDelphiAIDevAIGroq.Create(const ASettings: TDelphiAIDevSettings);
+constructor TDelphiAIDevAIGroq.Create(const ASettings: TDelphiAIDevSettings; const AResponse: IDelphiAIDevAIResponse);
 begin
   FSettings := ASettings;
+  FResponse := AResponse;
 end;
 
-function TDelphiAIDevAIGroq.GetResponse(const AQuestion: string): string;
+function TDelphiAIDevAIGroq.GetResponse(const AQuestion: string): IDelphiAIDevAIResponse;
 var
   LResponse: IResponse;
   LJsonValueAll: TJSONVALUE;
   LJsonArrayChoices: TJsonArray;
   LJsonObjMessage: TJsonObject;
   LContent: string;
   LItemChoices: Integer;
+  LResult: string;
 begin
-  Result := '';
+  Result := FResponse;
 
   LResponse := TRequest.New
     .BaseURL(FSettings.BaseUrlGroq)
@@ -57,23 +54,31 @@ function TDelphiAIDevAIGroq.GetResponse(const AQuestion: string): string;
     .AddBody(Format(API_JSON_BODY_BASE, [AQuestion, FSettings.ModelGroq]))
     .Post;
 
+  FResponse.SetStatusCode(LResponse.StatusCode);
+
   if LResponse.StatusCode <> 200 then
-    Exit('Question cannot be answered' + sLineBreak + 'Return: ' + LResponse.Content);
+  begin
+    FResponse.SetContentText('Question cannot be answered' + sLineBreak + 'Return: ' + LResponse.Content);
+    Exit;
+  end;
 
   LJsonValueAll := TJsonObject.ParseJSONValue(LResponse.Content);
   if not(LJsonValueAll is TJSONObject) then
-    Exit('The question cannot be answered, return object not found.' + sLineBreak +
+  begin
+    FResponse.SetContentText('The question cannot be answered, return object not found.' + sLineBreak +
       'Return: ' + LResponse.Content);
+    Exit;
+  end;
 
   LJsonArrayChoices := (LJsonValueAll as TJsonObject).GetValue<TJsonArray>('choices');
   for LItemChoices := 0 to Pred(LJsonArrayChoices.Count) do
   begin
     LJsonObjMessage := LJsonArrayChoices.Items[LItemChoices].GetValue<TJsonObject>('message');
     LContent := LJsonObjMessage.GetValue<string>('content');
-    Result := Result + LContent.Trim + sLineBreak;
+    LResult := LResult + LContent.Trim + sLineBreak;
   end;
 
-  Result := Result.Trim;
+  FResponse.SetContentText(LResult.Trim);
 end;
 
 end.