Jump to content

mvanrijnen

Members
  • Content Count

    477
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by mvanrijnen

  1. i think @Fr0sT.Brutal meant, to run it without real comping, so you can see if delay is in starting the Exe itself of the compiling process.
  2. Try to: Add sourcecode folders as exclusion for AV. Add your programs own work/temp folder as exclusion for AV. If the compiler creates executables (or object files), make sure these are linked/copied into a folder checked with the AV.
  3. mvanrijnen

    How do I execute code after FormShow ?

    Already taken 😎
  4. mvanrijnen

    How do I execute code after FormShow ?

    Make an aftershow method, See here: SwissDelphiCenter.ch : ...implement AfterShow, AfterCreate events? I use this in baseforms, added a "FirstShow" boolean in the form, so you know if you have to do all calcs all the time or nly one time. So in my base form i have protected methods like procedure DoBeforeShow(const AFirstshow : Boolean); virtual; procedure DoAfterShow(const AFirstshow : Boolean); virtual;
  5. i'v had this problem while back when using the MARS library for example (BitDefender), while others didn't. It's sometimes a weird thing. But there are always have been things about this with Delphi compiled software somehow.
  6. mvanrijnen

    Coming soon

    Looks good, you gonna release the SQL classes apart from the HTML Library ? btw where did you learn to type that fast ? πŸ˜‰
  7. mvanrijnen

    I need a foldable/collapsible panel

    Problem with this kind of panels is that the space where icon is placed (in "collapsed/closed" mode) is taken for other components.
  8. mvanrijnen

    Issue with CTRL-A

    to extract from existing executable use: Mt.exe - Win32 apps | Microsoft Learn "C:\Program Files (x86)\Microsoft Visual Studio\Shared\NuGetPackages\microsoft.windows.sdk.buildtools\10.0.22621.755\bin\10.0.22621.0\x86\mt.exe" -inputresource:mydelphiprogram.exe -out:mydelphiprogram.manifest
  9. mvanrijnen

    Turning off updates in Windows 10 laptop

    Maybe fake a WSUS installation, just put the regkeys for WSUS client into the registry (without having the WSUS server).
  10. I've put "readonly" in the registry on: Computer\HKEY_CURRENT_USER\Software\Embarcadero\BDS\22.0\Search see if that helpers
  11. mvanrijnen

    What is the benefit of sorting the Uses clause?

    Actually this means there is a design flaw (i know, hard to not have this situations, we have them also, but in reallity it's something to fix i think). How you going explain 15years later that unit xyz has to be before unit abc, put some text in comments ?
  12. Okay, problem with one of our local apps here. * App runs fine on all computers except one. * This one is a specific laptop (HP ZBook xxxxx, with an Integrated (i7-7thgen) and NVIDIA P600 Quadro videocard. The one specific app does not draw fully, some panels/buttons etc are not drawn, but specially also the mouse cursor is different. So for a quick solution i told the user to use a virtual machine (logon with RDP from his laptop), on this virtual machine everbody can work with the App, BUT for the user on the laptop the same effect,even when using the app on a different machine through RDP. (we just using simple RemoteDesktop for this). All other apps work just fine on the laptop Anyone any clue or where too look/dig for a solution?
  13. mvanrijnen

    Strange behaviour Windows VCL app on specific laptop

    A, at the end (after months) we (accidently) discovered that is was because of Windows Scaling (was set to 300%).
  14. mvanrijnen

    FileOpen a network file

    ... <application android:persistent="%persistent%" android:restoreAnyVersion="%restoreAnyVersion%" android:label="%label%" android:debuggable="%debuggable%" android:largeHeap="%largeHeap%" android:icon="%icon%" android:theme="%theme%" android:hardwareAccelerated="%hardwareAccelerated%"> <!-- **** ADD THIS SECTION **** --> <provider android:name="android.support.v4.content.FileProvider" android:authorities="com.embarcadero.yourAppName.fileprovider" android:exported="false" android:grantUriPermissions="true"> <meta-data android:name="android.support.FILE_PROVIDER_PATHS" android:resource="@xml/provider_paths"/> </provider> <%application-meta-data%> <%services%> ... Take a look here: Delphi Android file open failure with API 26 - Stack Overflow? maybe hat works, and maybe you first have to ask access with credentials? editing goes wrong in the forum sometimes πŸ™‚
  15. Yes, indeed thats what we see, difference is that there are more threads which also take cpu. gonna take a look into your tip of finding the real method/thread you mentioned. quick question, the Displayed ThreadID should always be correct ?
  16. mvanrijnen

    FireDAC Connection to ADS failed

    If its in a domain, try as username: <domainname>\<username>
  17. My base class (partial): In the following example, the RemoteIP is not filled when using ISAPI dll, running onder IIS TMyMars=class private FRequestID: string; FResourcePath: string; FRequestTimeStamp: TDateTime; FRequestIPSource: string; FMethodName: string; protected [Context] marsRequest: IMARSRequest; [Context] Response: IMARSResponse; [Context] Activation : IMARSActivation; procedure DumpJSON(const AFileNamePrefix, AJSON, AFolder : string; const APathSplit : TPathSplit); public constructor Create; virtual; [BeforeInvoke] procedure BeforeInvoke; virtual; [AfterInvoke] procedure AfterInvoke; virtual; [InvokeError] function ErrorHandler(const AException: Exception): Boolean; virtual; [Get, Path('ping'), Produces(TMediaType.APPLICATION_JSON)] function Ping(): TPingResult; property ResourceMethodName: string read FMethodName; property ResourcePath : string read FResourcePath; property RequestTimeStamp: TDateTime read FRequestTimeStamp; property RequestID: string read FRequestID; property RequestIPSource: string read FRequestIPSource; end; implementation: procedure TMyMars.BeforeInvoke; begin LogExDebug('RemoteIP: %s', [marsRequest.RemoteIP], 'TMyMars.BeforeInvoke'); FResourcePath := Activation.ResourcePath; FRequestIPSource := marsRequest.RemoteIP; FMethodName := Activation.Method.Name; end;
  18. Attached the debugger, here is where i come out: Unit: Web.HTTPapp function TWebRequest.GetRemoteIP: string; begin Result := EmptyStr; end; explains a lot πŸ™‚ how to fix? [edit] got a fix (needs to be double checked) Replace RemoteIP in the FWebrequest to RemoteAddr. Unit: MARS.http.Server.Indy: Code: function TMARSWebRequest.GetRemoteIP: string; begin // Result := FWebRequest.RemoteIP; Result := FWebRequest.RemoteAddr; end;
  19. hmz, made a dump of the other values in the request: Accept: */* Authorization: Method: POST QueryString: RawPath: /rest/default/MyWebhookReceiver/ Hostname: my.wscompany.eu RemoteIP: UserAgent: PostmanRuntime/7.32.1 @Andrea Magni Seems not everything is filled? Do i have to configure something for this to work ? in MARS or in IIS ?
  20. mvanrijnen

    Where is the link to register to the forum?

    Like a torrent forum, invite only πŸ˜‰
  21. mvanrijnen

    Delphi Coding Boot Camp 2023

    no not at all, used to get only unusable announcements and discounts from EMB (and/or her partners). (flooded also with latest discounts from 20-30% on buying Dellphi etc, last month) Never got the mail, "YES WE ARE THERE, WE FIXED LSP ONCE AND FOR ALL" πŸ™‚
  22. mvanrijnen

    Delphi Coding Boot Camp 2023

    i think that posting was not necessary, as our mailboxes are flooded with announcements of them.
  23. mvanrijnen

    Some REST help please.

    As far as i know it's widely accepted to put the data in a put/post request as json in the body.
  24. mvanrijnen

    Some REST help please.

    Why could a POST not be a port of a REST API interface?
  25. mvanrijnen

    Trouble with resource path

    did you register the resource class?
Γ—