delphi

How to show the elapsed time while a long SQL Query is executed?

I need to show a popup window before a query execution, show the time elapsed while the sql query is being executed, and close that window when the query ends. Actually I do something like this var frm : tFrmPopupElapsed; // this form has a TTimer and a TLabel to show the elapsed time // but the label is not updated, I tried usin...

Which is more appropriate for pbx events, TIdTCPServer or TIdTCPClient?

I am trying out some IP PBX systems, Asterisk, Freeswitch, and Yate,to register for events in the PBX, and I want to know which of these components is the better one. The component is supposed to register with the PBX for events, receive them, send some responses and issues some commands. Which of the two would be the more appropriate? ...

Cross-platform tool for translating and internationalizing Delphi & FreePascal programs

I'm writing a program for both Delphi and Lazarus/FreePascal, so I can also reach customers using Linux or Mac OS X. Is there a cross-platform tool that works in both environments too, so I can add multiple languages? I tried GNU Gettext for Delphi and C++ Builder, but it does not compile in Lazarus for Mac OS X. Is there anything compa...

Is there anything RAD comparable to VCL?

After years in embedded programming, I have to develop a Windows app. I dug out my old C++ Builder and Delphi. These are great and the latest version costs over $1k, so I won't be going there. What I particularly like is the VCL (visual component library) which let's me code my own components and share them with others, plus the thousan...

Making ofHideReadOnly work with UseLatestCommonDialogs

In Delphi 2007 and later, the global variable UseLatestCommonDialogs causes TOpenDialog to use the new Vista-style dialog on Windows Vista and 7. That's cool. Unfortunately, the Vista-style dialog does not seem to support the ofHideReadOnly option of TOpenDialog. The read-only checkbox never appears regardless whether this option is s...

How Can I List a TDictionary in Alphabetical Order by Key in Delphi 2009?

How can I use a TEnumerator to go through my TDictionary in sorted order by key? I've got something like this: var Dic: TDictionary<string, string>; Enum: TPair<string, string>; begin Dic := TDictionary<string, string>.create; Dic.Add('Tired', 'I have been working on this too long'); Dic.Add('Early', 'It is too...

Monitor files similar to System Internal's/Microsoft's FileMon/Process Monitor

I need to generate an event when a file is closed by another app. Unfortunately, ReadDirectoryChangesW doesn't report the close event. It would be possible for me to poll (with a TTimer) any file that reported by ReadDirectoryChangesW as modified, waiting for it to be closed (using CreateFile to detect this). However, what I'd prefer i...

Delphi: how to set the length of a RTTI-accessed dynamic array using DynArraySetLength?

I'd like to set the length of a dynamic array, as suggested in this post. I have two classes TMyClass and the related TChildClass defined as TChildClass = class private FField1: string; FField2: string; end; TMyClass = class private FField1: TChildClass; FField2: Array of TChildClass; end; The array augmentation is implem...

how to execute javascript in delphi?

I am coding a small app ,in middle i struck at some point where i have to execute javascript to get my data ? in my process ,i have to login to some url and then go to some page and have to get data from that . i done all this with indy idhttp ,i got all info except one column which needs javascript to get value ,then i tried using twe...

Making a Label Visible/Not Visible in Delphi

I would like a button to change a label between being visible and not visible when clicked. I Tried the following code, but it doesnt work: Var: Hidden : Boolean; Begin If Hidden = True Then Begin Label6.Visible := True; Hidden := False; End; If Hidden = False Then Begin Label6.Vi...

Delphi: Autoscale TEdit based on text length does not work when removing chars

Hello. I have an input edit field where the user can enter data. I want the box width to be at least 191px (min) and maximum 450px (max). procedure THauptform.edtEingabeChange(Sender: TObject); begin // Scale if Length(edtEingabe.Text) > 8 then begin if Hauptform.Width <= 450 then begin verschie...

Return no records if FIndKey results in False?

Using TDataSet.FindKey you can locate records. When it results in True the datasets cursor will be positioned on the found record. When it results in False the cursor is not moved. This results in the record data prior to FindKey being issued being displayed in data aware components. How can I code the result of FindKey to return an emp...

Creating compound applications in Windows 7

I need to port a suite of Windows applications (running under XP with little security turned on) to Windows 7 with various levels of security, depending on how our clients may configure it. Each functional area is a seperate executable or DLL that is downloaded and registered by a central 'compound' application. This means that the diffe...

installing Delphi5 pro in windows 64b

Over the past 15 years or so I've written all the software that runs my medical practice in Delphi 5. Last week my disk became unbootable/unrecoverable. I have my original D5p disk and all the components backed up but I want to migrate to Windows7. I don't care if my delphi apps look like vista/7; I just want to be able to install i...

How can I create an .xls file with a readwrite password from Delphi

I know that it is possible to create .xls files from Delphi using ADO, OLE automation with Excel and even using several commercial libraries. My requirement now is not just creating a new .xls file and adding data to it but in addition protecting it with a password against editing. I guess this would be possible using OLE automation bu...

How to create a custom ADO Multi Dimensional Catalog with no database

Does anyone know of an example of how to dynamically define and build ADO MD (ActiveX Data Objects Multidimensional) catalogs and cube definitions with a set of data other than a database? Background: we have a huge amount of data in our application that we export to a database and then query using the usual SQL joins, groups, sums etc ...

Creating Delphi Objects at runtime based on class type

Is it possible to create objects at runtime based on it's type by calling a method. What I am trying to achieve is var lForm1 : TForm; lForm2 : TForm; begin CreateObjects([lForm1, lForm2]); // After this call I have the variables initialized and I can use them. end; ...

Most efficient way to send images across processes

Goal Pass images generated by one process efficiently and at very high speed to another process. The two processes run on the same machine and on the same desktop. The operating system may be WinXP, Vista and Win7. Detailed description The first process is solely for controlling the communication with a device which produces the image...

Disable form resizing in delphi

Is there any way to stop the user resizing the form? Currently I am using: When form size changed.... MainForm.Height := 761; MainForm.Width := 777; But this looks horrible as it flickers as the user tries to change the form size. ...

Should I free a Delphi object auto-instantiated from a web services call?

Newbie question: I have a forms application. It has a separate thread which makes a web services call, and then posts the results of the call to the main form. In my thread, after X seconds have passed (using a TTimer), I call: procedure TPollingThread.OnTimer(Sender: TObject); var SystemProbeValues : TCWProbeValues; begin SystemPr...