Jump to content

Der schöne Günther

Members
 View Profile  See their activity

  • Content Count

    654

  • Joined

  • Last visited

  • Days Won

    12

Everything posted by Der schöne Günther

  1. Der schöne Günther

    Lookup for "localhost" takes 2 seconds

    Der schöne Günther posted a topic in Network, Cloud and Web

    I am running a http server locally. I am connecting to it from the very same process. I am very puzzled by the time it takes. To me, it seems that resolving the name "localhost" takes 2 seconds before it times out and defaults to "127.0.0.1": Time taken for http://127.0.0.1: 42 ms Time taken for http://localhost/: 2008 ms Time taken for http://localhost/: 3 ms This is the full source code: program Project1; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, System.Net.HttpClient, System.Diagnostics, IdContext, IdHTTPServer, IdCustomHTTPServer; type TServerClientTest = class private var client: THTTPClient; server: TIdHttpServer; private procedure handleServer( AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo ); public constructor Create(); destructor Destroy(); override; procedure Test(const url: String); end; constructor TServerClientTest.Create(); begin inherited Create(); server := TIdHTTPServer.Create(nil); server.Bindings.Add().Port := 80; server.OnCommandGet := handleServer; client := THTTPClient.Create(); end; destructor TServerClientTest.Destroy; begin server.Free(); client.Free(); inherited; end; procedure TServerClientTest.handleServer( AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo ); begin AResponseInfo.ContentText := '<html><body><h1>Hello World</h1></body></html>'; AResponseInfo.WriteHeader(); AResponseInfo.WriteContent(); end; procedure TServerClientTest.Test(const url: String); var stopWatch: TStopwatch; begin stopWatch := TStopwatch.StartNew(); try server.Active := True; client.Get(url); finally stopWatch.Stop(); end; WriteLn( String.Format('Time taken for %s: %.0f ms', [url, stopWatch.Elapsed.TotalMilliseconds])); end; var serverClientTest: TServerClientTest; begin serverClientTest := TServerClientTest.Create(); try serverClientTest.Test('http://127.0.0.1'); serverClientTest.Test('http://localhost/'); serverClientTest.Test('http://localhost/'); finally serverClientTest.Destroy(); end; ReadLn; end. Does anybody have an idea why this is?
  2. Der schöne Günther

    FYI - Several Embarcadero services are currently unavailable

    Der schöne Günther replied to Keesver's topic in General Help

    That is one of the reasons why you should, at least for closed-source development environments, always have a backup/snapshot of your full dev environment/build system that is proven to work offline (or already is offline). If one day, Embarcaderos servers don't come back again, and only then you start wondering what to do, it's already too late.
  3. Der schöne Günther

    D12 - No more "unknown custom attributes"

    Der schöne Günther replied to Attila Kovacs's topic in Delphi IDE and APIs

    I have been doing Delphi for more than ten years now, and I didn't even know this existed. Looks like a full compilation, but without the linking. "Syntax Check" for my current project took about 30 seconds, which is less than half of what a full build takes. Thank you!
  4. Der schöne Günther

    D12 - No more "unknown custom attributes"

    Der schöne Günther replied to Attila Kovacs's topic in Delphi IDE and APIs

    I am sure I remember something like this, back in Delphi 10.0 or even XE7. The compiler will only check the attributes if the source code file (the binary .dcu it ends up in) gets rebuilt. So if you just change something about the attributes but nothing else, it will not trigger a warning. If you do a full rebuild, it will always trigger the correct warning. I think I never bothered to file a bug report.
  5. Der schöne Günther
    Did you read my post? If you don't like the Sleep(..), have the timer trigger an Event and have the thread wait for the event.
  6. Der schöne Günther
    You say you need it to wake up at fixed intervals. That is exactly what Sleep(..) is for. Keep in mind that 10 milliseconds is a very, very short interval. If we are talking about Windows, then accuracy that low is not guaranteed. As far as I know, it has been improved in recent Windows versions, but generally, you cannot rely on the thread waking up again in exactly 10 milliseconds If you want the thread to wait for something else, you use an Event. You can have the thread wait for an event which is triggered from (for example) your main thread. See System.SyncObjs.pas for event classes.
  7. Der schöne Günther

    Thread Destroy with no corresponding Thread Create?

    Der schöne Günther replied to alogrep's topic in VCL

    In all cases? What are those cases? Can you provide a minimal example (that actually compiles) with all your test cases?
  8. Der schöne Günther

    How can I make TTimer run in the main tread ?

    Der schöne Günther replied to dormky's topic in VCL

    Sounds like you're trying to write an app such as this here:
  9. Der schöne Günther

    How can I make TTimer run in the main tread ?

    Der schöne Günther replied to dormky's topic in VCL

    No, it doesn't. What makes you think so?
  10. Der schöne Günther
    Isn't that like ... the whole point of Win32/Win64? 🤔 Recommended read: Embarcadero: 64-bit Windows Data Types Compared to 32-bit Windows Data Types
  11. Der schöne Günther

    Favorite feature(s) of other editors that Delphi does not offer

    Der schöne Günther replied to dummzeuch's topic in Delphi IDE and APIs

    One of my favourite was when an editor (obviously not RAD Studio) suggested me to rename a function slightly, so that it would become clearer that the data is processed in a specific way. Meanwhile, Delphis compiler won't even tell you when you're accidentally reading uninitialized values from records.
  12. Der schöne Günther

    How to read an .ini file of unknown encoding a FormatSettings?

    Der schöne Günther replied to Tom F's topic in FMX

    I made the same mistake some time back, but why don't you keep reading the existing local file as you always have? The local format settings or encodings surely have not changed? Then, save it to a new file with fixed encoding and date/time (and float!) format and finally delete the old file. At each startup, your app can first look for the "old" file format, and then the new one.
  13. Der schöne Günther

    DUnitX passed in params are confusing

    Der schöne Günther replied to JamieMi's topic in RTL and Delphi Object Pascal

    Keep in mind that while you *can* write DUnitX tests like this, you don’t *have* to. You can still just have a method and define the parameters in there. To be honest, this is what I mostly do as well. The attributes are nice when you have a test where you always expect the same behaviour, and you just want to test it with a bunch of different input values. (Can’t comment on the negative/positive testing. I mostly write tests for my very own stuff, and I’m probably horrible at it)
  14. Der schöne Günther

    We use DUnitX and it discovers all our silly mistakes before release

    Der schöne Günther replied to Lars Fosdal's topic in DUnitX

    It's certainly not going to be trivial, but surely worth it. Been there, done that. A highly recommended read on the matter is "Working effectively with Legacy Code"
  15. Der schöne Günther

    Favorite feature(s) of other editors that Delphi does not offer

    Der schöne Günther replied to dummzeuch's topic in Delphi IDE and APIs

    I'd say it absolutely is. You run your editor on any system, and things like inlay hints, code suggestions and compilation itself happens elsewhere. With Delphi/C++ Builder, everything is tied to running locally on a Windows computer. Or are we focusing exclusively on text editor capabilities? I might have missed that.
  16. Der schöne Günther

    Favorite feature(s) of other editors that Delphi does not offer

    Der schöne Günther replied to dummzeuch's topic in Delphi IDE and APIs

    VS Code's frontend, for example, can run on any device (like an iPad) while the backend (compiler, linter, ...) runs elsewhere (like a computer, the raspberry in my broomcloset or in the cloud).
  17. Der schöne Günther

    Getting Win 11 in Delphi

    Der schöne Günther replied to robertjohns's topic in VCL

    The string "Windows 10" or "Windows 11" does not come from the Windows API, it is a string hardcoded into the Delphi RTL (System.RTLConsts.pas). Delphi 10.2 is from 2017. Windows 11 was released 2021.
  18. Der schöne Günther
    Possibly related read: Allocation-Free Collections – grijjy blog JustAddCode/AllocationFreeCollections at master · grijjy/JustAddCode (github.com)
  19. Der schöne Günther
    Since about 12 hours ago, my Delphi IDE will spawn about two dozen Internet Explorer "Script Error" dialogs on every launch. I will have to dismiss every single dialog before I can continue. I can't understand why the IDE would have to use a full web browser to talk to domains I don't even know, but I'd like to disable it and get back to work. Is there a package I can disable for this "integration"? My only workaround is disabling internet access for the VM Delphi is running on, waiting for the IDE to launch and then turn it back on.
  20. Der schöne Günther

    Changes in the C++ Builder 12.0 editor

    Der schöne Günther replied to Cherubino's topic in General Help

    I had the same problem: How can I disable IDE talking to external websites? - Delphi IDE and APIs - Delphi-PRAXiS [en] (delphipraxis.net)
  21. Der schöne Günther

    How can I disable IDE talking to external websites?

    Der schöne Günther replied to Der schöne Günther's topic in Delphi IDE and APIs

    I have disabled the "Embarcadero Community" toolbar in the IDE and the issue seems to be gone now 🤞
  22. Der schöne Günther

    How can I disable IDE talking to external websites?

    Der schöne Günther replied to Der schöne Günther's topic in Delphi IDE and APIs

    Unfortunately, no. Even after deleting the entire WelcomePage folder from the installation directory, the problem remains exactly the same.
  23. Der schöne Günther
    After we had migrated a project from 10.0 Seattle to 10.4 without any issues and it was working great, we have now migrated the next (bigger) project by 95 %. However, we are constantly having trouble with code completion in 10.4.1, it often stops working completely. As code completion appears to be a separate process, we have three "DelphiLSP.exe" living besides the good old "bds.exe". When code completion stops working, I thought terminating these processes would trigger the IDE to restart them. But this doesn't happen. Do I have another option besides completely shutting down the IDE, opening it again, loading the project and navigating to where I just left off?
  24. Der schöne Günther

    open dialog

    Der schöne Günther replied to RTollison's topic in General Help

    You will have to roll your own file picker or simply display something like "Sorry, this file is not allowed" if it's not in the correct directory. Windows regular file picker does not stop the user from entering an absolute path, following shortcuts, drag & dropping files, copying & pasting, ... the list goes on.
  25. Der schöne Günther

    Windows Arm is still not ready. It is still in the cook.

    Der schöne Günther replied to Juan C.Cilleruelo's topic in Windows API

    I have not been keeping up with the news. Are there really lots of incompatibilities on Windows on ARM left? I thought some DirectX and OpenGL stuff (games, mostly) will not work, but apart from that 99,9% of all "regular" software should?
×