Jump to content

mvanrijnen

Members
  • Content Count

    471
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by mvanrijnen

  1. 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 ? πŸ˜‰
  2. 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.
  3. 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
  4. 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).
  5. I've put "readonly" in the registry on: Computer\HKEY_CURRENT_USER\Software\Embarcadero\BDS\22.0\Search see if that helpers
  6. 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 ?
  7. 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?
  8. 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%).
  9. 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 πŸ™‚
  10. 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 ?
  11. mvanrijnen

    FireDAC Connection to ADS failed

    If its in a domain, try as username: <domainname>\<username>
  12. 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;
  13. 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;
  14. 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 ?
  15. mvanrijnen

    Where is the link to register to the forum?

    Like a torrent forum, invite only πŸ˜‰
  16. 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" πŸ™‚
  17. mvanrijnen

    Delphi Coding Boot Camp 2023

    i think that posting was not necessary, as our mailboxes are flooded with announcements of them.
  18. 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.
  19. mvanrijnen

    Some REST help please.

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

    Trouble with resource path

    did you register the resource class?
  21. mvanrijnen

    Issue with TMenuBar and Alt key

    I once dived into this (FMX) and the click is just "swallowed" somewhere, in the deep grounds of FMX. Can't remember clearly, but i might have created an topic about it @embarcadero.
  22. I have a simple resource. Unit filename: Resource.Company.WebHookReceiver.pas type [Path('CompanyWebhookReceiver')] TCompanyWebhookReceiver = class public [Post, Consumes(TMediaType.APPLICATION_JSON)] function Bucket([BodyParam] body : string): string; end; {$IFDEF DEBUG} [Get, Produces(TMediaType.APPLICATION_JSON)] function BucketGet([BodyParam] body : string): string; {$ENDIF} (in the get i call the same methods as in the post, this is for debugging purposes) When i use this in the cmd bootstrap it works, i call it by: http://localhost:8099/rest/default/CompanyWebhookReceiver/ I get the result i want. Then i use the same units in the ISAPI bootstrap, i call it then by: http://localhost:8085/company/WebHookReceiver_ISAPI.dll/rest/default/CompanyWebhookReceiver/ Result: Resource [CompanyWebhookReceiver] not found What am i doing wrong? [edit] In the Server.ignition.pas i have the following line: // Application configuration FEngine.AddApplication('DefaultApp', '/default', ['Resource.Company.*']); [edit2] I put an output to file in the initialization section of the resources unit, and the text is written.
  23. mvanrijnen

    Resource works in CMD not in ISAPI

    found it πŸ™‚ Placed the wrong ini (wrong filename) beside the dll. (duh)
  24. mvanrijnen

    Project Options -> Version Info aka. dproj madness

    yes, we are working on that also.
Γ—