-
Активность
351 -
Зарегистрирован
-
Посещение
-
Победитель дней
6
Martifan стал победителем дня 19 июля 2020
Martifan имел наиболее популярный контент!
Информация о Martifan
-
Звание
Продвинутый пользователь
- День рождения 11.10.1980
Информация
-
Пол
Мужчина
-
Город
Тбилиси
Посетители профиля
2 121 просмотров профиля
-
https://en.delphipraxis.net/topic/3308-problem-with-delphi-rio-1033-and-google-api-level-29/
-
-
-
Martifan подписался на Помогите перевести код, Авторизация с использованием Apple ID, Delphi Sydney iOS Bug и и 1 другой
-
Привет, подскажите как можно реализовать авторизацию с помощью Apple ID? любые идеи. заранее спасибо
-
Всем привет. Установил Delphi Sydney, запустил пустую приложению под iOS и у меня запускается так: как убрать эти черные панели верх и внизу? P.S.. под Delphi Rio все хорошо работает Спасибо за любой ответ
-
-
Здравствуйте, Сделал в аппликацию пуш уведомление все работает но есть одна проблема, когда доходит уведомление нету звука, хотя настройках показывает что звук включен, скрипт для отправки уведомления: { "to": "fetrOVKDF8Q:*****", "notification" : { "body" : "Hey!? Checkout my custom notification", "title" : "Hey!? Checkout my custom notification", "Sound" : "default", "badge": "1" } } может кто знает как включить звук заранее спасибо
-
Всем привет. Помогите перевести код на Delphi C# (Xamarin): public override void RegisteredForRemoteNotifications(UIApplication application, NSData deviceToken) { //DeviceToken = Regex.Replace(deviceToken.ToString(), "[^0-9a-zA-Z]+", ""); //Replace the above line whick worked up to iOS12 with the code below: byte[] bytes = deviceToken.ToArray<byte>(); string[] hexArray = bytes.Select(b => b.ToString("x2")).ToArray(); DeviceToken = string.Join(string.Empty, hexArray); } let deviceTokenString = deviceToken.map { String(format: "%02x", $0) }.joined() заранее спасибо
-
Я разобрался как получить FDeviceToken но когда пытаюсь отправить к себе уведомление получаю ошибку { "multicast_id": 6043277869161850913, "success": 0, "failure": 1, "canonical_ids": 0, "results": [ { "error": "InvalidParameters: Failed to decode APNS token: s_{length=32,bytes=0x9658a3f4b737f876f823a1705c1a39a6...dc13415e0a1af7e3}" } ] } может кто то знает в чем проблема? и как исправить? заранее спасибо
-
Martifan подписался на TThread В фоновом режиме, iOS Push Notification, Return background to foreground и и 2 другие
-
здравствуйте, я пытаюсь сделать push уведомление на iOS делаю следующим образом: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.PushNotification, FMX.Controls.Presentation, FMX.StdCtrls, FMX.PushNotification.iOS, FMX.ScrollBox, FMX.Memo; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } FDeviceID: string; FDeviceToken: string; FPushService: TPushService; FPushServiceConnection: TPushServiceConnection; procedure OnReceiveNotificationEvent(Sender: TObject; const ANotification: TPushServiceNotification); procedure OnServiceConnectionChange(Sender: TObject; AChange: TPushService.TChanges); public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button1Click(Sender: TObject); begin FPushService := Nil; FPushServiceConnection := Nil; FPushService := TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.APS); if Assigned(FPushService) then begin FPushServiceConnection := TPushServiceConnection.Create(FPushService); FPushServiceConnection.OnReceiveNotification := OnReceiveNotificationEvent; FPushServiceConnection.OnChange := OnServiceConnectionChange; FPushServiceConnection.Active := True; end else Begin ShowMessage('False'); End; end; procedure TForm1.OnReceiveNotificationEvent(Sender: TObject; const ANotification: TPushServiceNotification); begin // ShowMessage('OnReceiveNotificationEvent'); end; procedure TForm1.OnServiceConnectionChange(Sender: TObject; AChange: TPushService.TChanges); begin Memo1.Lines.Clear; if (TPushService.TChange.DeviceToken in AChange) and Assigned(FPushServiceConnection) then begin FDeviceID := FPushService.DeviceIDValue[TPushService.TDeviceIDNames.DeviceID]; FDeviceToken := FPushService.DeviceTokenValue[TPushService.TDeviceTokenNames.DeviceToken]; // save token and ID to remote db here Memo1.Lines.Add('DeviceID: '+FDeviceID); Memo1.Lines.Add('DeviceToken: '+FDeviceToken); end; end; end. все проходит нормально но получаю значение FDeviceID а значение FDeviceToken пустой все сертификаты установлены правильно и соответственно указана все правильно как я говорил перемен FDeviceID получает значение а FDeviceToken возвращается пустым на форумах тоже видел такую проблему но может кто то решал эту проблему? поделитесь пожалуйста заранее спасибо
-
Здравствуйте. кто знает можно ли развернуть аппликацию обратно если он свернуто и работает фоновом режиме в iOS
-
Здравствуйте, столкнулся с такой проблемой. Пишу небольшой проигрыватель на android и ios, на дроиде работает все нормально, а вот с яблоком проблема: не загружает библиотеку libbass.aДобавил ее в Deployment, сохраняется по пути StartUp/Library/ . Файл записывается на устройство, но библиотека все равно не грузится. Код загрузки библиотеки: const bassdll = 'libbass.a'; function BASS_FOLDER: String; begin {$IFDEF MSWINDOWS} Result := ''; {$ELSE} Result := IncludeTrailingPathDelimiter(system.IOUtils.TPath.GetLibraryPath); {$ENDIF} end; procedure LoadBassDLL; var DocDir: string; begin docDir:=BASS_FOLDER + bassdll; if fileExists(docDir) then begin FBassDLL := LoadLibrary(PChar(docDir)); if FBassDLL = 0 then Exit; end; end; Файл существует, но LoadLibrary возвращает значение 0. Уже всю голову сломал. В чем причина?
-
-
Спасибо, а если каждый 2 минуты аппликация будет вызывать какой нибудь метод из моего веб сервиса?
-
Доброго времени суток. Подскажите пожалуйста, как заставить работать TThread в приложении, если приложение свернуто, т.е находится в фоновом режиме. Я делаю так: var I: Integer; begin I := 0; TThread.CreateAnonymousThread(procedure () var Return: String; begin repeat Label1.Text := I.ToString; I := I + 1; Sleep(1000); // Application.ProcessMessages; until I > 10; TThread.Synchronize (TThread.CurrentThread, procedure () begin end); end).Start; end; Когда активно приложение, все работает хорошо, после того как сворачиваю, т.е. нажимаю кнопку Home, аппликация сворачивается и процесс останавливается. Когда обратно разворачиваю, процесс продолжается. Как заставить работать приложение в фоновом режиме? Заранее спасибо.
-
Доброго времени сутки. На Samsung Galaxy S8 Edge проект когда открываю выдаёт вот так: кто в курсе почему так происходит? вроде красный панель доле перекрывать NavigationBar? заранее спасибо
-
-
var DriverID, Server, SetDatabase, UserName, Password: string; Begin .... FDConnection1.Close; FDConnection1.Params.Clear; FDConnection1.Params.Add('DriverID=' + DriverID); FDConnection1.Params.Add('SERVER=' + Server); FDConnection1.Params.Add('Database=' + SetDatabase); FDConnection1.Params.Add('User_Name=' + UserName); FDConnection1.Params.Add('Password=' + Password); FDConnection1.Open; End;