delphi

Delphi: Error when starting MCI

I use the TMediaPlayer component for playing music. It works fine with most of my tracks. But it doesn't work with some tracks. When I want to play them, the following error message is shown: Which is German but roughly means that: In the project pMusicPlayer.exe an exception of the class EMCIDeviceError occurred. Message: "Error wh...

Delphi: wait until bat-script runs to the end

I have bat-file, that make some operations. How to run this file from Delphi and wait, until it stops. Something like that: procedure TForm1.Button1Click(Sender: TObject); begin //Starting bat-file bla-bla-bla showmessage('Done'); end; ...

create windows user using Delphi

Hello, I need to create new windows user as administrator using Delphi Thanks ...

Path for Delphi libraries

Where do you guys store 3rd party (and your own) components? Do you keep separate copies per Delphi version? For years I've been using c:\program files\borland\delphi7\lib\, even for Delphi 2006, 2007, 2009 and 2010, like this: c:\program files\borland\delphi7\lib\AggPas\ c:\program files\borland\delphi7\lib\DeHL\ c:\program files\bor...

Multilangual Unicode rendering in opengl

Hi Folks, I have to extend an OpenGL-Rendering System to support international characters (especially Hebrew, Arabic and cyrillic). Development Platform is Windows(XP|Vista|7), Alas using Embercardero Delphi 2010. I currently use wglOutLineFont(...) to build my font's display list and glCallLists(length(m_Text), UNSIGNED_SHORT, PWcha...

Inheritance of TCollectionItem

I'm planning to have collection of items stored in a TCollection. Each item will derive from TBaseItem which in turn derives from TCollectionItem, With this in mind the Collection will return TBaseItem when an item is requested. Now each TBaseItem will have a Calculate function, in the the TBaseItem this will just return an internal v...

Delphi To Java code conversion: image.canvas.pixels

I'm trying to convert an old Delphi program I wrote into Java to compile and run on my Android phone. I'm running the Android 2.1 operating system but am using version 1.6 of the SDK. I have a routine in Delphi where I set the colour of pixels on a canvas individually along the lines of: image1.canvas.pixels[x, y] := GetMyTColor(x, y);...

A better way of converting Codepage-1251 in RTF to Unicode

I am trying to parse RTF (via MSEDIT) in various languages, all in Delphi 2010, in order to produce HTML in unicode. Taking Russian/Cyrillic as my starting point I find that the overall document codepage is 1252 (Western) but the Russian parts of the text are identified by the charset of the font (RUSSIAN_CHARSET 204). So far I am: 1...

Delphi, What do I do about "no GetEnumerator present" error when using a for loop over Excel Interop Worksheets collection?

Hello, I'm trying to write a Delphi program that will loop through each worksheet in an Excel file and format some cells. I'm receiving an error while trying to use the for-in loop over the Workbook.Worksheets collection, though. The error is specifically: [DCC Error] Office.pas(36): E2431 for-in statement cannot operate on coll...

Delphi 10, .NET, how do I convert a hex UTF-8 string to its unicode character?

Hi all, I am trying to make my web app compatible with international languages and I am stuck with trying to convert escaped characters in my Delphi .NET DLL. The front end code is passing the UTF-8 hex notation with an escape character e.g for お I pass \uE3818A. In my DLL I capture this and constract the following string '$E3818A'. ...

Using EnterCriticalSection in Thread to update VCL label

I'm new to threads. I'm using a 3rd party library that uses threads which at times call a procedure I've provided. How do I update update a TLabel.Caption from my procedure when its called by the thread? If I've called InitializeCriticalSection elsewhere, is it as simple as EnterCriticalSection(CritSect); GlobalVariable := 'New ...

Delphi 6 OleServer.pas Invoke memory leak

There's a bug in delphi 6 which you can find some reference online for when you import a tlb the order of the parameters in an event invocation is reversed. It is reversed once in the imported header and once in TServerEventDIspatch.Invoke. you can find more information about it here: http://cc.embarcadero.com/Item/16496 somewhat rela...

How can the SelectDirectory Dialog in Delphi dynamically validate the highlighted folder?

Is there a way to enable / disable the Ok button in the SelectDirectory Dialog based on a validation rule, for example: enable the OK button if the name of the highlighted folder is 'config' enable the OK button if the highlighted folder contains a file with the name '.project' and a folder with the name '.settings' ? ...

What's the difference between casting using (Object as TClass) and TClass(Object)

Got an issue where MyObj.classnameis(TMyClass.classname) is true and TMyClass(MyObj) works but (MyObj as TMyclass).doSomething throws a conversion error. I don't really want any help with that junk, although if you want to put it in the comments that'd be super. I just would like to know what the difference between Obj As Class and Cl...

Why does the D2010 debugger make some things much slower?

I've got a special combo box with a very long list of items (a few thousand) that has to be calculated when you open it. When I was testing something, I was horrified to find that it took about a minute to open. So I hooked the program (same build, same options) up to Sampling Profiler to see what was taking so long, and it only took a...

.Net equivalent for the TTimer Delphi component

Exist a .net class equivalent to the TTimer delphi component? TTimer is used to simplify calling the Windows API timer functions SetTimer and KillTimer, and to simplify processing the WM_TIMER messages. Use one timer component for each timer in the application. The execution of the timer occurs through its OnTimer e...

IPC using SendMessage but receiver have random window caption

I found "Delphi Inter Process Communication (IPC) using SendMessage" with Google. Here's a piece of the code from Sender to send a message for Receiver : procedure TfrmClient.FormCreate(Sender: TObject); begin MyMsg := RegisterWindowMessage('MyMessage'); ServerApplicationHandle := FindWindow('TApplication', 'Project1'); end; The ...

Emulate terminal services

Hello, I am a seasoned Delphi developer and would like to create something like seamless terminal services where an application is executed on a server but appears on the the desktop of the client. To someone working on the server i don't want them to see the remote application running (except if they looked in at the list of running ...

Delphi 2009 - Strip non alpha numeric from string

I've got the following code, and need to strip all non alpha numeric characters. It's not working in delphi 2009 ` unit Unit2; //Used information from // http://stackoverflow.com/questions/574603/what-is-the-fastest-way-of-stripping-non-alphanumeric-characters-from-a-string-in interface uses Windows, Messages, SysUtils, Variants, C...

How to avoid the focus on Delphi application ?

Hi there, I need develop an application (Delphi) that never receive the focus, I use the DLL to display the video on second monitor (I found in Torrys Delphi - Dr.SAGURA Media Player v.1.0) that receive the focus every time play the video, how avoid this ? I try : procedure TForm.WMActivate(var Msg: TWMActivate); begin WA_ACTIVE...