Delphi Developers Archive

New section: Coder for Hire If you are open for new business opportunities, please leave a post for others to find in this section - describing your skillsets, previous experience, location and ability to work from home or relocate, and contact details, etc.

ANN: StyleControls VCL v. 3.30 released! StyleControls VCL is a powerfull package of components, which uses Classic drawing, system Themes, GDI+ and VCL Styles. This package contains the unique solutions to extend standard VCL controls and also has many unique, advanced controls to create Windows 10 Modern UI Applications (UWP design). Also with this package you can really improve applying and using of VCL Styles in your application. Features: • support of classic drawing, system Themes and VCL styles in all elements and in all controls • set of components to create Windows 10 Universal (Modern) UI Application • collection of controls (rounded meters,dials, h/v meters, sliders, buttons with different shapes and many more), which based on GDI+ vector graphic (controls can automatically use colors from styles or system, custom colors for different elements) • complex solution, which helps you to create applications with High-DPI support • special component to add buttons, tabs in NC area

ANN: SmartEffects v. 3.0 released! SmartEffects is an easy-to-use VCL that enables you to create amazing splash screens, forms, controls and image transition effects. Over 50 families of animation and transition effects. WYSIWYG editing of animation effects. Features: • easy to use • real-time rendering • advanced rendering engine • over 50 transition effects • cool collection with over 70 mask-bitmaps for "Bitmap - Animation" type of transition effect • amazing splash screens • layered splash forms (just set png-image) • form and controls transition effects • image transition effects • cool controls with amazing effects • 64-bit support • excellent interaction with all controls from StyleControls VCL, BusinessSkinForm VCL and DynamicSkinForm VCL http://www.almdev.com/prods/smarteffects/files/sedemo.zip Regards, Almediadev http://www.almdev.com http://www.almdev.com

How to change a Firemonkey style at runtime and save it to file? https://drive.google.com/file/d/0BwdfodaqQm4pYlotQWEySC0tOTA/view?usp=sharing I want to change the style of this TPathLabel at runtime, and then save it to file. I try to use: (PathLabel2.FindStyleResource('text') as TText).TextSettings.FontColor := $FF18B3EC; The style doesn't change. When I clone the style, and set a new StyleName, then change StyleLookUp property of TPathLabel to this StyleName, it works. But what I want is not create a new style but change the current.

OK, I tried it and I can confirm that Delphi 7 works on Ubuntu Linux 16.04, using the Wine installation that comes with it. This includes the debugger (which didn't work the last time I tried it). There are a few quirks, but I was able to compile and install GExperts and it works as well. Debugging GExperts (which means running Delphi inside its own debugger) also works. I wouldn't call this "Platinum" yet https://appdb.winehq.org/objectManager.php?sClass=version&iId=2325 But it's quite usable at first glance.

Icons for both Win and Mac Hi all, I've asked for your opinion before but I'd like an update or any new ideas. I am looking for icons for my apps for both Mac and Win. I have seen Axialis with a great offer. What I mostly need is the set they have for education. Apart from Axialis, I was unable to find other bundles from other designers. All I can find is small sets (eg. 20icons) from different companies which doesn't guarantee a common design and theme. Does anyone know any suppliers with good icon bundles? Thanks

Originally shared by David Berneda Preparing a new component library for next release: "virtual" TeeGrid A totally abstract library to display data in "grid" or "table" format. Same code without ifdefs works with VCL, FMX and LCL. It does not depend on TCustomGrid. Its pure written from scratch. Just some System.* units are necessary. No dependency on database units or datasets, a Grid.Data property (of TVirtualData class) can be set to any custom class capable of providing data for rows and columns. An example is a small class that links TeeGrid with any TeeBI data item. Another example can be a small class to bind any array. TeeGrid features include all (or most) ones found in TGrid / TDBGrid controls and more: Subcolumns, per-column formatting, individual row heights, expandable rows and columns groups, multi-line text, custom drawing, GDI+ in VCL, embedding extra controls in any row or cell (including sub-TeeGrids !), themes, pixel scrolling, auto-siz

https://community.embarcadero.com/ru/answers/client-datasets-in-delphi-10-1-starter-edition I found the same problem. https://community.embarcadero.com/ru/answers/client-datasets-in-delphi-10-1-starter-edition

My earlier post just got removed by Lars Fosdal as not related to Delphi. I respect rules, but I also feel angry that Lars only skimmed through it and judged that it was not Delphi related. I would like to re-post, with a Disclaimer that my post discusses a general aspect of "How I use Linux to write software for multiple target platforms", where I am using Borland Delphi 7 on Ubuntu Linux, and where I also am sharing a full source code of a Delphi 7 project that you can download open with Delphi and use. Therefore I really remain pretty sure that this is most definitely a content related to Delphi. Post features 4 part video talks, 1 of which uses Lazarus IDE, but another uses Delphi. A 4th video will be added later that will demonstrate use of Delphi XE10.1 Berlin. I definitely did think about the context of this group before posting, so please at least check what this is really About. Here it is again: http://kriscode.blogspot.tw/2016/10/how-i-use-linux-to-write-software-f

So how do you guys live without Code Completion in Berlin? Why might it not work? Is there a workaround?

v1.1 Release. Below is a Summary of (but not limited to) changes in this release. * optimizations and performance improvements in various hashes especially those that descends from TBlockHash. * fix for timing attack when comparing the internal state of hashes. https://github.com/Xor-el/HashLib4Pascal https://github.com/Xor-el/HashLib4Pascal

i developed and deployed an application based on IBLite on different devices without problems, but on a custom device i got the error : "Your username and password are not defined." Does anybody know why does this happen with one device only ?!?!? tnkx Ivan

i developed and deployed an application based on IBLite on different devices without problems, but on a custom device i got the error : "Your username and password are not defined." Does anybody know why does this happen with one device only ?!?!? tnkx Ivan

I have a unit which defines a frame (FrameCom) and then in another form I declare two private variables: private fFrame1, fFrame2: TFrameCom; In the Create event of the form I initialise the first frame: fFrame1:=TFrameCom.Create(self); fFrame1.Parent:=self; All good here. Then I add the code for the second frame: fFrame2:=TFrameCom.Create(self); fFrame2.Parent:=self; and I get a runtime AV complaining that "A component named FrameCom already exists" Can I not have more than one frames in the form?

wile loading Delphi xe this is what i got any ideas? what to do?

Hi Can help me How disable paste options when tedit is focused? Thanks Ps. Fmx and android

Getting confused with simple things :-) ---------------------- type TMyRec = record field1: string; end; IMyEx = interface ['{EEE83837-2CAF-4E2F-BAEB-AB756C314F58}'] procedure setMy(nex: TMyRec); function getMy: TMyRec; property My: TMyRec read getMy write setMy; end; TMyEx = class (TInterfacedObject, IMyEx) fMy: TMyRec; procedure setMy(nex: TMyRec); function getMy: TMyRec; end; TForm4 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form4: TForm4; implementation {$R *.fmx} { TMyEx } function TMyEx.getMy: TMyRec; begin result:=fMy; end; procedure TMyEx.setMy(nex: TMyRec); begin fMy:=nex; end; procedure TForm4.FormCreate(Sender: TObject); var myEx: IMyEx; begin myEx:=TMyEx.Create; myEx.My.field1:='34524'; end; end. ----------------- Why do get "Left side can not be assigned" in myEx.My.Field1:='34524';

BRCC32 broken I manage to break the resource compiler. I tried different rc files, all fail on the first character in the file. Error myversionrc.rc 1 2: Bad character in source input any ideas? [it worked, then it didn't, I can't think of anything out of the order that I might have done]

this would be nice, my solution for my client is actually having about 8 different applications, depending on what need to be done. I have to manually reset each of these apps version number every time I release, which is often enough to be a waste of time. So I have a dot separated (as normal) versioning system, but the highest value a section can have is 9 (ie base 10). ex 1.0.9.0 ("why base 10?" - thats another story ;-) ) The broad question is, would it be possible (with clues from you) to just click on a button, have all applications have their (base10) version number incremented. delphi-click-build-all, and release? thanks guys

Hi guys, This might be a very stupid question but I am unable to make a rounded image in Delphi like the profile pic here. I get my image from a webcam and save it to a database, but I want to make a transparent round png file of the profile image. Would someone be able to assist me please? This is what I have but I can't centre the image before it is made to a circle. procedure TForm1.Button1Click(Sender: TObject); var bmp : TBitmap; frgn : HRGN; begin bmp := TBitmap.Create; fRgn := CreateEllipticRgn (10, 10, 200, 200); try bmp.LoadFromFile('d:\devtest.bmp'); Canvas.Brush.Bitmap := bmp; PaintRgn(Canvas.Handle,frgn); FrameRgn(Canvas.Handle,frgn,Canvas.Brush.Handle,2,2); finally // Canvas.Brush.Bitmap := null; bmp.Free; end; end;

About a dreadful event in the year Halloween. :-P Originally shared by Eden WU About a dreadful event in the year Halloween...

I am available for work, currently seeking to step up a gear and have mentoring and training of less experienced developers as part of my job description. I am quite willing to relocate if the position is in line with what I am seeking. Skills: - Delphi - PHP - Javascript - SPAs - OOA/OOD - Unit Testing (DUnit, DUnitX,etc.) - C#/ ASP.NET MVC/EF (not commercial) - Loads of other stuff Languages: - Italian (d'oh!) - English (d'oh!) - Spanish (self taught, no idea of level) - French (self taught, certainly quite basic) - Bits and pieces of other languages (can't claim coherent knowledge, but you may be in for surprises there :) ). I have already lived and worked abroad for a total of almost 4 years. Other skills: - Presentations(including C-suits) - Training delivered to development and tech support staff - 2nd line support - Customer facing events Other - Recognized disability from Italian Gov't at 60%.

Privileged Instruction? Hi my friends. I have a number of frames in my app and I would like to change the properties of controls by calling a procedure. So, I have this code: procedure TModifiedFrame.setProperties(ClassName, SomeProperty: string; Value: Integer); var i: integer; PropInfo: PPropInfo; Component: TComponent; begin for i := 0 to ComponentCount - 1 do begin Component := Components[i]; if (Component is TControl) and ((Component.ClassName = trim(ClassName)) or (Trim(ClassName) = 'AllComponents')) then begin PropInfo := GetPropInfo(Component.ClassInfo, SomeProperty); if Assigned(PropInfo) then SetOrdProp(Component, PropInfo, Integer(Value)); end; end; end; I call it like this: MyFrame.setProperties('TLabel','Height',5) to test it. I am facing two Qs here: 1. I get a run-time error: Privileged instruction at (addr) at SetOrdProp line. Am I trying to access something I shouldn't? 2. I can see ho

Hello guys, Has anyone tried to intercept ARC's RefCount increase or decrease? Is there way to trace RefCount changes? Thanks in advance :D

Delphi expert available to take on spot work. If you have any Delphi work you might like to outsource that's fairly mechanical without a steep learning curve, hit me up. Code reviews, refactoring and clean-up, build forms, replace components, upgrade app(s) to newer version of Delphi, ... anything that requires more Delphi expertise than application domain expertise (ie., mostly mechanical stuff). Also, if you need some particular tool or prototype built, let's discuss it. Reasonable rates. Available immediately.

OK this post is going to sound a bit nebulous but I am a developer on a long established product ( 20 yrs+ ) and it is in the process of being moved from Delphi 5 to Delphi Berlin. This project uses SQL Server as the dataabse and TADO componens to hook to that database ( We will be looking at FireDAC soon ) We have managed to create a working Alpha for a customer. The executable has gone from 38Mb on Delphi 5 to 95Mb ( x64 ), 78Mb ( x86 ) on Delphi Berlin. The customer is Ok with this, but what they are not OK with is the amount of RAM being used. When we log in and sit at the front page and do nothing with our Delphi 5 application it consumes 7Mb RAM. If we do the same with our Delphi Berlin version it consumes 15Mb RAM. As I said this is an issue for our Alpha site. I'd love to just say "Get some new PC's" to our customer, but that won't happen Does anyone have any ideas of what the additional overhead may be that is causing this consumption. Sorry for my vaguen

Some days ago, a user posted a link of a tools that allows us to create all Android icon files and splash images in one click. Can someone share this link ? Thank you

How to get whether a TRttiField is a class field?

Is this a bug? Compiles ok, Bar is my local TFont class uses FMX.Graphics; type TFont=class end; procedure Foo(const Bar:FMX.TFont); // <-- My local font? FMX.Graphics.TFont? begin end;

Hello guys, 1 - Is there a way to discover if an abstract method has been overrided by a derivated class? 2 - Is there a way to discover if a class is a root class or it inherits another one? All these questions are without RTTI :D Thanks in advance :D

I am currently 'discussing' a more efficient way to resize a TViewport3D. Compare FMX.Forms3D to FMX.Viewport3D. The main difference is in Paint. TViewport3D, after rendering the scene, continues to draw 2D stuff. This is great, and this is why I want the FMX deskop app. in Paint: Context.CopyToBitmap(FBitmap, FBitmap.Bounds); inherited Canvas.DrawBitmap(FBitmap, ...); The other major difference, not well known, is in the way Size changes are handled. See TCustomForm3D.ResizeHandle versus TViewport3D.Resize. TViewport3D sets the Context to nil every time the Vieport is resized, TForm3D does not. Yes, the render target needs to be changed and more, so this is an expensive operation in both cases. But recreating the context itself is causing trouble and should be avoided in the future. Also, an OnResizeEnd or OnResizeFinished event would be useful. Are you able to debug the 3D Context of a Delphi application and find out what really happens to the 'leaked' resources, when

Hello, I have a TDbGrid linked to a dataset with rows displayed in this grid. When scrolling on the grid, it moves the selected row of the dataset, which means that if I want to go at the bottom of the grid, it browse every record and the record behind the grid only appears when I am at the bottom of the grid, The behavior I except is : I want the screen to move but not my record selected ( so the only way to change row would be to click on the row). Have you got any idea on how to do that? The behaviour that I except is the same as in the 'Object inspector' of the IDE delphi 10.

Learned Turbo Pascal about 18 years ago in evening classes. Now already 8 years active at tmssoftware.com I like this very active G+ community, a pleasant group of real Delphi die-hard fans :)

Anybody tried to use THtmlViewer components in Delphi XE? What is the deal with GDIPAPI and GDIPUTILS? It appears these are not present (or I couldn't find them) in my install. There is an issue filed in the Github project site, but it was dismissed because they should be present ( https://github.com/BerndGabriel/HtmlViewer/issues/116 ). I'm having a problem getting it to compile the latest version. It appears that the GDIPUTILS unit is missing. I can make it work by defining a constant to not to use it (at the expense of some features like PNG support) or by using some units found on the internet (right now I'm using the ones that come with the TChromeTabs component, http://www.easy-ip.net/tchrometabs.html ).

Is anybody here aware of blockchain (or distributed consensus usable for distributed ledgers) infrastructure projects developed in Delphi/LAZARUS - best would be opensource? I would like to use this post to collect relevant projects (frontends to existing Blockchain backends and Backend projects): https://github.com/SoftwareTools4Makers/Bitcoin-Delphi-Library https://code.google.com/archive/p/fpbitcoin/ Even though the two links I gave here are bitcoin - I am interested generally in Blockchain or distributed ledger infrastructure. https://github.com/SoftwareTools4Makers/Bitcoin-Delphi-Library

What is the best JSON library to use for Delphi 10.1? To read and write JSON. Looking ease of use and speed. In that order of importance.

i have a problem with class operators (Delphi XE). Lets say i have a Generic Record and Enum TFoo = (a, b). i have an operator for Add looking like this: Add(Left: Record ; Right: array of T) I thought this way i could work like Sets if declared as Record : MyRec := MyRec + [a] The second parameter is treated as set (which is formal correct) but will give an "operator not applicable" error. How can i solve this? I'd like to keep the [] syntax.

I tried to take a binary file from the field table, then I send it in the form of JSON, binary load successful in no kencala, but the result of a binary form of a .pdf file, size 0KB is there anything wrong, I use methods DataSnap any One Can Help Me... thanks... ----------- Server Side function TServerMethods1.CobaLoad(NoHp, Dvs, KdPro, Subpro, JnsLap, Per1, Per2, Status: String; Tanggal:String; Status2: String): TFDJSONDataSets; begin Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('Select Laporan from Tugas where UserId='''+NoHP+''' and Divisi='''+Dvs+''' and KodePro='''+KdPro+''' and SubPro='''+SubPro+''' and Jenis='''+JnsLap+''' And Status2=''2'' '); Query1.Open(); Result:=TFDJSONDataSets.Create; TFDJSONDataSetsWriter.ListAdd(Result, Query1); end; ----------- Client Side Var NoHp,Dvs,KdPro,SubPro,JnsLap,Per1,Per2,Status,Tangga

Hi all, How do I change the TAmazonConnectionInfo to point to a different region? If I follow Pavel's Youtube video on how to connect to an S3 bucket, it assumes that we are in the us-east region.

Hello guys i'm having a problem width passing spaces into CMD command !! im trying to dump my PostgreSQL Database here is my code: --------------------------------------------------------------- PathBC:= ExtractFilePath(BackupDbSDlg.FileName); NamePathBC:= StringReplace((ExtractFileName(BackupDbSDlg.FileName)) , #32 , '_', [rfReplaceAll]); ShellExecute(0,'open',PChar('cmd.exe '), Pchar('/c "C:\Program Files (x86)\PostgreSQL\9.6\bin\pg_dump.exe" -U postgres -F c DBNAME > ' + PathBC + NamePathBC +'.backup'),nil,SW_HIDE); --------------------------------------------------------------- this works fine but what if the user decide to create a folder have spaces in it name !! I tried adding quotation marks like this -------------------------------------- ""C:\Program Files (x86)\PostgreSQL\9.6\bin\pg_dump.exe" -U postgres -F c DBNAME > ' + PathBC + NamePathBC +'.backup"' -----------------

Hi guys! I'm still working on Delphi 10 Seattle. I'm experiencing some drawing problems with vcl TForm and bsSizeToolWin/bsToolWindow BorderStyle running on Windows 10. The program draws only the top of the border as you can see on attached picture. Could this be considered a Delphi bug or these kind of borders are deprecated on new SO?

Hi guys! I'm still working on Delphi 10 Seattle. I'm experiencing some drawing problems with vcl TForm and bsSizeToolWin/bsToolWindow BorderStyle running on Windows 10. The program draws only the top of the border as you can see on attached picture. Could this be considered a Delphi bug or these kind of borders are deprecated on new SO?

I am having a hard time finding a solution for loading custom fonts in FMX on Windows and wondering if there's sample code somewhere on how to do this. I've got it working on Mobile, OSX and VCL without too much difficulty. For FMX it would seem that fonts must be added via DirectWrite. I'm not sure if fonts can be successfully added so that standard controls recognize the FamilyName ? My attempts to follow the Microsoft CustomFont SDK sample code has been frustrating as C++ difficult so I would appreciate any help/tips. Thanks

Another great application created with Delphi ;-) "The usage of Delphi, while not a popular language, provides the coders with versatile frameworks that simplify their code as it allows them to use 3rd party libraries that perform many tasks for them, such as communication, computer scanning and metadata extraction." https://www.guardicore.com/2016/10/the-oracle-of-delphi-steal-your-credentials/

Some functions doesn't work in TWebBrowser of firemonkey on Android, How to solve? for example: const HTML5InputFileTest = ' Choose File： '; WebBrowser1.LoadFromStrings(HTML5InputFileTest, ''); This doesn't work in TWebBrowser.

Ok, I'd like one more little bit of help with SuperObject: How would I create a JSON object using SO from a CSV file that looks like this? What would it look like? "hdr1,hdr2,hdr3 <-- header fields, data recs follow --v w1,w2,w3 x1,x2,x3 y1,y2,y3 z1,z2,z3"

Custom TSwitch style in Firemonkey: http://delphifmx.blogspot.com/2016/10/custom-tswitch-in-firemonkey.html

Debugger Problems 10.12.1 (16B2555) OS X I can not longer Debug with Berlin Update 1 and Paserver anybody else see this problem?

Hi all I finally updated to Berlin 10.1, from Seattle All went OK But when trying to compile my large OSX program, I get error on linking [dccosx Fatal Error] F2084 Internal Error: AV0C46E0D7-R00000014-0 in the compiler :( Any help appreciated! (I have tried build first , etc) Thanks Brian ps, the OSX version for my Mac is 10.7.5 pps, clue: even a simple program has same error, so maybe its the OSX version its linking against that is the problem? ok,fixed it...the compiler has set itself up to be using command line tools for the OSX, I changed the SDL to OSX 10.7.4, and that fixed the linking error (there is also an option to use a later OSX ,10.8.3,I could try too (ok, no error either and that runs :) ) ppps, the deployment with the new paserver is much faster!

Trying to install 10.1 Berlin Update 1... Today I thought I should install Upd1 but I am facing a slight problem here. on this new VM, I have only installed Delphi Starter 10.1. Then, when I run the installer for upd1,... 1. It asked me to uninstall the previous version. Can I not keep both? 2. I did so, and the license manager foudn the starter key. Then I registered/added the pro key but the IDE doesn't recognise it. Am I missing something here? Thanks

DAC for MySQL 3.0.7 with bug fixes and improvements is out! http://microolap.com/products/connectivity/mysqldac/news/detail.php?ID=1783 http://microolap.com/products/connectivity/mysqldac/news/detail.php?ID=1783

We're pleased to inform a significant update for the TMS Component Pack is available now! http://www.tmssoftware.com/site/tmspack.asp TMS Component Pack v8.4.0.0 brings over 70 NEW features, 46 of which coming directly from our feature request system ( http://www.tmssoftware.com/site/fr.asp ) . The details of all new capabilities, improvements and fixes are described in the release notes ( http://www.tmssoftware.com/doc/tmspck.txt ) and the what's new guide ( https://goo.gl/CT103L ) . - Kind regards, Nancy Lescouhier TMS software team

A new blog article is available on auto generated Delphi DB forms for cloud data editing http://www.tmssoftware.com/site/blog.asp?post=365 http://www.tmssoftware.com/site/blog.asp?post=365

Starting a new custom interface project with Android with Delphi Seattle that manage an external motor and sensor via native serial port. I use winsoft components and it is soo easy. All done in a couple of days crazy

It somehow went missing, FixInsight v2016.09 (September 6, 2016) was released What's new & improved in v2016.09: New: New rule O803 Constant 'Foo' is declared but never used New: A list of units to ignore supports file masks Improved: Improved parser http://www.tmssoftware.com/site/fixinsight.asp?s=history http://www.tmssoftware.com/site/fixinsight.asp?s=history

I have my nice :-) component (neTabControl) which is a styled control with a number of grids and two tab controls. What I noticed today is that when I link a style in a form with neTabControl, it doesn't get the styles from the stylebook. Also, when I right click and select Edit default/custom style, the style designer doesn't load the default style. I suspect that because the component is TStyledControl, when I right click the styler doesn't know that it has to look for styles for tabcontrols. I have tried to override the NeedStyleLookup without any success. Does anyone know how I can propagate the correct information from the StyledControl to the tabcontrols and vice versa Thanks a lot. https://github.com/jkour/neTabControl

Hi All. Very simple (stupid?) question. I use a TOpenDialog with Multiselect option enabled to allow a user to select more than one file at a time: how to get (in the Files property) a list of selected filenames in the order in which the user.. selected those files? Default behavior seems to be that Files property always contains a list alphabetically reordered (first FileA, next FileB, etc.). Thanks for your help.

OmniThreadLibrary 3.06.2 has just been released. New features: - Implemented two-parameter version of Atomic initializer which intializes an interface type from a class type. Bug fixes: - Programs using OtlCommon can be started on Windows XP.

Berlin 10.1 Update 2 oh man, is this gonna be a reinstall? ohhhh!

TMS Aurelius Free Edition now available for download! http://www.tmssoftware.com/site/blog.asp?post=363 http://www.tmssoftware.com/site/blog.asp?post=363

Originally shared by David Berneda Nice surprise coming with next TeeBI beta17: Its now possible to connect a "classic" TChart control to any TeeBI data source (see screenshot) A new option at Series "data source" editor dialog appears when TeeBI is installed, for all existing TChart, VCL and FMX

Marco Cantù please, before introducing ARC on Desktop, can you fix this nasty bug that exists since several release ...

Marco Cantù please, before introducing ARC on Desktop, can you fix this nasty bug that exists since several release ...

Demo&Guide : Use Dynamic library on Android. https://drive.google.com/file/d/0BwdfodaqQm4pNlRTR3hvb1R0a0E/view?usp=sharing But does anyone know how to create form inside the library on mobile? https://drive.google.com/file/d/0BwdfodaqQm4pNlRTR3hvb1R0a0E/view?usp=sharing

I'm very sorry that a "help needed" post was just accidently removed by myself after the approval. It contains some words like "file mapping variable". I'm not sure who the author is. Please repost it if you see this topic. Thanks!

hello everyone. how are you. I 'm develope use Delphi 10 seattle , android service found an error in the following , I have two Questions wants to see out the advice of experienced user. 1. create a service project in the Android StartService command when Android OS 4.X, but normal service app creation, at least not in this version 5.X generation services. (It did not appear at all in the list of running apps services. Version 4.4.2 is a reference to the successful, unsuccessful version 5.1) android version 4.X successfully create service process ok!.. but I think android version 5.X over not create service process, only Application (can not see running service process) 2. Android Service application functionality by using a components, such as (Timer or socket component (indy), KinveyProvider) Android Services Unit at the time when the run applications that run Android services' Activity not found, maybe you are in a service 'is the error message pop up and die program

If you want ARC on desktop, please vote: https://quality.embarcadero.com/browse/RSP-16179 https://quality.embarcadero.com/browse/RSP-16179

Hi, I'm looking a good solution for to convert CSS+HTML with Image to PDF. i have a datasnap server, should to convert internally or call an external PHP page for convert it. Any hint ?

NewPascal release - more Delphi compatible than any other FPC release before :) Whats new for Delphi users: * Generics.Collections/Generics.Defaults * More Delphi compatible compiler for methods with default parameter bug report: http://bugs.freepascal.org/view.php?id=25607 examples list: http://bugs.freepascal.org/file_download.php?file_id=19514&type=bug * More compatible generic record constraint * More compatible RTTI for interfaces * Improved Implicit/Explicit class operators for generics Whats new for all users: * Management operators (usable for RAII, example: https://github.com/newpascal/freepascal/blob/master/tests/test/tmoperator9.pp ) More info about changes and differences with comparison to official FPC: http://newpascal.org/compass.html Fresh mORMot included :) cross-compiling version: https://github.com/newpascal/newpascal/releases/tag/np_sc-v1.0.34 simple version: https://github.com/newpascal/newpascal/releases/tag/np-v1.0.33 http://newpascal.or

Writing large INI files INI files, once the most used way for storing program configurations, are still popular due to their simplicity. Delphi offers two ways for accessing them ... http://blog.dummzeuch.de/2016/10/23/writing-large-ini-files/

Remembering past times. Quadram Software. The Spaniard contribution to the Embarcadero Universe. (Currently HTML5 Builder)

I've stumbled into an API method I'm calling that's returning a serialized PHP object rather than a JSON object. Not too useful if you're calling it in python or ruby, I guess. (Or Delphi!) I've been searching around for anything that I can use to convert it to a vanilla JSON object, with no luck. I've found lots of references to stuff back in XE2-3 days as well as the Delphi SuperObject, but I can't figure out how to get SuperObject to do this kind of conversion directly. (I'm already using it in my app.) Surely there's a solution somewhere

Hello guys, Does anyone know a library to write Delphi source file? Something like https://github.com/square/javapoet ? Thanks in advance :D https://github.com/square/javapoet

Olá pessoal! O vídeo da 3a aula sobre Object Pascal com multicamadas (multilayers) ficou pronto! Por favor, visitem a playlist, assistam os vídeos, comentem e compartilhem! Neste terceiro vídeo tratamos sobre: - Cadastros e - Controladores. Obrigado mais uma vez! Abraços e fiquem com Deus! https://www.youtube.com/playlist?list=PLae_TRAJztAY5urlc_fKfI4B0_0dVKKnz https://www.youtube.com/playlist?list=PLae_TRAJztAY5urlc_fKfI4B0_0dVKKnz

Is there a timezone function that can work application wide for TDateTime and Now() ? Have a case where a server is always in Standard time but need to have an application producing timestamps that are adjusted for daylight. In C++ this could be done with tzset() function from memory.

Hae gaes, ijin share program aplikasi sederhana penghitungan untuk kasir yak. Ini memang masih blm sempurna sih menurut sya, tapi tenang saja rencananya akan saya tambahkan lgi jumlah total keseluruhannya dipost selanjutnya. Hehe . Jk ingin mencoba untuk permulaan, silahkan gaesss. Semoga bisa bermanfaat 👌 Originally shared by Hamdhan Amirullah Cara Membuat Aplikasi Untuk Penghitungan pada Kasir Menggunakan Delphi 10 - Pada Kesempatan kali ini kita akan membahas dan membuat aplikasi sederhana yaitu Aplikasi Untuk Penghitungan pada Kasir menggunakan delphi. Kebanyakan rumah makan sekarang ini sudah tidak menggunakan kakulator lagi untuk menghitung transaksi penjualan, karena dirasa kurang cepat dan akurat. Bayangkan saja, jika seandainya yang ingin membayar ada 50 orang dengan rata-rata setiap orang membeli barang lebih dari 10, apakah tidak kerepotan, tentunya kerepotan iyaa kan dan tentunya memakan waktu yang lama inilah alasanya tidak efektifnya waktu.....

Thanks Embarcadero Technologies for having the "Discover what is coming in Berlin 10.1 Update 2 - Anniversary Edition" webinar at times that people can view it at a reasonable time: For my time zone, I have the choices of: Fri, Nov 4, 2016 12:00 AM - 1:00 AM AEDT Fri, Nov 4, 2016 5:00 AM - 6:00 AM AEDT Yeah, I will be there - not! :-P Marco Cantù/ David Millington Any chance of having a replay at a more reasonable time for Australians?

HTML Editor : change tracking.

Good ! FastMM latest release https://github.com/pleriche/FastMM4/releases/tag/release_4992

Hi everyone. While maintaning some old code I came across some weird use of an object. It is something like this: pastebin.com/MbA7mnnc I don't understand how is this possible. I was expecting an Access Violation exception or some kind of error. After all the object was not initialized. Any clarifications will be welcome.

I'm traying to deploy Android APK with Clear Data and Cache Folders, but it dosen't works. 1. I have and Android App in Google Play Store 2. I've made a "new version" with som changes in a bbdd file. 3. In delphi I've placed "-cleaninstall" parameter to try my app and all works well. 4. I've updated my new APK to Goole Play store without problems. 5. Users than UPDATE the app continius with OLD Chache and BBDD and App crasches. Any help? Best Xavi Pallicera

WebBrowser in front of the Multi View delphi android menu? how to solve?

Embarcadero Conference Brazil 2016 is next week but there is still time to register! 600+ attendees, 7 simultaneous rooms, 48 speeches and the biggest Delphi event in the world! Check the agenda and if you would like to come let me know and I can assist you! http://www.embarcaderoconference.com.br/AgendaConference2016.pdf http://www.embarcaderoconference.com.br/AgendaConference2016.pdf

Check my video/picture report for the ITDevCon-2016 event in Rome-Italy. Thanks Andrea Magni, Valentina and Carol Bassuma for the great pictures and videos (ps: pt-BR introduction takes 3 minutes) https://youtu.be/XYoJSLCsj3M https://youtu.be/XYoJSLCsj3M

Originally shared by David Berneda Soon to release TeeBI Beta17 with several improvements: -Lazarus design-time support (see screenshot) including many design-time editor dialogs like the "Data Manager" to select data items, visually create queries, filter and sort editors, etc (same as in VCL / FMX under Delphi) -TBIWorkflow component greatly improved. Edit it at design-time to use all TeeBI features that are not found in the ide component's palette, like machine-learning algorithms and a long list of data "tool components" (compare, split, normalize, group-by, merge, rank, shuffle, transpose, re-structure, TeeChart TeeFunctions and many more). "Flow" means you can create a tree of data processing, where each node in the tree uses its parent node output as source input. Any node in the Workflow tree is also a datasource for any other TeeBI control or component, like a BIGrid, BIChart, another BIWorkflow, etc. -Fixed compilation and installation for RA

Some time ago, someone posted a link to a comprehensive 10-issue list of software development management thingies like using SVN that could be used to compare companies. I have searched and searched. TIA, /D

Simple performance compare between Delphi, ASM, JS and C#: Four times slower than C#, two times faster than js. https://drive.google.com/file/d/0BwdfodaqQm4pSS02T0lldXlrd1U/view?usp=sharing

Wow! Very cool! An IDE Expert that displays values of watch expressions when debugging, right inside your code editor, and it's live! The idea should be inspired by Light Table, the implementation should have been benefited from the excellent the detours hooking library by Mahdi Safsafi PS, this Japanese blog was posted to this group long time ago, and today Nicholas mentioned it, so I went to there again, and found this cool thing :) http://d.hatena.ne.jp/tales/20161015/1476466482

ARC vs Memory management of records, which is better? ARC is not reliable sometimes. Is bind lifetime of an object to a record more reliable than to an interface, if I want to make an object auto free? I find there is IManaged interface and Managed record in Spring4d. This is the declaration in Spring.pas: IManaged = reference to function: T; TManaged = class(TInterfacedObject, IManaged ) private fValue: T; function Invoke: T; inline; public constructor Create; overload; constructor Create(const value: T); overload; destructor Destroy; override; end; Managed = record strict private fValue: T; fFinalizer: IInterface; public class operator Implicit(const value: T): Managed ; class operator Implicit(const value: Managed ): T; inline; property Value: T read fValue; end; In Managed , the lifietime of the value is bind to fFinalizer, fFinalizer's lifetime is bind to the record. So the value will be freed when the record i

What am I supposed to do with this error? I have created a package, compiled it outside the IDE and installed it. Then, I go to Component>Install Packages and I can see the package but it is unchecked. When I try to check and activate it, I get this message: Cannot load package "xxxx". It contains unit "unitA", which is also contained in package "yyyy" Does this mean that I can't load "xxxx" again? My package, in the requires, doesn't include a reference to that package. Inspecting the source code, I can see that {$IMPLICITBUILD ON}. Am I right to suspect this may be the cause of my error? Is it ok if I turn it off? Thanks.

Restore bevels back in compiler progress dialog https://github.com/lynatan/May-the-bevel-be-with-you https://github.com/lynatan/May-the-bevel-be-with-you

New milestone PostgresDAC release is out! Now with PostgreSQL 9.6 and Android target platform support. From now and on NUMERIC fields are mapped to TFmtBcdField, that allows manipulating this type of values with immense flexibility. This release contains breakdown change, thus developers should check their sources where NUMERIC fields are used. http://microolap.com/products/connectivity/postgresdac/news/detail.php?ID=1781 http://microolap.com/products/connectivity/postgresdac/news/detail.php?ID=1781

Andreas Hausladen do you plan to update IDE Fix pack for Delphi Berlin Update 1 ? IDE Fix pack dll is throwing exception. I reproduce it this way : - add a mobile view (in my case Android 3.5") - switch to Android 3.5" view - rotate the screen twice Act: Access vilation Ps: sorry for using google plus but I don't know how to contact you Ps2 : call stack exception class : EAccessViolation exception message : Violation d'accès à l'adresse 10576E5F dans le module 'IDEFixPack.dll'. Lecture de l'adresse FFFFFFC9. main thread ($2600): 10576e5f +013 IDEFixPack.dll 1f1ecf84 +048 dclfmxstd240.bpl FMX.Editor.ListView 668 +2 AddObjectAppearanceSprig 1f1ed220 +1e0 dclfmxstd240.bpl FMX.Editor.ListView 728 +31 TListViewObjectsSprig.FigureChildren 1f13a2d5 +005 dclfmxstd240.bpl System.Generics.Collections 4290 +1 FmxMultiResBitmapEdit.{System.Generics.Collections}TList .InternalNotify 75597d2e +09e KERNELBASE.dll

Some time ago I wrote about an IDE plugin I made that modifies code completion behavior to be able to find even misspelled identifiers (like TComponent(o).comstate -> TComponent(o).ComponentState). I was asked a number of times to make the source public and I did just that (thanks for the interest btw). There aren't many comments in the code but if you're used to developing and IDE expert I think there should be no problems getting around the code fast enough. The idea is really simple, just wrap some IDE interface implementation around and modify the behavior. Although the completion works just fine most of the time, I noticed that the wrapper may interfere with class completion functionality (I never had time to fully investigate the issue - patches welcome ;-) ), I'm not fully sure if this is caused by the wrapper or maybe some other plugin(s) I have enabled in the IDE. https://bitbucket.org/shadow_cs/delphi-smart-code-completion/

any function have delphi for a convert 12 hour time to 24 hour?

Are records reference counted? Is Delphi using ARC in lifetime management of records? I can't find documentation about this.

How to get bounds rect of the shapes?? https://drive.google.com/file/d/0BwdfodaqQm4pLXpNRGNkM2tyMGM/view?usp=sharing After some tries , I get it work: procedure TForm1.Button1Click(Sender: TObject); begin with TRectangle.Create(FViewBox) do begin Parent := FViewBox; BoundsRect := GetBoundsRect(FViewBox); Opacity := 0.7; end; end; function TForm1.GetBoundsRect(TPathContainer: TLayout): TRectF; var LControl: TControl; LPath: TPath; LLeft, LRight, LTop, LBottom: Single; LLeftAssigned, LRightAssigned, LTopAssigned, LBottomAssigned: Boolean; begin LLeftAssigned := False; LRightAssigned := False; LTopAssigned := False; LBottomAssigned := False; // Get Bounds Rect of All Paths for LControl in TPathContainer.Controls do begin if LControl is TPath then begin LPath := LControl as TPath; if not LLeftAssigned then begin LLeft := LPath.Data.GetBounds.Left; LLeftAssigned := True; end else LLeft := M

I'm in the market for an Android device. It doesn't have to be a phone, however I'd prefer a device with a display at least the size of the Samsung S7 (maybe a little smaller). Also preferably inexpensive, however the absolute-must-have requirement is that the OS is upgrade-able in a timely manner (i.e. not having to wait ages for the manufacturer to provide one), and of course that I can build for it with Delphi. Suggestions?

What should I do to make a TListview readonly ? I can't find such property. Under Android user can swipe an item the left and touch the delete button. Thanks

Hello, I use a component that do some nice things on the Printer's Canvas...but I would like to adapt the code to print two A5 on a single A4 paper. Instead of changing all the logic of the component, I've tried something that work very well but not on all printers :( I've replaced de Printer.NewPage call by a code that apply a SetWorldTransform() like this if (PageNo > 1) and (PageNo and 1 = 1) then Printer.NewPage; with Printer.Canvas do begin // x' = x * eM11 + y * eM21 + eDx // y' = x * eM12 + y * eM22 + eDy XFORM.eM11 := 0; XFORM.em12 := -(210/297); // A4 (210x297) -> A5 (148x210) XFORM.em21 := +(210/297); XFORM.em22 := 0; if Printer.Orientation = poPortrait then begin XFORM.eDx := 0; XFORM.eDy := Printer.PageHeight; if PageNo and 1 = 0 then begin XFORM.eDy := XFORM.eDy / 2; end; end else begin XFORM.eDx := 0; XFORM.eDy := Printer.PageHeight; if Page

What is difference between FieldDefs vs Fields? When to use it? Thank you very much.

Anyone who know what happened to www.tpersistent.com ? It's partially archived, but the web-servers seems down. http://web.archive.org/web/20160308050405/http://www.tpersistent.com/ http://web.archive.org/web/20160308050405/http://www.tpersistent.com

IDE let me add an TFDMoniRemoteClientLink component but cannot compile the project because of missing FireDAC.Moni.RemoteClien library. Is appears that FireDAC.Moni.RemoteClient only exists for Win32 and Win64 platform. Is this expected ?

IDE let me add an TFDMoniRemoteClientLink component but cannot compile the project because of missing FireDAC.Moni.RemoteClien library. Is appears that FireDAC.Moni.RemoteClient only exists for Win32 and Win64 platform. Is this expected ?

Urgent bugfix release! download: https://drive.google.com/file/d/0BwqVlLNTK4OxaWx4MVU2Q0RUVG8/view?usp=sharing git: https://github.com/gabr42/OmniThreadLibrary/releases/tag/release-3.06.1 - Implemented TOmniValue.Wrap and .Unwrap , a way to wrap anything (including TMethod and 'reference to procedure') in a TOmniObject. [Unwrap must be called as follows: omnivalue.Unwrap ()] - Fixed enum size enforcement in DSiWin32. [Could cause an application to crash if OtlCommon was used in the program.]

I remember someone in this group showed a prototype of a 'code-completion' replacement IDE expert, which supports fuzzy matching of method names you typed, for example, type "shma" would match "ShowModal". I also announced the further development plan. I want to get the news about it but failed to find the post. Anyone knows anything? Thanks.

Is this a bug ? TDialogServiceASync.InputQuery is only closing when clicking on the "Ok" button. Nothing happens when clicking on the cancel button or when clicking on the windows close button Am I doing something wrong ? TDialogServiceASync.InputQuery( 'Question', ['Value ?'], [''], procedure(const AResult: TModalResult; const AValues: array of string) begin if AValues[0] <> '' then OnScannerCompleted('',AValues[0]) end); end;

Is anyone here having issues with the Project/Form load time in D10 and D10.1? Compared to XE7 D10 and D10.1 are very very slow. I'm moving a big project from XE7 to D10.1 and found this annoying issue. I'm using a VM with W10, but in a very fast machine. This means that this problem can be worst in slower machines. I mainly use DevExpress controls. Thanks for your feedback.

TBrushKind.bkGrab is deleted??? How to set a brush to a snapshot of a control now?? I can only set a brush to Bitmap, but after XE2, I can't set it to a vector.(for example TPath). I submit a QC: https://quality.embarcadero.com/browse/RSP-16144 Marco Cantù http://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.Graphics.TBrush.Kind

OrangeUI for Delphi 10.1 Berlin Update1: https://drive.google.com/file/d/0BwdfodaqQm4pY3AyQ2hsclljblk/view It is a component pack for VCL&Firemonkey, support C++ Builder&Delphi, developed by DelphiTeacher. Used to build smooth and beautiful UI. Personal version is permanent free for single developer. (Without source code and no C++ Builder support).

#DelphiStarterBug This error happens after you hit Delete Invalid Paths in Library paths dialog. [dcc32 Fatal Error] ???: F1027 Unit not found: 'System' or binary equivalents (.dcu) Adding back $(BDSLIB)\$(Platform)\release to paths list fixes it. http://support.embarcadero.com/es/article/42597 Using -r command param it also shows that $(BDS)\Imports should be added back too

(A small reproducible test case is available, where an assignment is too large.) I press Ctrl-F9: [dcc32 Fehler] "dcc" wurde mit Code 1 beendet. I press F9: IDE crashes. What is Code 1? What is so special about it that Delphi ignores it?

Is there an expert that can resize a container (panel, scrollbox, form, frame, etc) to be just large enough so it fits all it components? So: grow when the container is too small, shrink when it's too large. Edit: VCL DesignTime taking into account non-visual components, maybe in the future FMX as well.

Are Soap Webservices broken in Berlin? Create a new soap werbserver ISAPI project and include the example functions Compile it to a isapi.dll and deploy it. If i want invoke per example the function "echodouble" i get a ESOAPHttpException "text/html instead of text/xml " Compile the same project with seattle all works fine.

Can anyone suggest a mobile payment gateway that works well with Delphi for Android and IOS? To be used in the USA.

Originally shared by Jeroen Wiert Pluimers Seems my Google Foo is letting me down today: is there any way when you use a frame on a form to ensure that the controls in that frame cannot be moved? Basically I want to have the layout in the frame to be fixed.

OmniThreadLibrary 3.06 has just been released! Some new features, some bugs fixed, a breaking change or two (sorry) ...

which code that shows only time the form in the App.