Superator
-
Постов
50 -
Зарегистрирован
-
Посещение
Активность репутации
-
Superator отреагировална Tumaso в Как собрать apk для android 8.1 не имея устройства с такой версией android?
В Rio да, укажите api 28
-
Superator отреагировална Savage в Изменение стандартного звука а push-уведомлении
Задачу решил.
Вот измененная процедура, ну и добавил вытягивание параметра sound
private Builder buildNotification(String msgTitle, String msgText, String msgSound, PendingIntent contentIntent) {
int icon = this.mContext.getApplicationContext().getApplicationInfo().icon;
Builder mBuilder = new Builder(this.mContext);
mBuilder.setSmallIcon(icon);
mBuilder.setTicker(msgTitle);
mBuilder.setContentTitle(msgTitle);
mBuilder.setContentText(msgText);
mBuilder.setContentIntent(contentIntent);
// savage
if (msgSound == "") {
mBuilder.setSound(RingtoneManager.getDefaultUri(2));
}
else
{
mBuilder.setSound(Uri.parse("android.resource://" + this.mContext.getPackageName() + "/raw/"+msgSound));
}
//
return mBuilder;
}
Звуковой файл надо добавить в Deployment
Расположение res/raw/
При формировании push-сообщения имя файла указывается без расширения. К примеру, если звуковой файл был event1.mp3, то в пуше посылаем "sound":"event1"
Во вложении патченый файл.
Сборка fmx.jar и classes.dex как в этой теме
NotificationPublisher.zip
-
Superator отреагировална Brovin Yaroslav в Как я могу скрыть / показать клавиатуру под "Android"?
Русский
За управление виртуальной клавиатурой в FireMonkey отвечает сервис IFMXVirtualKeyboardService (Embarcadero Doc Wiki). Который позволяет отображать и скрывать клавиатуру.
Для скрытия клавиатуры достаточно выполнить следующий код:
uses FMX.Platform, FMX.VirtualKeyboard; procedure TForm5.ButtonHideKeybordClick(Sender: TObject); var KeyboardService: IFMXVirtualKeyboardService; begin // Запрашиваем сервис виртуальной клавиатуры if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then KeyboardService.HideVirtualKeyboard; end; Чтобы показать клавиатуру для контрола:
procedure TForm5.ButtonShowKeyboardClick(Sender: TObject); var KeyboardService: IFMXVirtualKeyboardService; begin // Запрашиваем сервис виртуальной клавиатуры if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then KeyboardService.ShowVirtualKeyboard(Edit1); end;
English
FireMonkey has special service for managing Virtual Keyboard. It is IFMXVirtualKeyboardService (Embarcadero Doc Wiki). It allows show and hide keyboard.
For showing virtual keyboard use next code: uses FMX.Platform, FMX.VirtualKeyboard; procedure TForm5.ButtonHideKeybordClick(Sender: TObject); var KeyboardService: IFMXVirtualKeyboardService; begin // Request service of visrtual keyboard if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then KeyboardService.HideVirtualKeyboard; end; For showing virtual keyboard for control:
procedure TForm5.ButtonShowKeyboardClick(Sender: TObject); var KeyboardService: IFMXVirtualKeyboardService; begin // Request service of visrtual keyboard if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then KeyboardService.ShowVirtualKeyboard(Edit1); end; -
Superator отреагировална Равиль Зарипов (ZuBy) в Items + KeyItems
Кто вам мешает создать TListBoxItem
var item: TListBoxItem; begin item := TListBoxItem.Create(nil); item.text := 'combo item'; item.parent := Combobox1; Item.tag := 1000; end; доступ к значению (по памяти)
ComboBox1.ListItems[0].Tag -
Superator отреагировална rareMax в Через NetHTTPClient передать фотографию на сервер
В общем рабочее время подходит к концу - поэтому держи:
Function SampleSendFile(Const Url, FileName: String): Boolean; var lHttp: THTTPClient; lSendData: TMultipartFormData; lResponse: IHTTPResponse; Begin lHttp := THTTPClient.Create; lSendData := TMultipartFormData.Create; try lSendData.AddFile('FileField', FileName); lResponse := lHttp.Post(Url, lSendData); Result := lResponse.StatusCode = 200; finally lSendData.Free; lHttp.Free; end; End;
-
Superator отреагировална Gvozdik в Получение полного пути файла из галереи Android
На этот модуль то я внимание обратил, но мне необходимо реализовать следующие действия:
1) После нажатия на кнопку открывается галерея картинок (или другое приложение для открытия картинок), пользователь выбирает файл;
2) После выбора файла в моем приложении появляется его миниатюра и файл методом POST отправляется на upload сайта.
Так вот чтобы отправить файл мне необходимо вывести полный путь к этой картинки из галереи которую выбрал пользователь.
Т.е. вот тут нужно вставить полный путь этого самого Image (TBitmap) которое возвращает TakePhotoFromLibraryAction1DidFinishTaking:
Fileweb:=TIdMultipartFormDataStream.Create; Fileweb.AddFile('qqfile',Путь к файлу); Fileweb.AddFormField('subaction','upload'); Response:= Form1.IdHTTP1.Post(SiteUrl + 'engine/ajax/upload.php',Fileweb); Fileweb.Free;
-
Superator отреагировална sinuke в Не открывается меню загрузить файл в android
я так понимаю должен открыться выбор файла? ну на андройде логику выбора файла придется реализовывать самому... стандартного нет
-
-
Superator отреагировална Brovin Yaroslav в Есть ли какая-нибудь возможность вставить тире в package файла AndroidManifest.xml
Нет. Название Java пакета не поддерживает "-" в названии. Только латинские буквы в нижнем и верхнем регистрах, числа и '_'.
https://developer.android.com/guide/topics/manifest/manifest-element?hl=ru#package
-
Superator отреагировална krapotkin в Как заменить цвет фона TextButton в listview
по мне, так лучше сделать собственного наследника TDrawable по примеру того как сделана сама эта кнопка. я делал такое, когда мне надо было иконки, уголки и другие нестандартные элементы
-
Superator отреагировална krapotkin в Как получить содержимое item при событии OnDeleteItem в ListView
off: но это конечно фу ))
то что вы из базы просто что-то куда-то пишете и не заботитесь о том, как будете потом это искать.
Использование невизуального свойства Data у ListViewItem имхо гораздо предпочтительнее
-
Superator отреагировална Евгений Корепов в Как получить содержимое item при событии OnDeleteItem в ListView
procedure TForm1.ListView1DeleteItem(Sender: TObject; AIndex: Integer); Var AMyItemIndex : Integer; begin AMyItemIndex:=(ListView1.Items.Item[AIndex] as TListViewItem).Detail.ToInteger; ... end;
-
Superator отреагировална rareMax в Как сделать плиточное меню в приложении?
ModernListView
GridLayout(в названии мог ошибиться)
Либо на скроллБокс кидаешь нужные тебе компоненты.
-
Superator получил реакцию от Anatoliy в Кириллица в ListView выводится в виде вопросительных знаков
Всем спасибо. Это все моя невнимательность. Ошибка крылась в синтаксисе php файла, а не в delphi. Не указал $mysqli->set_charset("utf8").
-
Superator отреагировална rareMax в Функция возвращает разное значение на andoroid и win
{$ZEROBASEDSTRING ON} и работай с учётом что строка с 0 начинается.
Либо юзай хелперы