Jump to content

Hans♫

Members
 View Profile  See their activity

  • Content Count

    118

  • Joined

  • Last visited

  • Days Won

    3

Posts posted by Hans♫

  1. Posted

    55 minutes ago, Sherlock said:

    Windows VM on a Mac made it easy to develop for three platforms (Win, macOS, iOS)... 

    Good to hear. It's of course a tradeoff. Using a VM requires extra time and so do running multiple Delphi version directly in your main Windows installation. My conclusion so far is that the latter works better for me, despite often having problems when a new Delphi version is released. 

  3. Posted

    54 minutes ago, Dalija Prasnikar said:

    ... when you run the wizard at one point you will also have Three buttons under the settings tree: Update Migration, Version Migration, and Computer Migration. You should choose Version Migration when migrating form one version to another.

    You are right, I didn't make any changes to the settings tree, as I expected it to be correct by default when having chosen "... to newer product version" on the first page.

    Lesson learned!

    Unfortunately I am still in a dead-lock that I cannot install Delphi 12 because it thinks its already installed. Have contacted support and waits for an answer, but I expect that it is just a single obfuscated registry value that needs to be removed to continue. Just don't know which.

  4. Posted

    3 minutes ago, Dalija Prasnikar said:

    Update migration is wrong option. It is used only for same version updates. You need to choose Version migration. 11.x and 12.x are not compatible,

    I used the option "Migrate settings to a newer product version". Do you suggest to use the other option "Export settings to a migration file"?

  5. Posted

    Short version:

    I am now trying to manually uninstall Delphi 12, but I keep getting this message when I want to install Delphi 12 again:

    image.png.2fada1271f730130fd85bfb273e54a41.png

     

    The installer will no let me proceed as the uninstaller fails (it does not exist). I have followed the guide written here:

    But something must be missing.

    Any suggestions what I can do to make the installer run again?

     

    Long version:

    1) Installed Delphi 12 using the web installer (RADStudio_12_0_inline_esd_116924.exe). Installed platforms Windows, MacOS, iOS and Android.

    2) Used the migration tool when suggested during installation, and chose the upgrade feature to migrate from existing Delphi 11.3

    3) Running Delphi 12 for the first time, but with a lot of error messages. It tried to load all the Delphi 11.3 packages, which of course fails.

    4) Removed all invalid packages manually so it now runs without errors. 

    5) Discovers that iOS and Android platforms are not shown, despite being installed. This is the general IDE options (without having loading a project):

    Screenshot_3.png.5df17fa17b347849c397742b9b78fc8e.png

    6) Used the "Manage features" to uninstall iOS and install it again, but same problem. The manage features window shows that all is installed:

    Screenshot_1.thumb.png.97db7c4bc7aa29d3b9cfcd2665367bb1.png

     

    7) Uninstalling Delphi 12 from Windows 10 > Settings > Apps, but the uninstaller failed in a way. It showed a message "Uninstalling GetIt ... (this may take a while)", then opened a command prompt, but nothing happened in the command prompt and after 30 minutes I closed the command prompt and uninstall continued, and, as far as I remember, completed without any errors.

     

    😎 Installing Delphi 12 again, but shortly after having selected all platforms and clicked continue, it failed. Unfortunately I did not get a screen shot of the error.

     

    9) Now I began to manually remove all Delphi 12 files, so I could make a clean installation again, but here I am stuck as described in the beginning of this post. Something remains that is linked to Delphi 12, but not clearly identified as belonging to Delphi 12. 

    I already have Delphi 10.4 and Delphi 11.3 on the computer, so I don't want to remove ALL Embarcadero related data.

     

    I suppose it all started because I used the Migration tool, which I have always done with success, but this time it messed everything up.

  6. Posted

    Just now, Lars Fosdal said:

    Is it Turkish text being converted to uppercase?

    Is ToUpper using the Turkish locale?

    No it is English text that is hardcoded in our app, just like in the example. But .ToUpper uses the OS locale (i.e. Turkish), which means that the uppercase edition of "i" is not "I".

  7. Posted

    We have received reports from our Turkish users that our app is failing. Our debugging comes down to this simplified code: 

    lStr1 := 'This';
lStr2 := 'THIS';
if lStr1.ToUpper = lStr2.ToUpper then
begin
  //This code is NOT executed if local is Turkish!
end;

    This happens in both Delphi 11.3 and Delphi 12, and it happens on all platforms: Windows, MacOS, Android and iOS.

    The reason is that the uppercase edition of the letter "i" becomes "İ", which is not the same as "I", while the uppercase edition of "I" remains unchanged.

     

    The problem is solved by using "SameText", but I still find that the above behavior is strange.

  9. Posted

    This must be a bug in Delphi, but it seems to be out of my hands, so for now we just replace our JPG files with PNG files.

    However, in case someone would experience similar problems or want to look into it, here is what I have found.

     

    We load the exact same jpg file using the exact same code, but the result:

    Windows: OK

    iOS: OK

    Android: OK

    MacOS not Sonoma: OK

    MacOS Sonoma with ARM processor: OK

    MacOS Sonoma with Intel processor: Exception

     

    Stacktrace: 

    System.Error(System.TRuntimeError)(reInvalidOp)
System.FRaiseExcept(unsigned int, bool)(1,true)
System._Round(long double)(NaN)
Fmx.Multiresbitmap.TBitmapOfItem.DoChange()($000060000198c420)
Fmx.Graphics.TBitmap.BitmapChanged()($000060000198c420)
Fmx.Graphics.TBitmap.SetSize(int, int)($000060000198c420,3000,1496)
Fmx.Graphics.TBitmap.AssignFromSurface(Fmx.Surfaces.TBitmapSurface*)($000060000198c420,$0000600003388c00)
Fmx.Graphics.TBitmap.Assign(System.Classes.TPersistent*)($000060000198c420,$0000600003388c00)
Fmx.Graphics.TBitmap.LoadFromStream(System.Classes.TStream*)($000060000198c420,$0000600002846a80)
Uoscommon.LoadBitmapResource(Fmx.Graphics.TBitmap*, System.UnicodeString)($000060000198c420,'HomeBackGround2048')
Fomain.tMainForm.FormCreate(System.TObject*)($00007fd5090cfa00)
Fmx.Forms.TCommonCustomForm.AfterConstruction()($00007fd5090cfa00)
System._AfterConstruction(System.TObject*)(0x7fd5090cfa00)
Fomain.tMainForm.tMainForm(System.Classes.TComponent*)($00007fd5090cfa00,true,$00007fd509907af0)
Fmx.Forms.TApplication.CreateForm(System.Classes.TComponentClass, void*)($00007fd509907af0,0x1021a0bd0,0x1021a46d0)
Fmx.Forms.TApplication.RealCreateForms()($00007fd509907af0)
Fmx.Platform.Mac.TPlatformCocoa.Run()($00007fd508715880)
Fmx.Forms.TApplication.Run()($00007fd509907af0)
main(1,0x7ff7bfeff8e0,0x7ff7bfeff8f0,0x7ff7bfeff9a0)
:00007FF80ED623A6 ??

    It happens when calling "Round" in this procedure: 

    procedure TBitmapOfItem.DoChange;
begin
  inherited;
  if (FBitmapItem <> nil) and (not FBitmapItem.FDormantChanging) then
  begin
    FIsChanged := True;
    FBitmapItem.FWidth := Round(Width); //<- exception here. Width is an integer property with value 3000
    FBitmapItem.FHeight := Round(Height);
    if (FBitmapItem.Component <> nil) and ([csLoading, csDestroying] * FBitmapItem.Component.ComponentState = []) and
      (FBitmapItem.Collection is TCustomMultiResBitmap) and
      (TCustomMultiResBitmap(FBitmapItem.Collection).UpdateCount = 0) then
      FBitmapItem.Changed(False);
  end;
end;

    The Round function being called that raises the exception: 

    function _Round(Val: Extended): Int64;
type
  TWords = Array[0..4] of Word;
  PWords = ^TWords;
begin
  if (PWords(@Val)^[4] and $7FFF) >= $403F then
    FRaiseExcept(feeINVALID);
  Result := llrintl(Val);
end;

    The image being loaded is added to the project as a ressource with the ID "HomeBackGround2048", which refers to a JPG image with dimensions 3000x1496. We load it using this function: 

    procedure LoadBitmapResource(const aBitmap: TBitmap; const aResourceName: string);
var lStream: TResourceStream;
begin
  lStream := TResourceStream.Create(HInstance, aResourceName, RT_RCDATA);
  try
    aBitmap.LoadFromStream(lStream);
  finally
    lStream.Free;
  end;
end;

     

  10. Posted

    On 7/7/2023 at 10:38 AM, Chris Pim said:

    A huge thanks to David Nottage! A fix has been found and I've included below for those that need it. The changes need to be made in FMX.inAppPurchase.iOS.pas (copied into your own project first as usual).

    I've confirmed that this fixes the crash in iOS 17 and also still works in iOS 16. Not sure why we didn't see the crashes in iOS 16 but may be random luck given the nature of bugs like this.

    It's strange that we have not had any reports from iOS 17 users, and our own tests on iOS 17 also runs fine. Our analytics tells us that 400 unique users have started our software on iOS 17 until yesterday.

    We use in-app purchases too and those two .release lines are still active in our copy of FMX.inAppPurchase.iOS.pas.

    We have other modifications of the file though, so maybe it makes a difference just by compiling it your self?

  11. Posted

    If Marco Cantu reads this, I would highly recommend Embarcadero to prioritize a rock solid compatibility to new SDK/API version on alle platforms.

    New features are nice, bug fixes are very nice, but the uncertainty about support for platform changes can ruin it all.

     

    I know it is easier said than done because the marketing people will scream for new features to promote. That is the tradeoff in all software companies. But the whole revenue in our company is based on being available on all platforms, and it requires "nerves of steel" to be so close to the edge of the cliff so often.

    • Like 3

  15. Posted · Edited by Hans♫

    We already use a new installation of Delphi 11.3 Patch 1, but it targets API level 32. It installs this:

    file:///C:/Users/Public/Documents/Embarcadero/Studio/22.0/CatalogRepository/AndroidSDK-2525-22.0.47991.2819/platforms/android-32

     

    What did you do to target API level 33?

     

    PS. It is installed on a VM that had Delphi 11.2, but upon installation of Delphi 11.3 it uninstalled 11.2 first.

    • Like 2

  18. Posted

    Interesting what happens when the Vietnamese language is chosen. I created this issue 7 years ago, about another error that I had only seen on Vietnamese:

    https://quality.embarcadero.com/browse/RSP-16205

     

    It could be related to your problem because my reported error is that TPath.GetTempPath fails in Vietnamese.

     

    PS. I don't understand Vietnamese, but we have customers from Vietnam and had to make a workaround for the issue.

    • Like 1

  19. Posted · Edited by Hans♫

    We use this function (I modified it here to avoid using external references, but I think it will be correct as written here):

      

    function OSGetUserDesktopPath: string;
begin
{$ifdef MSWINDOWS}
  winApiUtils.GetFolderPath(CSIDL_DESKTOPDIRECTORY,Result);
  result := result+TPath.PathSeparator;
{$elseif defined(OSX)}
  Result := TPath.GetHomePath+TPath.PathSeparator+'Desktop'+TPath.PathSeparator;
{$elseif defined(IOS)}
  Assert(false, 'OSGetUserDesktopPath not implemented on IOS');
  Result := '';
{$elseif defined(ANDROID)}
  Assert(false, 'OSGetUserDesktopPath not implemented on ANDROID');
  Result := '';
{$else}
  {$Message Error 'Missing Target'}
{$endif}
end;

     

  20. Posted

    We just released a new update of our software yesterday, built with Delphi 11.2. Unfortunately our customers now complains that keyboard shortcuts no longer works.

    This has already been reported in quality portal, but unfortunately we did not discover this in time:

    https://quality.embarcadero.com/browse/RSP-39902

     

    The problem happens in Actions with all F1 - F12 shortcuts, numerical keyboard shortcuts and more. 

    Except from that, our Delphi 11.2 built app works well on all platforms (Windows, Mac, Android and iOS).

    • Like 1

  25. Posted · Edited by Hans♫
    Added Windows version

    This is the first time I install a Delphi 11 version on my computer, having used Delphi 10.4 so far.

    The installation runs until the page where I should choose what platforms to install (see image). First time I actually did see the list, but as soon as I checked additional options (maybe at the time where I checked iOS target, not sure), it crashed.

    Having uninstalled and installed again several times, but always the same result: Both web installer and ISO installer. Both as Administrator or not. All Delphi 11 editions, 11.0, 11.1 and 11.2. 

     

    I am on Windows 10, latest update, and have Delphi 10.4 on the computer with all taget platforms installed and in use (Win, OSX, iOS and Android). Something may be interfering?

     

    Any ideas what to try?

    Screenshot_2.jpg

×