Delphi

59K

Solutions

12

Articles & Videos

16K

Contributors

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.

Share tech news, updates, or what's on your mind.

Sign up to Post

Hello,

I have Delphi Seattle.

Scenario:
- I press F1 to invoke the Help, It shows up
- I switch back to Delphi
 -I switch back to the Help -> It will never show again, no matter if I click on the tray or use Control-Tab

The ONLY way to see the help again is to hide Delphi. This is frustrating because I can't see both even if I have two monitors.

Is there a workaround? (with Delphi 2010 it works well).

Thank you.
0
Free Tool: SSL Checker
LVL 8
Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

User have to choose one from two radiobutton. When they havent choose ,how to show a warning box (mesaage box), is it possible?
0
I am using Delphi Berlin and QR6, when I preview my report, on the preview window left corner I see a "page 1 of 10", "page 2 of 10" expression. How can I use de "of 10" part on my report? In the new quick report that is done without the ".prepare" option, which causes delay on showing the report
0
i wanna limit the checkbox selection.. from two checkbox i will only let they choose one,and the other which is not selected become grey
0
example

I have two checkboxes and one combobox.
If in the combobox written 'house' and both checkboxes are checked then a warning message box will appear,
0
Hi,

I wanted to use 7Zip from my Delphi application. Through the official link I get the *.7Z format only.
I am looking for the Zip format with Deflate64 method.

Regards
Allan
0
I use Delph Seattle.

My customer wants a custom software for tablets (storing data, handling file attachemens, drawing pictures).

I have created Windows programs for many years in Delphi, however, I haven't created a tablet version.
What are the pros and cons between Windows tablet app and Android tablet app?

I suppose for me writing an app for a Windows tablet using Vcl must be much faster considering the practice and the components I have.

What do you think? Is there any reason to make it for Android?

Thank you.
0
The code below is executed when a user clicks a button.
It asks the user for a username/password and tries to upload a file to a webservice.
When the username/password combination is correct, everything works fine. But when the user types an incorrect username/password combination, this functions crashes. ( which is normal, because authentication failed...) .
After such a crash, the code no longer works, even after rerunning the same procedure this time with the correct username/password combination.

The only solution I found is to restart the whole application... There has to be a better way?
Does the HTTPRIO object cache my incorrect username/password? Or .... ?



RIO := THTTPRIO.Create(nil);
RIO.HTTPWebNode.UserName :=Username;
RIO.HTTPWebNode.Password :=PassWord;
webserver := GetCRS( True, '' , RIO );

 // get file to upload and encode it in base64
 myFileToUpload := TByteDynArray( TEncoding.UTF8.GetBytes( xml.XML.Text ) );

// create upload file request object
myUploadFileRequest := UploadFileRequest.Create;
myUploadFileRequest.UploadFile := PayLoadType( myFileToUpload );

// upload file to server
 myUploadFileResponse := webserver.uploadFile_A2A( myUploadFileRequest ); --> Crash

Open in new window

0
I have different functions set for a single click and a double click (they both do different things) but if I double click the TSpeedButton it activates both the SingleClick and the DoubleClick events when all I want is the double click. Is there a way for me to stop this from happening?
0
Specifically FrameHeight & FrameWidth  for video files,  Height & Width for  pictures.
I have a list of full-file-names in a listbox and can get dates, size, etc, for each, just haven't manged to grab the media attributes.
0
Technology Partners: We Want Your Opinion!
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

The problem: I want to display a row of rectangles placed shoulder to shoulder, on a grid page (think graph paper). The width of the page where the rectangles appear will be an unknown integer variable (but always greater than 100).  The height of the rectangles will be a constant integer value (e.g., 20 units high). I want to fill a row on this page with as many rectangles as possible where the rectangle width will be equal or greater than the predefined rectangle height and where there will be no gap/margin at the end of the row.

I realize that this is only possible when the page width (e.g. 200)  can be evenly divided by the rectangle height (e.g., 200 / 20).  If the page width is 201, it is impossible to have rectangles all with the same width and at the same time have no gap/margin at the end of the row of rectangles. But if the page width is 210, I can fit 10 rectangles which are 21 units wide. That's fine. I don't mind stretching the rectangles a bit, as long as the rectangle width is never less than the predefined rectangle height constant (in this example, is 20). So, if the page width is 220, that works fine for I can get 10 rectangles of 22 units across the page with no gap/margin at the end of the row. I don't mind the rectangle width growing a bit so as to ensure no right margin/gap results. But there would be a limit to the rectangle width changing from its original desired width (which is equal to the rectangle height constant).  So I would need the …
0
I have a list of musical notes which I have defined as constants
const
NOTE_A4 = 440
 NOTE_AS4 = 466
 NOTE_B4 = 494
 NOTE_C5 = 523
 NOTE_CS5 = 554
 NOTE_D5 = 587
etc etc

I have converted a ring tone tune to produce a comma separated list of notes in a TMemo.  I want to use Windows.Beep(Note,Duration) to play the notes by reading the numerical value from the constants.

I tried (eg) StrToInt('NOTE_C5') but received the error "invalid integer value".  How do I get the string 'NOTE_C5' to read the frequency value from the constants?
0
Hi there:
I’m trying to make in Delphi when the user minimizes a modal form, the whole application minimizes…  Normally when the user press the minimize button the form stays minimize on the left lower part of the screen I thought of trapping the onMinimize Event of the form for making a call to Application.Minimize, but it doesn’t exist. How can I do that.
Thanks.
0
Hello,

I use Delphi Seattle.

I have a Multi Device Application. I have to options: to build Debug or Release.

I need 2 Release options (the name doesn't matter). For each, I would set :
-different Splash Images and Icons
-in the Deployment different files

How can I do this?

Thank you very much.
0
I am having trouble with a Delphi DLL in which I declare a function for use as a UDF in Interbase.

Here is my DLL code:
library TestIBFunctions;

uses
  System.SysUtils,
  System.Classes,
  ib_util;

{$R *.res}

function GetGUID: PAnsiChar; cdecl; export;
var
  guid: TGUID;
begin
  result := ib_util_malloc(16);
  CreateGUID(guid);
  Move(guid, result^, SizeOf(guid));
end;

(* example function from embardadero web site *)
function Left(sz: PChar; var Cnt: Integer): PChar; export;
var
  i: Integer;
begin
  if (sz = nil) then
    result := nil
  else begin
    i := 0;
    while ((sz[i] <> #0) and (i < cnt)) do Inc(i);
    result := ib_util_malloc(i+1);
    Move(sz[0], result[0], i);
    result[i] := #0;
  end;
end;

exports
  GetGUID,
  Left;

begin
end.

Open in new window


Here is my database DDL:
SET SQL DIALECT 3;

SET NAMES UTF8;

CREATE DATABASE 'LOCALHOST:E:\TestDB\TEST_DB.IB'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 4096
DEFAULT CHARACTER SET UTF8;

DECLARE EXTERNAL FUNCTION F_GETGUID

    RETURNS CHAR(16) CHARACTER SET OCTETS FREE_IT
    ENTRY_POINT 'GetGUID' MODULE_NAME 'TestIBFunctions';

DECLARE EXTERNAL FUNCTION F_LEFT
    CSTRING(64),
    INTEGER
    RETURNS CSTRING(64) FREE_IT
    ENTRY_POINT 'Left' MODULE_NAME 'TestIBFunctions';

Open in new window



The Left function is an example from Embarcadero. It works exactly as expected:
select f_left('abcdefg', 3) from rdb$database returns the result 'abc'.

However, the GetGUID function does not. I have done something wrong but can't see what it is.
select f_getguid() from rdb$database returns this error message:
Arithmetic overflow or division by zero has occurred.
arithmetic exception, numeric overflow, or string truncation.

I am running:
 - 64bit Windows 10 Pro
 - Delphi 10.1 Berlin Professional
 - Interbase XE7
0
What is the difference between the two ?

Request.QueryFields.values['no'] and request.ContentFields.Values['debug']
0
Hello guys

I have a number 7485211542 and I want to display it this way:   748521,1542

What mask should I use to do that?

Thanks
Regards
0
i have try the following
var
h : thandle
begin
h := findwindow(nil, 'schoolapp');
if h > 0 then

begin
showmessage('Running');
end;

end;

Open in new window



but its keep shows running even if the app is not running
0
Note i don't have certificate in hand right now

after i search on google on how to use SSL with idtcpserver i found a few details , that i have to drop TIdServerIOHandlerSSLOpenSSL on the server form and assign its property as needed as example

IdServerIOHandlerSSLOpenSSL.SSLOptions.KeyFile:= ....;
IdServerIOHandlerSSLOpenSSL.SSLOptions.CertFile:= ....;
IdServerIOHandlerSSLOpenSSL.SSLOptions.RootCertFile:= ....;

Open in new window


sense i have no certificate in hands right now i have to use it without certificate until i get one . currently i only care about encryption .

also i don't feel that is right to drop IdServerIOHandlerSSLOpenSSL and use it for all connected clients . should i create ssl to each client connected on connect event ?

i really dont understand how to assign ssl properly to each connected client .
0
Independent Software Vendors: We Want Your Opinion
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

So my question is: is there a way to create a class or something that translates automatically the TLabels, TText of an android application with Delphi after that the user chooses the language wanted? Or is there a solution with the auto-translate ?

I don't want to use the resource DLL Wizard or something that needs internet cause the tablet i'm working on won't be connected to internet.

I'm still a beginner in Delphi and still lost. I'm sorry in advance if there is any information needed that I didn't provide. Thanks for the help
0
Hello,

I have this code that returns a new primary key from myql to clientdataset by a provider and a dataset (devarts mydac but i assume it wont be different with another dataset). Now im using "Refresh" and i would like not to have to refresh all the dataset, just the field with the primary key.

With [clientdataset] Do Begin
DisableControls;
Append;
FieldByName('[fieldname]').AsString:='Very New Customer';
Post;
Application.ProcessMessages;
ApplyUpdates(0);
Application.ProcessMessages;
Refresh;
Last;
EnableControls;
End;
0
How can I automatically execute my custom code after a predefined standard TAction (which is assigned to a control) has been executed?

Delphi 10.1.2 Berlin

The attached example project illustrates the problem.
TActionOnAfterExecute.zip
0
Hello Guys,

I have a very simple code, take a look at

Var
  lParamList: TStringList;
  Url      : String;
Begin
  lParamList := TStringList.Create;

  Url := 'http://www.wsrescom.com.br/Postagem.asmx/InsertPostagem?id_cliente=12966706000B191';
//  Url := 'http://www.teachmenow.com.br';

  lParamList.Add('');
  memo1.Lines.add( IdHTTP1.Post(Url, lParamList));

Open in new window


It works fine with this URL 'http://www.teachmenow.com.br' but when I try the other one, I got the error : HTTP/1.1 500 Internal Server Error.

But if I post the Url in the google browse, it works fine. Why?

Thanks
Alexandre
0
Hello All;

I am needing to Stop and then Start again, out Mail Server.
The Service is (example) mailSMTP.exe

How can I stop it, and then start it back up, all in one single call?
pretty much. I need this to happen once I click a button.

I have found several different OLD codes, that are not documented.
And have no idea how to use them.

Any information on this, for newer versions of Delphi.
Would be great.

Carrzkiss
0
When i use a shortcut directly to the exe file the system reads the exe.manifest file.  When I have a delphi application call Delphi XE10, the system does not read the exe.manifest file.  Is there a way to force the exe file to read the .manifest file.  

or I am trying to stop the system from following the enlarge text when the user has set the machine to have 150% or 200% enlarged text.

Any Suggestions?
0

Delphi

59K

Solutions

12

Articles & Videos

16K

Contributors

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.