AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Mobile Permission

Ein Thema von IMPEGA · begonnen am 24. Aug 2024 · letzter Beitrag vom 24. Aug 2024
 
IMPEGA

Registriert seit: 19. Jan 2008
Ort: Brhv
83 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Mobile Permission

  Alt 24. Aug 2024, 09:17
Hallo zusammen
Ich versuche meine erste APP zu schreiben, dabei stoße ich schon am Anfang auf kleine Probleme.
Ich möchte eine App erstellen, womit ich nur ein Log schreibe.
Sprich, 2 Buttons, drücke ich auf OK wird in einer Datei das Datum und Zeit geschrieben.

Dazu brauche ich die Mobile Permission.
Hier hackt es leider.

Installiert Delphi 12.1 und Mobile Permission per "GetIT Package Manage" installiert.

Mein Test-Code für die Permission (gefunden im Netz)
Delphi-Quellcode:
unit Unit2;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Memo.Types,
  FMX.StdCtrls, FMX.Controls.Presentation, System.Permissions,
{$IFDEF ANDROID}
  AndroidApi.Helpers, FMX.Platform.Android,
  Androidapi.JNI.Widget, FMX.Helpers.Android, Androidapi.JNI.Os,
{$ENDIF}

 FMX.Edit, System.IOUtils;

type
  TForm2 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
{$IFDEF ANDROID}
    PermissionWriteExternalStorage: string;
{$ENDIF}
  end;

var
  Form2: TForm2;

implementation

{$R *.fmx}

procedure TForm2.FormShow(Sender: TObject);
begin
 {$IFDEF ANDROID}
  PermissionWriteExternalStorage := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE);
  PermissionsService.RequestPermissions([PermissionWriteExternalStorage],
    procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
      begin
        if AGrantResults[0] = TPermissionStatus.Granted then
          ShowMessage('Erlaubt')
        else
          ShowMessage('Nicht erlaubt');
      end)
 {$ENDIF}
end;

end.
Ich bekomme diesen Fehler
[DCC Fehler] HeaderFooterTemplate.pas(51): E2250 Es gibt keine überladene Version von 'RequestPermissions', die man mit diesen Argumenten aufrufen kann

Testweise habe ich die Mobile Permission deinstalliert und eine ältere Version von GitHub installiert.
Das hat leider auch nicht funktioniert.

Kann mir jemand die Sache etwas erläutern? Bin nur ein Hobbycoder und mit Android habe ich noch nie zu tun gehabt.

Geändert von IMPEGA (24. Aug 2024 um 09:20 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz