Jump to content

FredS

Members
  • Content Count

    418
  • Joined

  • Last visited

  • Days Won

    4

Everything posted by FredS

  1. FredS

    Another getit problem for rad 10.4.1

    You should be able to get those from https://my.embarcadero.com As for the rest, what are the results of NsLookup? nslookup getit-104.embarcadero.com
  2. FredS

    Delphi 10.4 GetIt connection issue

    Same happened to me, seems to be a case manufacturer obsolescence:
  3. FredS

    Delphi 10.4 GetIt connection issue

    Pretty sure only getitnow is setup to accept basic browser access. The others appear to be redirected to this error. Check: [HKEY_CURRENT_USER\Software\Embarcadero\BDS\??.0\CatalogRepository] ServiceURL=https://getit.embarcadero.com
  4. FredS

    FireDAC Add On discountinued? (Good by Embarcadero?)

    Besides cost once your projects are fine tuned it can take a long time of frustrated user input to iron out differences.. Back when I looked at FireDAC it was around $900 plus subscription fees while UniDAC was ~$400.. now that initial investment is null and that includes time spent..
  5. FredS

    Threads on dual-Xeon system

    Checkout the NUMA Support Branch Add to DPR Uses: FastMM5 in '<path>\FastMM5\FastMM5.pas', Call `FastMM_ConfigureAllArenasForNUMA` in the DPR after BEGIN
  6. FredS

    Threads on dual-Xeon system

    I don't have a Dual Xenon system available to me but I've tested this in an elevated app and it works fine: https://community.idera.com/developer-tools/programming-languages/f/delphi-language/72615/linux-equivalent-for-setthreadidealprocessor-and-setthreadaffinitymask-in-delphi
  7. FredS

    Threads on dual-Xeon system

    I added in my DPR right above madExcept (v5) and it worked fine. Did you use the NUMA Branch?
  8. Can be changed to force UAC into the Secure Desktop: https://docs.microsoft.com/en-us/windows/security/threat-protection/security-policy-settings/user-account-control-behavior-of-the-elevation-prompt-for-standard-users
  9. I got as far as "Error on loading data from server getit-104.embarcadero.com..." 🙂
  10. Use Regex101 to find the issue.
  11. Since we already have System.Net.URLClient.TURI I might simply add a record helper with a class function Combine. AUrl := TUri.Combine(Path1, Path2);
  12. FredS

    Delphi 10.4.1 and the IDE FIx Pack

    For sure. Executing a cmd which deletes DCUs that may have been compiled using different config seems to have helped a lot. I didn't come back until XE7 (D6->XE7) at which point there where huge issues with or without fix pack. The interesting part is that some of those got better with one minor release then came back in the next..
  13. FredS

    Delphi 10.4.1 and the IDE FIx Pack

    Yup, this thinking suggests that all those usability, compile and stability issues where fine as long as Andy fixed 'em..
  14. FredS

    Delphi 10.4.1 and the IDE FIx Pack

    I guess the key point is that Embarcadero is just fine without the fix pack then.. move along..
  15. Please, don't inject common sense into the Anti-With argument 🙂 That said, I used to write WITH six even eight levels deep. Thought nothing of it, surely everyone knew the classes referenced within that and it was clear which one the property belonged to.. Returning to that code ten years later was less fun..
  16. FYI: This is your thread so you should get notification of all replies to it. But I only get notification when someone quotes, 'Likes' or adds me as a Tag. In short if someone didn't give my post a like I would have never seen your reply.
  17. Yes, and ignore all those other flaws never fixed in the compiler to fixate on WITH which at times is the ONLY way to bypass EMBT bugs without updating to an arguably less stable version of Delphi.
  18. You have to use the Helper, only it and the use of WITH get you access, see my test code above. Plus that's not enough code for anyone to help you.. // Your helper should have a method like SetPrivateVar which uses 'With Self do' SomeClass.SetPrivateVar(TMyClassA2.Create());
  19. Works here, must be Magic 🙂
  20. I have this test setup to let me know if this is ever changed in a new version of Delphi. Should be simple enough to replace TCustomTextFile with whatnot and run the test which I just ran in 10.4.1 and it passed: //MMWIN:CLASSCOPY unit _MM_Copy_Buffer_; interface implementation type TTestAccessToPrivateFieldHelper = class helper for TCustomTextFile function SetPrivateOwnsStream(AValue: boolean): boolean; end; { TTestAccessToPrivateFieldHelper } function TTestAccessToPrivateFieldHelper.SetPrivateOwnsStream(AValue: boolean): boolean; begin with Self do begin FOwnsStream := AValue; Result := FOwnsStream; end; end; end. //MMWIN:MEMBERSCOPY unit _MM_Copy_Buffer_; interface type THelperTests = class(TObject) public [Test(True)] procedure TestAccessToPrivateField; end; implementation procedure THelperTests.TestAccessToPrivateField; var F : TTextFile; begin F := TTextFile.Create('testing.txt', TEncoding.UTF8); try Assert.IsFalse(F.SetPrivateOwnsStream(False)); Assert.IsTrue(F.SetPrivateOwnsStream(True)); finally F.Free; end; end; end.
  21. How to call a private method of a class inside a Berlin+ class via Helper procedure TSomeClassHelper.CheckAccessToPrivate; begin With Self do begin // access via with works FInt :=1; SomeMethod; end; end; // Declared in another unit as: type TSomeClass = class private FInt : integer; procedure SomeMethod; end;
  22. FredS

    Non Delimited string parsing (registry entries)

    See if this fits: Attribute-based Command Line Parsing
  23. FredS

    10.4.1 Released today

    Never worked for me. A Reg backup and Beyond Compare work with a little effort..
  24. FredS

    10.4.1 Released today

    Anyone able to switch 'Configuration' and have that update in the 'Project Manager' , without using the 'Config Manager'? My 10.4.1 is still Sandboxed on Win7.. Also 'Build Groups' are using the wrong config, strangely changing that (Options) doesn't update the 'Project Manager' display but Barbie band-aids that issue..
  25. FredS

    ICS for Linux?

    - Quick installed Ubuntu 20.04 - ran: `sudo apt-get install openssh-server` - connected via WSL from Host: fred@PUTER:~$ sudo ssh fred@172.17.134.53 fred@172.17.134.53's password: Welcome to Ubuntu 20.04 LTS (GNU/Linux 5.4.0-26-generic x86_64)
×