Delphi Developers Archive

Hi All I have finally figured out a problem with my code It was to do with using Application.CreateForm(TForm1, Form1);  for creating forms instead of using form1:tform1.create(self); The former presented no problems with Delphi 2009 compiler, but with XE6, after calling that numerous times (and the form would be freed after being used), eventually you would end up with obscure access violations. (but not on all pc's) Just a note, when using the later, check you do not reference the form name in the oncreate...instead use self hopefully this might help others from pulling their hair out Brian

hi! all Will we ever know? Autostart(HKLM) manifest for Windows 10. Thanks

Hello all, I am currently porting a library from csharp to pascal but i just encountered a showstopper issue. is there any equivalent (or implementation) or can someone help me with an implementation of csharp Stack especially its push and pop methods in pascal/Delphi? Thanks. https://msdn.microsoft.com/en-us/library/system.collections.stack%28v=vs.110%29.aspx

A couple of years ago, I came across a site about compiler optimisations (in general), with examples for the different types. With a fair bit of talk about compiler optimisation in the last couple of months, I would like to have another read of the different types of compiler optimisations. Can anyone recommend a good site that covers compiler optimisations (in general), with examples how to apply the optimisations?

VCL TImageList and PNG images. I can't believe that in Delphi VCL I've no capability to insert PNG images in a TImageList (not even in XE8). Of course I mean real use of PNG with alphablend and transparency no PNG loaded and converted in BMP with black background. For years to solve the problem I use PNGComponents. They work fine but I don't like how they patches at low level the TImageList methods (I'm trying to solve an annoying random invalid pointer operation in my app and my target from debugging is becaming TPngImageList). Is it really so hard to modify basic VCL components like TImageList, TSpeedButton, TBitButton to work with PNG glyphs avoiding use of third parties?

Just FYI, new Delphi community forums recently started leaking email addresses in "Who is online". Beware if you are using email as your login. http://community.embarcadero.com/index.php/forum

Just FYI, new Delphi community forums recently started leaking email addresses in "Who is online". Beware if you are using email as your login. http://community.embarcadero.com/index.php/forum

AFAIK Inc() and Dec() are built in functions that where, at the time of Turbo Pascal, a faster way to inc/dec ordinals. Now the compiler is smart enough to optimise things anyway. would it be nice to allow them now to Inc/Dec properties ? Inc(Button1.Tag) will be a shortcut for Button1.Tag := Button1.Tag + 1

AFAIK Inc() and Dec() are built in functions that where, at the time of Turbo Pascal, a faster way to inc/dec ordinals. Now the compiler is smart enough to optimise things anyway. would it be nice to allow them now to Inc/Dec properties ? Inc(Button1.Tag) will be a shortcut for Button1.Tag := Button1.Tag + 1

Just a heads up for everyone... If you change the name of your computer, all your RAD Studio registrations will need to be made again and it continues to count the one on the 'old' computer name. And in my case, that just caused all my versions to stop working because I 'hit my registration limit'. So now I can't do work until someone at Embarcadero resets my count. What a stupid thing to tie a reg count to the computer name. I had a very valid reason for renaming my computer, now I am paying the price as I have something I need to get done tonight before I leave town tomorrow morning. Buyer be ware... ARGH!

Just a heads up for everyone... If you change the name of your computer, all your RAD Studio registrations will need to be made again and it continues to count the one on the 'old' computer name. And in my case, that just caused all my versions to stop working because I 'hit my registration limit'. So now I can't do work until someone at Embarcadero resets my count. What a stupid thing to tie a reg count to the computer name. I had a very valid reason for renaming my computer, now I am paying the price as I have something I need to get done tonight before I leave town tomorrow morning. Buyer be ware... ARGH!

How do you configure your app to have its own URL Scheme in IOS/Android...

http://programmingmindstream.blogspot.com/2015/07/todo-interfaces-with-partial.html

Having trouble with FireDAC TFDQuery that throws an Exception when trying to read a TGUIDField with a GUID that has X'00' in the low order byte. This can be reliably reproduced. So, I bit the bullet and went through the painful XE8.1 upgrade to see if that would help. Of course it didn't, but instead reintroduced the Castalia crashes (quickly resolved) and some very large memory leaks caused by Live Bindings. I may just reinstall XE8. At least that gets rid of the Live Bindings problem. EMB goes one step forward and two (or more) steps backward. Very frustrating and causing me to rethink whether I really want to pay money for this kind of Update Subscription. [Sigh]

"Konopka Signature VCL Controls enable the quick design of modern user interfaces for Windows applications. The product features more than 200 Windows UI controls. With full VCL Styles support, developers can deliver custom and modern Windows 10 applications." Seems like good time to ask again. What about per-monitor DPI support for Windows. Is there any development (progress) in that area? Can we expect it in XE9? https://quality.embarcadero.com/browse/RSP-9679 http://www.eweek.com/developer/embarcadero-launches-windows-10-iot-dev-tools.html

Another example of using the HTML Component Library. Visual part is bult with only one line of Delphi code (OnElementClick event). Two HTML Panels - one for the map and one for selected symbol. Map creation procedure: procedure TCharForm.CreateCharMap(const FontName: string); var GS: PGlyphSet;     i, k, rowsize, rowindex, rowcount: integer;     R: PWCRange;     B: TBitmap;     s, xchar, hintclass: string; begin   s:=' ';   B:=TBitmap.Create;   try     B.Canvas.Font.Name:=FontName;     k := GetFontUnicodeRanges(B.Canvas.Handle, nil);     GetMem(Pointer(GS), k);     try       GS.cbThis:=k;       GS.flAccel:=0;       GS.cGlyphsSupported:=0;       if GetFontUnicodeRanges(B.Canvas.Handle, GS) 0 then begin         rowindex:=0;         rowsize:=20;         rowcount:=0;         R :=@GS.ranges[0];         hintclass:='hint--bottom';         for i:=0 to GS.cRanges-1 do begin           for k:=0 to R.cGlyphs-1 do begin             if rowindex>rowsize then begin               s:...

Hello! My question, as most times, is intriguing and weird :D BDS2K6 + Win7 So, let's say I have a CDS called CDS1 and a clone called CLN1. CDS1 is attached to a DevExpress grid and it has a  flag field which becomes 1 when it's checked, 0 otherwise. CLN1 issues a CloneCursor call as soon as CDS1 gets opened. When I click on the checkbox in the grid, the clone is not updated. Any ideas what could be wrong here? ImmediatePost for the column is set to true. A

Hey guys, Is there a equivalent version of System.Array.Clear(Array array, int index, int length) from .NET to Delphi? Is it possible to clear a dynamic array entirely, or a specific range of it? Sorry for any inconvenience. Thanks in advance.

Hey guys, Has anyone have tried to import a custom .ttf font to a Windows Firemonkey application yet? I was only able to find links for Android and iOS, but not related to desktop supported platforms. Thanks in advance.

Hey guys, I have a doubt, I need to check whether a queue contains a item, there is no generic constraints about its type, thus the generic parameter T can be a reference type (class) or a value type (record). The first thing that I need to check is whether T is a class for allow nil values (The parameter Item can be nil, once it is a reference type), the code must work as well as possible with records. Is there a straightforward way to achieve this other than using TValue as in the image below? Thanks in advance.

Hi Question to the group. I have managed to setup remote debugging (windows), via load process,,,to be able to track down an error that is occuring that I cant duplicate on my development pc. Its working...and I can pause the program....but it will not run to cursor (this works if local debugging)...anyone else had that problem? .Thanks, Brian

Hey guys, What is the maximum length of a dynamic array? Length function returns a integer of 16 bits. Thanks in advance.

http://programmingmindstream.blogspot.com/2015/07/briefly-wonder-of-words-redefining.html

OmniThreadLibrary 3.04b: - Implemented TOmniSingleThreadUseChecker, a record which checks that the owner is only used from one thread.  - TOmniCommunicationEndpoint.ReceiveWait and .SendWait are now fully thread-safe and support multiple consumers (former) and multiple producers (latter). - Reimplemented support for TWaitFor in the TOmniTaskControl which was removed from the code in 3.04a by mistake. The book update: - Documented TOmniValue. - Documented TWaitFor. - Documented TOmniLockManager. - Documented TOmniSingleThreadUseChecker. - Adapted Communication Subsystem documentation.

Is there a way in FireDAC to prepare a query to get the correct fieldtypes of the parameters? ADO can do that - before setting their values you can see what type they require. I need that for some custom value conversions before passing values to the params. In FD they are ftUnknown all the time and need to be set by either setting the Value or explicitly (like for strings). And when I call Prepare it tells me that I need to set the types before calling Prepare. Isn't that why I call prepare so the DBMS can tell me what types it wants?!

Holy cow - Emb newsgroups are back. It's been at least 6 months since I've been able to access them.

SysUtils.dcu nicht gefunde!!! Delphi XE 6: Wenn ich in der Uses-Anweisung "SysUtils" angebe, kommt beim kompilieren "SysUtils.dcu" nicht gefunden. Jedoch muss ich davor "System.SysUtils" eingeben oder einen Unit-Alias "SysUtils=System.SysUtils" anlegen, damit es funktioniert. Gibt es eine Möglichkeit, das Delphi die alte Uses-Anweisung akzeptiert? Müsste da sonst viel nacharbeiten. Oder hat wer eine Unit-Alias-Liste die alles beinhaltet?

On the developer skill sprint last night, they announced that next week they'll be showing TestInsight. So, I'm hopeful that this means there's an XE8 compatible version of Stefan's excellent plugin almost ready for general release... :-)

Originally shared by Maik Wojcieszak Hi, My Android App uses TML Messagin Suite ( libtml.org ) together with Delphi XE7. Enjoy! http://www.youtube.com/watch?v=hfqypB5peP8

I have a RTMP camera. Solution with either Delphi 7 or xe. I would like to show the video on a panel. I know of lrtmp.pas and paslibrtmp demo (that dose not work) with VLC and vlcLib it works but it is not fast enough  I tried  a few answers to questions on stackoverflow that do not work. Looking for a working example  source

New BeaconFence component http://blog.marcocantu.com/blog/2015-july-beaconfence.html http://blog.marcocantu.com/blog/2015-july-beaconfence.html

What's new in HTML Library 3.3 (Video) Also * 10 times faster rendering of large .. blocks * tag support * CSV export in print preview http://delphihtmlcomponents.com/ http://www.youtube.com/watch?v=C7-Z9Y-JVjQ

Big bug in Tethering components  ! I've installed VirtualBox on my PC, so I have 2 IP address: 192.168.0.54 on my Wifi adapter 192.168.56.1 on the "VirtualBox Host-Only Network" adapter. when I start the PhotoWall client on Android it broadcast an UDP message: hello ! I'm 192.168.0.27 on port 2020 ! the Server connect to the client and sends the reply: Your welcome, I'm  192.168.56.1 on port 2020 ! And Android will never connect back to the server !

oups ! can't stop it, have to kill the IDE

that's not good ! [dcc32 Erreur fatale] CrossComponents.Sockets.pas(1): F2084 Erreur interne : AV0CCB8148-R00000014-0 can't compile my package anymore, I've just added a conditional DEFINE "DESIGN" for all configuration...I've removed it but this error is still there...

Has anyone experience in Delphi XE8 when compiling a big app in debug mode it spits out Internal Error or Out of Memory error.

Has anyone experience in Delphi XE8 when compiling a big app in debug mode it spits out Internal Error or Out of Memory error.

Is there a trick to using regular expressions in Delphi's Find In Files? I want to find two words on the same line - SetLength and MyArray.  "SetLength*MyArray" return no results, when searching for MyArray alone shows, scanning by eye, several lines that would seem to match: "SetLength ( MyArray" or "SetLength(Foo.MyArray". The Delphi Help seems to indicate the syntax works as I'd expect, and my memory from last time I used regular expressions in a Delphi search - maybe three or four years ago - is that * was a wildcard too.  This is in XE7.0. http://docwiki.embarcadero.com/RADStudio/XE7/en/Regular_Expressions What am I doing wrong?

AMIDuOS - Android emulator for Windows Have any of you tried this? Can it be used with Delphi i.e. does debugging work? Article about it:  http://winsupersite.com/windows/turn-your-surface-pro-3-or-any-windows-tablet-android-tablet http://amiduos.com/

Hey guys, Why Delphi's records doesn't allow interface inheritance? I want something like this: Delphi code -> TEnumerator = record(IEnumerator ) end; C# code -> struct Enumerator : IEnumerator { } How do I simulate this behavior? :D Thanks in advance.

I'm very pleased to release Navigator v1.1! This version supports XE and XE2 , and also has a special if you buy before July 31 , in honour of working so much at a computer in this hot summer weather. It's also got a couple of neat new features and tweaks. New: - Supports Delphi XE and XE2 (in addition to XE3-8)   - The Go To window can list all constants and variables - even those inside methods, although to avoid noise that is turned off by default. - The Go To window can display only the implementation or declaration entry for a method, or both - A wide variety of bugfixes, tweaks, modifications, and extra settings. Read the blog post for the full list! https://parnassus.co/navigator-v1-1-released-with-xe-and-xe2-support-and-a-special-offer/ https://parnassus.co/navigator-v1-1-released-with-xe-and-xe2-support-and-a-special-offer

The GExperts svn repository on sourceforge is online again. Took forever but it seems to be complete.

Hey guys, I weird thing happened these days, I was checking the performance of "[Integer number] shl 1" against "[Integer number] * 2" operation and I have ran on unexpected results. When I run the code at  https://gist.github.com/horaciojcfilho/271fdbf65d7a85599a27 . On 32-bit Windows compiler: Multiplication is much faster than Shift Left On 64-bit Windows compiler: Shift Left is a little bit faster than Multiplication Am I confusing? Is there anything related to Right Left on 32-bit systems that I don't know? I can't test it on Android because I runned it as a test of DUnitX. Thanks :D

Q: How do you test VCL 4k support without 4k monitor?

Is there a better way than TXMLDocument to read XML snippet that return from Restful service the xml return as following:   true 0         I was able to read the values using TXMLDocument, but I was thinking if there's  a lighter and more faster to do that. I'm using Delphi 2010

Hey guys, I am wondering whether avoiding Length() calls for dynamic arrays is really a performance optimization or whether that call is replaced for any stub after compilation. Length() call adds any slowdown to the code or that function may get called freely?  Thanks :D

Could someone please check if casting to currency is broken in versions >XE7? I'm making a bug report for QP. uses   System.SysUtils; type   PUInt64 = ^UInt64; var   f: double;   c: currency; begin   f := 42;   WriteLn(Format('%.3f', [f]));   WriteLn(Format('%16x', [PUInt64(@f)^]));   WriteLn;   c := currency(f);   WriteLn(Format('%.3f', [c]));   WriteLn(Format('%16x', [PUInt64(@c)^]));   WriteLn;   c := f;   WriteLn(Format('%.3f', [c]));   WriteLn(Format('%.16x', [PUInt64(@c)^]));   ReadLn; end. On XE6/XE7 it outputs: 42.000 4045000000000000 463110779182042.317 4045000000000000 42.000 00000000000668A0 Seems the compiler simply copies the bytes directly when you cast the double to currency :(

How can you display IOS action sheet In Delphi?

It might interest you. Just playing with Windows 10 undocumented APIs.

I need to control Aeonix IP PBX from a Delphi app.  I need to dial out, allow the user to talk to the person dialed, change the caller ID info, Etc. This Aeonix box supports the CSTA protocol for remote control and I plan to use it as this is the industry standard for other companies doing similar products. Has anyone found a set of Delphi components to implement the CSTA telephony protocol?  How about porting a CSTA .NET driver/DLL to Delphi?  If this is an option, then where can I get the necessary DLLs?  I know they exist, but I don't know where to obtain them. I have Googled this extensively, but all the information is either old, dodgy looking, extremely expensive, or creates too many questions to make a buy decision. Any advice would be greatly appreciated!

I am using column properties in the TClientDataset to contain a few important items, such as the desired display caption for the column, the display format, and so on.  The problem is, I need to stream the datasets to XML and pass the XML to a different module, a DLL, and I have found that those properties are not in the stream. At present, the caller is in D2007 and the called routine is in a DLL written in XE7. Does anyone here know of an existing customized version which would handle the problem?

Putting the generic in Generics? Annoyance 1:    TThing = class   private     FThing: T;     procedure SetThing(const Value: T);   protected     property Thing: T read FThing write SetThing;   public     procedure Configure(const aThing:T = nil); // *   end; *  [dcc32 Error]: E2268 Parameters of this type cannot have default values Why? It's a class instance pointer, isn't it? Annoyance 2: Types are simplified.   Unit 1 TAbstractColumn = class end; TColumn = class(TAbstractItem) end; TGridHelper = class(TList >) end; Unit 2 (uses 1) TQueryGridHelper = class(TGridHelper ) end; TQueryStrGridHelper = class(TQueryGridHelper ); TQueryDBGridHelper = class(TQueryGridHelper ); note: TDBAdvGrid is a direct descendent of TAdvStringGrid Unit 3 (uses 1 and 2) procedure SomeClass.DefineColumns(const aHelper: ???); If it is defined as  procedure DefineColumns (const Helper: TQueryStrGridHelper); I get: [dcc32 Error]: E2010 Incompatible types: 'TQueryStrGridHelper' and 'TQu...

Unit tests. Where do they live?

Can anyone get the EMBT docwiki search to provide a useful hit? It seems broken to me.   Marco Cantù - I am starting to suspect that someone has stopped Google from indexing the whole site - which is a really bad idea when you use a Google Custom search to search it.

Hello guys,  I am surfing on this problem :( It occurs when I try to add a runtime package (targeting Win32-64 and Android) to a DUnitX project :( I have had no success. When I try to add it in "Runtime Packages" also doesn't work as expected :(

Why can't an interface have class methods? How cool would it be to do: type   ISlice = interface     class function New(Arr: TArray ; Start, Slide, Size: integer): ISlice ; var   IntSlice = ISlice ; begin   IntSlice:= ISlice .New(Arr, 1,2,10); end; No need to know about implementing classes, unless you want a special flavor of ISlice. Of course this does not just relate to construtor like class functions, but any sort of class method.

Released kbmMW v5.00.01 Remote Desktop with multi monitor support. This release adds/fixes the autoscroll feature which happens on a window of a monitor where the full contents cant fit. Simply move the mouse cursor to the edge of the window to scroll. kbmMW Remote Desktop CodeGear Edition is  a free to use, highly capable remote desktop solution, outperforming even paid solutions in performance and features. All communication is encrypted end 2 end uniquely for each running server using AES/SHA256.

http://stackoverflow.com/q/31566689/49925 http://stackoverflow.com/q/31566689/49925

Hi  Is there a component that works for iOS and Android whereby there are events for Application goes into sleep mode and Application becomes foreground or when User enters the Back button on Android? please advise thanks chris

On Slashdot there was a fun post asking What's the Oldest Technology You've Used In a Production Environment? One of the commenters posted the following reply, which I though was quite amusing: A .NET Web Api 2 web service that runs a borland pascal executable... At work we're still using BDE, though hopefully in a month or two almost all of it will have been replaced with FireDAC. However it'll take another year or two before all customers have been updated. Perhaps not very ancient but what BDE lacks in pure age it makes up for in how much it sucks today... How about you guys? http://it.slashdot.org/story/15/07/21/2053200/whats-the-oldest-technology-youve-used-in-a-production-environment

Hey guys,  Where I found the *.so file generated for a Delphi package targeting Android? I have tried found it in %LONG_PATH%\%LIBRARY_PATH%\Android\Debug and C:\Users\Public\Documents\Embarcadero\Studio\16.0 but unsuccessfully :( Thanks in advance :D

Hey guys, Is it possible to create a staggered grid in Firemonkey applications? Like these ones? Thanks in advance :D

I'm about to possibly start doing some web development, but only inside Delphi XE7 itself. I have asked various questions on here about what to use and have narrowed it down to : IntraWeb,  Elevate Web Builder, UniGUI, Raudus I was wondering what people out there were using and why. Please vote and add comments if you can spare the time. Thanks

Any one has the same problem with IBLite? When a TFDQuery component executes certain queries, FireDAC return the next error message: [FireDAC][Phys][IBLite]I/O error for file "" Error while trying to open file No such file or directory. sort error If I deploy as "Normal" the program works well. Is in "App Store" (sandboxed) mode when the problems arise. And they only occurs in IBLite, and in MacOS. Not tested on  IBTogo, and Mobile Platforms. And these are the steps to reproduce the problem: Create a new project and in Deployment, prepare it for App Store (Deploy), with IBLite. Include SANDBOX.IB file. Add a TFDConnection component and a TGUIxWaitCursor. Configure the connection for connect with the Interbase DB file SANDBOX.IB (Attached with the example code). Add a TFDQuery component and set his Connection property to the previously added TFDConnection component. Assign one the the next queries, that you can found on the source code, CLIENTES, PROVEEDORE...

Michelle's ShoppingDroid. You are all invited to try the alpha 4 version. Logon to http:\\www.msd.website\ and d/l the MSD.apk file.

Hello everyone. I started learning Delphi not long ago but can't seem to figure out how to create a kind of display, which shows a value or several of them. Maybe i am stupid and it will be faster to use disabled textboxes, but i wanted to make a display. I am trying to do something similar to LED display. Something like this: http://postimg.org/image/5ikiiwyt7/ Can someone point a direction in which to look? I'll probably figure it out after that. http://postimg.org/image/5ikiiwyt7

While writing my article on DI on mORMot, Stefan Glienke correctly commented on a first draft that I was confusing the Dependency Injection and the Service Locator patterns. This led me to do some investigation, and to be honest, I have more questions now. I now understand the difference between the two patterns, but, I've found that some people feel that Service Locator is an anti-pattern, (which is a pity as I was quite fond of it) as it hides your dependencies, and that is why constructor based dependency injection is preferred - the compiler can assist with detecting breaking changes, and CodeInsight provides valuable information to the developer. (I should add "when creating a new system", because retro fitting DI will be a nightmare) Am I right, that on a very basic level, DI simply states - provide your dependencies as parameters, rather than fetching them? If that case the pattern will even work for good old procedural programming. https://tamingthemormot.wordpres...

Hi Friends, Is there any chance to insert records in paradox table using ADO controls ? Because i am trying on that and getting errors with Table, Dataset and Command as well. I am using Delphi 2006, its working fine with TTable however we want to move to XE8 and TTable is not supported on that i think. Any help is appreciated.

Would you use Google's Material Design (MD) for create Windows/OSX desktop applications? Commercial applications? I am thinking about create a new Firemonkey library (something like https://github.com/IgnaceMaes/MaterialSkin - MD for .NET's Windows Forms) aiming that, and I need your answer :D Many thanks :D

If you would launch a desktop adware, which service would you chose to get the ad-banners for it? Anything you can recommend?

Hey guys,  How do I internationalize exception messages? Currently, I am using resourcestring for store the messages, but I am not sure if it translates the messages as well. Something like the image below :D Thanks in advance :D

Hello, I am looking for a virtual printer component like PDFCreator or similar in order to intercept a print spool. thanks

For iOS, there is Settings Bundles, For Android, what do we use? For the Multi Device application, what is the component we can use to access the settings? please advise

ANN: kbmMW Remote Desktop CodeGear Edition v5 released! New in v5: - Multimonitor support! (max 8 monitors) - Monitor rotation and size change detection - Clipboard sharing (text only). Require activation in both server and client. - High performance capturing on Windows 7 with Platform update and Windows 8+ hosts using DirectX 11. - Improved full screen support - Internal threading improvements - Fixes and other enhancements New in v4: - Full screen support - 4 optional automatic compression selection modes with additional optimizations - Further optimizations in internal tiling algorithms - Opened up for more features in CodeGear Edition - Bugfixes New in v3.1 - Supports 4K/UHD screens - Vastly improved performance by new tiling algorithm - New optional high performance TurboJPEG compression/decompression - New high performance LZ4 compression/decompression algorithm - New optional support for keyframes - Optional automatic tile compression selection - Bugfixes In addition to the exi...

Debugging info partially lost: this isn't the common 'blue dots' issue but something else.  Can anyone help? Yesterday and today I have an odd IDE problem.  I start a debug-build process.  Blue dots etc are there in the gutter, and I can place a breakpoint fine.  The IDE stops at the breakpoint... but instead of showing me the source code, it shows the CPU view.  Stepping etc works only in the CPU view, not the editor, and the Local Variables list is empty (and Eval/Modify etc similarly don't function). Despite the editor's debug info, the call stack window does not have blue dots next to the method name in the call stack.  So something isn't loading correctly. This seems to happen only for some units, but when it does, it's consistent for those units. When debug info gets out of sync with the editor (ie the common blue-dots problem), it usually means there's another unit with the same name on the path, out of date DCU files, etc.  Currently I'm wor...

Originally shared by Boian Mitov Create your own ‪#‎Visuino‬ components for ‪#‎Arduino‬ article in "Blaise Pascal Magazine"

SourceForge seems to have a massive outage. Apparently the storage for their virtual servers got corrupted. I noticed, because an update to the GEXperts source code failed. Don't expect your code repositories to be up again soon: We’re holding SCM service restoration for last, and will be prioritizing Git service to be first within that process based on its fast verification path. Holding SCM restoration for last allows us to take a cautious approach and to free our staff to interact with developers if any concerns exist when the service is re-enabled http://sourceforge.net/blog/sourceforge-infrastructure-and-service-restoration/

Is there any other way of getting at registered user downloads, other than through the EDN website? I'm trying to get my XE8 updated to XE8.1 but the EDN website doesn't seem to be responding to the 'myreg' page at the moment.

Title

What application built in Delphi (that is not Delphi) do you use the most on your own machine? I've used UltraExplorer by Jim Kueneman every day on every machine since maybe ~2008. Runner up would be a utility I wrote which I've been running since 2005.

my pascal port of an Email Validation Library. Supports mail addresses as defined in rfc5322 as well as the new Internationalized Mail Address standards (rfc653x). https://github.com/Xor-el/EmailValidationPascal

my pure pascal port of xxHash (32bit and 64bit). https://github.com/Xor-el/xxHashPascal

RAD Studio XE7 Enterprise, Update 1 - Out of memory Just to clarify how extensive my memory issues are... I often have to compile at least three of these apps when testing changes.  The server, the admin app, and the truck app.   I can currently compile 2.5 apps before I have to restart the IDE:P Switching between two apps, the leak is slightly slower - but I will run out.   I usually end up doing something like this:  - Exit IDE, Restart IDE - Compile the two apps I won't be debugging, - Exit IDE, Restart IDE - Compile the app I plan to debug - Exit IDE, Restart IDE, Start the other two apps outside the debugger. - Run the app I plan to debug and hope the debugger doesn't die on continue from breakpoints ...and that's how the day passes... Dozens and dozens of restarts... and that's on a good day. Edit: IDE tweaks: * No Castalia.  * -noparser on command line * Error Insight disabled I certainly hope you are addressing this for the next major release, Marco Cantù  https...

We have 1443 open issues for RAD Studio on  https://quality.embarcadero.com/browse/RSP How can we help to solve them? https://quality.embarcadero.com/browse/RSP

Reminder: Why not add a little personality to your profile by having an avatar?  It can be your own mugshot, your car, your cat, your favorite food, or some other random image from the internet. Originally shared by Lars Fosdal Don't be a #bluehead  - Update your profile! It gives me a warm fuzzy feel to look at a face or an Avatar, instead of a blue head, when reading the discussions - and I have to say that I find it somewhat annoying that people don't bother to give up even just a little of themselves on their profile. It looks like Google+ is here to stay, so why not make yourself at home? No pressure, just do it ;)

Reminder: Why not add a little personality to your profile by having an avatar?  It can be your own mugshot, your car, your cat, your favorite food, or some other random image from the internet. Originally shared by Lars Fosdal Don't be a #bluehead  - Update your profile! It gives me a warm fuzzy feel to look at a face or an Avatar, instead of a blue head, when reading the discussions - and I have to say that I find it somewhat annoying that people don't bother to give up even just a little of themselves on their profile. It looks like Google+ is here to stay, so why not make yourself at home? No pressure, just do it ;)

I have a Virtual Treeview with multiline nodes. However when the text in the nodes gets bigger the scrolling of the tree gets intolerably slow. A quick look into a simple "one node with large text" application with sampling profiler shows that most of the time is spent in gdi32.dll. So I guess somehow the painting code has an issue with the large text. Anyone know a solution? Here is the code required to reproduce the problem: procedure TForm1.FormCreate(Sender: TObject); begin   VirtualStringTree1.TreeOptions.MiscOptions :=     VirtualStringTree1.TreeOptions.MiscOptions + [toVariableNodeHeight];   VirtualStringTree1.RootNodeCount := 1; end; procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree;   Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;   var CellText: string); begin   CellText := s; // >20000 characters and the problem becomes visible end; procedure TForm1.VirtualStringTree1InitNode(Sender: TBaseVirtualTree;   ParentNode, Node: PVir...

I could see that even in Win32/64 application or in general Windows applications, some developers start to use a slider menù like apps on smartphone and tablets (also native apps for the new Windows 10). Is there a ready to use VCL component to simulate that kind of menù? I see that around there are solutions for the firemonkey platform but for VCL?

For the first time in several years, I need to build a DLL. Now that FastMM is the default memory manager, is there any reason to make use of the old ShareMem? I am in XE7.1.

Language question: Do you use variables that are assigned once and never thereafter, making them almost but not quite constants? I have a common pattern in my code where I will have a useful variable in a method, but only set its value once - usually at the top of the code.  For example, procedure TBar.Foo; var   TimeElapsed : DWORD; begin   TimeElapsed := GetTickCount - FStart;   if TimeElapsed > FourHours then...   else if TimeElapsed > ThreeHours then...   // etc. end; It's a variable because I want to assign it, but I only want to assign it once. What bugs me is that it feels unclean in code - I want it to be a constant, not a variable, ie once set I want the compiler to prevent me writing it again. I could use a function call, but often I don't want to recalculate every time (the above is a simple, low-cost example.)  I just want a write-once, read-many, variable.  Ie a constant I can assign to once at runtime (but not a 'writeable constant', which you can wr...

So this isn't from my code and it's not new code, but I couldn't help but wanting to know the answer, just to satisfy my own curiosity. Consider the following code: type   TFoo = object     s: string;      constructor Init;     destructor Done; virtual;   end;   PFoo = ^TFoo;   TDescendant = object(TFoo)     s2: string;      constructor Init;     destructor Done; virtual;   end;   PDescendant = ^TDescendant; { TFoo } constructor TFoo.Init; begin   s := IntToStr(42); end; destructor TFoo.Done; begin   WriteLn(s); end; { TDescendant } constructor TDescendant.Init; begin   inherited Init;   s2 := IntToStr(123); end; destructor TDescendant.Done; begin   WriteLn(s2);   inherited Done; end; var   f: PFoo; begin   ReportMemoryLeaksOnShutdown := True;   f := New(PDescendant, Init);   Dispose(f, Done); end. Running this leaks the "s2" member. Now, I never used these old-style "object" types much at all, so I don't know how they're supposed to work, and go...

I'm working in XE7, and have found that if I declare a static class, then code completion presents the private field, rather than the public property. So with this: type   TMyClass = class   private     class var       FSomeField: string;   public     class property SomeField: string read FSomeField write FSomeField;   end; I will see in code completion, TMyClass.FSomeField. The field is private, of course, so code will not compile if it uses the field exposed in code completion. Making the field strict private does not change the behavior. The only alternative I have thought of would be to use getters and setters for the properties, and make the data storage simple variables in the implementation section. I really don't want to explore that kind of kludge. Is this a known error? I have not found it in QP. Or is there some syntactical trick to get around the problem?

Has anybody been able to find the correct display settings to view the Delphi XE7 IDE correctly on a MacBook Pro with retina display? I'm using 2880x1800 with font size set to 200% but the XE7 IDE displays the fonts at half size making them almost unreadable. All other applications look fine. Any ideas?

Version 2.4 of TECNativeMap, the mapping component 100% Delphi, is available for all platforms. This release has an improved zoom, support for clusters and multiple views http://www.helpandweb.com/ecmap/en/tecnativemap.htm

Hello guys, Does anyone have some tutorial for creating custom components for Firemonkey? I was a Android/Java programmer, is there something comparing how to create Firemonkey components and Android components? I want to create something like a custom rendered button :D Thanks in advance :D

I can't for the life of me get a TTreeView to multi-select the child nodes of a selected parent. I'm attempting to select only top level children of an expanded node so there is no recursion. I've tried all three of the "Select" methods, in both the TList and the array of TTreeNode overload methods I get an AV when using the select(Nodes) method. When I use the single node method with a ShiftState of ssCtrl I don't get the AV, I see the nodes getting selected (in a flash) and when done there is nothing selected and the SelectionCount is 0. I'm trying to do this in the OnClick event. Any ideas on what's going on?  (XE8)

Does TurboPack/AsyncPro library supports Win64? Namely, current code on GitHub https://github.com/TurboPack/AsyncPro  does not compile for Win64 because it contains 32bit ASM code (and possibly has other issues). But readme of the same repository says that Win32 and Win64 are supported. Am I missing something here? http://stackoverflow.com/q/31349457/4267244

TMS Cloud Pack v3.1.0.0 released with several new components! What's new: - New: TCloudDataSet / TCloudDataAdapter: component that offers seamless TDataSet based data binding for cloud based data storage (TAdvCloudKit / TAdvGDataStore) - New: TAdvHiDrive: component to get access to HiDrive cloud storage - New: TAdvGDataStore: component for access to Google DataStore - New: TAdvCloudKit: component for access to Apple CloudKit For evaluating users, a fully functional trial version for Delphi & C++ Builder can be downloaded at: http://www.tmssoftware.com/site/cloudpack.asp

How can I change the IOS keyboard color to dark...in Objective C to change the keyboard in app level you use the appearance identifier. How can it be done in Delphi

How can I change the IOS keyboard color to dark...in Objective C to change the keyboard in app level you use the appearance identifier. How can it be done in Delphi

Originally shared by Struan Judd (NeonGraal) Has Milestone 1.1 of TestInsight been released for public download yet? I'm hanging out to install it into XE8.

In case anyone doesn't care much about most of the Welcome Page and likes to have more space available for recent projects and favorites in XE8, download this zip:  http://www.raabe-software.de/download/StrippedWelcomepage.zip Make a backup of the Welcomepage folder in your XE8 program folder and place the files contained in the zip into that location. I have to admit that I am not an CSS expert. So if anyone is willing to improve it - go on and share your results. BTW, the welcome page likes to mess up sometimes - pressing F5 should correct it. http://www.raabe-software.de/download/StrippedWelcomepage.zip

I'm having trouble installing Virtual Treeview into Delphi XE. (You can groan for two reasons - that installing packages is pretty basic and I really should know what I'm doing by now, or that I'm using such an old version. Either is fine :)) Basically, I have a VT download from  http://www.jam-software.de/virtual-treeview/ and it installs fine in XE8 down to XE2. However, when I build the runtime package in XE, it builds successfully but then I get an error: Can't load package VirtualTreesR15.bpl. The system cannot find the file specified The VirtualTreesR15.bpl file exists, and is located along with all my other BPLs in C:\Users\Public\Documents\RAD Studio\8.0\Bpl. This folder is in the path, and in fact I re-added it and restarted XE to check. (Note: I usually do something a bit tricky: to keep the path size down I normally have my system path use a shorter version of the full path, via a junction point c:\DocRS that points to the RAD Studio folder above. I removed ...

Originally shared by Thomas Mueller (dummzeuch) I just updated the Custom Container Pack sources to support Delphi XE8. It was mostly a matter of creating the packages for the “new” version. I also added XE8 to the compilerversion.inc file. It now compiles and installs. I have not tested it extensively. Custom Containers Pack (CCPack) is an integrated tool and component mini-library to produce and maintain composite controls (or simply “composites”) and other containers (forms, data modules and frames). The process of building composite components looks like ActiveForm and Frame creating, but the result is the native VCL component. You can create new composites just as usual forms. http://blog.dummzeuch.de/2015/07/14/delphi-custom-container-pack-updated-for-delphi-xe8/

LeakCheck library now supports DUnitX and stack traces: Some time ago I posted about my LeakCheck library. Recently I've made some progress. Main new features include DUnitX support and allocation stack traces. DUnitX support features object graph scanning and all DUnit supported features. My implementation does not suffer from the Status bug that made the DUnitX developers disable default FastMM monitor. I also added DUnitX pull request that if accepted will instantly allow enhanced leak reporting (all LeakCheck changes are forward compatible and already pushed). Stack tracing generates fully formatted stack traces with symbols and line numbers and already offers several implementations (including Android one). If enabled test results get instant callstack preview. Another feature I did not mention here before is ability to use Extended RTTI and create complex allocation graphs even in non-NextGen allowing you to visualize complete object structure of your application. The scanner...

http://blog.synopse.info/post/2015/07/14/New-blog-about-mORMot

We are happy to announce the release of the TML Object Pascal Components. The libTML Object Pascal Components are not only a language binding to the core library but a complete set of non visual components to simplify the usage of libTML with Embarcadero RAD Studio and Lazarus. Applications can be developed for multiple platforms.    - Android     - Linux     - OS X     - Windows The mapping of libTML data types to the Variant type allows to exchange data organized in dictionaries lists and tables with hierarchical data structures. The libTML projects are licensed under LGPL 2.1 and can be used for open source and commercial projects according to the license terms. https://github.com/tml21/libtml-pascal

Which version of Delphi changed `TStringList` implementation from `array[0..MaxListSize] of TStringItem` to `array of TStringItem`? I know XE has the first version and XE6 (and later) the second one. I don't want to install all versions can you check for me please... Thanks

Hello, I'm very proud to introduce a new feature to the VCL Styles Utils project, this is the support for the New Common Dialogs. you can read more on this blog post    https://theroadtodelphi.wordpress.com/2015/07/13/vcl-styles-utils-now-supports-the-new-common-dialogs/ https://theroadtodelphi.wordpress.com/2015/07/13/vcl-styles-utils-now-supports-the-new-common-dialogs

(Windows desktop) Are there any obvious security holes in the practise of one exe calling another one, passing-in parameters that you wouldn't want anyone to easily snoop?  I have foo.exe, and at a certain point I want it to also launch bar.exe with command line parameters that include a username and a password, or possibly a connection string and login credentials; is there any easy way for someone to 'intercept' those values? Both are Delphi executables, FWIW.

Some more thoughts. Originally shared by Andrea Raimondi More impressions on Delphi XE8 for mobile. Really, I do not understand why people get mad at Embarcadero. Ok so, here is my very small application: - Two tabs - Three buttons One tab is for the buttons and one for the image. The three buttons are: - Photo; to shoot a photo - Gallery: to pick a photo from the gallery - Share : to bring up the share sheet Time to complete the application: 30 minutes. The only problems I found are: * You will find nowhere written that there's some code you have to    add to ensure that the application does not lock up. This could    easily be added to the wizard. * Using the camera means you HAVE TO add the CameraComponent.   Again, this is not written anywhere. * To bring up the share sheet, you need to have an assigned bitmap.    Again, this is written nowhere. How about an exception?    Also about this, ensure that the CanExec event has the flag set to    true (again, written nowhere). Other ...

A few thoughts on my first foray in mobile on Android using XE8 Originally shared by Andrea Raimondi Impressions of XE8 for mobile applications. Ok, so I modified my first mobile example to test a bunch of stuff. I have to say I am really satisfied with it. I am not yet using Update 1 which I am told has a few problems for some users, so I decided to try vanilla and see if it would work for me. The example I loaded is the CameraComponent example. While I haven't yet figured out how to add new forms in a FireMonkey application, adding a new tab and taking a photo is totally seamless . The code modification took me 10 minutes tops and the result is way more than I thought it would be. Deploying it both in debug and release mode was really easy, because my phone was picked up immediately. I have to say it's a new Samsung, but it's not top of the line, it costs 99 euros, which is affordable for many users. Hence my guess is that it should be ok for most cases. I'd also add ...

I have an application that need to be run under Windows and Android. I'm using image lists (64x64) and action lists.  My problem is that my speed buttons doesn't looks the same under Android and Windows.  Under Android images are correctly draw whereas they are rather small on Windows (something like 16x16). How can I get the same size on all platform ? How can I remove the text (within setting the TAction.Text property to '' ? Thank you Ps : I'm using DXE8.1

Have you had interested in developing games using Delphi's Firemonkey framework?

Does anyone have used Firemonkey with custom shader (HLSL/GLSL)? It is possible address mobile platforms too? Many thanks :D

What is the preferable way of getting a dynamic length string from memory (which is also compatible with XE and XE7 - the two IDEs I use)? I have found: function AMethod(nBuffer : Integer) : string; var   buffer: array of Char;   nBuffer: Cardinal; begin   SetLength(buffer, nBuffer);   GetAStringFromSomewhere(PChar(buffer), nBuffer);   Result := StrPas(PChar(buffer)); end; and function AMethod(nBuffer : Integer) : string; var   buffer: array of Char;   nBuffer: Cardinal; begin   SetLength(buffer, nBuffer);   GetAStringFromSomewhere(PChar(buffer), nBuffer);   SetString(Result, PChar(buffer), nBuffer ( ??   should be a length ));  // Something like this end; There is another one which I can't think of (which takes a TArray - I think)... Any others?

I have been working with TreeViewItems.Tag & .TagObject. When I assign an ID number to Tag or an object to TagObject the values are still there the 1st time I access that Item but the 2nd time the integer in Tag is zero and the object is nil. Delphi XE8 FMX. Win 8.1 64bit. Has anyone run across this? Any work-around or FIX?

I am looking for a free class/component for COM port communication. It should be free also for commercial use. Any suggestions?

No rage, no criticism, just take a look at http://www.elementscompiler.com/elements/oxygene/vs/delphi.aspx . http://www.elementscompiler.com/elements/oxygene/vs/delphi.aspx