mvanrijnen
Members-
Content Count
471 -
Joined
-
Last visited
-
Days Won
1
Everything posted by mvanrijnen
-
Looks good, you gonna release the SQL classes apart from the HTML Library ? btw where did you learn to type that fast ? π
-
Problem with this kind of panels is that the space where icon is placed (in "collapsed/closed" mode) is taken for other components.
-
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
-
Maybe fake a WSUS installation, just put the regkeys for WSUS client into the registry (without having the WSUS server).
-
D11.3, Search, Whole words only - randomly checked
mvanrijnen replied to mvanrijnen's topic in Delphi IDE and APIs
I've put "readonly" in the registry on: Computer\HKEY_CURRENT_USER\Software\Embarcadero\BDS\22.0\Search see if that helpers -
What is the benefit of sorting the Uses clause?
mvanrijnen replied to RCrandall's topic in MMX Code Explorer
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 ? -
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?
-
Strange behaviour Windows VCL app on specific laptop
mvanrijnen replied to mvanrijnen's topic in VCL
A, at the end (after months) we (accidently) discovered that is was because of Windows Scaling (was set to 300%). -
... <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 π
-
TMethodImplementationIntercept/__dbk_fcall_wrapperο»Ώ called infinite and high cpu
mvanrijnen replied to mvanrijnen's topic in RTL and Delphi Object Pascal
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 ? -
If its in a domain, try as username: <domainname>\<username>
-
marsRequest.RemoteIP empty when using ISAP, filled when using cmdline (indy)
mvanrijnen posted a topic in MARS-Curiosity REST Library
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; -
marsRequest.RemoteIP empty when using ISAP, filled when using cmdline (indy)
mvanrijnen replied to mvanrijnen's topic in MARS-Curiosity REST Library
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; -
marsRequest.RemoteIP empty when using ISAP, filled when using cmdline (indy)
mvanrijnen replied to mvanrijnen's topic in MARS-Curiosity REST Library
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 ? -
Where is the link to register to the forum?
mvanrijnen replied to FPiette's topic in Community Management
Like a torrent forum, invite only π -
Delphi Coding Boot Camp 2023
mvanrijnen replied to Roger Cigol's topic in Tips / Blogs / Tutorials / Videos
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" π -
Delphi Coding Boot Camp 2023
mvanrijnen replied to Roger Cigol's topic in Tips / Blogs / Tutorials / Videos
i think that posting was not necessary, as our mailboxes are flooded with announcements of them. -
As far as i know it's widely accepted to put the data in a put/post request as json in the body.
-
Why could a POST not be a port of a REST API interface?
-
did you register the resource class?
-
marsRequest.RemoteIP empty when using ISAP, filled when using cmdline (indy)
mvanrijnen replied to mvanrijnen's topic in MARS-Curiosity REST Library
empty string. -
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.
-
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.
-
Resource works in CMD not in ISAPI
mvanrijnen replied to mvanrijnen's topic in MARS-Curiosity REST Library
found it π Placed the wrong ini (wrong filename) beside the dll. (duh) -
Project Options -> Version Info aka. dproj madness
mvanrijnen replied to Attila Kovacs's topic in Delphi IDE and APIs
yes, we are working on that also.