Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы Поиск в этой теме
Старый 30.08.2020, 10:37   #1
remus-xe2
Пользователь
 
Регистрация: 27.10.2017
Сообщений: 36
По умолчанию Смайлики в тексте TELEGRAM API

Подскажите, как отправить смайлик в тексте? подставлял различные коды в текст сообщения, безрезультатно, они так в текстовом виде и приходят.

Отправляю текст так:
Код:
function URLEncode(const Url: Utf8String): string;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(Url) do
  begin
    if CharInSet(Url[I], ['A'..'Z', 'a'..'z', '0'..'9', '-', '=', '&', ':', '/', '?', ';', '_']) then
      Result := Result + Utf8ToAnsi(Url[I])
    else
      Result := Result + '%' + IntToHex(Ord(Url[I]), 2);
  end;
end;

Procedure SendNewMessageThread.Execute;
CONST
 URL = 'https://api.telegram.org/bot%s/sendMessage?chat_id=%s&text=%s';
var
  HTTPs: THTTPSend;
  key: String;
begin
     if bot = 'admevent' then
      key := key_adm_bot  else
    if bot = 'userevent' then
      key := key_user_bot;

  if key = '' then
      begin
        AddEvent('error', 'Ошибка отправки сообщения в месенеджер телеграм | Key = empty', '')  ;
        exit;
      end;

  try
    https:=thttpsend.Create;
    if not HTTPs.HTTPMethod('get',FORMAT(URL, [key, adressat, UrlEncode(text) ] ) ) then
     AddEvent('error', 'Ошибка отправки сообщения в месенеджер телеграм | '+ HTTPs.ResultString, '')  ;
  finally
     HTTPs.Free;
  end;

end;

Последний раз редактировалось remus-xe2; 30.08.2020 в 10:39.
remus-xe2 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 20000 рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задача Смайлики romich.91 Помощь студентам 6 08.12.2009 13:13
А теперь и смайлики ... DeKot Свободное общение 4 17.12.2008 17:28


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS