Jump to content

Dave Nottage

  • Content Count

  • Joined

  • Last visited

  • Days Won


Dave Nottage last won the day on December 14 2020

Dave Nottage had the most liked content!

Community Reputation

206 Excellent

Technical Information

  • Delphi-Version
    Delphi 10.4 Sydney

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Dave Nottage

    Rad Studio - Cannot Connect to the Mac

    http://docwiki.embarcadero.com/RADStudio/Sydney/en/Steps_in_Creating_Multi-Device_Applications#If_your_application_targets_either_macOS_or_iOS See steps 5 and 6
  2. Dave Nottage

    android camera problem

    You do not create an instance of JCamera using Create. As per the documentation: Camera | Android Developers To take pictures with this class, use the following steps: Obtain an instance of Camera from open(int).
  3. Dave Nottage

    android camera problem

    I have been working on that. I needed to make a substantial change to using an OpenGL surface - a problem I am having is doing a transform when the device is not oriented in the "normal" position. That already is "tapped", however the SurfaceTextureListener is not the right place. As per my comment above, I've switched to using GLSurfaceView: https://developer.android.com/reference/android/opengl/GLSurfaceView Which uses: https://developer.android.com/reference/android/opengl/GLSurfaceView.Renderer The GLSurfaceView calls onDrawFrame of the Renderer when a new frame is available, so the capture/filtering can be done there. This part is all done in Java, however the Delphi code could "hook" into the filtering, and can already pass a Java bitmap of the resulting frame to Delphi. Again as per above, I want to resolve the transform issue which is currently eluding me. I'm willing to share the work in progress with others if they think they can help. Best to join my Slack workspace to do so: https://slack.delphiworlds.com
  4. Dave Nottage

    android camera problem

    It was pretty daunting for me: Native Camera for iOS and Android – Delphi Worlds There's still a number of issues to resolve...
  5. It appears you have already asked a similar question, here: https://stackoverflow.com/questions/65345853/is-it-possible-to-write-the-following-java-program-in-delphi The principal for your present issue is identical, i.e. if OnPrintListener is a class, then you. cannot do it in Delphi. If it's an interface (which, given your other question, it's likely), then you already have an example of how to implement a Java interface, in the StackOverflow answer. A possible example for this case: uses Androidapi.JNIBridge, Androidapi.JNI.JavaTypes, Androidapi.Helpers; type JOnPrintListener = interface; JOnPrintListenerClass = interface(IJavaClass) ['{076904DD-77D9-497D-BA21-992A9B8FED3E}'] end; [JavaSignature('com.nexgo.oaf.apiv3.device.printer.OnPrintListener')] JOnPrintListener = interface(IJavaInstance) ['{F688775D-067F-4521-A045-9106599F4C4A}'] procedure onPrintResult(retCode: Integer); cdecl; // *** NOTE *** There may be other methods for this interface end; TJOnPrintListener = class(TJavaGenericImport<JOnPrintListenerClass, JOnPrintListener>) end; TRunnable = class(TJavaLocal, JRunnable) private FCallback: TProc; public { JRunnable } procedure run; cdecl; public constructor Create(const ACallback: TProc); end; TPrintListener = class(TJavaLocal, JOnPrintListener) private FRetCode: Integer; FRunnable: JRunnable; procedure DoRun; public { JOnPrintListener } procedure onPrintResult(retCode: Integer); cdecl; public constructor Create; end; { TRunnable } constructor TRunnable.Create(const ACallback: TProc); begin inherited Create; FCallback := ACallback; end; procedure TRunnable.run; begin FCallback; end; { TPrintListener } constructor TPrintListener.Create; begin inherited; FRunnable := TRunnable.Create(DoRun); end; procedure TPrintListener.DoRun; begin // Do the toast thing here, using FRetCode end; procedure TPrintListener.onPrintResult(retCode: Integer); begin FRetCode := retCode; TAndroidHelper.Activity.runOnUiThread(FRunnable); end; { TForm1 } procedure TForm1.Button1Click(Sender: TObject); begin // Assuming FPrintListener is defined as: FPrintListener: JOnPrintListener FPrintListener := TPrintListener.Create; // Assuming you have created an instance of Printer (imported as JPrinter) called FPrinter FPrinter.startPrint(False, FPrintListener); end; Note all of the assumptions being made - the biggest one being that OnPrintListener is an interface. Also I don't have the .jar, nor the printer, so of course it is untested
  6. Unlikely. Such tools are to create imports from .jar or .class files, not convert Java code to Delphi. Your main problem will be whether OnPrintListener is a class or an interface, because you cannot implement a descendant of a Java class in Delphi - it needs to be done in Java. Java interfaces however, can be implemented in Delphi by creating a descendant of TJavaLocal, and implementing the interface in question. There are a number of examples of descendants of TJavaLocal throughout the Delphi source. In order to determine what OnPrintListener is, you could use the aforementioned tools to import the Java classes from the .jar that you mentioned, assuming that it is the one that contains com.nexgo.oaf.apiv3.
  7. Dave Nottage

    Save and get images on iOS

    Since iOS 8, use the PhotoKit framework to access photos in albums: PhotoKit | Apple Developer Documentation I have an import for it, here: https://github.com/DelphiWorlds/Kastri/blob/master/API/DW.iOSapi.Photos.pas Which likely needs updating, because I think I imported it around iOS 9 era. This will not help you however, if you are saving photos as files somewhere. You can retrieve the filename from an asset in the gallery, bearing in mind can be traps in doing so: https://medium.com/@slk11075/traps-for-phasset-how-to-get-filename-from-phasset-67d856e75c64
  8. Dave Nottage

    iOS, Error e8000084

    If you haven't already, try using a different cable
  9. Dave Nottage

    Firebase Notification

    Are you actually including that unit in your source? If so, where you have declared it, please use Ctrl-Click or right-click and Open File At Cursor. It should find it in the Delphi source in the fmx folder. If it finds it anywhere else, that's probably the issue.
  10. Dave Nottage

    Firebase Notification

    You didn't answer my other question, i.e:
  11. Dave Nottage

    I messed up my SDK and NDK Setup

    The test project: Does not have "Secure File Sharing" checked in the Entitlements section of the Project Options, Does not request the required permissions at runtime. Fixing these makes it work for me on Android 11.
  12. Dave Nottage

    RAD Studio 10.4.1 my first iOS app - can error

    iOS simulator is currently not supported. Use a real device
  13. Dave Nottage

    [Android] Hangs on splashscreen

    On Android, problems in deployment can cause the app to fail to start, however you have indicated it is also a problem on iOS, so it is more likely to be a problem with the initialization of one of the units included. Can you create a blank app that runs OK? If so, use that, and start adding your original to the project until it breaks - then you have a reproducible example.
  14. Dave Nottage

    TBitmap published property

    Which is the whole problem - they're not called when the values are streamed. I needed to override the Loaded method to see that they are.
  15. Dave Nottage

    TBitmap published property

    I have an FMX component with a published TBitmap property, but the property is not being read when the component is loaded (the other properties are). Holger Flick's article suggests that it is possible: https://flixengineering.com/archives/166 Is there something special I need to do to make it work? This is what the declaration looks like: TCustomNativeDoodad = class(TPresentedControl) private function GetMaxImage: TBitmap; function GetMinImage: TBitmap; function GetModel: TCustomNativeDoodadModel; overload; function GetValue: Single; procedure SetValue(const Value: Single); function GetOnValueChange: TNotifyEvent; function GetOrientation: TDoodadOrientation; procedure SetMaxImage(const Value: TBitmap); procedure SetMinImage(const Value: TBitmap); procedure SetOnValueChange(const Value: TNotifyEvent); procedure SetOrientation(const Value: TDoodadOrientation); protected function DefineModelClass: TDataModelClass; override; function RecommendSize(const AWishedSize: TSizeF): TSizeF; override; public constructor Create(AOwner: TComponent); override; property MaxImage: TBitmap read GetMaxImage write SetMaxImage; property MinImage: TBitmap read GetMinImage write SetMinImage; property Model: TCustomNativeDoodadModel read GetModel; property Orientation: TDoodadOrientation read GetOrientation write SetOrientation; property Value: Single read GetValue write SetValue; property OnValueChange: TNotifyEvent read GetOnValueChange write SetOnValueChange; end; [ComponentPlatformsAttribute(pfidiOS or pidAndroid)] TNativeDoodad = class(TCustomNativeDoodad) published property Align; property Anchors; property Height; property Margins; property MaxImage; property MinImage; property Orientation; property Position; property Size; property Value; property Visible default True; property Width; property OnValueChange; end; SetMaxImage and SetMinImage are not being called when the component is being loaded