Construir apps Delphi con IA usando OpenAI

El componente sgcAI OpenAI permite a los equipos Delphi entregar experiencias inteligentes y listas para monetizar que combinan comprensión de lenguaje natural, generación de código y flujos conversacionales en productos VCL y FMX existentes. Con un único componente plug-and-play, los proveedores SaaS pueden ofrecer asistentes con IA, documentación automatizada o chat multilingüe sin reconstruir su infraestructura.

Por qué el componente OpenAI acelera los proyectos comerciales

• Salida al mercado más rápida: el soporte listo para usar de REST, WebSocket y streaming reduce el tiempo de integración de semanas a horas.
• Seguridad de calidad empresarial: TLS 1.3, HTTP/2 y compatibilidad con proxy protegen los datos de los clientes en despliegues regulados.
• Monetización escalable: la gestión de tokens multitenant y el rate limiting permiten a los ISV revender funciones de IA como complementos premium.
• Alcance multiplataforma: el mismo componente funciona en targets Windows, macOS, Linux, iOS y Android creados con Delphi.

Preparar el componente OpenAI en Delphi

1. Instala el último paquete sgcWebSockets y asegúrate de que la unit sgcAI_OpenAI esté disponible en tu proyecto.
2. Crea una API key de OpenAI en el dashboard de OpenAI y guárdala de forma segura (variable de entorno, INI cifrado o secrets vault).
3. Añade sgcAI.OpenAI a la cláusula uses de tu formulario o módulo de datos.

Ejemplo de configuración (formulario VCL)

El siguiente fragmento configura un componente TsgcOpenAI en tiempo de ejecución. Coloca un TButton, un TMemo y un TListBox en el formulario para visualizar la conversación. 

uses
  System.SysUtils, sgcAI_OpenAI;
procedure TFormMain.FormCreate(Sender: TObject);
begin
  OpenAI := TsgcOpenAI.Create(Self);
  OpenAI.APIKey := GetEnvironmentVariable('OPENAI_API_KEY');
  OpenAI.DefaultModel := 'gpt-4o-mini';
  OpenAI.HTTP.Proxy.Host := 'proxy.company.local';
  OpenAI.HTTP.Proxy.Port := 8080;
  OpenAI.HTTP.Timeout := 15000;
  OpenAI.Streaming := True;
end;
procedure TFormMain.ButtonAskClick(Sender: TObject);
var
  LRequest: TsgcOpenAIChatRequest;
  LResponse: TsgcOpenAIChatResponse;
begin
  LRequest := TsgcOpenAIChatRequest.Create;
  try
    LRequest.Messages.Add('system', 'Answer as a senior support engineer.');
    LRequest.Messages.Add('user', MemoPrompt.Lines.Text);
    LResponse := OpenAI.Chat.Create(LRequest);
    try
      ListBoxHistory.Items.Add(LResponse.Choices[0].Message.Content);
    finally
      LResponse.Free;
    end;
  finally
    LRequest.Free;
  end;
end; 

Aumenta tus oportunidades

Los proveedores Delphi pueden desbloquear nuevas fuentes de ingresos empaquetando copilotos de IA, búsqueda de conocimiento y transcripción de audio como tiers de suscripción. Con los eventos analíticos integrados y la contabilidad de tokens, es fácil medir el engagement, justificar upsells y construir workflows personalizados de éxito de cliente.