delphi

How do I wait for a TTimer to finish?

I have a TFrame (fraDisplay) with a TTimer (timAnimateDataChange). The timer is used to control a small animation. In the form containing the frame I want to have a method that does something like this: procedure TForm.DoStuff; begin DoSomeLogicStuff; fraDisplay.AnimateResult; WaitForAnimationToFinish; DoSomeOtherLogicStuff;...

Pascal Scripting Without Unit Importer

It seems like the UnitImport program maybe came along some ways into the development of cajScript/PascalScript and it may hide some of the details that would help provide an understanding of how to implement a PascalScript application. Assuming that is the case or that you wanted to write a PascalScript application without using the imp...

Pass a multidimensional array as a parameter in Delphi

I'd like to pass a multi-dimensional array to a constructor like so: constructor TMyClass.Create(MyParameter: array of array of Integer); begin LocalField := MyParameter; end; Where LocalField is an array of array of Integer. However the above code won't compile ('Identifier expected but ARRAY found'). Could somebody explain to me ...

Reading Private Key in PEM format with LockBox

I have to digitally sign a string using the SHA-1 algorithm with RSA using PKCS#1 padding. I have downloaded Turbo Power Lockbox. The private key I have is in PEM format and was created using openssl: openssl req -x509 -nodes -days 365 -newkey rsa:1024 -sha1 -subj "/C=US/ST=CA/L=Mountain View/CN=www.mycompany.com" -keyout myrsake...

Fluid Form Layout in Delphi

We have developed a software. In this software we are show and hiding a few controls on various input screens depending on various situations. When we hid a control what happens is that the space occupied by that control is left as it is and layout looks very bad at times esp. in screens that have larger numbers of controls. Our client ...

How Can I Get the Compile Date and Time in Delphi

I'd like to be able to display in a Delphi 2009 program, the date and time that the program was compiled. Is there a simple way to do this? ...

Is Delphi dead?

I know it is not entirely a programming question, but I posted it here because Delphi programmers use this forum. Why did Borland kicked off Delphi? The father of now famous Visual Studio, where did it get buried? Is it still widely used and how easily available is the community support? ...

Not enough storage error on CGI app under Win64

I have a Delphi (hence 32-bit) CGI app running on a Windows 2008 64-bit server that has 24 Gb RAM with IIS7. The web service runs fine for a few days at a time (sometimes a few weeks) and then suddenly starts reporting "Not enough storage available to process this command." Now I've seen this before in regular Windows apps and it norma...

How do I test a generic type variable for equality with Default(T) in Delphi?

I'm trying to write a generic cached property accessor like the following but am getting a compiler error when trying to check whether the storage variable already contains a value: function TMyClass.GetProp<T>(var ADataValue: T; const ARetriever: TFunc<T>): T; begin if ADataValue = Default(T) then // <-- compiler error on this line ...

Digitially Sign Key with Lockbox

I have to digitally sign a string using the SHA-1 algorithm with RSA using PKCS#1 padding. I have downloaded Turbo Power Lockbox to use with the Delphi programming language. In a previous question I have learned how to convert private key from PEM format to DER format (which if I understand correctly is ASN.1 format and is used with Loc...

Large dynamic array - slow writing

I have a routine that adds ordinal elements ("Day" or "Night" enumerated type) to a multi-dimensional dynamic array, which is declared as: TShiftType = (stDay, stNight); TScheduleArray = array of array of array [1..DaysPerWeek] of TShiftType; The array could contain anything between 1 element (e.g. (Day, Day, Day, Day, Day, Night, Ni...

Multithreaded (TThread) Delphi application will not terminate

I have written an application (using Delphi 2009) that allows a user to select a series of queries which can be run across a number of different systems. In order to allow queries to be run concurrently, each query is run in its own thread, using a TADOQuery object. This all works fine. The problem that I have is when I try to close the...

Create a Ribbon Control in Delphi with Combobox as one of the control?

Hi Everyone, I am a newbie to using Delphi 2010 to write Ribbon Control... I wanted a comboBox control with 5 to 6 lines for user to choose from on my ribbon... I've set the CommandStyle of the TActionClient to csCombobox and I had a hard time figuring out how to set the content of my comboxbox and also the control seem to be disabled o...

Printing image in Rave Reports

I have an application being developed in Delphi 2009 and Rave Reports. I would like to have an image printed in the reports. How am I going to implement this? Any suggestion would be very much appreciated. ...

my GetHttp works with HTTP but HTTPS returns invalid data

my GetHttp works with HTTP but HTTPS returns invalid data, this is the test procedure: GetHTTP('https://localhost/','',temp,true); temp.SaveToFile('c:\temp.txt'); How to fix, any ideas? function GetHTTP(AUrl, APostStr:ansistring; AStream:TStream; noncached :boolean =false): integer; var Retry: Boolean; hSession, hConnect, hRequ...

Delphi 64-bit Preview Compiler available?

Hi, is there a 64-bit preview compiler available, as announced a long time ago? I wasn't able to find anything. I really need a 64-bit compiler to target the 64-bit versions of Microsoft Office. ...

Focus an IntraWeb IWTreeView on a selected item

I have a rather lengthy tree view (IWTreeView) in a IWRegion (ClipRegion:= True) with one node selected. How do I focus that node such that it is visible for the user after a render? The What I do so far: In Delphi tree.Selected:= itemToFocus; tree.ScrollToName:= tree.Selected.Name; This generates this on my website (done by IWTr...

Ressources for IntraWeb / VCL for the Web

I am aware of the news groups at atozed.intraweb.* as well as the online manual and pdf manual, Bob Swart's IntraWeb book, and the spellbook. Some of these resources are outdated, some are rather minimalistic. Are there other sources available? This seems to be even more prevailing as the chat room is not available any longer due to la...

Convert this php digital signing to Delphi

I would like to rewrite this php digital signing function into Delphi code. function SaySig() { $privKeyFilePath = "c:\temp\myrsakey.pem"; $data = "sign this string"; $fp = fopen($privKeyFilePath, "r"); $priv_key = fread($fp, 8192); fclose($fp); $privatekeyid = openssl_get_privatekey($priv_key); openssl_sign($data, $...

Empty main form in GUI app converted from Delphi to Lazarus

I have converted my 2 GUI apps from Delphi to Lazarus. Both apps compile for Win32 platform, i386 and with GUI. Main form were converted using Lazarus tool and can be edited from IDE. But when I run such application main form does not appear, only blank form without any controls. I tried to debug this. It runs all code in initialization...