Delphi Developers Archive

Hey guys, I need your help :D DecimalRec = record     wReserved: Word;     case Integer of         0: (scale, sign: Byte; Hi32: Longint;     case Integer of         0: (Lo32, Mid32: Longint);         1: (Lo64: LONGLONG));         1: (signscale: Word); end; What do those "case Integer of" mean in the type definition and how do I use it? Can someone show me an example? Is it safe? I was not able to find a reference to understand it. Thanks in advance :D

Title

Found a contract Bug/Violation between MREW-Synchronizer and IReadWriteSync. Caused some troubles on my end o.O https://quality.embarcadero.com/browse/RSP-13833 https://quality.embarcadero.com/browse/RSP-13833

Originally shared by David Berneda Beta 9 Released ! Stay tuned for Beta 10: "Dashboards" https://github.com/Steema/BI/blob/master/docs/releasenotes.md

A new blog has been posted: Introducing myCloudData.net from TMS: Pascal generated data consumed by Delphi http://www.tmssoftware.com/site/blog.asp?post=330 http://www.tmssoftware.com/site/blog.asp?post=330

Debugging: Detecting that UI thread is blocked? Update: The source for my quick and dirty MonitorUIResponse: https://drive.google.com/file/d/0B1MyXorVzay9ZjFJc3B6VjI3MUU/view?usp=sharing Does anyone know of a tool or method that can monitor and log the responsiveness of a UI?  I.e. flag occasions where the app is in "Not responding" mode for a period of time (1 sec or more) ? I'm trying to track down a strange "lagginess" which doesn't directly reflect in the debug out log.

I created a TWebBrowser inspector, should I make it public? If you use TWebBrowser component in your app and you cannot "debug" the content in an ordinary web browser with a Dev console, you may find this useful. Drop me a line if you find it interesting and I'll post more info.

Has anyone worked with USB HID communications in RAD Studio 10?

Delphi ORM(Object-relational mapping) common unit generator. Please tell me trial review. Thank you!

Hello. Firstly sorry for my english, I am begginer. Guys I have when develop an Android and iOS App when use TLocation for return speed moviment, but TLocation.Sensor.Speed it is fake, return strange value, I know when it is value mp/s but this value don't true. I try calculate the value manually, but the OnChangingLocation event it is slow. some solution?

A little regression in Seattle: When you select "Search in directories" in the dialog "Find In Files" and specify "*.dfm" for the file mask, the given search string is not found. This worked perfectly up to XE8. https://quality.embarcadero.com/browse/RSP-13825 https://quality.embarcadero.com/browse/RSP-13825

Originally shared by Gnostice.com #XtremeDocumentStudio Delphi 2016 R4 released! Toward reaching 100% compliance to spec for PDF and Word formats rendering, we've been busy enhancing the format rendering engines. We are happy to announce the release of v16.4 of XtremeDocumentStudio Delphi. This release includes support for rendering Type3 fonts for PDF files and several other updates to the PDF and Word formats rendering engines. For the full list of updates, please have a look at: http://www.gnostice.com/XtremeDocumentStudio_Delphi.asp?show=history&rr=73 For the latest trial downloads, please log on to: http://www.gnostice.com/XtremeDocumentStudio_Delphi.asp?show=downloads&rr=74 Best wishes and happy coding! The Gnostice Team http://www.gnostice.com/XtremeDocumentStudio_Delphi.asp?show=history&rr=73

Today I noticed a few blog posts that I thought odd, because they were referring to some Delphi IDE tools I had released. So I thought somebody might be using them to promote his own blog. It turned out quite differently ... http://blog.dummzeuch.de/2016/02/28/david-hoyle-has-a-new-blog/

Anyone ever experienced data getting truncated in DBMemo when clicking on another data aware control? So I enter maybe 50 characters into DBMemo then click on a DBGrid or DBComboBox and the data entered in DBMemo gets truncated to 28-30 or so characters. Max Length is set to zero and I don't see any settings in the datasource or db that would cause this. Obviously I am missing something.

Originally shared by Thomas Mueller (dummzeuch) Paging Peter Laman (or Peter Laman  ? But probably neither of these two.) http://blog.dummzeuch.de/2016/02/27/paging-peter-laman/

How to assign MongoDB cursor? Ok so I have to assign the MongoDB cursor in code to activate my Dataset. So: How do I assign a MongoDB cursor directly to a specific database and collection? This example code works great, assuming all you want is a list of databases: procedure TForm1.FormCreate(Sender: TObject); begin FDConnection1.Connected := True; FMongoConn := TMongoConnection(FDConnection1.CliObj); FDMongoDataSet1.Close; FDMongoDataSet1.Cursor := FMongoConn.ListDatabases; FDMongoDataSet1.Open; end; But I want a cursor assigned to my collection so I can pull up all it's records into a DB Grid. Assuming database testDB and collection testCollection. Any help is much appreciated! Thanks!

TECNativeMap has been updated. The component now supports Vector tiles and styles. http://www.helpandweb.com/ecmap/en/tecnativemap.htm

Notice to all those who use Delphi seattle with AVAST antivirus. The AVAST antivirus seems freezes the computer when compiling with Delphi a certain number of times. I changed my antivirus AVIRA and I have more problem.

Is there a wizard that checks for duplicate shortcuts in dialogs while in the form designer? Something that tells me if there are duplicates like this: [ ] &yes [ ] &no [ ] ma&ybe and maybe even suggests improvements?

New Feature Request - Range magic(intrinsic) compiler function https://quality.embarcadero.com/browse/RSP-13804 Hey guys, Since Delphi does not provide a step statement in for loops, a good way to work around this is by using a Python's range( https://docs.python.org/3/library/functions.html#func-range)-like  compiler magic function. The compiler is already able to generate enumerable instances magically as it does when we use foreach thus I think implementing Range(Start: Int32; Stop: Int32; Step: Int32): IEnumerable as a intrinsic(magic) function is almost complete and is totally possible in the current compiler state. Range is also very good for indexing arrays as for loop's to value is inclusive (I mean the foor loop upper bound) is very common use  for I := 0 to FItems.Length - 1  With the addition of Range function it could get simplified to  for I in Range(FItems.Length) thus no subtraction is need. A Range overload as no parameters would start from 0 with step of 1. To ...

I need a structure similar in operation to TDictionary , but with a few keys. Is there such a thing? Or how best to implement it? I would like to have a dictionary of interfaces, which can be searched by different keys. e.g: IHuman = interface Age : Byte; Growth : Byte; UID : Integer; end; And I would like to have a list of these interfaces and to be able to search by Age, Growth and UID. I know that I can do three dictionary: DictAge : TDictionary ; DictGrowth : TDictionary ; DictUID : TDictionary ; and use as: function AddHuman(aHuman : IHuman); begin DictAge.Add(aHuman.Age, aHuman); DictGrowth.Add(aHuman.Growth, aHuman); DictUID.Add(aHuman.UID, aHuman); end; but I would prefer something more generic/simple. Any ideas?

http://www.loadingartist.com/comic/launched

Originally shared by Marco Cirinei (HappySoft Srl) https://blogs.windows.com/buildingapps/2016/02/25/an-update-on-the-developer-opportunity-and-windows-10/

What computer configuration do you have, hosting XE6/XE7/XE8/Seattle ?

Hello, Is there a way to serialize to JSON a TDate and a TTime in a format like "yyyy-mm-dd" and "hh:mm:ss" instead of integer and double values ? TDatetime doesn't have such issue (I don't want to modify my TDate and TTime fields to string type) type TTest = class(TObject) private public datetime : TDateTime; date: TDate; heure: TTime; end; .... Begin var Test: TTest; begin Test := TTest.Create(); Test.datetime := StrToDate('26/02/2015 10:10:50'); Test.date := StrToDate('26/02/2015'); // french reg. settings Test.heure := StrToTime('10:10:50'); Memo1.text := TJson.ObjectToJsonObject(Test, [joDateFormatISO8601]).ToJSON; Test.free; End; TJson.ObjectToJsonObject will generate {"date":42061,"heure":0.424189814814815,"datetime":""2015-02-26T10:10:50.000Z"} How can I get something like this {"date":"2015-02-26","heure":"10:10:5...

There is this ancient feature called object: type TFoo = object end; It is some kind of Hybrid between a record and a class. It is treated like a record(allocated on stack, contains only fields you have defined) and allows inheritance like a class. I even have a project i want to start in the near future which will utilize it. However, in the past people said it might be removed at sometime? Marco Cantu anything on this topic? Example: Imagine you write a wrapper for a c-api. The c-api returns typed handles (HandleA, HandleB). For each set of handles there is a set of operations you can do BUT everything you can do with HandleA can be done with HandleB too(but not vice versa). So you have some kind of Handle-Inheritance. My Idea: type THandleA = object private Data: Pointer; public procedure DoSomething; end; THandleB = object(THandleA) public procedure SomethingElse; end; So when a C-Api function returns HandleA, i declare it as THandleA, ...

Hi, I have to implement drag/drop from delphi to the explorer. The other way round we use since decades. But now we want to give a file back from our docu archive to a file. I asked google but got no answer..

[Edited2] Hey guys, In honor of Allen Bauer​​, his list of desired new language features (in no order of priority), I don't want to start a war here :D, just keep his list in a more visible and easy to find place, it was in a comment of an old post, pretty hard to access. Some of these language features were mapped to new feature requests on Quality Portal. My intention here is also encourage you to fill a New Feature request on Quality Portal if you miss it here, once I was not able to find some of them :D (RSP-13339) Better anonymous method syntax (aka. true Lambda style syntax) 2. Better type-inferencing (anonymous types, better implicit type selection for generics). (RSP-12767)(RSP-13026) Better generic constraints (such as requiring certain operators to be supported). (RSP-13305) Nullable types with full operator hoisting and null-propagation (RSP-13322) Attribute constraints (Attributes which can only be used for certain language elements) 6. Fully rooted type system (will ...

If you are interested in implementing Microsoft's Ink API (as used by Surface tablets) and you're a TMS Software customer, then you might like to "up-vote" my component request. Vote here: http://www.tmssoftware.com/site/fr.asp?id=2050

It's almost SA renewal time for me. I have a Delphi Ultimate license, which gives me a boatload of ER & DB type tools I don't use. At £1200+ it's a bit steep - have any of you ever persuaded Embarcadero to let you downgrade your license type at a renewal? I would love to buy a renewal for Enterprise (circa £800) instead of Ultimate... (Reply by email if you'd rather not publicly say!)

Originally shared by Andrea Raimondi Russell Weetch and I are mulling the release of his company's data dictionary. This is, in essence, a very intuitive way to define tables and fields in code so that they can be generated in short order.  It is quite useful as it does a number of things (such as letting you define a prefix at the table level and then apply it across the board to all fields, generating the needed SQL after comparing to the db, etc.) and it also has a number of other features. Do you think such a library would be interesting/useful for you?

Ok, trying to get a handle on Master Detail in MongoDB. I have looked at the MongoDB - Datasets example but I'm evidently not seeing the magic of what is happening behind the scenes to update the boxes at the bottom - Coords and Grades. Really what I want is a TDataGrid at the top and each time I click on a record it updates data items below. Actually the below data items could be displayed simply as Labels. So I want to be able to reach inside a DataSet and pull out the individual data for each field in the currently selected row. Can someone help me to understand this? Thank you!

Hey guys, I miss a "RxDelphi" or "RxPascal" repository here https://github.com/ReactiveX , It would be feasible? Does anyone have interest in that? It should be exclusive for ARC-enabled targets :D :D https://github.com/ReactiveX

Hey guys, Have someone suggested a Delphi syntax for pattern matching language support before? Something like Scala, Haskell or even C#7 support. Thanks :D

Stupid question - when I do Ctrl + Click (XE4) is there a shortcut to get back where I was?

You know that your UI sucks when a tabbed control shows five lines of tabs...

senCille MVC: The Database & Stub. (Second Part) https://sencille.wordpress.com/2016/02/22/sencille-mvc-the-database-stub/ https://sencille.wordpress.com/2016/02/22/sencille-mvc-the-database-stub/

We're excited to announce that the first beta of our new myCloudData.net service is available now! After a long and extensive experience with creating components for consuming REST services, we embark on a journey into a new territory of offering cloud services. The myCloudData.net service was conceived to make it extremely simple, fast and flexible to have data from desktop, web, mobile and IoT apps in the cloud. Visit http://myclouddata.net/ , create a free account and use our TMS Cloud Pack and TMS Cloud Pack for FireMonkey components to cloud enable your apps in minutes! http://myclouddata.net/

Ask Tag : DelphiXE7 , Android, Listbox I want to resize item font  in listbox , but nothing setting in properties ,,, how to size item font listbox ... thx ...

http://community.embarcadero.com/blogs/entry/skill-sprint-using-effects-animations-transitions-on-firemonkey-components I am a bit anxious to see the replays and resources from this Skill Sprint, it got me very excited :D, the site shows "coming soon", but nothing until now. Am I being too fast? :D Thanks :D http://community.embarcadero.com/blogs/entry/skill-sprint-using-effects-animations-transitions-on-firemonkey-components

Another one new feature of HTML Library print preview: Scale to fit. Unlike other "scale to fit" it is not just simple scaling of the document, but smart adjusting of font sizes and margins/paddings. As a result, table with 100% width will remain 100%.

Microsoft to acquire Xamarin, How much that will affect Delphi at the long term? http://blogs.microsoft.com/blog/2016/02/24/microsoft-to-acquire-xamarin-and-empower-more-developers-to-build-apps-on-any-device/

Hello guys can someone help me with my little problem here i put the question on stackoverflow , thanks in advance and i'm sorry i posted it like that http://stackoverflow.com/q/35600039/3211078

How do you usually split a large application into modules? Let's say you have a very big application, do you split it into separated .EXE's, .BPL's, .DLL's How do you do usually? ¿Pros, cons of an approach against the other? I'm almost decided for DLLs but want to hear from others, I'm talking of a Win32 desktop application here (inhouse modules only no third party extensions to the app), Firemonkey could be an option in the near future, who knows, I'm on XE3 still btw.

SSD in my laptop gave up the ghost over night. Reinstalling Delphi... serial number has reached the limit. Yay. Close to 40 minutes and still waiting for any response... This registration ordeal is such a joyful experience... /rant

On the left: bench app compiled with FastMM 4.991. On the right: same app, compiled with https://github.com/pleriche/FastMM4/tree/Locking_Improvements and /dUseReleaseStack.

Does anybody know how to contact Peter Laman, the author of the AutoTODO wizard? I found multiple references to his name but no contact details. I would like to add this functionality to GExperts. Yes I could rewrite the code, especially since I already fixed a few bugs and added support for class operators, but I'd still like to ask his permission. http://cc.embarcadero.com/Item/22336

Blog post "ObjectDebugger for Delphi 10 Seattle" at http://blog.marcocantu.com/blog/2016-february-objectdebugger-delphi10seattle.html http://blog.marcocantu.com/blog/2016-february-objectdebugger-delphi10seattle.html

Hey, what's going on ? When I click on the "Open" toolbutton, Seattle SP1 close itself without any error message ?! Same problem with File/Open ?!

MS Word -like column view mode in HTML Library Print Preview frame. Preview control is simply THtPanel, pages transition and navigation buttons are made via HTML/CSS.

Well I think this is perhaps the first time I've posted here :-( Anyway, for all those Delphi people out there, especially OTA fanatics I will be publishing in PDF form a collection of all my OTA blogs along with a number of new topics which I never got around to writing or publishing. The example code will be included along with code to Browse and Doc iIt & the Integrated Testing Helper. Dave.

Hi, How can I set TRestRequest.Timeout ? default value (30 000 milliseconds) keeps beeing used even when changing the value... Looks like timeout is hardcoded somewhere.

Delphi 10 IDE crashing: Don't get me wrong I am not having a stab at Emb/Idera I just want to try and work out what is more likely to be causing the crashes. Only two things have changed: 1. I have recently moved from Windows 8.1 to Windows 10 2. My laptop has been replaced with one of identical specification ( 16Gb RAM, 512Gb SSD, Intel Core i7 ) except that it is now dual core ( 2 cores, 4 processors ) when my previous laptop was quad core ( 4 cores, 8 processors ). When I work I quite often have 2 x copies of Delphi open and other tools such as SSMS and Atom ( text editor ) as well as Outlook. The frequency of crashes is higher than is used to be I just want to know what people think it might be : Windows or Cores or something else? Thanks Tony

OmniPascal 0.9 released! This release is about namespaces, full qualified identifiers and more context sensitive code completion. Learn more: http://blog.omnipascal.com/omnipascal-0-9-namespaces-and-more/

Out of curiosity I installed ERStudio as found on the latest RAD Studio ISO. My favorite so far is the about box in the ISQL tool. Really ... a Compuserve e-mail address ... I wonder if somebody at Embarcadero still receives e-mails sent to this address. BTW: My motivation for testing new tools drops almost to zero whenever I see such Win95ish user interfaces.

Meet the DAC for #MySQL 3.0.3 with improvements and bug fixes! #Delphi #iOS #macosx #cbuilder #Android  http://microolap.com/products/connectivity/mysqldac/news/detail.php?ID=1747 http://microolap.com/products/connectivity/mysqldac/news/detail.php?ID=1747

I develop new product: "Field common unit generator". Please tell me trial review. Thank you!

Hello everyone, I am conducting a search for a Senior Delphi Developer opportunity in Wilton CT, will consider both full time (preferred) and contract. Please email your resume/note to me directly at jobs@melissaanddoug.com if interested, will gladly provide details and job description. Consumer products company, great pay and benefits. Thank you! Programmer / Software Developer Position Specifications Information technology professional, participating in or overseeing a variety of assignments that provide for the development of applications using the Delphi Object Oriented Programming Language (Delphi 7). Position, under general supervision, conceives, creates, implements and maintains applications following defined project methodologies. Interacts with users of project teams to establish systems specifications and resolve problems.  Formulates system scope and objectives, and devises and modifies procedures to solve problems. Prepares detailed specs from which programs will be writte...

Does the Window menu in the Delphi IDE serve any useful purpose? Why is there a Component menu that has only four items in it: * New VCL component, which duplicates the File -> New -> Component functionality * Create Component Template, which could easily be moved to Edit or Refactor, or even Tools * Install Packages, which really belongs under File or Tools * Import Component, which again belongs under File or Tools Questions... I've just added an option to GExperts to hide the Window menu and move Components under tools. The reason for doing this: It reduces the width of the menu and allows me to move the toolbar to the right of the menu and so gain some more vertical space for the editor window. (Yes, I'm currently working on a notebook computer.)

Back in 2012, Paul Thornton had built a Delphi Unit Dependency Scanner (DUDS). I am working on a large legacy app, and in need of tools to discover what can be removed. Dead units, unneeded entries in uses clauses, and anything else that can reasonably be done to clean out the trash. The various commercial offerings are not wonderful, for this purpose. Wondering whether there is anything else around, other than Pascal Analyzer, Icarus, CodeHealer, and similar.

Question about Spring4d why is the comparer in TListBase const? procedure Sort(const comparer: IComparer ); overload; virtual; abstract; there is now a problem with a call like List.sort(TDelegatedComparer .Create(mySort)); These will leak memory

We have the first entry of this new publication! Subscribe! MVC for desktop, mobile and web applications. With Delphi & FireDAC! http://ow.ly/YAPjH (Sorry for publishing twice) http://ow.ly/YAPjH

Title

Found it (in Delphi 10 Seattle) Roar Grønmo

How safe is Delphis future? Who is the new Lead Compiler Engineer? Who is the new Chief Scientist?

As previously mentioned, I'm working on an IDE Wizard to create a new DMVC Framework app. I'm almost there -- but at the end, I get the dialog below. In an attempt to set the framework type, I've added: Config := (Project.ProjectOptions as IOTAProjectOptionsConfigurations).BaseConfiguration; Config.SetValue(sFramework, 'VCL'); but that doesn't help. I also tried: Config.SetValue('FrameworkType', 'VCL'); But that hasn't worked either. I also have this in my webmodule: {%CLASSGROUP 'Vcl.Controls.TControl'} That doesn't seem to help either. I note, too, that FrameworkType is read only in the OTA..... Any idea how to set the affinity for a webmodule in a Wizard?

As previously mentioned, I'm working on an IDE Wizard to create a new DMVC Framework app. I'm almost there -- but at the end, I get the dialog below. In an attempt to set the framework type, I've added: Config := (Project.ProjectOptions as IOTAProjectOptionsConfigurations).BaseConfiguration; Config.SetValue(sFramework, 'VCL'); but that doesn't help. I also tried: Config.SetValue('FrameworkType', 'VCL'); But that hasn't worked either. I also have this in my webmodule: {%CLASSGROUP 'Vcl.Controls.TControl'} That doesn't seem to help either. I note, too, that FrameworkType is read only in the OTA..... Any idea how to set the affinity for a webmodule in a Wizard?

Off-topic, but hey, that's what this section is for, right? Can anyone recommend a good, free icon editor?

When programming, what is your most common 'typo' in Delphi/C++/C#/PHP... ?

Practice for best productivity http://www.devmedia.com.br/duplicar-linha-de-codigo-no-delphi-com-apenas-um-atalho-excelente/17312

It seems that the PushNotification bug is not fixed with Seattle SP1 :( I do have the black screen on several phones under Lolipop. https://quality.embarcadero.com/browse/RSP-12347 https://quality.embarcadero.com/browse/RSP-12347

There are rumors that Allen Bauer is no longer at Embarcadero. Is that correct?

I just saw that David G Hoyle, who has a great blog about the ToolsAPI that I often link to when people ask for references, is writing a ToolsAPI book.   http://www.davidghoyle.co.uk/WordPress/?p=868 http://www.davidghoyle.co.uk/WordPress/?p=868

Hello, check the link, is this "F2084 Internal Error" error related to the XE4 compiler? Thanks. https://github.com/malcolmgroves/FluentQuery/issues/4

I want to do the right thing here. DUnitX has an expert that creates new DUnitX projects. I want to use it as a template to create a Delphi MVC project, and to create an Expert to create new controllers, etc. The DUnitX code is licensed under the Apache license. I'm going to obviously make a lot of changes to the code, filenames, etc. Am I even allowed to do this? If I am allowed to do this, what do I need to do to honor both the spirit and the letter of the license? Thoughts gratefully accepted.

Do you know of a consistent way to tell whether an RTTI context has been initialized or not? I need something that will work consistently and isn't dependent on some weird Delphi properties.

Comeback of "Delphi/Object pascal" in the top 10  :) http://www.tiobe.com/tiobe_index

Primož Gabrijelčič just started working on FastMM4? Sounds like a great news :) https://github.com/gabr42/FastMM4/commits/master

Originally shared by Diego Rigoni HI! I'm here to ask for suggestion! I have to do an app for android and Ios with many forms inside. there no business logic, only read from online rss and similiar. My customer has a already design a prototype interface, with a multiview menù on left with some button, each one opening a form with some information. end user can switch from one form to other without any order, only following its needs. in short: menu is the same for all forms; contents are all different. in windows it can be a simple MDI app :) i have 2 ideas to implement it : 1) create a "formBase" with only multiview menù on left and code for button to show forms. ( i can create all forms at startup, so only call show ) 2) create a "formcontainter" with menù and a Frame wich is loaded and changed at runtime when menù button is pressed. which idea is better for you ?

What do you really miss in the developer IDE?

Supporting multiple implementations... So in my AsyncIO library I'm planning on adding support for multiple TLS implementations (mbedTLS and SChannel to begin with, and possibly OpenSSL). So slightly simplified I will have two interfaces: - TLS configuration, which includes cipher settings and such - TLS context used for the actual communication. The various implementations would then provide some way to instantiate implementations of these interfaces. Of course there's nothing preventing a user from including two providers, and pass a TLS configuration from provider X when instantiating a TLS context from provider Y. This would not work in practice, because the implementations would rely on storing the certificate chains in a structure suited for that implementation. For example, the mbedTLS config object is opaque to me, I just create it and set its properties. I then pass this opaque handle when creating a mbedTLS context. So the way I'm currently implementing this is th...

What kind of IDE theme you prefer while coding.  Note: I added two type of choices for dark and light themes. If you have some visual impairment that prevents you from using any of themes please select MUST USE ... theme.

I have one Windows PC that, apparently, rescpects all requirements of FMX platform (Windows 7 SP1, DirectX 11.0, and so on). In this PC my last FMX application doesn't want to start (ECannotCreateTexture exception , with message "Cannot create texture for TCanvasD2D"). Ok, let's try with a blank project, one form with only one button on the center (no code at all). This minimal application starts (now I see the main form on the screen) but immediately after it crashes (I think when it tries to render the button on the form's canvas): now the exception is "Cannot create a swap chain for TCanvasD2D". After having searched the net for a solution (thank you David Millington ) I've put a FMX.Types.GlobalUseDirect2D := FALSE just before Application.Initialize. With this trick both the blank FMX project and my complex application run without problems and with good speed (despite the use of GDI+). My question is: how can I let my application tests, when it s...

Hi everybody, The last year, I have been involved in the Angular Schema Form project. It is a combination of JSON, JSON schema and a form format(in JSON) that produces a input form. The data entered is validated using the schema. Example here to play around with: http://schemaform.io/examples/bootstrap-example.html This makes it possible for a system/organisation to use centrally defined data structures, rules and input forms which can then be used in any view. It has already been used by large organisations, and JSON Schema in general is much, much simpler than XML Schema. Because that is enough. So I think that this is something that will be more common in the future. So I am going to try and create a Delphi-port of ASF: Delphi Schema Form. What I am doing here instead of hacking away is: 1. Checking if anybody would be interested in such functionality? Maybe contribute? 2. Asking a question, because I really only see one catch that would hinder the development of delphi-schema-form;...

Hi Everybody, Been developing in Delphi since 1998, save for the last two years. However I am now back using Delphi. I will use it to develop an app for the Business Process Management system I am building.

Hi there. I have build a little program to analize the uses usage and so the complexity of a program/unit. See the Screenshot below. File can be found on http://www.b-s-t.de/usesanalyzer Commants are welcome. See it as alpha-version. :-)

I was wondering whether this undocumented ExtraUnits feature of CodeInsight is still available in higher IDE? I can't make it work in Delphi 10 Seattle. (I have tried some alternative locations without any luck) http://edn.embarcadero.com/article/27913 http://edn.embarcadero.com/article/27913

Is there an "How-To Guide: Upgrading Your Delphi FMX Applications To Support 4K Displays" out there ? I've only found VCL examples. I'm developing an FMX application that just runs fine on my laptop (1920*1080) but looks sooo small on our Surface Pro 4 tablet (4k screen display). In project's options, High DPI aware option is already ticked but nothing change on the Surface Pro 4 tablet ! Any comment ?

I'm having trouble with TWebBrowser (D10 Seattle on Windows 10). I get always the error  'Could not obtain OLE control window handle'. I've simply created a form, dropped a TWebBrowser and try to visualize a local HTML file. If I do this in a simple test project it works, if I do this in one of my complex projects I get that error. I've tried everyting found on the web: create the TWebBrowser at runtime (in several ways), use of coinitiliaze/couninitialize, ...  but I'm not able to solve this problem. Any ideas?

androidgdb.exe crashes after deploy and to debug  a simple "Hello World" app for Android. My system info is: Windows XP sp3 Delphi XE7 Sony Xperia S lt26i Why?

Hello guys, nice to see you...., i am new member here, from Indonesia..

Enable automatic decompression for (deflate, gzip, etc) in REST client components https://quality.embarcadero.com/browse/RSP-13625 http://quality.embarcadero.com

Hi all, I use gifimage.pas, from http://melander.dk/delphi/gifimage/ (as it is able to create animated gifs) The problem is, it uses asm and if I change my project to target 64 bit, then it chokes on the asm command in gifimage.pas thanks for any pointers :) Brian http://melander.dk/delphi/gifimage/

Seems like a bad idea to use a TRectF as storage for TBound: https://quality.embarcadero.com/browse/RSP-13749 This call in TStyledControl.ApplyStyleLookup uses the wrong values for SetBounds: StyleControl.SetBounds(StyleControl.Margins.Left, StyleControl.Margins.Top, Width - StyleControl.Margins.Width, Height - StyleControl.Margins.Height); Margins is of type TBounds and TBounds.Width calls TRectF.Width, which simply returns Right - Left (as we expect from a rectangle). So in the end the expression Width - StyleControl.Margins.Width turns out as Width - StyleControl.Margins.Right + StyleControl.Margins.Left, which makes the width and height parameters in SetBounds larger as they should. The developer of this code must have assumed that Margins.Width returns the sum of the left and the right margin, which is not the case. https://quality.embarcadero.com/browse/RSP-13749

As I've continued to play with my async IO stuff, I've found that the programs do get a bit hard to read and maintain. You got handlers here and handlers there, and the flow between them is not easy to disentangle at first. So I got inspired by Boost.Coroutine, which on Windows uses fibers to make "async look sync". The idea is you can have your cake and eat it: you get the benefits of async IO, while being able to write code which looks synchronous. I just whipped this up in a couple of hours, so naming and implementation could probably do with a bit more polish, but here's the core result:   inputStream := NewAsyncFileStream(Service, InputFilename, fcOpenExisting, faRead, fsRead);   serviceContext := NewIOServiceCoroutineContext(Service);   future := NewIOFuture(serviceContext);   // queue the async read   // this will return once the read has completed   bytesRead := AsyncRead(inputStream, FBuffer, TransferAll(), future);     if (not future.Result.Success) and ...

A console application. I add FastMM4 to uses in the first place. I run the program and debug. Unit FastMM4 is ignored, it does not perform initialization and finalization section. At GetMem() (in my code) I press F7 and move on ...to GETMEM.INC. What am I doing wrong? Is console app can not use FastMM? I use Delphi XE8. example src: http://wklej.org/hash/1157a5d06c6/ http://wklej.org/hash/1157a5d06c6/

in the next Delphi release is possible to have a persistent filter for properties/methods in the Object Inspector?

Nick Hodges​ Didn't know I can find it in my native language 😄

RSP-13746: Code Completion for compiler directives, conditional compilation.  I always end up in the help files whenever I need to insert a compiler directive. It would be nice if code completion worked for directives and perhaps also conditional defines / conditional compilation switches (if/ifdef, etc)!  http://docwiki.embarcadero.com/RADStudio/Seattle/en/Delphi_Compiler_Directives_(List)_Index I'd love to be able to write {$ and press ctrl-space and pick the right switch. I'd love to be able to write {$ifdef and press ctrl-space and select from defines in scope. I'd love to be able to write {$warn and press ctrl-space and pick from the available warnings. https://quality.embarcadero.com/browse/RSP-13746?filter=-2 https://quality.embarcadero.com/browse/RSP-13746?filter=-2

RSP-13746: Code Completion for compiler directives, conditional compilation.  I always end up in the help files whenever I need to insert a compiler directive. It would be nice if code completion worked for directives and perhaps also conditional defines / conditional compilation switches (if/ifdef, etc)!  http://docwiki.embarcadero.com/RADStudio/Seattle/en/Delphi_Compiler_Directives_(List)_Index I'd love to be able to write {$ and press ctrl-space and pick the right switch. I'd love to be able to write {$ifdef and press ctrl-space and select from defines in scope. I'd love to be able to write {$warn and press ctrl-space and pick from the available warnings. https://quality.embarcadero.com/browse/RSP-13746?filter=-2 https://quality.embarcadero.com/browse/RSP-13746?filter=-2

Oooook.... this is getting worrying now... Here I am stuck again with the same error as the night before but with a twist: I could not find any other file whose name ends with the same part of the one I am trying to add. Hence, this sounds like I have found a second issue in code that, really, should be straightforward. Marco Cantù this is getting worrying now.

MVC and Delphi At work we have been discussing the MVC model as part of a project, but the more I think about it, the less appealing it feels. To me, it seems like turning classes into a graphic component is far more appropriate than making a Model object, a View object and a Controller object. Am I missing something?

We're having some problems registering generic classes to factories in Delphi. Assume I have a parameterized class MyClass with interface MyInterface . I wish to implement a factory that has a GetInstance (const AType: string) method, which should return a MyInterface , with implementing class of course depending on the string. It also has a Register (AFunc: TFunc ; AType: string) method, which should allow me to extend the factory. This has proven a rather difficult task, as we wish to implement a standard object to return, only depending on T. But for T = double, we want a different default implementation. The thing is, we don't want to hardcode these defaults into the factory. We want to be able to register them and allow them to be overwritten by the user, should they wish to do so. Our current strategy is to have the AType argument default to '', which makes it fairly straightforward to implement defaults, but that of course does not allow us to call Register (...

Just made my first (simple) github contribution to RFindUnit ( https://github.com/rfrezino/RFindUnit ), with the help of this simple, no deep shit tutorials for contributing to open source projects via github. Also check this short guide:  http://rogerdudler.github.io/git-guide/ If you have used SVN like me, these two links should be enough to get you going, I can foresee I'll be contributing to more projects in the future :) http://hisham.hm/2016/01/01/how-to-make-a-pull-request-on-github-a-quick-tutorial/

Access Violation When Switching From 32-bit to 64-bit I'm working on a project in Delphi 10 Seattle. Everything works great in 32-bit but I get an AV when I try and run it in 64-bit. When I click "Break" in the AV window it takes me to line 12472 in the Data.DB.pas file. (see attached photos) I've never had to traced down an error like this before. How do I go about tracking this down?

Hi, I'm a Delphi freelancer from Romania, doing pascal/Delphi since high-school, 10+ years working experience in Software Development, freelancer for almost 9 years. Always open to new work and challenges.

Hello! This would be hilarious if it weren't appalling . Base form is included in project and is fairly general. Editor form (inherited from previous) is included and heavily turns towards an editor behavior. This also has an interface in the constructor where several "concrete" frames doing the actual editing can be passed. Other two form inherit from the editor one respectively to specialise things further. Compile. [dcc32 Error] Systematic.Editor.Base.pas(55): E2003 Undeclared identifier: 'TsmBaseRibbonForm' Except that if you hover with the mouse, it finds the form alright and even tells you what file it's located in. Needless to say, in the proof of concept everything works just fine! Suggestions?

So I just hit a weird issue in our program. A quick search later and it seems I'm bumping into this http://qc.embarcadero.com/wc/qcmain.aspx?d=125403  (the version I'm bugfixing is built using XE6). The workaround listed (in my case blanking indexfieldnames in OnBeforeClose) works. Now... imagine if this had been filed to QualityPortal instead. I would have had to remember to search it, and maybe wouldn't have found it as Google does fuzzy searches very well.  And due to the lower visibility it likely would have fewer comments as well... So yeah EMB/Idera, please revisit the choice of walling up QualityPortal. http://qc.embarcadero.com/wc/qcmain.aspx?d=125403

So I'm back to (trying to) migrate 100% to FireDAC and running into a seemingly stupid/noob/perplexing problem against an IBM iSeries. (Existing software uses variously BDE [yes, I know], DBX or ADO, all fine, but all legacy dependencies that I'd like to get away from.) The basic problem is that basic dataset based update code simply does not work. That is, setting up a TFDConnection, TFDQuery and then attempting to update a table just simply does not work. The dataset is eiter read-only, or if I "force things" (for example by setting "UpdateNonBaseTables" or by unsetting "UpdateOptions.CheckReadOnly") then errors are generated. Specifically, setting "UpdateNonBaseTables" to True allows the dataset to go into edit mode but then generates the following error: EODBCNativeException with message '[FireDAC][Phys][ODBC][IBM][System i Access ODBC Driver][DB2 for i5/OS]SQL0104 - Token . was not valid. Valid tokens: , FROM INTO.'...

So I'm back to (trying to) migrate 100% to FireDAC and running into a seemingly stupid/noob/perplexing problem against an IBM iSeries. (Existing software uses variously BDE [yes, I know], DBX or ADO, all fine, but all legacy dependencies that I'd like to get away from.) The basic problem is that basic dataset based update code simply does not work. That is, setting up a TFDConnection, TFDQuery and then attempting to update a table just simply does not work. The dataset is eiter read-only, or if I "force things" (for example by setting "UpdateNonBaseTables" or by unsetting "UpdateOptions.CheckReadOnly") then errors are generated. Specifically, setting "UpdateNonBaseTables" to True allows the dataset to go into edit mode but then generates the following error: EODBCNativeException with message '[FireDAC][Phys][ODBC][IBM][System i Access ODBC Driver][DB2 for i5/OS]SQL0104 - Token . was not valid. Valid tokens: , FROM INTO.'...

How to define a custom style on an visual component located on a frame ?

Hello, I need a clear button on the right side of my edit components. I was able to add an TEditClearButton on each of my Tedit components but don't see this for TComboBox or TEditComboBox. I want to keep my UI unified by having an "clear" button on all my controls. Does anyone know how to do this with Delphi Seattle ?

The Delphi Science blog page has a great tutorial and examples for making a pipe in Firemonkey and various modifiers such as bending a pipe. However it does not compile under XE5 due to what appears to be breaking changes between XE2/XE3 and higher versions. Despite numerous comments/requests on the site for XE5 support, it does not appear that the owner will help. Is there anyone out there willing to help get this compiling under XE5 and greater? I think it will be a really useful component for Firemonkey and since EMB/Idera does not provide built-in support for these things it will be good for the community (and me!). If they are working, it would be great to include these type of things in the Delphi samples Git library. https://delphiscience.wordpress.com/2012/11/14/making-a-pipe-with-bend-feature-using-delphi-firemonkey/

Experimental GExperts Version 1.38 2016-02-15 released From a user perspective the main new feature is the configurable popup menu in the editor window which can be used to call the individual experts without having to assign multiple shortcuts or using the mouse. By default, the shortcut is Ctrl+H and the experts that can be called are these ... http://blog.dummzeuch.de/2016/02/15/experimental-gexperts-version-1-38-2016-02-15-released/

I can't seem to reliably determine if an existing text file is open in notepad. I've tried numerous methods including creating a TFileStream with fmOpenReadWrite or fmShareExclusive - it always creates a stream without conflict. I've tried the "IsFileInUse" code that seems to be popular: function IsFileInUse(const fName: TFileName): Boolean; var    HFileRes: HFILE; begin    Result := False;    HFileRes := CreateFile(PChar(fName),                           GENERIC_READ or GENERIC_WRITE,                           0,                           nil,                           OPEN_EXISTING,                           FILE_ATTRIBUTE_NORMAL,                           0);    Result := (HFileRes = INVALID_HANDLE_VALUE);    if not Result then      CloseHandle(HFileRes); end; I've tried to see if the file is locked. And I've tried to determine the file last accessed time to see if the time is within a certain period close to the current time. Never returns what is supp...

Bad Delphi Code: The Competition What’s the worst code you can write? Announcing the Bad Delphi Code competition. Prize: a copy of Navigator (edit: and FixInsight!) and eternal fame and/or infamy in the Delphi community (*fame not guaranteed.) Write the worst believable code snippet or small app that you can, in the spirit of amusing, entertaining, or horrifying the reader. Read on for an example, submission form, and full rules, which are worth reading because of the Bonus Points section ;) The competition ends in approximately one month, Sunday March 13th, giving you one final weekend to write your entry, because hey, what's bad code all about if not writing to a deadline? https://parnassus.co/bad-delphi-code-the-competition/ https://parnassus.co/bad-delphi-code-the-competition

Make your launcher application for Android with Delphi 10Seatle in minutes. Here the article to do this: http://www.synaptica.info/2016/02/15/make-launcher-app-android/ https://youtu.be/CQFkCYRZ9bA https://youtu.be/CQFkCYRZ9bA

I want to create a Firemonkey app which has text sitting on the Windows taskbar, or OSX top bar. Anyone have pointers or ideas how I should go about?