Klient Telegram dla Delphi

· Komponenty

Rodzina komponentów sgcTelegram łączy moc oficjalnej biblioteki Telegram Database Library z produktywnością Delphi. W tym artykule opisano, jak skonfigurować i osadzić komponent w aplikacjach, zaprezentowano komercyjne przypadki użycia i podkreślono, dlaczego jest to strategiczny zasób dla procesów komunikacyjnych.

Dlaczego wybrać sgcTelegram dla Delphi

Configuration Steps in Delphi

 Wykonaj te kroki, aby umieścić komponent na formularzu VCL lub FMX i przygotować go do użytku produkcyjnego:

  1. Zainstaluj pakiet sgcWebSockets i dodaj jednostki sgcTelegram do projektu.
  2. Umieść komponent TsgcTelegramClient na formularzu. Ustaw DatabasePath na folder z uprawnieniami do zapisu, gdzie TDLib może przechowywać zaszyfrowane pamięci podręczne.
  3. Skonfiguruj poświadczenia API Telegram. Przypisz ApiId i ApiHash uzyskane z my.telegram.org.
  4. Podaj właściwości ApplicationVersion, DeviceModel i SystemLanguageCode, aby spełnić wymagania platformy Telegram.
  5. Podepnij się do zdarzeń cyklu życia (OnAuthorizationState, OnUpdateConnectionState, OnNewMessage), aby uwierzytelniać się, monitorować i odpowiadać na przychodzące aktualizacje.
  6. Wywołaj Connect w czasie wykonywania, aby zainicjować sesję TDLib i przeprowadzić przepływ uwierzytelniania (numer telefonu, kod SMS lub token bota).

Delphi Code Example

Poniższy przykład demonstruje konsolę powiadomień klasy komercyjnej, która loguje się jako bot, wysyła wiadomość powitalną i zapisuje odpowiedzi klientów: 

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; 

 Ten fragment ilustruje konfigurację ścieżek systemu plików, poświadczeń i procedur obsługi zdarzeń. Zastąp symbole zastępcze swoim produkcyjnym tokenem bota i identyfikatorami czatu.

Advantages for Delphi Teams


Dodaj komponent Telegram do swojego kolejnego wydania, aby podnieść jakość komunikacji z klientami, przyspieszyć dostarczanie funkcji i odkryć nowe strumienie przychodów. Skontaktuj się z naszym zespołem sprzedaży w sprawie pakietów licencyjnych lub dostosowanych usług konsultingowych dla Twojej branży.