Jump to content

Dave Nottage

Members
 View Profile  See their activity

  • Content Count

    1331

  • Joined

  • Last visited

  • Days Won

    29

Posts posted by Dave Nottage

  4. Posted · Edited by Dave Nottage
    Grammar

    I've managed to come up with something without having to patch FMX.WebBrowser.Android, but it still required Java code. I've put a demo here:

     

      https://github.com/DelphiWorlds/KastriFree/tree/master/Demos/WebBrowserFileChooser

     

    Note that it relies on other units in the Kastri Free project:

     

      https://github.com/DelphiWorlds/KastriFree

     

    ..including the compiled .jar, so you might want to just clone the repo and load the demo from it.

    • Like 3

  5. Posted

    EMBT need to modify the Java code for the WebBrowser class (in source\rtl\androiddex\java\fmx\src\com\embarcadero\firemonkey\webbrowser\WebBrowser.java) so that it uses a descendant of WebChromeClient that implements onShowFileChooser, much like the Java equivalent, here:

     

    https://stackoverflow.com/a/36413800/3164070

     

    It's possible to do something similar by:

     

    Creating your own descendant (in Java), creating a jar for it and importing it 

    Patching FMX.WebBrowser.Android to call setWebChromeClient on FWebView for an instance of your descendant

     

  10. Posted · Edited by Dave Nottage

    2 hours ago, FredS said:

    Could not save: The system cannot find the path specified

    I receive:

     

    [Window Title]
    Project1

    [Content]
    Could not save: A required privilege is not held by the client

    [OK]
     

    Which is odd, since SetTokenPrivilege succeeds.

     

    Using Delphi 10.3.2

  11. Posted

    Going (more) insane here.. I have the following test code:

      

    uses
  System.Win.Registry;

function SetTokenPrivilege(const APrivilege: string; const AEnable: Boolean): Boolean;
var
  LToken: THandle;
  LTokenPriv: TOKEN_PRIVILEGES;
  LPrevTokenPriv: TOKEN_PRIVILEGES;
  LLength: Cardinal;
  LErrval: Cardinal;
begin
  Result := False;
  if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, LToken) then
  try
    // Get the locally unique identifier (LUID) .
    if LookupPrivilegeValue(nil, PChar(APrivilege), LTokenPriv.Privileges[0].Luid) then
    begin
      LTokenPriv.PrivilegeCount := 1; // one privilege to set
      case AEnable of
        True: LTokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
        False: LTokenPriv.Privileges[0].Attributes := 0;
      end;
      LPrevTokenPriv := LTokenPriv;
      // Enable or disable the privilege
      Result := AdjustTokenPrivileges(LToken, False, LTokenPriv, SizeOf(LPrevTokenPriv), LPrevTokenPriv, LLength);
    end;
  finally
    CloseHandle(LToken);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LReg: TRegistry;
begin
  if not SetTokenPrivilege('SeBackupPrivilege', True) then
    Exit; // <======
  LReg := TRegistry.Create(KEY_ALL_ACCESS);
  try
    LReg.RootKey := HKEY_CURRENT_USER;
    if not LReg.SaveKey('Software\Microsoft\Notepad', 'C:\Temp\Notepad.reg') then
      ShowMessage('Could not save');
  finally
    LReg.Free;
  end;
end;

    Which results in showing the "Could not save" message. Am I missing something obvious?

  16. Posted

    Yaron didn't mention a requirement of > 4GB memory; he was talking about devices with 64-bit processors.

     

    Most devices manufactured since late 2014 are 64-bit, so choose one that was made since then, but always check by Googling the device info. It would be very unusual for a 64-bit device with Android 5 or greater to have a 32-bit version of Android.

     

  18. Posted

    It means you have another app on the device that is using the same package name, that was signed using a different key (usually using a different version of Delphi).

     

    If you're unsure as to which one it is, one way to check is to use adb, which is in the platform-tools folder under the Android SDK root, so change directory into there, and run this:

     

       adb shell pm list packages -f <yourpackagename>

     

    e.g:

     

      adb shell pm list packages -f com.embarcadero.Location

     

    Example output:

     

      package:/data/app/com.embarcadero.Location-7NS38JcbdfTgvZ3_WPSj-w==/base.apk=com.embarcadero.Location

     

    The part after "package:" and before "=<packagename>" is the path to the APK. Pull the package to the PC, e.g:

     

      adb pull /data/app/com.embarcadero.Location-7NS38JcbdfTgvZ3_WPSj-w==/base.apk C:\Temp

     

    Then use aapt (in the build-tools\<version> folder under the SDK root, where <version> is whatever version you're using) to discover the application label, e.g:

     

      aapt dump badging C:\Temp\base.apk | grep application-label

     

    Example output:

     

      application-label:'Location'

     

  19. Posted

    7 hours ago, Alex Texera said:

    in my other project after release provider tag is deleted.

    On deployment, the <%provider%> tag is either replaced with provider information for secure file sharing, e.g:

     

      <provider
          android:name="android.support.v4.content.FileProvider"
          android:authorities="com.embarcadero.Test.fileprovider"
          android:exported="false"
          android:grantUriPermissions="true">
          <meta-data
              android:name="android.support.FILE_PROVIDER_PATHS"
              android:resource="@xml/provider_paths" />
      </provider>

     

    or it is simply removed. If you're expecting the former, please ensure that you have Secure File Sharing checked in the Entitlements section of Project Options for the configuration you are building for (i.e. Debug and/or Release)

  21. Posted

    There's no "easy" way to cater for older versions, whether it's iOS, macOS or Android. The best you can do is check the API documentation for which version the methods were introduced (or removed) and use TOSVersion.Check to determine whether the code is relevant and can be called, and branch to another part of the code if you need to cater for lower versions. There's a bunch of examples of TOSVersion.Check being used in the FMX code, so you could refer to them.

  22. Posted

    1. This should at least have you started: 

    uses
  Androidapi.JNI.Java.Net, Androidapi.JNI.JavaTypes, Androidapi.Helpers,  Androidapi.JNIBridge;

function BytesToHex(const ABytes: TBytes): string;
var
  I: Integer;
begin
  Result := '';
  for I := Low(ABytes) to High(ABytes) do
    Result := Result + IntToHex(ABytes[I], 2);
end;

procedure GetMacAddresses(const AAddresses: TStrings);
var
  LInterfaces, LAddresses: JEnumeration;
  LInterface: JNetworkInterface;
  LJavaBytes: TJavaArray<Byte>;
  LBytes: TBytes;
  LByte: Byte;
  I: Integer;
  LAddress: JInetAddress;
  LName, LHostAddress: string;
begin
  AAddresses.Clear;
  LInterfaces := TJNetworkInterface.JavaClass.getNetworkInterfaces;
  while LInterfaces.hasMoreElements do
  begin
    LInterface := TJNetworkInterface.Wrap(JObjectToID(LInterfaces.nextElement));
    LJavaBytes := LInterface.getHardwareAddress;
    if LJavaBytes <> nil then
    begin
      SetLength(LBytes, LJavaBytes.Length);
      for I := 0 to LJavaBytes.Length - 1 do
        LBytes[I] := LJavaBytes.Items[I];
      AAddresses.Add(BytesToHex(LBytes));
    end;
  end;
end;

    2. Check the code (and warning) for GetUniqueDeviceID, here:

     

    https://github.com/DelphiWorlds/KastriFree/blob/master/Core/DW.OSDevice.Android.pas

     

    Apparently things have changed a little since Android 8:

    https://developer.android.com/reference/android/provider/Settings.Secure.html#ANDROID_ID

  23. Posted

    If you're using Bluetooth for tethering, it's more than likely due to needing to request permissions for location at runtime, as Bluetooth discovery requires one of them:

     

    https://developer.android.com/guide/topics/connectivity/bluetooth#Permissions

     

    There's an example of how to do this in this demo:

     

    https://github.com/Embarcadero/RADStudio10.3Demos/tree/master/Object Pascal/Multi-Device Samples/Device Sensors and Services/Bluetooth/BLEScanner

  24. Posted

    9 hours ago, Alex Texera said:

    What kill provider code I don't know.

    Check the file AndroidManifest.xml in the folder: C:\Users\(username)\AppData\Roaming\Embarcadero\BDS\20.0

     

    Where (username) is your logged in Windows username. This is the file that the IDE uses for AndroidManifest.template.xml. Part of the file should look like this:

     

            <%provider%>
            <%application-meta-data%>
            <%uses-libraries%>
            <%services%>

     

    • Like 1
×