Jump to content

Dave Nottage

Members
 View Profile  See their activity

  • Content Count

    1609

  • Joined

  • Last visited

  • Days Won

    36

Posts posted by Dave Nottage

  1. Posted

    On 10/4/2024 at 4:02 PM, Rollo62 said:

    NativeView := WindowHandleToPlatform(AControl.Handle).View;

    This part will not even compile. TControl does not have a Handle property in FMX.

    On 10/4/2024 at 4:02 PM, Rollo62 said:

    NativeView.setContentDescription(StringToJString(ADescription));

    Nor will this. setContentDescription takes a JCharSequence as the parameter.

    The main problem is that "non-native" FMX controls do not have an underlying native control, except when ControlType is Platform. Even then, there is no support for calling setContentDescription on that native control. This would require adding a ContentDescription property to TControl so that it can be passed to the underlying "native" controls. On top of this, only certain controls on Android support ControlType of Platform.

  2. Posted

    2 minutes ago, MMSoft said:

    Could not find a part of the path 'C:\Users\mvsan\Documents\Embarcadero\Studio\Projects\TEST\Lib\dw-kastri-base-3.0.0.jar'.

    The jar is not added to the search paths, it's added to the Libraries node of the Android 32-bit target, as per the demo readme. This is an image (which has been shortened, for brevity) of it:


    image.thumb.png.d15705b39b8754403df34bbd7dc450e5.png

    4 minutes ago, MMSoft said:

    I've added these Search Paths for this:

    You don't add those paths. See above.

  4. Posted

    On 9/10/2024 at 7:25 PM, Dave Nottage said:

    Reversing the calls fixes it for me

    That now fails for me in Delphi 12.2 😞

     

    Rollo's example, i.e.: 

        TabControl1.SetActiveTabWithTransition(TabItem1, TTabTransition.Slide, TTabTransitionDirection.Normal);
    TThread.ForceQueue(nil, procedure begin FPDFControl.LoadPDF(LFileName); end);

    Works ok for me in Delphi 12.2

  5. Posted

    1 hour ago, MMSoft said:

    I have the idea that now all files can be found.
    But now I get this error message:
    [DCC Error] Unit1.pas(69): E2003 Undeclared identifier: 'cJavaScriptClickAtXY'

    The demo shows all the required folders in the Search path of Project Options. For that identifier you'd be missing the Features\JavaScript folder of Kastri

  6. Posted

    3 hours ago, Dave Nottage said:

    It appears Android's WebView does not like part of the JavaScript (it works on macOS and iOS). I'm looking into it

    I discovered what the problem is: The "default" TWebBrowser implementation for Android uses loadUrl: 

    procedure TAndroidWebBrowserService.EvaluateJavaScript(const AJavaScript: string);
begin
  FWebView.loadUrl(StringToJString('javascript:' + AJavaScript));
  UpdateContentFromControl;
end;

    Which I guess does not accept the JavaScript that I provided. In TWebBrowserExt, it uses the evaluateJavascript method: 

    procedure TPlatformWebBrowserExt.ExecuteJavaScript(const AJavaScript: string; const AHandler: TJavaScriptResultProc);
begin
  if FWebView <> nil then
    FWebView.evaluateJavascript(StringToJString(AJavaScript), CreateValueCallback(AHandler))
  else
    AHandler(cJavaScriptNullResult, -1);
end;

    Which does work. I've now added a demo to the HowTo repository, which uses TWebBrowserExt, and it works on Android (as well as iOS and macOS)

  7. Posted

    31 minutes ago, Dave Nottage said:

    Not sure why it's not working for you

    It appears Android's WebView does not like part of the JavaScript (it works on macOS and iOS). I'm looking into it

  8. Posted

    8 minutes ago, MMSoft said:

    Unfortunately, nothing is happening yet

    Not sure why it's not working for you - I'm using the same URL as in your example. I could put together a minimal test case to demonstrate it.

  10. Posted

    37 minutes ago, Dave Nottage said:

    When it needs to be on the anchor (a) element, so I'll need to tweak the JavaScript a bit.

    Updated JavaScript: 

      cJavaScriptClickAtXY = '(function() {'#13#10 +
    'var windowX = %d, windowY = %d'#13#10 +
    'let x = windowX - (window.scrollX || window.pageXOffset)'#13#10 +
    'let y = windowY - (window.scrollY || window.pageYOffset);'#13#10 +
    'var element = document.elementFromPoint(x, y);'#13#10 +
    'while (element) {'#13#10 +
    '  if (element.tagName !== "A" && !element.hasAttribute("onclick"))'#13#10 +
    '    element = element.parentElement;'#13#10 +
    '  else'#13#10 +
    '    break;'#13#10 +
    '}'#13#10 +
    'if (element) {'#13#10 +  
    '  var clickEvent = document.createEvent("MouseEvents");'#13#10 +
    '  clickEvent.initMouseEvent("click", true, true, window, 0, 0, 0, x, y, false, false, false, false, 0, null);'#13#10 +
    '  element.dispatchEvent(clickEvent);'#13#10 +
    '} else'#13#10 +
    '  console.log("No clickable element found at coordinates:", x, y);'#13#10 +
    '})()';

     

  11. Posted

    32 minutes ago, MMSoft said:

    I place the cursor at the top left of the site on the Item "FMX" and give a click.

    I think it may be that the click is being invoked on the span, or the image (i): 

    <li>
  <a href="https://en.delphipraxis.net/forum/28-fmx/">
	<span>FMX <i class="fa fa-angle-right"></i></span>
  </a>
</li>

    When it needs to be on the anchor (a) element, so I'll need to tweak the JavaScript a bit.

  12. Posted

    4 hours ago, MMSoft said:

    I'm trying to be able to click something on the displayed site so that it executes. 

    const
  cJavaScriptClickAtXY = '(function() { '#13#10 +
    'var windowX = %d, windowY = %d'#13#10 +
    'let x = windowX - (window.scrollX || window.pageXOffset)'#13#10 +
    'let y = windowY - (window.scrollY || window.pageYOffset);'#13#10 +
    'var element = document.elementFromPoint(x, y);'#13#10 +
    'if (element) {'#13#10 +  
    '  var clickEvent = document.createEvent("MouseEvents");'#13#10 +
    '  clickEvent.initMouseEvent("click", true, true, window, 0, 0, 0, x, y, false, false, false, false, 0, null);'#13#10 +
    '  element.dispatchEvent(clickEvent);'#13#10 +
    '} else'#13#10 +
    '  console.log("No element found at coordinates:", x, y);'#13#10 +
    '})()';

// Example call:
WebBrowser1.EvaluateJavaScript(Format(cJavaScriptClickAtXY, [Cursor_Position_X, Cursor_Position_Y]));

    The code above should do what you want - it has had very limited testing in my environment

  13. Posted

    12 hours ago, MMSoft said:

    I'm trying to create an Android project, where a Web browser shows a Site.

    That's not a complete example, and obviously not Windows, so I'm not sure why you felt the need to add a unit that requires Windows.

  14. Posted

    3 hours ago, FabDev said:

    Delphi say "No provisioning profil has been found in the build configuration and device selected...".

     

    In macOS 15, the location for provisioning profiles is in another folder. One solution to fix this is:

    1. In Xcode menu, click Xcode > Settings, and select Accounts
    2. Select the relevant Apple ID (or add yours if none exists in the list)
    3. Click "Download Manual Profiles"

    Then PAServer should find the profile

    • Thanks 1

  15. Posted

    34 minutes ago, MMSoft said:

    Unfortunately I get this error message there:
    [DCC Fatal Error] DW.JavaScript.WebView2.pas(6): F2613 Unit 'Winapi.WebView2' not found.

    Presumably you are attempting to use this unit on a non-Windows platform, which it is not intended for. Please give a complete example of what you are trying to do.

     

  19. Posted

    11 hours ago, MMSoft said:

    Project Test_1.apk raised exception class EJNI with message 'Java type JDWRectangleDrawable could not be found'.

    What am I doing wrong?

    You need to add dw-kastri-base-3.0.0.jar to the Libraries node of the Android targets. If you want to target both 32-bit and 64-bit, unfortunately because of a bug in Delphi 11.3,  you'll need to make a copy of the jar file in another folder in order to be able to add it to both targets.

    11 hours ago, MMSoft said:

    It doesn't matter where I put a "NativeImage" on the form, it comes up  
    always to be at the top left

    I've been having that trouble, too. It works OK for me in some apps, but not in that demo. Still looking into why.

     

    11 hours ago, MMSoft said:

    If the height or width is slightly icy, it doesn't happen

    "Slightly icy"?

  20. Posted

    52 minutes ago, William23668 said:

    Exception in thread "main" java.lang.UnsupportedClassVersionError: com/android/ddmlib/Log$ILogOutput has been compiled by a more recent version of the Java Runtime (class file version 55.0), this version of the Java Runtime only recognizes class file versions up to 52.0

    You're using the wrong JDK. Later versions of Delphi require Eclipse Temurin Open JDK. In the Delphi menu, click Tools > Manage Features, then scroll the right hand side down to the bottom, select Eclipse Temurin Open JDK and click Apply. You'll then need to configure the Android SDK settings to use it:

    image.thumb.png.ca500cb8170681ad0387235a695578de.png

     

     

  21. Posted

    6 hours ago, MMSoft said:

    But I can't get both an Image and a Rectangle visible on top of this TWebBrowser.

    You need to use a control that supports proper "z-order" with platform-derived controls such as TWebBrowser. Kastri has such controls (TNativeImage, TNativeRectangle etc), and I've now created a demo that could be used as a starting point to achieve what you want. Please note that you would need to first install the KastriFMX package, which contains the native controls.

    • Like 1
×