-
Content Count
1609 -
Joined
-
Last visited
-
Days Won
37
Everything posted by Dave Nottage
-
Code for getting permissions not working in Delphi 11
Dave Nottage replied to Delpher2600's topic in FMX
This: procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>) Needs to be: procedure(const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray) I believe the change to the types was related to C++Builder compatibility -
That's likely because there's only a few supported, including the arrow keys. This is some code I used a while ago in a TV app, which I have not touched in some time: type TKeyNavigation = (None, Home, Back, Left, Right, Up, Down, OK); // KeyUp method is overridden from TForm procedure TExampleForm.KeyUp(var Key: Word; var KeyChar: System.WideChar; Shift: TShiftState); var LKeyNavigation: TKeyNavigation; LIsTV: Boolean; begin // For the following code, please refer to: // https://github.com/DelphiWorlds/Kastri/blob/c01b93369c2c33f8ab22acad611939be4789aae6/Core/DW.OSDevice.Android.pas#L216 // and: // https://github.com/DelphiWorlds/Kastri/blob/c01b93369c2c33f8ab22acad611939be4789aae6/Core/DW.OSDevice.pas#L34 LIsTV := TOSDevice.GetUIMode = TUIMode.Television; LKeyNavigation := TKeyNavigation.None; case Key of vkHardwareBack, vkEscape: LKeyNavigation := TKeyNavigation.Back; vkleft: LKeyNavigation := TKeyNavigation.Left; vkUp: LKeyNavigation := TKeyNavigation.Up; vkRight: LKeyNavigation := TKeyNavigation.Right; vkDown: LKeyNavigation := TKeyNavigation.Down; 0, vkReturn: begin if KeyChar = #0 then LKeyNavigation := TKeyNavigation.OK; end; end; if FPreventExit and ((Key = vkHardwareBack) or (LIsTV and (Key = vkEscape))) then begin Key := 0; KeyChar := #0; end; if (LKeyNavigation <> TKeyNavigation.None) and LIsTV then KeyNavigation(LKeyNavigation); end; procedure TExampleForm.KeyNavigation(const ANavigation: TKeyNavigation); begin // Use this method to determine what to do with the navigation key end; Looking at it again now, it probably needs more work.
-
[Firemonkey ]Change iOS screen rotation at runtime
Dave Nottage replied to gioma's topic in Cross-platform
Thanks to a message from @Stewag, I've been prompted to revisit this issue. The following code works on iOS 17. I expect it'll work on iOS 16 - not sure about earlier: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} uses Macapi.ObjectiveC, Macapi.Helpers, iOSapi.Foundation, iOSapi.UIKit, iOSapi.Helpers; type UIViewControllerEx = interface(UIViewController) ['{3E6C5FB2-20F2-4B42-BFD8-33968A80E809}'] procedure setNeedsUpdateOfSupportedInterfaceOrientations; cdecl; end; TUIViewControllerEx = class(TOCGenericImport<UIViewControllerClass, UIViewControllerEx>) end; procedure TForm1.Button1Click(Sender: TObject); var LID: Pointer; begin Application.FormFactor.Orientations := [TScreenOrientation.Portrait, TScreenOrientation.InvertedPortrait]; if TOSVersion.Check(16) then begin LID := NSObjectToID(TiOSHelper.SharedApplication.keyWindow.rootViewController); TUIViewControllerEx.Wrap(LID).setNeedsUpdateOfSupportedInterfaceOrientations; end else TUIViewController.OCClass.attemptRotationToDeviceOrientation; end; If you run the app, then turn the device so that it is in landscape orientation, then click the button, it'll reorient the app into portrait.- 10 replies
-
- ios 13
- firemonkey
-
(and 1 more)
Tagged with:
-
iOS: Black Screen after start with "More Space" setting
Dave Nottage replied to philipp.hofmann's topic in Cross-platform
Not sure how you will do that - there's no "Display Zoom" option, at least not on my iPad -
Moving the procedure TConnectThread.ProcessEvent code out of the MSWINDOWS conditional define (e.g. move it to above the line {$IFDEF MSWINDOWS}) makes that unit compile. I had to also add System.Types to the implementation clause, for the DWord type.
-
iOS: Black Screen after start with "More Space" setting
Dave Nottage replied to philipp.hofmann's topic in Cross-platform
I meant that for me, the two options for "Display Zoom" are: "Larger Text" and "Default": (i.e. I do not have a "More Area" option as per your original post) -
I had a brief look and it appears it may be much more complex with a TMemo
-
iOS: Black Screen after start with "More Space" setting
Dave Nottage replied to philipp.hofmann's topic in Cross-platform
What version of iOS are they running? iOS 16 and iOS 17 both have "Larger Text" and "Default" on my devices. Apps appear to be OK with "Larger Text" on my devices. -
rest Working Stand Alone but not ISAPI
Dave Nottage replied to zsleo's topic in Network, Cloud and Web
I meant the complete URL, which (assuming you are not using URL rewriting) would need to be something like: https://10.10.1.73/MyApp/MyServer.dll/GetDecryptedPWD Where MyApp is the app you added to the website and MyServer.dll is your ISAPI dll. -
It seems for the Barcode Reader there are no compatible binaries that can be linked in by Delphi, for iOS simulator. If you're using this feature, you'll need to compile for a real device.
-
rest Working Stand Alone but not ISAPI
Dave Nottage replied to zsleo's topic in Network, Cloud and Web
You don't mention what Path you have for Action 1, and what URL you are using to access it -
Changes in System.sysutils.pas were not reflecting in other unit in Delphi 11
Dave Nottage replied to sp0987's topic in General Help
I've never seen a project requirement that says something like: "the interface section of SysUtils must be modified in this way" - usually it's more like: "functionality X is required", and it may turn out that the most expedient solution to the requirement is to modify the source. Your description sounds a lot like: "we have SysUtils added to the uses clause of (almost) every unit in the project, so let's change that to avoid having to create another one of our own". Amen. -
Which features from Kastri are you compiling? You may just need to change the value in the Framework search paths setting in the Project Options to point to the Simulator binaries, if any are available.
-
You might be able to modify this code to use TMemo instead of TLabel: https://github.com/grijjy/CodeRage2019/tree/master/HtmlLabel
-
What exactly is the error message you are seeing?
-
iOS: XCode 15: MADDA - Make Delphi Debugging again - after 01.May 2024
Dave Nottage replied to Rollo62's topic in Cross-platform
Xcode 15 doesn't have iOS 16.x SDKs, no.. but that does not mean you cannot debug iOS 16 (or earlier) devices. With no "trickery" whatsoever. iOS 16.x devices do not have the new debugging support introduced in iOS 17, and Xcode 15 handles that. Not sure what you mean by "manually". The only "incompatibilities" are if you attempt to use features in code available in the newer SDK on a device with an older OS (when the feature is not available in that older OS). That's true, however you can import an iOS 17.x SDK from Xcode 15, build your app against it, and It will happily run on an iOS 16.x device (as long as you do not attempt to use features from a newer OS, as mentioned above), and you can use the debugger with Delphi. As I mentioned earlier, it's debugging with an iOS 17.x device that is the major issue right now. -
iOS: XCode 15: MADDA - Make Delphi Debugging again - after 01.May 2024
Dave Nottage replied to Rollo62's topic in Cross-platform
Delphi can already use Xcode 15. The biggest issue at the moment is debugging with iOS 17 (or higher) devices, which is a problem regardless of Xcode version. Debugging on devices with iOS 16.x still works using Xcode 15. A secondary issue is this one: a problem if your app needs to link to 3rd party binaries that were built with Xcode 14 or higher. -
android Delphi Android Intent while App is active creates black screen
Dave Nottage replied to DominikR's topic in FMX
Not sure what the problem is - it works fine on my Pixel 6 Pro with Android 14. Perhaps try a clean/build. -
android Delphi Android Intent while App is active creates black screen
Dave Nottage replied to DominikR's topic in FMX
What version of Android is on your device, and what make/model of device is it? -
android Delphi 12.1 Android API 34 - not support architecture
Dave Nottage replied to nevez's topic in General Help
Does this happen for you with a blank application? If not, it would help to have a sample app that "freezes" like you're describing.- 12 replies
-
- rad studio
- platform
-
(and 2 more)
Tagged with:
-
If you're using a demo app, you should not receive that error. The Java type comes from a java library from the Lib folder in Kastri, and which one will depend on the version of Delphi you are using. Delphi 10.x: dw-kastri-base.jar Delphi 11.x: dw-kastri-base-2.0.0.jar Delphi 12.x: dw-kastri-base-3.0.0.jar The relevant jar file would have been added to the Libraries node of the Android 32-bit target in Project Manager, e.g (Delphi 12.x): <snip> Which should be compiled in with the app, unless you're using Delphi 11.3, which requires a workaround.
-
android Delphi 12.1 Android API 34 - not support architecture
Dave Nottage replied to nevez's topic in General Help
Use one that works with the version of Delphi you're using. Either use Tools | Manage Features (in the Delphi menu) and select the Android SDK/NDK, or download a compatible NDK from the NDK downloads. r21e looks like it might work: https://github.com/android/ndk/wiki/Unsupported-Downloads#r21e- 12 replies
-
- rad studio
- platform
-
(and 2 more)
Tagged with:
-
TWebBrowser + dynamic JS question
Dave Nottage replied to David Schwartz's topic in Network, Cloud and Web
Please see this link. -
android Delphi Android Intent while App is active creates black screen
Dave Nottage replied to DominikR's topic in FMX
I revisited it anyway, and have attached the updated test project. Using Codex 2.2.0 I downloaded the AndroidX appcompat package (note that it should be v1.2.0 to align with what Delphi 12.1 uses): ..and added it using the Add Android Package menu item that Codex adds to the Project Manager context menu. This is after deploying at least once, so that resources are merged properly. In Delphi 12.1 deploying at least once also means that AndroidManifest.template.xml is created (in 12.0 and earlier it is created when building, rather than deploying), and the following is added to it, just before <%activity%>: <activity android:name="com.delphiworlds.kastri.DWFilesActivity" android:excludeFromRecents="true" android:exported="true"> <intent-filter> <action android:name="android.intent.action.VIEW" /> <category android:name="android.intent.category.DEFAULT" /> <category android:name="android.intent.category.BROWSABLE" /> <data android:mimeType="*/*" /> <data android:scheme="content" /> <data android:host="*" /> </intent-filter> </activity> ..and of course, the dw.filesactivity.jar library is added to the Android 32-bit Libraries node (does not need to be added to 64-bit unless you're using Delphi 11.3) RSP41337.zip