Questions tagged [delphi-10.3-rio]
Delphi 10.3 Rio is a specific version of Delphi released in November 2018.
527
questions
1
vote
0
answers
104
views
How access webcam that's running in a separated thread?
I have this class to handle my webcam and want know how can stop the webcam started in a separated thread. Camera.Destroy not is working and the camera keep on.
type
TForm1 = class(TForm)
...
0
votes
1
answer
48
views
PNG shadows getting pink
A colleague and I are working since many years in Delphi 10.3 and a couple of weeks ago he made a change from TsAlphaImageList to TVirutalImageList as it is automatically managing the PNG sizes.
Since ...
0
votes
1
answer
123
views
How capture continuos frames from camera?
I'm using the following code to capture the camera:
unit Webcam;
interface
uses
Windows, Messages, SysUtils, Graphics, ExtCtrls, Classes, VFW {https://drkb.ru/multimedia/audio/extract_track/...
0
votes
2
answers
110
views
2 instances of Chrome on a form with different cookies
I'm using CEF 4. There are two instances of chromium on the form, they both use the same settings:
procedure CreateGlobalCEFApp;
var
inicef: Tinifile;
begin
GlobalCEFApp := ...
0
votes
0
answers
16
views
Fastreport required package frxADO26 not found
I installed fastreport through Git Manager and when I compile my application, I get "required package frxADO26 not found" error. Can you help me with this? I'm using Delphi 10.3 Community ...
1
vote
1
answer
131
views
How to highlight mouse pointer position using Delphi [closed]
I want to create a simple mouse pointer highlighter. A circle centered at the mouse pointer. It must be semi-transparent and visible everywhere (in and out of my application).
Any idea is appreciated.
...
0
votes
0
answers
13
views
Embarcadero dcc32 Fatal Error ScreenResolution.pas(25): F2613 Unit 'ovcmeter' not found
I am in the process of migrating my application from Delphi 6 to Delphi 10.3. I have all my source files in the same folder and included in the project, but it seems that the compiler cannot find ...
1
vote
1
answer
100
views
Disable runtime themes not with the GUI project options
I'm looking to control runtime themes in a way that is friendly for version control tools. Be it programmatically, or by some configuration such as a text based manifest file (but not the DPROJ file ...
0
votes
0
answers
90
views
How to enable/disable Block Completion without using Delphi Options
I'm using Delphi 10.3.3. "Block Completion" doesn't work properly for some of my projects, because of an IDE bug fixed in later Delphi versions.
Anyway, I have to use Delphi 10.3.3 and ...
0
votes
0
answers
14
views
Delphi 10.3 source dependency mapping
I am a new programmer at a company with a huge legacy Delphi system.
A user has complained that an automatic process has performed an activity that should only be triggered manually.
My job is to ...
0
votes
1
answer
94
views
Some events not fired in TsaveDialog with FMX
I am porting a project to FMX (from VCL). I use a TSaveDialog with Filter for the file extensions, but when I change the extension the 'OnTypeChange' event does'nt fire, but the 'OnShow' event fires !...
0
votes
0
answers
90
views
Code formatting of mathematical expressions
I want the code formatter (invoked by Ctrl+D) to format mathematical expressions more like in math textbooks, i.e., spaces around plus and minus signs and no spaces around multiplication and division. ...
0
votes
1
answer
191
views
Getting custom sized system icons
I want to update my applications to be fully scalable, so every image in the app must be resized when the user chooses another scale. The icons for the user interface buttons I keep them as multi-size ...
3
votes
2
answers
175
views
Adjust two controls vertically by their font baseline at runtime
In my applications there are many cases when I have several groups of TLabel followed by a TEdit on my Forms, you know... when some properties needs to be edited. I want to align vertically those ...
1
vote
0
answers
310
views
How to get S.M.A.R.T. information from USB devices?
I have 2 drives in my computer and 1 drive attached via USB.
When I use this code I correctly get 3 devices:
function TForm1.GetHDDCount: integer;
var f, i: integer;
begin
Result := 0;
for i:=0 ...
0
votes
1
answer
51
views
How to get S.M.A.R.T. info from disks?
I tried code found in Google but nothing works and in most cases it doesn't even compile (missing units, undeclared data types etc).
I finally found something that looks complete but shows "The ...
4
votes
1
answer
352
views
Why PPI reported by Delphi is different from the calculated one?
I use Delphi 10.3 Rio, and need to know the screen PixelsPerInch ratio to scale my application accordingly.
Calculating with the formula, my screen has 142 ppi. (Real values are: 15.5" diagonal ...
0
votes
1
answer
173
views
Loading resources at design time?
Is it possible to load a resource at design time?
I am making a speed button component, and I want to automatically load a new image from the resource whenever the button size changes. It already ...
0
votes
1
answer
81
views
Auto-arrange child controls of a TToolWindow control
I want to build a custom toolbar. I created a new class from TToolWindow - this will be the base, on which the other controls will be placed (mostly speed buttons). I also have the algorithm for ...
0
votes
1
answer
278
views
Run a console app and close the window only if it succeeds
I want to execute a console application from my GUI application and close the console window only if it is completed successfully. I tried this code, but when I call that function, a console window ...
0
votes
1
answer
135
views
Reading the real form dimensions when minimized from maximized state
I don't know if you have noticed, but if you maximize a TForm and then minimize it, if you read its Width and Height (in this minimized state), you will get values that the Form had before ...
1
vote
0
answers
225
views
Connection error with TIdHTTP in Delphi application. How to solve it?
I have a software which is working faultlessly for 2 years now. This software connects to our remote server every 5 days to check for version updates as well as users license status.
But from ...
-1
votes
1
answer
157
views
How can I load a jpeg image from a buffer?
I want to store a jpeg image in a RC_DATA resource, but not a single image in one single RC_DATA. There are many things in that RC_DATA, all muxed together. At runtime I load that RC_DATA in a bufer ...
0
votes
1
answer
203
views
"A component with the name "ecSwapCppHdrFiles" already exists" on Delphi 10.3
When I right click on editor, IDE raises "A component with the name "ecSwapCppHdrFiles" already exists" exception.
0
votes
1
answer
216
views
How Can I Decrypt the Authorization Header When Using Windows Authentication over SSL in Delphi 10.3
I have a basic "Web Server Application" created by going to File > New > Web Server Application and choosing ISAPI Dynamic Link Library, which I am using to test Windows Authentication ...
0
votes
1
answer
141
views
TRichEdit doesn't allow typing with some fonts
I noticed that TRichEdit is acting strange. It works perfectly fine when I use usual fonts such as Arial, Verdana, Times New Roman.
However, if I change to some other font:
RichEdit1.Font.Name:='Viner ...
-1
votes
2
answers
361
views
FMX TStringGrid set selected cell
I need to do a cell jump in an FMX TStringGrid. Before, I did it in a VCL application using this code:
StringGrid.Row := StringGrid.Row + 1;
StringGrid.Col := 1;
So, how do I do that in FMX?
0
votes
1
answer
167
views
How do I use FireDAC DBMS identifiers to conditionally change SQL text
I am trying to use the FireDac preprocessor to tailor the SQL text to the database server, however the text for all server types is included in the query text, so I assume I am either missing a ...
1
vote
0
answers
80
views
How to write a text file as fast as possible in Delphi? [duplicate]
I'm using this code to save/write a plain-text file:
var
i: int64;
myFile : TextFile;
bytes: int64;
begin
AssignFile(myFile, FileName);
ReWrite(myFile);
CloseFile(myFile);
Append(myFile)...
0
votes
1
answer
47
views
Error while compiling MapWinGIS component in Delphi 10.3
I intend to use the MapWinGis component in Delphi 10.3
There are a number of errors when compiling this component
Has anyone used this component to guide me?
1
vote
0
answers
676
views
Server certificate Invalid or Not present
I am using NetHTTPRequest1() at a Delphi App which is doing a get request which works on Windows 10 but not on windows 7 I also tried to enable tls1.0, tls1.2, tls1.3 but it didn't seem to work. Any ...
0
votes
0
answers
42
views
How to Loop Component nethttpclient Generics.Collections
I try with this code but error argument out of range. how to fix this ?
I try Generics.Collections on comport, run normaly, but why i try on netclient error ? thank you
uses
Generics.Collections
...
2
votes
1
answer
388
views
FMX TMemo and BeginUpdate
How do I prevent a FMX TMemo from updating while loading data into it? Memo1.Lines.BeginUpdate doesn't seems to be the answer.
Code to reproduce:
Create a new FMX application
Place a TMemo on the form
...
0
votes
1
answer
228
views
Parse Firebase JSON array
I need to parse the below JSON response from a Firebase Database. In this JSON sample, there are 2 documents qouap9 and 15p3vl. Both documents have multiple fields. I want to merge all of the fields' ...
0
votes
1
answer
346
views
TImage does not resize
I have a TImage on a resizable Form, and I want it to resize when I resize the Form.
What I tried:
enabling all Anchors options
putting the TImage on a TPanel, and then setting both Panel and Image ...
-2
votes
1
answer
100
views
Convert Excel VBA for PivotChart
I am writing code to create an Excel PivotChart, without a visible PivotTable. Apparently, I am unable to do this via Excel_TLB, (as per another question on Stackoverflow), so I am using ComObj and ...
1
vote
1
answer
182
views
Case-sensitive MatchesMask alternative in Delphi
I use the code below for detecting desired files:
uses Masks;
begin
if MatchesMask(MyFilename, '*.Exe') then
begin
// Do Something
end;
end;
However, as stated in the official ...
1
vote
1
answer
498
views
How to make TImage high-DPI aware using Delphi 10.3.3?
I'm using TImage components in order to display image files. However the pictures look blurry when displayed in high-DPI monitors. If I use high-resolution images, they are stretched in normal ...
1
vote
1
answer
217
views
How to save Viewport3D as Image File?
I'm developing a Firemonkey (FMX) application using Delphi 10.3.3.
I have a Viewport3D component.
Inside the Viewport3D, i have many 3D Shapes such as TCube and TRectangle3D.
I need to save the ...
1
vote
1
answer
162
views
How to get the Android API version at runtime from Delphi Rio?
In my Java code, I can easily test the current API level at runtime with something like:
if (Build.VERSION.SDK_INT >= Build.VERSION_CODES.O) {
doSomething();
}
How can I find the equivalent of ...
0
votes
1
answer
292
views
Do I need to free a JSONArray or TJSONObject even if it is added to another TJSONObject?
Do I need to free a JSONArray or TJSONObject even if it is added to another TJSONObject ?
Code example:
var DocHead: TJSONObject;
DocLines: TJSONArray;
...
While not Dataset.EOF DO
Begin
...
4
votes
1
answer
327
views
How get compiled date of a dll file?
I'm using this code to capture compilation date of a executable (.exe). I'm searching a solution to achieve the same to a .dll file. When this code is inserted in a dll project and injected/or using ...
1
vote
1
answer
103
views
How to delete all items of a TFlowLayout at runtime?
I want to clear a FlowLayout at run time, is there a function to do that ?
I thought about mapping all its items and free theme, but I don't know how to access its items, any code example please ?
3
votes
4
answers
3k
views
How to detect Windows 11 using Delphi 10.3.3
I use TOSVersion.ToString function (uses SysUtils) to detect Windows version. However this is what I get in Windows11:
Windows 10 (Version 10.0, Build 21996, 64-bit Edition)
Is there any reliable way ...
1
vote
1
answer
252
views
How send/receive a List of elements over socket?
I have the following code, where I can draw several rectangles and make a hole to each.
How can I send the RectList object over a socket (TServerSocket) and recover (receive in a TClientSocket) this ...
0
votes
1
answer
177
views
Reading Json array into a listbox in Delphi 10.3
I have the result of my Json API call to something like this (set of Order Ids)
[
2258,
2259,
2260
]
I need to read this into a list so I can loop around it.
I am using Delphi 10.3
0
votes
1
answer
132
views
Working with MSWord using OLE in Delphi 10.3
I have a strange situation with the performance issues when accessing MSWord using OLE in Delphi 10. Those issues are inconsistent between different users, and we started to get the reports of them ...
1
vote
1
answer
205
views
How to migrate from ADO Filtering code to Firedac
I have this code:
datamodule1.tbabonne.Filter := '';
if (scGPEdit2.Text) = '' then exit ;
try
ref_Abonne:= QuotedStr (scGPEdit2.Text + '*');
if (scGPEdit2.Text <> '') then
...
2
votes
0
answers
148
views
How to encrypt large files using SynCrypto?
SynCrypto is an open source data encryption library for Delphi and FPC included in SynPDF.
I use this code for file encryption:
var
inputfile : RawByteString;
outputfile: RawByteString;
begin
...
1
vote
1
answer
236
views
Is it possible to create a generic Mediator for Delphi to handle generic commands
I must first admit that I am from the .Net world and am currently relearning Delphi (XE 10.x) (from back in high school - MANY years ago). In .Net, the mediator pattern is fairly well handled by ...