Jump to content

Dave Nottage

Members
  • Content Count

    1607
  • Joined

  • Last visited

  • Days Won

    36

Everything posted by Dave Nottage

  1. Dave Nottage

    D11, Android new App Billing Service

    The In App Purchase Service option adds the activity entry for the billing service, not the meta-data tag.
  2. Dave Nottage

    Delphi 10.4.2 with XCode13 SDK15.0 packaging ipa fail

    I have a workaround now which is implemented in the Codex and Mosco tools (or just using Mosco if you're OK with using the Mac to perform the fix) The tools with the workaround are presently in beta, and can be accessed via my Slack workspace which you can self-invite to here. (if not joined already). Go to the #codex channel and there is a pinned post with the installers for Codex and Mosco
  3. Dave Nottage

    Warning on depreciated symbol, Delphi 11

    Other than by changing line 99 in PythonEngine.pas?
  4. Dave Nottage

    D11, Android new App Billing Service

    Oops.. it looks like something may have been missed. Can you add the following to the application node of AndroidManifest.template.xml: <meta-data android:name="com.google.android.play.billingclient.version" android:value="4.0.0" /> ..and try again? If this fixes it, I'll file a report in the Quality Portal, unless you want to 🙂 If it doesn't fix it, you might like to use this tool: https://github.com/skylot/jadx to look inside classes.dex in the project output folder, and make sure com.android.billingclient is in there. Perhaps do this first
  5. Dave Nottage

    Delphi 10.4.2 with XCode13 SDK15.0 packaging ipa fail

    I may have one in the next day or so. That is likely to be a completely different issue. Does it happen on other iPhone models? Can you provide code that reproduces the problem? I have access to an iPhone 13 that I can test on. iOS 15.0 SDK comes with Xcode 13 (not earlier versions). I'm not sure if you can switch back to Xcode 12.5.1 and still build against iOS 15.0 SDK The issue we've been discussing affects Delphi 11 and earlier.
  6. Dave Nottage

    Delphi 10.4.2 with XCode13 SDK15.0 packaging ipa fail

    Known issue, caused by changes in Xcode 13. At present, reverting to Xcode 12.x is a solution
  7. The title of the issue you lodged, and the question itself seemed to indicate that you did not have a version for Delphi 11 Alexandria. Perhaps I should have asked whether or not you could compile. I guess your answer means that you can. Given that, is the issue resolved?
  8. Is there some reason you're unable to compile the library yourself? The Delphi 11 project files have even been added
  9. Dave Nottage

    D11, Android new App Billing Service

    It says the officially supported versions are Android 8 and above. That does not mean apps will not run on lower versions - I have apps built with Delphi 11 running on Android 4.4.
  10. I wish to use the App Store Connect REST API to retrieve some information, and I have created a key as per these instructions. Next thing is to create a JWT for passing in the Authorization as per these instructions. I have chosen Paolo Rossi's excellent JOSE JWT library for Delphi (especially since it now includes an ES256 signing algorithm), and have come up with the following code for generating the JWT and sending via HTTP: const cTokenExpirySeconds = 60; cIssuerID = 'xxxxxxxxxxxxxxxxxxxxxxxxxxxx'; cKeyID = 'yyyyyyyy'; cAppStoreConnectAPIURL = 'https://api.appstoreconnect.apple.com/v1'; cAppStoreConnectAPIGetProfiles = cAppStoreConnectAPIURL + '/profiles'; // AIssuer = id obtained from https://appstoreconnect.apple.com/access/api // AKeyID = id associated with the key // ASecret = text read from the .p8 file function CreateJWT(const AIssuer, AKeyID, ASecret: string): string; var LJWT: TJWT; LSigner: TJWS; LKey: TJWK; // LScope: TJSONArray; begin LJWT := TJWT.Create; try LJWT.Header.Algorithm := 'ES256'; LJWT.Header.KeyID := AKeyID; LJWT.Claims.Audience := 'appstoreconnect-v1'; LJWT.Claims.Issuer := AIssuer; LJWT.Claims.IssuedAt := Now; LJWT.Claims.Expiration := IncSecond(Now, cTokenExpirySeconds); // LScope := TJSONArray.Create; // LScope.Add('GET /v1/profiles') ; // LJWT.Claims.JSON.AddPair('scope', LScope); LSigner := TJWS.Create(LJWT); try LSigner.SkipKeyValidation := False; LKey := TJWK.Create(ASecret); try LSigner.Sign(LKey, TJOSEAlgorithmId.ES256); finally LKey.Free; end; Result := LSigner.Payload + '.' + LSigner.Signature; finally LSigner.Free; end; finally LJWT.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); var LHTTP: THTTPClient; LResponse: IHTTPResponse; LToken: string; begin LToken := CreateJWT(cIssuerID, cKeyID, TFile.ReadAllText('Z:\Config\AppStoreConnectAPI\AuthKey.p8')); LHTTP := THTTPClient.Create; try LHTTP.CustomHeaders['Authorization'] := 'Bearer ' + LToken; LResponse := LHTTP.Get(cAppStoreConnectAPIGetProfiles); Memo1.Lines.Add(LResponse.ContentAsString); finally LHTTP.Free; end; end; The response is: { "errors": [{ "status": "401", "code": "NOT_AUTHORIZED", "title": "Authentication credentials are missing or invalid.", "detail": "Provide a properly configured and signed bearer token, and make sure that it has not expired. Learn more about Generating Tokens for API Requests https://developer.apple.com/go/?id=api-generating-tokens" }] } So I assume I am missing something. According to the documentation, adding the scope (the code that is commented out) can be optional depending on the request. Adding the scope yields the same result in this case. Any clues as to what the problem may be?
  11. Dave Nottage

    App Store Connect REST API problem

    D'Oh. Should be: Result := LSigner.CompactToken; Bit of a head-slap moment, there..
  12. Dave Nottage

    App Store Connect REST API problem

    Mine looks exactly like that, but I've obfuscated the value in the code, since I don't want to give out my private info
  13. Dave Nottage

    IOS 15 suppoort

    With the direct download method I used, it took around 30-40 minutes total to update I'm using Xcode 13 also with Delphi 10.4.2 and it appears to be working OK, aside from the issue mentioned earlier about deploying for App Store when using Debug config.
  14. Dave Nottage

    IOS 15 suppoort

    After I updated my phone to iOS 15.0, the apps that were already on it, compiled with Delphi 10.4.2 using iOS 14.5 SDK, ran without any warnings. Xcode 13 is now installed, and I was able to import the iOS 15.0 SDK. EDIT: As per this report on Facebook: https://www.facebook.com/groups/137012246341854/posts/4389107827798920 App Store builds using Xcode 13 FAIL. Dev builds are OK. I'm looking into why the App Store build fails EDIT 2: App Store builds work if Release config is selected. I'm pretty sure that in earlier versions of Xcode, it did not matter if Debug config was used. A word of warning about installing Xcode 13: When I used the App Store app on the Mac to update Xcode, it spent a couple of hours "stuck" at around the 95% mark. I ended up restarting my machine, and it went back to around 75%: I waited another hour or so, and it did not move, so I gave up, and downloaded Xcode 13 from the developer site: https://developer.apple.com/download/release/ The link to the released version of Xcode 13 seems to have disappeared from that link at the moment - hopefully it will re-appear. Anyway, I made a backup of Xcode 12.5.1 in my /Applications folder first, and after downloading Xcode 13, opened a command-line window and executed this: cd /Applications sudo xip -x [path_to_download]/Xcode_13.xip Where [path_to_download] is the path that I downloaded Xcode 13 to. This unarchives Xcode 13 into the /Applications folder. sudo is required for permissions to unarchive to /Applications
  15. Dave Nottage

    IOS 15 suppoort

    Define "cannot run", as in - are there any errors? Does the app start? Incidentally, I'm updating my device today (backing it up with iOS 14.8 first) as well as checking out Xcode 13
  16. Dave Nottage

    r3588 and Alexandria

    Sorry.. I've only seen this just now. I assume you've made the changes?
  17. Dave Nottage

    r3588 and Alexandria

    If you can't wait for @dummzeuch to provide an updated GExperts, I have a DLL compiled for Delphi 11, here.
  18. Dave Nottage

    Drawing problem with TStatusBar

    Steps to reproduce: (Delphi 10.4.2) 1. Start new VCL app 2. Put a TStatusBar on the form 3. Right-click the TStatusBar, click Panels Editor.. 4. Click the "Add" button in the top left, 15 times (panels will be numbered 0 - 14) 5. Save the project 6. Close the form 7. Re-open the form 8. Check the appearance of the TStatusBar On the PCs I have tried this on, the status bar fails to draw correctly when first shown. If the status bar needs to repaint, all is OK. This happens both at design time and runtime. Might anyone know why this occurs, and is there a solution?
  19. Dave Nottage

    Drawing problem with TStatusBar

    OK.. it may be a problem at runtime only in some circumstances, which includes running on a remote machine. Needs further investigation in that regard
  20. Dave Nottage

    MacOS AVPlayer and DRM

    I'm interested, thanks!
  21. This looks like two questions. The first part is not currently possible using Delphi code, since there's no option to use AccessibilityService (there is for a plain Service and JobIntentService) In order to use UssdResponseCallback you need to write Java code, since you need to create a descendant of it (this is otherwise not currently possible in Delphi), and override its methods. You could define a Java interface that the descendant takes as a parameter in its constructor, and uses to redirect the overridden methods, much like I have in the code here: https://github.com/DelphiWorlds/Kastri/tree/master/Java/Base/Connectivity This Java code would need to be compiled into a jar which the Delphi app can consume. You would need to import the Java code into Delphi code. Using the same example above, this is the corresponding Delphi import: https://github.com/DelphiWorlds/Kastri/blob/master/API/DW.Androidapi.JNI.DWNetworkCallback.pas The next step is to construct a class that implements the interface defined earlier. Following the same example, that is TNetworkCallbackDelegate in this unit: https://github.com/DelphiWorlds/Kastri/blob/master/Features/Connectivity/DW.Connectivity.Android.pas You would then create an instance of the "delegate", and pass a reference to that when creating an instance of the descendant. Again following the above example, it would be similar to the code here: https://github.com/DelphiWorlds/Kastri/blob/82da3db3d0a526f6e93a30f3eb1a6c14779399bb/Features/Connectivity/DW.Connectivity.Android.pas#L98
  22. Dave Nottage

    MacOS AVPlayer and DRM

    It's not correct. It needs to be: keyResponse := TAVContentKeyResponse.Wrap(TAVContentKeyResponse.OCClass.contentKeyResponseWithFairPlayStreamingKeyResponseData(ckcData)); If it's an NSDictionary with only one object, this is an example using a typical pattern for that scenario: dict := TNSDictionary.Wrap(TNSDictionary.OCClass.dictionaryWithObject(TNSNumber.OCClass.numberWithInt(1), NSObjectToID(AVContentKeyRequestProtocolVersionsKey)); When there's more than one value to add, one way is to create an instance of NSMutableDictionary, and use the setValue method. There's a couple of examples in FMX.AddressBook.iOS assetIDData := assetIDString.dataUsingEncoding(NSUTF8StringEncoding);
  23. Dave Nottage

    MacOS AVPlayer and DRM

    Should be: FContentKeySession.addContentKeyRecipient(NSObjectToID(FAsset)) You shouldn't need to use a TTask in the code there, either. I had issues compiling your test project, so I started a new one, and just added the form from the original project to it.
×