-
Content Count
2883 -
Joined
-
Last visited
-
Days Won
169
Everything posted by Uwe Raabe
-
How to use data-raw json in body with RESTRequest?
Uwe Raabe replied to Ranja AZ's topic in Network, Cloud and Web
var client := TRESTClient.Create('https://<API server host>/auth/oauth2/token'); try var request := TRESTRequest.Create(nil); try request.Client := client; request.Accept := '*/*'; request.AddBody( '{' + '"client_id": "013C1A93-3D33-4986-8A7C-773D02C26214",' + '"client_secret": "FE8FBA46-6ABF-4DF1-8D5E-31345DAAD194",' + '"grant_type": "client_credentials"' + '}', TRESTContentType.ctAPPLICATION_JSON); request.Execute; var response := request.Response; if response.Status.Success then HandleResponse(response.Content); // this has to be implemented by yourself finally request.Free; end; finally client.Free; end; -
Can you please test with the latest version 15.1.4?
-
Is there buffered Memory stream implementation available
Uwe Raabe replied to Tommi Prami's topic in RTL and Delphi Object Pascal
Add a breakpoint at the proper source line and open the context menu on that breakpoint. Set the Pass count to some high value. For more info see the docs: https://docwiki.embarcadero.com/RADStudio/Alexandria/en/Add_Source_Breakpoint -
Make sure you have a unit and form open to toggle between.
-
Can't you just override ReadState and set OldCreateOrder to false after calling inherited? This can be pretty simple when all forms are derived from a common base form. BTW, TDataModule suffers from the same issue.
-
How can I move a window to the left edge of a monitor?
Uwe Raabe replied to dummzeuch's topic in VCL
Alternative: Left := - (Width - ClientWidth) div 2; -
How can I move a window to the left edge of a monitor?
Uwe Raabe replied to dummzeuch's topic in VCL
WindowState := TWindowState.wsMaximized; var L := Left; WindowState := TWindowState.wsNormal; Left := L; -
Is there enable/disable MMX option?
Uwe Raabe replied to Mike Torrettinni's topic in MMX Code Explorer
Oops! -
Is there enable/disable MMX option?
Uwe Raabe replied to Mike Torrettinni's topic in MMX Code Explorer
I know what is happening: In MMX settings under Delphi Editor there is a setting Auto toggle Object Inspector and Code Explorer reacting on F12. Try to disable that. -
Is there enable/disable MMX option?
Uwe Raabe replied to Mike Torrettinni's topic in MMX Code Explorer
Can you give detailed steps? This is what I tried (I refused to fiddle around with my standard layout): Create a new layout with MMX floating (usually I use it in a docked layout) Make that layout standard Switch between Form and Source design: MMX stays open floating Close MMX window Switch between Form and Source design: MMX stays closed Reload the layout: MMX appears floating Close MMX window and save the layout Make MMX visible again Repeat the tests above: Works as expected with MMX staying closed after reloading the layout MMX visibility and position is stored with the layout, so just closing MMX will only hold as long as the layout is not changed. This is standard behavior for all IDE windows. Side note: I know, I'm biased, but I would not even think of closing MMX anytime, because I use it all over the place. It gives me way better overview of the current unit and allows for faster navigation. Even while designing I have MMX fully visible or at least in a flyout tab. Renaming components with MMX is so much better than doing so in the Object Inspector, as it also renames all references in the code. -
I have another approach: type TSplitter = class(Vcl.ExtCtrls.TSplitter) private FInMoveSplitter: Boolean; FSibling: TSplitter; protected procedure WndProc(var Message: TMessage); override; public procedure MoveSplitter(var aMsg: TMessage); property Sibling: TSplitter read FSibling write FSibling; end; procedure TSplitter.MoveSplitter(var aMsg: TMessage); begin FInMoveSplitter := True; try Perform(aMsg.Msg, aMsg.WParam, aMsg.LParam); finally FInMoveSplitter := False; end; end; procedure TSplitter.WndProc(var Message: TMessage); begin if (Message.Msg >= WM_MOUSEFIRST) and (Message.Msg <= WM_MOUSELAST) and not FInMoveSplitter and (Sibling <> nil) then Sibling.MoveSplitter(Message); inherited WndProc(Message); end; Linking is a two liner: Splitter2.Sibling := Splitter3; Splitter3.Sibling := Splitter2;
-
Well, I cannot reproduce on my system (Windows 10, Delphi 11.1). I can try a fix, but I cannot verify if it is working.
-
Thanks for reporting. Looks a bit like VCL style related.
-
It shows the return type of the selected property or function, void in case of a procedure, empty if nothing like that is selected. I have no CnPack installed here.
-
There must be more than only these two steps. Changing something in a unit and closing it without saving happens several times in an hour without showing any problem - not only on my system I guess.
-
Are you trying to say, you are using interfaces only to avoid being responsible for destroying your object instances?
-
Yes, the variable where the date is going to be stored.
-
Let me guess. Your code looks something like this: if TryStrToDate(Edit1, theDate) then But it should be if TryStrToDate(Edit1.Text, theDate) then
-
What is the best way to convert between UnicodeString and UTF-8
Uwe Raabe replied to alank2's topic in General Help
Well, I cannot speak for C++-Builder, but in Delphi there is type UTF8String and you can just assign to and from string: var S: string; u8: UTF8String; begin S := 'Hello World'; u8 := S; u8 := 'Hello World'; S := u8; end; -
What is the best way to convert between UnicodeString and UTF-8
Uwe Raabe replied to alank2's topic in General Help
What variable type are you going to store the UTF-8? -
Strange behavior with "is" operator
Uwe Raabe replied to Sonjli's topic in Algorithms, Data Structures and Class Design
Check if you have more than one declaration of MyAttributeOne. -
ShowModal does not show window after a few tries (It does not pop up)
Uwe Raabe replied to ChrisChuah's topic in VCL
IMHO, using caFree seems not the best approach for the ShowModal case. With caFree a message CM_RELEASE is placed inside the message queue of the form, which will lead to Free when this message is processed later. This is OK when calling Show for the form. I suggest to keep the default caHide Action in the FormClose and add a FDetailForm.Free in the finally block. -
When the MainForm is closed the application is terminated. That implies that all forms created with Application as owner will be destroyed, but not closed (so OnDestroy is called, but not OnClose). The order depends on the components order inside Application. Any form created without an Owner will just vanish.
-
Is it possible to make changes to the source code for reserved words?
Uwe Raabe replied to Al T's topic in Delphi IDE and APIs
No, that is not possible. -
Conditional compiling - Delphi has a bug
Uwe Raabe replied to KodeZwerg's topic in RTL and Delphi Object Pascal
If it is a regression, it dates back to Delphi 7 (cannot test for Delphi 6). Given that conditional expressions were introduced in Delphi 6 I wonder if that has ever worked.- 5 replies
-
- delphi
- conditional
-
(and 1 more)
Tagged with: