Jump to content

mvanrijnen

Members
  • Content Count

    455
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by mvanrijnen

  1. maybe another tip, try somethings like https://mitmproxy.org/ to spy on the request you send. if the request works with Postman but not with your code, something has to be different. [edit] Can something go wrong because you use the ExecuteAsync, can't see that with the code you proviced ? (try it with Execute and see if if works then?)
  2. i have this, maybe you can the with the scope i use, i only use Application type, not Delegated: LRequest.AddAuthParameter('scope', 'https://graph.microsoft.com/.default', TRESTRequestParameterKind.pkREQUESTBODY); i read that it works with postman, so it would not be the scope then. i'm trying to remember because i've had problems in the beginning also with authorization with the msgraphapi (i needed the poDoNotEncode) The RestRequest method = rmGet i assume?
  3. mvanrijnen

    Rad 12 Beta - Link to News

    Never used TZip after i discovered a few years ago that it accepted large files without error/exception, but they wouldn't be in the zip 😞
  4. 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.
  5. 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.
  6. mvanrijnen

    How do I execute code after FormShow ?

    Already taken 😎
  7. 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;
  8. 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.
  9. 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 ? πŸ˜‰
  10. 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.
  11. 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
  12. 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).
  13. I've put "readonly" in the registry on: Computer\HKEY_CURRENT_USER\Software\Embarcadero\BDS\22.0\Search see if that helpers
  14. 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 ?
  15. 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?
  16. 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%).
  17. 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 πŸ™‚
  18. 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 ?
  19. mvanrijnen

    FireDAC Connection to ADS failed

    If its in a domain, try as username: <domainname>\<username>
  20. 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;
  21. 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;
  22. 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 ?
  23. mvanrijnen

    Where is the link to register to the forum?

    Like a torrent forum, invite only πŸ˜‰
  24. 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" πŸ™‚
Γ—