Cliente Telegram para Delphi

· Componentes

La familia de componentes sgcTelegram combina la potencia de la Telegram Database Library oficial con la productividad ágil de Delphi. Este artículo describe cómo configurar e integrar el componente en tus aplicaciones, presenta casos de uso comerciales y explica por qué es un activo estratégico para tus flujos de comunicación.

Por qué elegir sgcTelegram para Delphi

Pasos de configuración en Delphi

 Sigue estos pasos para colocar el componente en un formulario VCL o FMX y prepararlo para producción:

  1. Instala el paquete sgcWebSockets y añade las unidades sgcTelegram a tu proyecto.
  2. Coloca un componente TsgcTelegramClient en el formulario. Establece DatabasePath en una carpeta con permisos de escritura donde TDLib pueda almacenar cachés cifradas.
  3. Configura las credenciales de la API de Telegram. Asigna ApiId y ApiHash obtenidos en my.telegram.org.
  4. Proporciona las propiedades ApplicationVersion, DeviceModel y SystemLanguageCode para cumplir los requisitos de la plataforma Telegram.
  5. Engancha los eventos de ciclo de vida (OnAuthorizationState, OnUpdateConnectionState, OnNewMessage) para autenticar, monitorizar y responder a las actualizaciones entrantes.
  6. Llama a Connect en tiempo de ejecución para iniciar la sesión TDLib y disparar el flujo de autenticación (número de teléfono, código SMS o token de bot).

Ejemplo de código Delphi

El siguiente ejemplo muestra una consola de notificaciones de nivel comercial que inicia sesión como bot, envía un mensaje de bienvenida y almacena las respuestas del cliente: 

procedure TfrmTelegram.ConsoleAuthorize;
begin
  sgcTelegramClient1.Manager.LibraryPath := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + 'tdlib';
  sgcTelegramClient1.Manager.DatabasePath := GetHomePath + PathDelim + 'TelegramCache';
  sgcTelegramClient1.ApiId := <YOUR_API_ID>;
  sgcTelegramClient1.ApiHash := '<YOUR_API_HASH>';
  sgcTelegramClient1.PhoneNumber := '<COMPANY_BOT_TOKEN>';
  sgcTelegramClient1.ApplicationVersion := '2.0';
  sgcTelegramClient1.DeviceModel := 'Retail Notification Hub';
  sgcTelegramClient1.SystemLanguageCode := 'en';
  sgcTelegramClient1.Options.UseTestDataCenter := False;
  sgcTelegramClient1.Connect;
end;
procedure TfrmTelegram.sgcTelegramClient1AuthorizationState(Sender: TObject;
  const AState: TsgcTelegramAuthorizationState);
begin
  if AState.State = asReady then
  begin
    sgcTelegramClient1.Messages.SendMessage('<CUSTOMER_CHAT_ID>', 'Your order has shipped! Track it via our portal.');
  end;
end;
procedure TfrmTelegram.sgcTelegramClient1NewMessage(Sender: TObject;
  const AMessage: TsgcTelegramMessage);
begin
  MemoConsole.Lines.Add(Format('[%s] %s', [DateTimeToStr(Now), AMessage.Content.Text.Text]));
end; 

 Este fragmento muestra cómo configurar rutas del sistema de archivos, credenciales y manejadores de eventos. Sustituye los marcadores por tu token de bot y los identificadores de chat de producción.

Ventajas para los equipos Delphi


Incluye el componente Telegram en tu próxima versión para mejorar las comunicaciones con tus clientes, acelerar la entrega de funcionalidades y desbloquear nuevas vías de ingresos. Contacta con nuestro equipo comercial para conocer los packs de licencias o servicios de consultoría a medida para tu sector.