Перейти к содержанию

Martifan

Пользователи
  • Активность

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

  • Посещение

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

    6

Martifan стал победителем дня 19 июля

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

1 Подписчик

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

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

Информация

  • Пол
    Мужчина
  • Город
    Тбилиси

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

1 917 просмотров профиля
  1. Привет, подскажите как можно реализовать авторизацию с помощью Apple ID? любые идеи. заранее спасибо
  2. Martifan

    Delphi Sydney iOS Bug

    Всем привет. Установил Delphi Sydney, запустил пустую приложению под iOS и у меня запускается так: как убрать эти черные панели верх и внизу? P.S.. под Delphi Rio все хорошо работает Спасибо за любой ответ
  3. Martifan

    Push Notification Sound

    Здравствуйте, Сделал в аппликацию пуш уведомление все работает но есть одна проблема, когда доходит уведомление нету звука, хотя настройках показывает что звук включен, скрипт для отправки уведомления: { "to": "fetrOVKDF8Q:*****", "notification" : { "body" : "Hey!? Checkout my custom notification", "title" : "Hey!? Checkout my custom notification", "Sound" : "default", "badge": "1" } } может кто знает как включить звук заранее спасибо
  4. Всем привет. Помогите перевести код на 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() заранее спасибо
  5. Martifan

    iOS Push Notification

    Я разобрался как получить 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}" } ] } может кто то знает в чем проблема? и как исправить? заранее спасибо
  6. Martifan

    iOS Push Notification

    здравствуйте, я пытаюсь сделать 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 возвращается пустым на форумах тоже видел такую проблему но может кто то решал эту проблему? поделитесь пожалуйста заранее спасибо
  7. Martifan

    Return background to foreground

    Здравствуйте. кто знает можно ли развернуть аппликацию обратно если он свернуто и работает фоновом режиме в iOS
  8. здравствуйте, скажите пожалуйста, когда я собираюсь загрузить библиотеку мне выдаёт ошибку: Unknown directive: dependency в чем проблема? спасибо
  9. Martifan

    Bass iOS

    UP....
  10. Martifan

    Bass 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. Уже всю голову сломал. В чем причина?
  11. Спасибо, а если каждый 2 минуты аппликация будет вызывать какой нибудь метод из моего веб сервиса?
  12. Martifan

    TThread В фоновом режиме

    Доброго времени суток. Подскажите пожалуйста, как заставить работать 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, аппликация сворачивается и процесс останавливается. Когда обратно разворачиваю, процесс продолжается. Как заставить работать приложение в фоновом режиме? Заранее спасибо.
  13. Доброго времени сутки. На Samsung Galaxy S8 Edge проект когда открываю выдаёт вот так: кто в курсе почему так происходит? вроде красный панель доле перекрывать NavigationBar? заранее спасибо
  14. 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;
  15. Martifan

    Notification

    Доброго времени сутки. Пытаюсь получить уведомлены делаю все как в примерах и все работает хорошо уведомления приходят но есть одно проблема: если у меня экран телефона выключен то когда приходит уведомление только звучит а экран не загорается хотя я когда создаю канал указываю: Channel.Importance := TImportance.High; Channel.LockscreenVisibility := TLockscreenVisibility.&Public; но все равно экран не включается кто в курсе как можно сделать так чтобы экран включился? ну как это делает вайбер заранее всем спасибо
×
×
  • Создать...