Martifan

https://en.delphipraxis.net/topic/3308-problem-with-delphi-rio-1033-and-google-api-level-29/

Привет, подскажите как можно реализовать авторизацию с помощью 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}" } ] } может кто то знает в чем проблема? и как исправить? заранее спасибо

здравствуйте, я пытаюсь сделать 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

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

UP....

Здравствуйте, столкнулся с такой проблемой. Пишу небольшой проигрыватель на 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;