Delphi Developers Archive

Several people have said that UniGUI may be the next acquisition after ExtJS so that Idera can provide more comprehensive web client functionality in Delphi. I'm not sure this is the case. Delphi already has FMX which basically does what UniGUI does, but for multiple platforms. Why not just add the web as the next FMX platform? Most of the work has already been done, they just need to write the glue.

Does anyone have experience working with Firedac and Postgresql that can advise the recommended way call a stored procedure that accepts a composite type? The composite itself contains both simple types and a couple of arrays. I know I can structure a TFDQuery with the appropriate SQL, but wondered if Firedac supported it more natively. Using 10.1 Berlin.

Hello, I am looking for a code/components for manage Azure Table Storage, Currently I am using components from IDE but I need something more advanced. I see Cdata but 1000€ for only azure storage is expensive for me. Any solutions ? Thank you

I've been using this for so long that I forgot about it. A colleague coming from C# asked how you can declare a pointer to a type that you haven't defined as yet. Like Type TMyPtr = ^TMyRecord; TMyRecord = Record MyField : integer; end; I just told him Pascal magic, because in some other cases you may need a "forward" statement, but not with pointers. Does anyone know the history behind why this was done? I mean, you COUL define the TMYRecord record type before you declare the TMyPtr;

I have a web service project that I need to access in a DLL library. If I switch on ReportMemoryLeaksOnShutdown on DLL, I get TXSDecimal and Item (defined class in imported WSDL) are leaked. Item being exact same number of records returned from web service. TXSDecimal is double the record count, as it is used in two places. Then I build a Test Application running on Windows Desktop. That application, I used a THTTPRIO placed on form at design time with all necessary parameters set. Then I put a break point in Soap.SOAPHTTPClient.pas around line number 85 (destructor procedure) I see that execution stops at that destructure as expected. However, I still get leak reported. I have tried to understand if this is me doing something wrong by asking a question in Embarcadero forums. Unfortunately, I could not get something definitive. (Link to my question shared) My questions still stands as "Am I doing something wrong in my code, or it is Delphi leaking actually?" Appreciate any he...

http://www.businesswire.com/news/home/20170825005086/en/IDERA-Acquires-Sencha-Strengthen-Developer-Tools-Business I bet UniGUI will be buyed by idera too. http://www.businesswire.com/news/home/20170825005086/en/IDERA-Acquires-Sencha-Strengthen-Developer-Tools-Business

PostgresDAC 3.2.4 is released! This is maintenance release which introduces support for the latest PostgreSQL 9.6.4 libraries as well as fixes some bugs and provides some improvements. You're welcome to download the latest release right now at: http://microolap.com/products/connectivity/postgresdac/ http://microolap.com/products/connectivity/postgresdac/

Just seen some minutes ago on Twitter. For a moment I was confused why Microsoft may have a keynote about Delphi Berlin.

Is Delphi Feeds still maintained? I noticed it hasn't picked up my most recent delphi post (yesterday) but did pick up a post of mine on the 18th. I checked the rss feed link they use and it's working fine.

Where from I can get the cheapest certificate for signing APPX applications?

Blogged : Windows Manifest Files - In this post I look at Windows Manifest Files, what they do, why we need them and how to use them in Delphi and FinalBuilder. We often get asked questions about uac prompts, high dpi settings, windows themes etc when compiling Delphi & C++Builder projects in FinalBuilder. In this post we'll dissect windows manifest files, and look at how the project settings in Rad Studio interact with the manifest file, and why you should use a custom manifest file. https://www.finalbuilder.com/resources/blogs/postid/753/windows-manifest-files

Recursive Parallel For Loops I have an algorithm which isn't a sorting algorithm but conceptually works similar to the Quicksort algorithm i.e. it partitions a list and then works on the two partitions recursively. I'd like to utilize multi cores and have separate threads for each partition. However, everything just locks up. It seems the Parallel Programming Library creates too many thread, all waiting on one another. In my case there are approximately 100 threads created. I would have thought the PPL and the OS would have given resources to the active threads but that doesn't seem to be the case. I seem to have the same problem as in this thread ( https://goo.gl/GVJ1R2 ). The solutions proposed on Stack Overflow aren't helpful. They suggest forking at the root (or first depth) but I'd like to utilize 16+ cores when available. Is there any approach I can take to solving this problem? Would the OmniThread Library offer a better solution than the PPL?

I am absolutely baffled by this so I thought I would throw it out here in order to see if anyone else has had a similar experience. I am connecting to a PervasiveSQL server using FireDAC / ODBC. Everything seemed to be working fine, I can read and write data just fine using queries, but for some reason when I try to use direct access to a FDTable it crashes my server. It does this consistently on a few test servers I have tried. I am literally doing FDTable1.Edit(); FDTable1['Field1'] := 'value'; FDTable1.Post(); As soon as post is called I get an exception with a message of "SQL_ERROR" (nothing else) and the server must be restarted. Anyone ever experience this? This issue is making it impossible for me to even attempt to use FireDAC (this is my first production FD project). Any help or guidance appreciated! Windows 32bit app developed in Win 10 x64 w/ Delphi 10 Seattle

I am absolutely baffled by this so I thought I would throw it out here in order to see if anyone else has had a similar experience. I am connecting to a PervasiveSQL server using FireDAC / ODBC. Everything seemed to be working fine, I can read and write data just fine using queries, but for some reason when I try to use direct access to a FDTable it crashes my server. It does this consistently on a few test servers I have tried. I am literally doing FDTable1.Edit(); FDTable1['Field1'] := 'value'; FDTable1.Post(); As soon as post is called I get an exception with a message of "SQL_ERROR" (nothing else) and the server must be restarted. Anyone ever experience this? This issue is making it impossible for me to even attempt to use FireDAC (this is my first production FD project). Any help or guidance appreciated! Windows 32bit app developed in Win 10 x64 w/ Delphi 10 Seattle

Hello devs! Some time ago I created an Android application in RAD studio. Everything was fine (build & running) But today I opened the source code again, and Delphi could not build it due to a "wrong PATH". So I noticed that Java version of Windows was different from the one that the project had. Unfortunately I could not find if there is a specific path for the enviaromental variables that the application uses except from the system's one. So I transfered all my control to a new app an problem solved. But what if there is an automated update for Java? Do I have to transfer my project all over again?

Fellow Delphi Developers! We want to show you StyleControls VCL with latest cool VCL Styles from DelphiStyles.com. You can see "Stellar", "Paradiso", "Ubuntu" and "Ubuntu Dark" styles with our demos! StyleControls VCL Home: http://www.almdev.com DelphiStyles Home: http://www.delphistyles.com

Free Berlin 10.1 i do not have the arrows that move the components tab Like other Delphi's Any ideas ? why?

OmniPascal 0.15.0 – Overloaded and generic methods Get the complete change log here: http://blog.omnipascal.com/omnipascal-0-15-0-overloaded-and-generic-methods/

And to all Delphi developers here, get this before time runs out. Delphi cookbook by Daniele teti https://www.packtpub.com/packt/offers/free-learning https://www.packtpub.com/packt/offers/free-learning

Hi! I am a student from Berlin and I've just started my blog about (Delphi) programming on Medium :) https://medium.com/@Zawuza

Does anyone know how to get the Tokyo Update 1 release of Konopka Signature Controls? The latest from GetIt still has the pre-Update 1 BPL and it needs to be compiled with the latest to get the BPL Creator Edition fixes.

Dica, pessoal! https://youtu.be/KiJsFkIIQJc

I'm looking for mORMot framework trainer for our company.

Hello guys, As you probably know, I started working on DDetours 3 and I wanted it to be a cross platforms library for CPU:(x86, AArch32, AArch64) and OS:(Windows,Linux, Android). However, I got a lot of drawbacks all related to the ARM environment. There was two architecture to deal with AArch64 and AArch64. And for AArch32, there was two mode too (ARM and Thumb). So I stopped working on v3 and started working on a cross platforms disassembler. Today, I finished implementing Azote.AArch64 disassembler which supports all ARMv8.3 instructions (including SIMD) making it first pascal disassembler for ARM :). Now I only need to write AArch32 and x86. For x86 that would be easy as riding a bike :) Right now, the disassembler works fine with FPC/Delphi and is extremely fast compared to what is available on the market (It can decode millions of instructions on a blink of an eye) ! Please test and give feedback about Delphi versions ... In that way I can set up the minimum supported version of ...

What value will the function return? program Project1; {$APPTYPE CONSOLE} {$R *.res} uses SysUtils; function TestValue(CheckInt: Integer): Integer; begin Result := 0; try if CheckInt = 1000 then Exit; finally Result := CheckInt end; end; begin Writeln(TestValue(1000)); Readln; end. Unlike all previous versions, Delphi 10.2 shows the hint: H2077 Value assigned to 'TestValue' never used.

Need only one step, set alarm sensitivity, turned you mobile phone into motion alarm guard. https://youtu.be/CrLgCPle5es https://youtu.be/CrLgCPle5es

I have trouble with osx app to store. I got error "sandbox off" and refuse to upload appstore via application loader. Anybody know how to resolve this. Compiler is Tokyo and fmx app.

I have trouble with osx app to store. I got error "sandbox off" and refuse to upload appstore via application loader. Anybody know how to resolve this. Compiler is Tokyo and fmx app.

David Millington​ and me

forgive me if i should not post this stuff here, but i have a question for you, for my company is started a research to make it easier to develop Delphi code in RAD Studio. I am currently trying to define the problems Delphi developers encounter while coding in RAD Studio. I have created a google questionnaire and it would mean much to me of you want to answer some questions about this.

Just received an email from Sencha (creators of Ext JS): "Important Announcement: IDERA Acquires Sencha Dear Customers, I am very pleased to announce that IDERA, Inc. has acquired Sencha and that we will be announcing this news publicly soon. Sencha will become part of IDERA, Inc.’s Developer Tools business, combining Embarcadero’s award-winning RAD Studio portfolio with Sencha’s ExtJS framework. The result will provide powerful solutions for developers to reduce the cost and complexity of developing and delivering enterprise applications across multiple device types. As you can imagine, there is a lot of work ahead for the IDERA and Sencha teams to ensure a seamless transition. For the time being, Sencha will continue to operate as a separate entity, and customers and partners should continue to do business as usual. Our top priority will be you, and your continued success. The Sencha team and CEO Art Landro, have built a great company and product that enables thousands of custom...

LOL, not that Delphi is a shining example of stability either... Originally shared by CodeProject What does Visual Studio do really well?

Nice article - but unfortunately a bit wrong: https://www.code-partners.com/tnotifyevent-debouncing-in-delphi/ The title says debounce but he explains, shows and implements throttle. There is a link that explains both: https://css-tricks.com/debouncing-throttling-explained-examples/ TL'DR Throttle limits the occurence of events to only one per given time interval. Debounce only fires one event after a given time of inactivity. These operations and many others are part of the reactive extension spec and will be part of a future Spring4D release that brings RX to Delphi.

When dealing with other (Microsoft) dll's having to flip bitmaps vertically is inevitable. Thankfully the flipping rectangle trick is fast. Still, it does require valuable cpu time. Does anyone know if doing this flipped copy to a displayed canvas will hand over the flipping to the gpu? Ie would the copy to gpu preceed the flip, or vice versa?

Security Device with Mobile Phone And Arduino. This is my start for Vision Security System integrated with Arduino and Mobile Phone. Reuse old cell phone to do Motion-detecting and Object-Tracking, then send the analysis data to Arduino via Blue-Tooth. Motion-Detecting : Classify the motion strength and inform Arduino to do warning, locking, Power On/Off other devices....etc. Motoring baby's activity..... Object-Tracking : Collecting the moving data and convert it from pixels to real unit ( inch), send it to Arduino to drive motors, servos....etc. Video: https://youtu.be/yhJzzfHDLLE Keep Updated: http://www.rasvector.url.tw/Download%20Pages/Down. .. https://www.instructables.com/id/Security-Device-With-Mobile-Phone-and-Arduino/

Linux Hello World Link Error: [DCC Error] E2597 C:\Program Files (x86)\Embarcadero\Studio\19.0\bin\ld-linux.exe: error: cannot find -lgcc_s Hi, I tried to create the Hello World program from the wiki for Linux and received the following errors (135 errors). Anyone have an idea what I am doing wrong? I have successfully created a connection profile and verified that I can connect to the PA Server on Linux. I also installed the SDK (as per wiki instruction) and updated the SDK Management on Delphi. This looks like a linker problem, but I have no idea where to start looking for the error.

Originally shared by C++Builder Embarcadero's Haruyuki Mohri has a blog post up with a tutorial on how you can retrieve the current ringtone mode on your Android device using C++ code in RAD Studio 10.2 Tokyo. Take a look! . http://embt.co/2xpWZOP . #Android #OpenGL

We have a problem with named spacing ( or rather the lack of it ). I'll elaborate: We have Tokyo 10.2.1 and we have Dev Express 17.1.5 and when we compile our component set that is descended from some Dev Express ones we get an error ( that we never got with previous versions of either Delphi or Dev Express ). The error is: [dcc32 Fatal Error] cxEditRepositoryEditor.pas(42): F2613 Unit 'Graphics' not found. When we look at the unit in question it start with: unit cxEditRepositoryEditor; {$I cxVer.inc} interface uses DesignIntf, Variants, Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, cxDesignWindows, StdCtrls, cxEdit, Menus, ExtCtrls; type TcxEditRepositoryEditor = class(TcxDesignFormEditor) So it's no surprise it can't find Graphics because it should be Vcl.Graphics Now, I seem to recall there was some way in Delphi to tell it that if it encountered Graphics to use Vcl.Graphics instead and so on for all other units, but I have tried like craz...

This is truly very cool project, if need to do math with pretty large numbers, check this out. Saved my ass ;) https://github.com/rvelthuis/BigNumbers https://github.com/rvelthuis/BigNumbers

Hotfix for Ad-Hoc deployment for iOS has been released: https://cc.embarcadero.com/item/30797 Thanks to Eli M for posting about it on the EMBT forums https://cc.embarcadero.com/item/30797

Hi guys, have we got such component in FMX?

The Grijjy team is proud to introduce our GrijjyCloudLogger, https://blog.grijjy.com/2017/08/22/grijjycloudlogger-remote-logging-for-windows-ios-android-macos-and-linux/ Cross-platform remote logging with numerous features including custom live watches, live views of Delphi objects remotely, tracking memory usage, object allocations, growth leaks and more. https://blog.grijjy.com/2017/08/22/grijjycloudlogger-remote-logging-for-windows-ios-android-macos-and-linux/

Hi guys. A quick question regarding Delphi XE forms on windows 10. Do they use native windows 10 widgets? It seems to me that the look and feel is not the same as Windows 10. Am I missing something?

Hi guys. A quick question regarding Delphi XE forms on windows 10. Do they use native windows 10 widgets? It seems to me that the look and feel is not the same as Windows 10. Am I missing something?

I am still a bit of a novice when it comes to the PPL. I want to run a background process where I can send an indy email in the background, so that sending 100's of the little blighters doesn't lock up the UI. I have tried many variations, including good old fashioned threads, but was not getting too far with that one, as I had a bunch of memory leaks ! So I decided to give PPL a go and have tried wrapping my code with either: TTask.Run( procedure begin end ); Or var SendResult: IFuture ; begin SendResult := TTask.Future ( function: TSendResult begin end ); the problem I have is that I want to pass into either of these the msg, which contains all the data about the email ( from, to, recipients, attachments .... ) but msg is always nil'led or set to default values when I step into the code inside, which I think from what I understand would be correct .... but I need this data. Does anyone know how I pass a variable into a parallel method/section Tha...

Quick question... When looking through the FMX sources in Delphi, I noticed the .ios and .android extensions to source files (e.g. FMX.Dialogs.ios.pas). Is this just convention of does it affect how it's pulled in when compiled? E.g. when compiling for IOS it'll pull in .IOS.pas files, and android is .Android.pas files?

I am using dcef3 in one of my projects. The cef binaries bundled with dcef3 seem to be lagging a bit. Can I simply replace those binaries with the latest version of cef?

I am using dcef3 in one of my projects. The cef binaries bundled with dcef3 seem to be lagging a bit. Can I simply replace those binaries with the latest version of cef?

Came across this ticket about not having Linux in Pro edition for this who wish to vote for that https://quality.embarcadero.com/browse/RSP-17195 https://quality.embarcadero.com/browse/RSP-17195

So, I have this code (of course simplistic version of some real world code). It does never finish because when the threadpool that powers the tasks is getting destroyed (System.Threading finalization) it does not cancel the tasks. So how can tasks that I don't have any reference to to manually cancel them be stopped when the system is shutting down? {$APPTYPE CONSOLE} uses Threading, Classes; procedure Main; begin TTask.Run( procedure begin while TTask.CurrentTask.Status TTaskStatus.Canceled do // won't do anything, Status is still Running begin TThread.Sleep(1000); Writeln('tick'); end; end); end; begin Main; end. Edit: Found one solution to make a protected access hack for TThread and check for IsTerminated but this hardly can be the proper solution.

Is there any way to change the computer name without having to re-activate Delphi? It's really annoying that I have to do that. It usually happens on Friday late afternoon, when nobody at Embarcadero is available to bump my registration limit. And in this case even the grace period does not help (Which was removed in recent versions anyway.), because it isn't a new installation.

I am looking for a basic example on how to implement websockets with realthinclient. I had a look at the basic tutorials but can't find anything about websockets. At the moment I am building a prototype that I want to show to my boss before committing to an purchased license. Any pointers/help will be greatly appreciated!

I am looking for a basic example on how to implement websockets with realthinclient. I had a look at the basic tutorials but can't find anything about websockets. At the moment I am building a prototype that I want to show to my boss before committing to an purchased license. Any pointers/help will be greatly appreciated!

Hi guys, how can I find out which installer I used (the web or the normal one)? Thanks

My new project of Delphi app & Arduino implementation. https://www.instructables.com/id/RvPiano-Music-From-App-to-Arduino/ https://www.instructables.com/id/RvPiano-Music-From-App-to-Arduino/

Fellow Delphi developers! We are glad to introduce new styles special for Ubuntu (FMXLinux requared)! - "Ubuntu Dark" (dark variant of default UI) http://www.delphistyles.com/fmx/UbuntuDark.html - "Ubuntu Dark Clear" (dark variant with semitransparent graphics and texture background). http://www.delphistyles.com/fmx/UbuntuDarkClear.html Also we have plans to add more platform specific styles for Linux and macOS!

Let's announce JSKit - open-source Cross-platform JavaScript framework for Delphi and CrossVcl ( http://www.crossvcl.com ). Based on JavaScriptCore. - Implicit export Delphi object instance with all public or published properties and methods to script. - Evaluate component's event from JavaScript - Call JavaScript function from Delphi - Wrap anonymous procedure to JavaScript function - Create new instances of Delphi object from JavaScript https://github.com/eugenekryukov/jskit

Why not use PHP to connect DataSnap REST Server?

Originally shared by Thomas Mueller (dummzeuch) I have started to write some documentation on the internal workings of GExperts. For now, it covers only a very small part of the IDE form enhancements that GExperts provides. It is meant mostly for myself to get an overview of that part of the tool which… http://blog.dummzeuch.de/2017/08/20/some-documentation-on-the-internals-of-gexperts/

We've just published our Virtual-TreeView fork for CrossVcl. It contains few changes which allows Virtual-TreeView to work on macOS and Linux with CrossVcl. https://github.com/eugenekryukov/Virtual-TreeView

I am currently using "JEDI" as a version control tool. One of Jedi's limitations is that it exclusively locks a file when a developer checks it out. In my opinion this is a complete productivity killer. I have been told that Jedi is the way to go because it was specifically designed to handle Delphi projects (for example it checks out the dfm and .pas files together and so forth). I would like to switch to git instead. Can anyone provide me some feedback on this? In particular I would be interested in knowing how git can be used with large Delphi code bases. How difficult would it be to branch and merge?

I am currently using "JEDI" as a version control tool. One of Jedi's limitations is that it exclusively locks a file when a developer checks it out. In my opinion this is a complete productivity killer. I have been told that Jedi is the way to go because it was specifically designed to handle Delphi projects (for example it checks out the dfm and .pas files together and so forth). I would like to switch to git instead. Can anyone provide me some feedback on this? In particular I would be interested in knowing how git can be used with large Delphi code bases. How difficult would it be to branch and merge?

Hello guys, I tried to replace the default Collections from Delphi to Spring4D in a project, for the benefit of using interfaces and more powerful collections methods, but the dcu units increased greatly in size. In my tests, replacing all to Spring4D collections, in a project with about 120 units, in Delphi XE8, a build all often generates an out of memory in IDE. I made a small project example to show the problem. Should not the Delphi IDE/Compiler be able to handle projects with heavy use of interfaces better?

I search for some trick to realize something like this: ISome = interface function GetValueVar() : Variant; procedure SetValueVar(aValue : Variant); function GetValue(aIndex : Integer) : Variant; procedure SetValue(aIndex : Integer; aValue : Variant); // two props with the same name property Value[aIndex : Integer] : Variant read GetValue write SetValue; property Value : Variant read GetValueVar write SetValueVar; end; var x : ISome; begin x.Value := 0; // or if I needed in other case x.Value[0] := 'string';

Blogged - Delphi VersionInfo errors - the default version info settings in Berlin/Tokyo will cause errors in FinalBuilder, and make no sense for Windows applications. https://www.finalbuilder.com/resources/blogs/postid/752/delphi-versioninfo-errors

Enhanced code folding in delphi editor https://quality.embarcadero.com/browse/RSP-18867 https://quality.embarcadero.com/browse/RSP-18867

Another TValueListEditor / TCustomGrid question: When a cell gets focus in the VLE, the logic usually selects the text in the cell. We want to have no text selected and have the cursor positioned at the right side, so that when a new cell is selected and gets focus, the user can just start typing and the keys are added to the end of the existing text in the cell. I get hold of the TInplaceEditor (inherited from TCustomGrid), and then set SelStart := SelLength, then SelLength := 0, which should do what's wanted. But no matter what I do, nothing seems to affect the VLE's edit box. How can I make this do what I want?

I have a question about scrolling. I'm working with a TValueListEditor, which is derived from TCustomGrid. When you hit the up/down arrows, it moves the focus to the cell above/below the current one, respectively, unless the edit block is not active. I don't know if this is the default behavior of the TCustomGrid or just VLE, but I've seen other grids with thumb-tracking that adjust the scrollbar instead of the focused cell. By default, the mouse wheel acts like up/down arrow keys within the VLE. What I want to know is this: how to make the mouse wheel adjust the scrollbar rather than adjust the current cell like hitting up/down arrow keys? Note that the VLE doesn't have a "ThumbTracking" property.

Does RAD Server (EWS) run on Linux? Are there any similar libraries (ie., that make it easy to set up a REST-based service) for Delphi that DO run on Linux and do NOT have any additional run-time costs? (A framework that's compiled into the application would be fine, as opposed to a standalone server that supports plugins/addons.)

TMS FNC UI Pack v2.0 released with a new Office-inspired ribbon! https://goo.gl/viT8Jz With TMS FNC UI Pack you only need to use 1 UI control set to master application development in VCL, FMX + LCL and target 5+ different operating systems.

TRect.Width, TRect.Height are wrong: For example: LRect := Rect(0, 0, 2, 2); LRect.Width is 3 because it counts from 0 to 2 but the result is 2 when running app. Same to LRect.Height. https://quality.embarcadero.com/browse/RSP-18868 https://quality.embarcadero.com/browse/RSP-18868

This code is supposed to check a setting of the FTDI USB-serial converter driver. It fails when there is no converter in the system. Can you spot the bug? procedure Tf_ArgVideoMainBase.CheckFtdiLatencies; var Ftdi: TSigFtdi; cnt: DWORD; i: Integer; dev: ISigFtdiDeviceAccess; PortName: string; Latency: Integer; begin try Ftdi := TSigFtdi.Create; except Ftdi := nil; end; try if Assigned(Ftdi) then begin cnt := Ftdi.GetDeviceCount; for i := 0 to cnt - 1 do begin if Ftdi.TryGetDevice(i, dev) and dev.TryGetPortName(PortName) and dev.TryGetPortLatency(Latency) then begin if Latency > 4 then Tf_dzDialog.ShowMessage(mtWarning, Format(_('Latency timer of serial port %s is set to %d ms, should be [PortName, Latency]), [dbeOK], Self); end; end; end; finally dev := nil; FreeAndNil(Ftdi); end; end;

TStream does not allow files > 2 GB. Why use an integer to count the length of the buffer? Even in Win32 I can have buffers >= 3 GB. Please vote for https://quality.embarcadero.com/browse/RSP-18866 I used the following code as a workaround to save data exactly 2GB in length. procedure TForm75.AncestorCountsThreadsAllDone; var Stream: TFileStream; i,x,y,z: integer; FileName: string; BytesWritten: cardinal; Size: cardinal; begin //Wait for threads to finish Filename:= TPath.GetDocumentsPath; FileName:= Filename + '\UCT\ResearchStats'; ForceDirectories(Filename); Label1.Caption:= 'Progress: writing results to disk'; Application.ProcessMessages; Filename:= Filename + '\4x4_ancestor_counts_per_pixel.bin'; Stream:= TFileStream.Create(Filename, fmCreate); Size:= Length(AncestorCountTable4x4) * SizeOf(Cardinal); WriteFile(Stream.Handle, AncestorCountTable4x4[0], Size, BytesWritten, nil); if (BytesWritten Size:= Size - By...

Bug of rtti?? The first field cannot be serialized. uses REST.Json; type TDateParamaters = record Date: double; IsShow: Boolean; // Test: String; After add a string field, it works as expected end; TCurveParamaters = record CurveCode: string; CurveName: string; end; TTemplateInfo = class private m_dateArray: array [0 .. 4] of TDateParamaters; m_curveArray: array [0 .. 4] of TCurveParamaters; end; procedure TForm1.Button1Click(Sender: TObject); var LTemplate: TTemplateInfo; begin LTemplate := TTemplateInfo.Create; // exptected:{"m_dateArray":[[0,false],[0,false],[0,false],[0,false],[0,false]],"m_curveArray":[["",""],["",""],["",""],["",""],["",""]]} // actual:{"m_curveArray":[["",""],["",""],["",""],["",""],["","...

When is it best to use Application.Processmessages instead of the multithreading option via TThread and vice-versa?

Does anyone knows how to use iOS avauthorizationstatus in Delphi. I need to check if app is authorize to use the camera, if not, display the permission dialog window. When user deny the app it will not continue displaying the camera app. The built in TTakeCameraPhotoAction when user denied permission it will continue displaying the camera app.

Does anyone knows how to use iOS avauthorizationstatus in Delphi. I need to check if app is authorize to use the camera, if not, display the permission dialog window. When user deny the app it will not continue displaying the camera app. The built in TTakeCameraPhotoAction when user denied permission it will continue displaying the camera app.

Seems that ImageList has regression in Tokyo 10.2.1 "Imagelist ignores the transparency of PNG and leaves with white background. It works on Berlin." https://quality.embarcadero.com/browse/RSP-18212 https://quality.embarcadero.com/browse/RSP-18211 Please Vote! https://quality.embarcadero.com/browse/RSP-18212

Does anyone knows how to use iOS avauthorizationstatus in Delphi. I need to check if app is authorize to use the camera, if not, display the permission dialog window. When user deny the app it will not continue displaying the camera app. The built in TTakeCameraPhotoAction when user denied permission it will continue displaying the camera app.

Just got the following email about Pro edition, surely this is false advertising if Pro can NOT do Linux ! 10% OFF Professional Edition! Use Better Tools, Build Better Apps Do You want to build fast and powerful native applications for Windows, Linux, macOS, iOS, Android, cloud and IoT? Right now Get 10% OFF Professional Edition and be a part of the RAD family trusted by over 3 million developers around the world. Join them today in building the mobile, IoT, and enterprise applications of tomorrow. Marco Cantù

Hi Can someone help me with class getters and setters. Class has a dynamic array in it. This is the code: TRec = record Name: string; Address: string; end; TMyClass = class private FAlias: string; FRec array of TRec; function GetRec(const rec_name: string): TRec; procedure SetRec(rec: TRec); public property Alias: string read FAlias; property Rec: TRec read GetRec write SetRec; end; On line 'property Rec:' compiler gives me error E2008 Incompatible types. If I take out 'read GetRec' it compiles fine. Is array in the class the problem? Tnx.

Is there a good API documentation tool for Delphi (like javadoc or doxygen)? Caveat: preferably a command line tool with no dependency on any given Delphi version

Is there a good API documentation tool for Delphi (like javadoc or doxygen)? Caveat: preferably a command line tool with no dependency on any given Delphi version

Originally shared by Boian Mitov Join the Visuino​ chat on Hackaday this Friday :-) #Visuino #Arduino http://hackaday.com/2017/08/16/friday-hack-chat-graphical-programming-languages-with-bojan-mitov/

Originally shared by Jonathan Schmitt Delphi + FireDAC - Incluir várias linhas em uma execução SQL Olá! Sabe aquele momento que em que percorremos uma lista (ClientDataSet, StringList, Grid, etc) para realizar um CRUD de itens em alguma tabela? Então... Existe uma forma de incluir todos os itens da lista executando somente uma vez o SQL. Quando preenchemo... http://jonathanschmitt.blogspot.com/2017/08/delphi-firedac-incluir-varias-linhas-em-uma-execucao-sql.html

Have problems with onscreen virtual keyboard in Windows 10 in a Firemonkey application. Never set it up, but on a client machine it appears and can't get rid of it. On other computers it doesn't show. Where are the settings for it? How to disable it?

Hello, On some projects I put an invisible TMemo on the main form to keep notes about things todo... is there any extension that could attach a kind of floating memo with some text saved in a Unit1.txt file for instance ? Thanks

Tokyo 10.2.1 Can anyopne check this ?, I cannot build an OSX application anymore. 1. Create a new FMX app and save it 2. Be sure to set Debug mode 3. Compile for OSX (Command line tools) Expected: App compiles Actual: Abnormal program termination.... clicking OK close the IDE I can see these messages during buld time : [dccosx Error] E1026 File not found : 'FMX.Filter.res' [dccosx Error] E1026 File not found : 'FMX.Controls.Mac.res' It appears that these files are missing from the C:\Program Files (x86)\Embarcadero\Studio\19.0\lib\osx32\debug folder (they are available on the release folder...) I did a fresh Tokyo 10.2.1 install (from ISO)

I've been tracking down why it doesn't seem to be replacing some of my updated data files when deployed to iOS - even though they're set to "overwrite = always" in the Deployment Manager (and they definitely have a newer modified date). Looking into System.Startup, it has the following: if not FileExists(Dst+SearchRec.Name) then begin TFile.Copy(Src+SearchRec.Name, Dst+SearchRec.Name, False); // copy without overwriting. end I can't find anywhere it honours the overwrite property - and in fact never seems to overwrite if already exists. This seems such a massive omission, that I wanted to check before logging with QC. Am I missing something obvious? I'm on Berlin Update 1. Thanks

Tokyo Release 1 What is this folder ? C:\Program Files (x86)\Embarcadero\Studio\19.0\lib\win32c Any thought ?

Blog post about resizing a TViewport3D. http://federgraph.blogspot.de/2017/08/resizing-t-viewport-3d.html I am learning how to blog. Blog is intended to help the users of my app. Not much content there so far. Need to start blogging about using the app soon. But had to clear my mind first.

Hello I have a question on the IDE behavior. You can define a layout for the design time and an other for debug time...but I offently move the IDE at debug time to let me see a console window for instance (I use that a lot for debug purpose)...and each time I restart the application, the IDE returns to it's original place. I can save the layout for good, but I need that only for a couple of hours, not permanently. The default layout is just fine most of the time. Don't you think that the window should remain at the same place ? at least until I close Delphi or load an other project ? Then it will reload the saved layout.

How to modifi this code for Tokyo Thank's procedure TForm1.btnDoSumClick(Sender: TObject); var i: Integer; sum : Single; begin if DBGrid1.SelectedRows.Count > 0 then begin sum := 0; with DBGrid1.DataSource.DataSet do begin for i := 0 to DBGrid1.SelectedRows.Count-1 do begin GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i])); sum:= sum + AdoQuery1.FieldByName('Size').AsFloat; end; end; edSizeSum.Text := FloatToStr(sum); end end;

I can't seem to find a good reactive programming library for Delphi...and even less for Delphi 7 which is one of my constraints. I need to communicate between a dcef3 TChromium view, which is embedded in my application, and the rest of the App. From my understanding, the RTTI limitations of Delphi 7 stop me from directly registering a Delphi object in the Chromium JavaScript context (although this is possible in more recent versions of Delphi). As a workaround, my main form and the TChromium form communicate through json messages only: the main form passes data to the TChromium view by calling JavaScript functions. The TChromium view in turn sends its response back to the main form through console.log() messages (because it is possible register Delphi console message callbacks). So, on the Delphi side, a callback is used to parse the json. As noted previously, this poor man's messaging is a workaround for the RTTI limitations in Delphi 7 (I tried to register directly cef3 exten...

I can't seem to find a good reactive programming library for Delphi...and even less for Delphi 7 which is one of my constraints. I need to communicate between a dcef3 TChromium view, which is embedded in my application, and the rest of the App. From my understanding, the RTTI limitations of Delphi 7 stop me from directly registering a Delphi object in the Chromium JavaScript context (although this is possible in more recent versions of Delphi). As a workaround, my main form and the TChromium form communicate through json messages only: the main form passes data to the TChromium view by calling JavaScript functions. The TChromium view in turn sends its response back to the main form through console.log() messages (because it is possible register Delphi console message callbacks). So, on the Delphi side, a callback is used to parse the json. As noted previously, this poor man's messaging is a workaround for the RTTI limitations in Delphi 7 (I tried to register directly cef3 exten...

Hello there, can someone explain me the C syntax below (from sqlite) SQLITE_PRIVATE void (*sqlite3OsDlSym(sqlite3_vfs *, void *, const char *))(void); I don't understand why the function is inside "()" and followed by (void) ?! Thanks

Has anyone got c++ Builder starter installed alongside delphi enterprise? I just added a cpp builder starter serial via licence manager and then installed 10.2.1 using iso. Installation got corrupted, no bds.exe, corrupted serials and I wasn't able to install delphi until I manually removed all folders and registry entries and the cpp starter serial. So is the starter edition has to be on a separate machine or I just got lucky?

Dear Developers, I'm pleased to announce the new version of X-DBGrid Component 6.6 and X-Files Components 6.6! What's new in version 6.6 ? ======================= - New packages rebuilded with using RAD Studio 10.2.1 Tokyo!!! - New XDBConsts.pas unit to add to a project and translate visible texts - TXDBGrid can expand/collapse nested form for expandable data cells!!! - New TXColumn.ExpandBox property shows expand/collapse icons in the column - New TXColumn properties: ExpandBoxSize, ExpandBoxThemed, ExpandBoxToggle - New TXColumn methods: ToggleExpandBox, IsExpandedBox, CellExpandPoint - New TXDBGrid.OnCellExpand event to expand nested form for the cell - TXDBGridDesign example has been updated to show the new functionality - TXDBEditor and TXDBColumn can have also now an associated label!!! - New TXDBEditor.EditorLabel property indicates the associated label - New TXDBEditor.LabelPosition property specifies the position of the label - New TXDBEdi...

See my ugly error on virtual explorer. Delphi Berlin https://github.com/TurboPack-Tokyo/MustangpeakVirtualshellTools/issues/1 https://github.com/TurboPack-Tokyo/MustangpeakVirtualshellTools/issues/1

For reference: ad-hoc deployment for iOS is toast in 10.2 Release 1 - https://quality.embarcadero.com/browse/RSP-18813 https://quality.embarcadero.com/browse/RSP-18813

IDE Debug Layout 10.2.1 doesn't seem to allow saving of new debug layouts. The OK button comes up disabled. However, dropping the combo and selecting 'Debug Layout' enables OK but doesn't come up with an overwrite confirmation as normal. The new layout isn't restored unsurprisingly.

Thank you Eugene Kryukov​ for the recent, regular, and timely updates to FmxLinux http://fmxlinux.com http://fmxlinux.com

Really of topic; when committing to your own (private repo) the comments may be whatever. When you commit to something public, "you" (or some of us) think once more before hitting the keyboard. Saw any funny/scary commit comments recently? I did this (other saw it): * pit stop (at a bar) - some fixes (?!)... Nah, mañana.

Feature request https://quality.embarcadero.com/browse/RSP-18827 it's possible to ignore exceptions in the IDE global settings, but it could be comfortable to set this features by project or much better directly inside the code {$IGNORE_EXCEPTION ON} try test_rights; except on e: Exception; Assert(e.message = 'insuffisant rights'); end; {$IGNORE_EXCEPTION OFF} see for instance https://github.com/tothpaul/Delphi/blob/master/XML/Execute.XML.Tree.pas#L755

PAServer Version Issue Hi I've installed 10.2.1. Looking to deploy an app to iOS and I get a PAServer version issue. It says it wants 10.1.1.33, the one on my mac is 10.0.1.23. It then says it can't copy the new one from ...\emba...\studio\19.0\PaServer\PAServer19.pkg. Which is correct as the .pkg file isn't there. There *IS* a .bak version but that appears to be the same ver as on the Mac. I tried downloading one from Emabarcadero but that also seems to be the old one. Anyone know where the new (.33) version may be available? Cheers Vince

The IDE is lost when you define something like {code} type TRecord = record dummy : record any: Integer; end; end; {code} code completion (Ctrl+Shift+C) or code navigation (Ctrl+Shift+Up/Down) do not work anymore

Blog post "Creators Update BPL Loading Issue and Tokyo Release 1" at http://blog.marcocantu.com/blog/2017-august-creators-update-loading-tokyo-release-1.html http://blog.marcocantu.com/blog/2017-august-creators-update-loading-tokyo-release-1.html

Memory Leaks ? Have all the memory leak issues with Tokyo ( 10.2 ) r1 been resolved ? I was planning to install it this week, but I will hold off if they haven't been sorted yet. Does anyone want to comment on this ?

Hello Marco Cantù, one very very interesting question to you: Why is Andreas Hausladen not receiving a free subscription or at least free updates / upgrades? Now we're stuck at Tokyo without IdeFixpack and everything is slow again. I think the community should know if something is planned here (own developement??) or should we also stay at same version as Andreas is for good ide performance. Questions over questions ....

Well, today I came across an interesting recruitment page by one of the largest game-making companies in China ( https://en.wikipedia.org/wiki/Shanda ). Guess what? The page is titled 'The base camp of Delphi (in China)', in order to draw attention from local Delphi developers, and in the very same page it says 'Delphi is the best language, don't agree? Come and fight with us' :D :D :D. They claim to have over 2,000 game developers and Ops, add they have developed over 70 video games in total, with over 1.8 billion registered users. And *most importantly, most of their games are developed in Delphi* . Good news to the Delphi community, isn't it ;) http://chuanqi.sdo.com/project/20170731zp/index.html

Why, when I use SecondsBetween or TTimeSpan.Subtract().TotalSeconds between 2 TDateTime values on Android do I get a massive number of over 3000 when it should be 2-3 seconds? On Windows it's correct. Is this a know bug?

Posted this one yesterday - https://fixedbycode.blogspot.dk/2017/08/why-i-keep-preferring-delphi.html - personal comments, to agree to disagree upon :) Have a nice one.

https://rfrezinos.wordpress.com/2017/08/08/version-1-2-0-automatically-detect-unused-imports/

was the IDE changed in Tokyo 10.2.1...I did not have such error with 10.2 [50065837]{rtl250.bpl } System.@DynArrayClear (Line 35287, "System.pas" + 49) + $0 [5005A42E]{rtl250.bpl } System.ErrorAt (Line 5669, "System.pas" + 3) + $4 [5005A472]{rtl250.bpl } System.Error (Line 5680, "System.pas" + 1) + $7 [50065837]{rtl250.bpl } System.@DynArrayClear (Line 35287, "System.pas" + 49) + $0 [50063F19]{rtl250.bpl } System.@FinalizeArray (Line 32162, "System.pas" + 168) + $0 [50063DD4]{rtl250.bpl } System.@FinalizeRecord (Line 31840, "System.pas" + 25) + $0 [5005F940]{rtl250.bpl } System.TObject.CleanupInstance (Line 17152, "System.pas" + 30) + $0 [5005F725]{rtl250.bpl } System.TObject.FreeInstance (Line 16921, "System.pas" + 1) + $2 [50060016]{rtl250.bpl } System.@ClassDestroy (Line 18289, "System.pas" + 0) + $2 [21E8EA74]{delphicoreide250.bpl} PasMgr.TPascalScanner.Destroy (Line 2014, "PasMg...

The company I'm presently working for is looking to hire another Sr. Delphi Developer to work out of their Phoenix office on a project wtih me. It's a fairly traditional Delphi app built in D7 that connects to an Oracle back-end DB. Hopefully we'll be migrating to the latest version of Delphi later this year. (I was told it's scheduled for Q3, but it's unclear that this decision has actually been made.) The product is a medical practice management app that's targeted at small medical practices and billing agencies that serve them. It handles most PM activities other than EHR. There's a pent-up demand for new features and I guess they decided to expand the team to move things along a little quicker. Some of the work involves enhancements to existing forms and units, and some of it involves new development. For example, I'm just wrapping up the development of a new feature that will allow us to scan in any PDF form file and make it available it to be popul...

Hello, After my TinyPNG unit, now a tiny XML parser. the test procedure at the bottom of the unit is the best documentation available :) https://github.com/tothpaul/Delphi/blob/master/XML/Execute.XML.Tree.pas https://github.com/tothpaul/Delphi/blob/master/XML/Execute.XML.Tree.pas

Fellow Delphi developers, We are glad to introduce new FM Style "Stellar"! http://www.delphistyles.com/fmx/Stellar.html

Hello there, Is there any way to mark an anonymous as deprecated? For a class type, the syntax is: type TDeprecated = class end deprecated 'use XXX instead'; This won't compile: type TFoo = reference to function: Integer; deprecated 'use TBar instead';