x11

Пользователи
  • Публикаций

    775
  • Зарегистрирован

  • Посещение

  • Победитель дней

    12

x11 стал победителем дня 24 октября 2018

x11 имел наиболее популярный контент!

Информация о x11

  • Звание
    Продвинутый пользователь
  • День рождения 01.01.1978

Информация

  • Пол
    Мужчина
  • Город
    Kharkiv

Посетители профиля

961 просмотр профиля
  1. я уже не помню, но туту нужно погуглить/поспрашивать, как передавать данные между андроидовскими службами и приложениями тут тоже есть примеры и описания
  2. Ну так об этом как раз в этой теме и идёт речь
  3. А кто-нибудь пробовал метод bot.KickChatMember получилось ли забанить пользователя в группе?
  4. В общем сделал через GetFileUrl procedure GetChatAva; Var chat: ItgChat; iChatID: int64; s: string; tgFile: ItgFile; img_stream: TMemoryStream; begin iChatID := ....; chat := bot.GetChat(iChatID); if not Assigned(chat) then begin exit; end; s := chat.Photo.SmallFileId; tgFile := bot.GetFile(s); if not Assigned(tgFile) then begin exit; end; s := tgFile.GetFileUrl(aBotToken); if s.IsEmpty then begin exit; end; img_stream := TMemoryStream.Create; try DownloadImage(s, img_stream); if img_stream.Size <= 0 then begin exit; end; finally img_stream.DisposeOf; end; end;
  5. Кто-нибудь пытался получить аватарку (картинку) канала? Бот добавлен в публичный канал и имеет доступ к сообщениям. При получении сообщения хочу получить аву, но код всегда возвращает false if Assigned(AMessage.Chat.Photo) then Или подскажите, как правильно, в какой момент получить значок канала? Может нужен специальный запрос в API? Спасибо.
  6. здесь http://fire-monkey.ru/topic/5326-fgx-native-выступление-с-демонстрацией-библиотеки-на-запуске-rad-studio-103/?page=2&amp;tab=comments#comment-34196
  7. Можно передать значение переменной любым доступным/удобным способом. Их вагон и маленькая тележка.
  8. qubasesx, вписывай IP в любой форме и сохраняй куда-нибудь, например в базу, а из DataModule читай из базы.
  9. В общем, это связано с тем, что в новых андроидах проверка прав приложения происходит непосредственно при выполнении той или иной функции, которая требует этих прав. Поэтому нужно при выполнении этой функции обрабатывать запрос прав.
  10. FGX Native новейшая кроссплатформенная библиотека для мобильной разработки на Delphi (Ярослав Бровин) https://youtu.be/0tF5J-jIVzc
  11. вряд ли исходники откроют, но на гитхабе есть штук 20 примеров
  12. Правда в самом приложении используются другие жабьи обёртки, типа leo lin и bolts framework. Ну т.е. от самой FMX и Delphi ничего кроме компилятора и IDE. Печально, что Idera не развивает и забросила FMX.
  13. На просторах sql.ru нашёл ссылку на приложение kiskis на Delphi/FMX. Что-то типа мессенджер+инстаграм. https://youtu.be/WEsEhGfrW-g Alcinoe is a library visual and non-visual components for Delphi. https://github.com/Zeus64/alcinoe
  14. Начинает доходить, как скачать, переданные боту картинки. У TItgMessage есть свойство "&Type", не знаю, зачем разработчики сделали с "&". Этот "TItgMessage.&Type" определяет тип сообщения: картинка, видео, контакт и т.д. И вот в событии tgReceiverUI.OnUpdate можно определить тип сообщения: if Assigned(AUpdate.message) then begin case AUpdate.message.&Type of TtgMessageType.Photo: ReceivePhoto(AUpdate.message.Photo); end;// case end; обрабатываем массив полученных фото procedure TForm1.ReceivePhoto(Photos: TArray<TelegAPi.Types.ItgPhotoSize>); Var PhotoSize: TelegAPi.Types.ItgPhotoSize; tgFile: ItgFile; FileUrl: string; begin for PhotoSize in Photos do begin tgFile := TelegramBot1.GetFile(PhotoSize.FileId); if tgFile.CanDownload then begin FileUrl := tgFile.GetFileUrl(TelegramBot1.Token); Memo1.Lines.Add('ReceivePhoto, FileUrl: ' + FileUrl);// получаем прямую https-ссылку на картинку jpg. end; end; end; Дальше пока не разобрался с методом скачивания. То ли у библиотеки уже есть встроенные методы скачивания, то я сам должен скачать. Поискал по исходникам слово Download - ничего такого не нашёл