Delphi Developers Archive

I have a record of arrays where i search and add new items and want to speed up things. removing ansicompare was a big step forward bit as much the count of records gets mor as slower the array gets. Thanks for any hints. type __params = record vname:string; vvalue:variant; vdescription:string; end; c__params = tArray<__params>; // I'm searching within the c__params array as follows: function __tc_find(vData:c__params; vName:string):integer; var vmax, i:integer; begin result:=-1; vname:=trim(lowercase(vname)); if vData<>nil then begin vmax:=length(vData)-1; for i:=0 to vmax do begin // if ansisametext(vData[i].vname, vname) then begin ** very slow ** if (vData[i].vname=vname) then begin result:=i; break; end; end; end; end; // and i'm adding new values with this procedure __tc_add(var vparams:c__params; const vname:string; const vwert:variant; cons

EXE demo of StarDocs UniGUI web document viewer is now available. You can download it here: https://www.gnostice.com/downloads/stardocs/UniDocumentViewerDemo.zip This demo is based on the article 'Using StarDocs with UniGUI'. You can find the article here: https://www.gnostice.com/nl_article.asp?id=350 The GitHub repo for the SDK and the demo source can be found here: https://github.com/Gnostice/StarDocs-SDK-Delphi You will need to install the UniGUI product or at least the UniGUI run-time to run this demo. You will also need the StarDocs server credentials, which you will be prompted for at startup. You can create a free cloud account or install the on-premises edition. https://www.gnostice.com/nl_article.asp?id=350

RvPiano. Play and record music on your mobile piano, and then send the music to the Arduino buzzer via Bluetooth. Instructables Complete Instruction: https://www.instructables.com/id/RvPiano-Music-From-App-to-Arduino/ film: Ultrasonic Gesture Control Video: https://goo.gl/4cxYoD Record, play, save, read and send music: https://goo.gl/fJDCCn Delphi / Arduino Source Code, Schematics full download. http://www.rasvector.url.tw/Download%20Pages/Download_Arduino.htm http://www.rasvector.url.tw/Download%20Pages/Download_Arduino.htm

EDIT: Answered. The TTreeView.HideSelection was set to TRUE, so you needed TTreeView.SetFocus() to reflect in the UI the current state of TTreeView.selected<>NIIL. Thanks! TTreeView.SetFocus() before TTreeView.TTreeNode.selected:=TRUE After about an hour of trying to set the selected TTreeNode in a TTreeView, I started googling and found this (as well as other links) that indicate you must perform a TTreeView.SetFocus() in order to programatically set the selected TTreeNode. It works, I plugged the code in and it's working great now. However, I don't understand why? Why do you need to SetFocus()? I don't believe you need to do it for a TListView. The only way I remember things, is if I remember the reason for it. Any ideas why? (beyond, "the control needs to have the focus", as that's obvious, but doesn't explain why) PLATFORM: Delphi 10.2 on Win10 with VCL

EDIT: Answered. The TTreeView.HideSelection was set to TRUE, so you needed TTreeView.SetFocus() to reflect in the UI the current state of TTreeView.selected<>NIIL. Thanks! TTreeView.SetFocus() before TTreeView.TTreeNode.selected:=TRUE After about an hour of trying to set the selected TTreeNode in a TTreeView, I started googling and found this (as well as other links) that indicate you must perform a TTreeView.SetFocus() in order to programatically set the selected TTreeNode. It works, I plugged the code in and it's working great now. However, I don't understand why? Why do you need to SetFocus()? I don't believe you need to do it for a TListView. The only way I remember things, is if I remember the reason for it. Any ideas why? (beyond, "the control needs to have the focus", as that's obvious, but doesn't explain why) PLATFORM: Delphi 10.2 on Win10 with VCL

EDIT: Pretty sure Fix-Pack solved the speed issue, as I installed it and things started flying. I was trying to be as stock as possible, in order to understand the advantages of D10.2 vs XE2 (what I was using). Also tried Delphi 10.2 Update 1, same speed issue. Speed Issue: Find Declaration I'm experiencing a delay in using the "Find Declaration" function in the IDE. Specifically, when I use it, it can take anywhere from 1 second to 20 seconds, the mouse turns to a WAIT and the IDE stops processing messages. There doesn't seem to be any rhyme or reason and I haven't noticed a difference between code that just compiled or syntax checked vs lots of edits. What can I do to speed things up? I'm running a stock 10.2 install with no Fix-Pack. I have "Code Insight" and "Template Completion" turned OFF. But everything else is defaults. My main *.dpr in the project has 137 units in the interface's uses clause.

EDIT: Pretty sure Fix-Pack solved the speed issue, as I installed it and things started flying. I was trying to be as stock as possible, in order to understand the advantages of D10.2 vs XE2 (what I was using). Also tried Delphi 10.2 Update 1, same speed issue. Speed Issue: Find Declaration I'm experiencing a delay in using the "Find Declaration" function in the IDE. Specifically, when I use it, it can take anywhere from 1 second to 20 seconds, the mouse turns to a WAIT and the IDE stops processing messages. There doesn't seem to be any rhyme or reason and I haven't noticed a difference between code that just compiled or syntax checked vs lots of edits. What can I do to speed things up? I'm running a stock 10.2 install with no Fix-Pack. I have "Code Insight" and "Template Completion" turned OFF. But everything else is defaults. My main *.dpr in the project has 137 units in the interface's uses clause.

I just commited a version of (my suggestion for) DelphiSpringTrees; this is the first version that I'm happy with. Features: - Fast - Does not use or require recursion (except in unit-testing). - Does not need an explicit (or implicit) stack. - Uses parent pointers for very fast traversal. - Stores node data in a jenny-array (TArray >) to prevent memory fragmentation. With some trickery only the last item in this array is ever added/removed, so there are never gaps. It is safe for managed types. It comes with a full set of unit tests, and a supports all the Spring4D features plus a few extra goodies. Feel free to suggest improvements (esp performance improvements). Currently RedBlackTree and RedBlackTree are the only supported types. An AVL tree is planned. The tree is not threadsafe, but I've made some preperations so that adding in threadsafety is not impossibly difficult. https://github.com/JBontes/DelphiSpringTrees Currently it requires XE7 (because it uses the int

Just passing this along as I noticed this Delphi opening based on a recent newsgroup thread. Their quote was "We are based in Vancouver, Canada and have about 10 Delphi Developers at our office. If we could find good / experienced Delphi developer, we would hire 3 or more immediately" https://www.3log.com/about-us/careers/

I need sign XML files (XAdES) using hardware cryptocard reader (USB). I found secureblackbox library that support this signing kind https://www.secureblackbox.com/sbb/XMLBlackbox/ but... $1800 only for signed files is too expensive to me. I search for alternative solution, free or payd, but in lower price. https://www.secureblackbox.com/sbb/XMLBlackbox/

Let's extend TBitmap with a GDIP loader :) TBitmap.GDIPLoadFromStream can load any GDI+ supported format (JPEG, PNG, TIFF) https://github.com/tothpaul/Delphi/tree/master/GDIPBitmap https://docs.microsoft.com/en-us/dotnet/framework/winforms/advanced/using-image-encoders-and-decoders-in-managed-gdi https://github.com/tothpaul/Delphi/tree/master/GDIPBitmap

PostgresDAC 3.4.0 is out! This version introduces support for the latest PostgreSQL and OpenSSL libraries. Support for NEXTGEN and Lazarus (FreePascal) compilers improved. Create robust native apps using Delphi and C Builder! There is still 2017 Black Friday & Cyber Monday Sale in progress! Get 30% off! http://microolap.com/products/connectivity/postgresdac/ http://microolap.com/products/connectivity/postgresdac/

Anybody else have a gripe with nested if-then-else statements in Pascal? What if we had the following statement/syntax available in Pascal? I called it IFCASE for a lack of a better word. In essence it is a CASE statement and will exit as soon as the first true case is reached. Do you think it makes for easier reading and for less clutter? IFCASE when ((X > Y) and (Y < 100)) then begin ... end; when ((X > Z) and (Z < 100)) then begin ... end; when ((X < Y+Z) and (X < 100)) then begin ... end; else begin ... end; END; Instead of: if ((X > Y) and (Y < 100)) then begin ... end else begin if ((X > Z) and (Z < 100)) then begin ... end else begin if ((X < Y+Z) and (X < 100)) then begin ... end else begin ... end; end; end;

Update: Hartmut David did put his code on GitHub. Thanks!

Maybe someone already notice that: When using the keyboard with Android we should scroll the screen so the text box can be editable. Well, with Delphi Tokyo Update 1 and using a QHD smartphone (LG G6), ie., that will not work. I opened the ScrollableForm demo and it also fail, so I check and figure out that CalcContentBoundsProc() function uses the global ClientHeight and that var returns 0 as value. I changed to Screen.Height and even not perfect it works now, because i still need to use the finger to get more space. Any advice on that?

The advantage of using Exit( ) instead of a plain Exit ? You can place a breakpoint !

Originally shared by Boian Mitov Lets have some Delphi fun at SoCal Code Camp in USC, LA :-) I will be presenting 4 sessions at SoCal Code Camp in USC, Los Angeles on December 2nd & 3rd Here are my 2 Delphi related sessions :-) #Delphi #OpenWire

I can't figure out why I get a memory leak with this code: TMyClass = class private fList: TObjectList ; public constructor Create; destructor Destroy; override; end; constructor xxxx.Create; begin inherited fList:=TObjectList .Create; end; destructor Destroy; begin fList.Free; inherited; end; Are there any conditions (without any raised exceptions) that the above code will leak memory? Clarification: What is leaking is fList

I know it's nearly Christmas, but at my desk it's Spring(4D) again. I am getting the exception "Type is missing a guid: Systematic.BaseTypes.DevExp.TFieldFactory." So what I have (simplified) is below and the call stack at the end I've checked that all interfaces have GUIDs. Any suggestions greatly appreciated Interface Type IMyField = interface ['{7A54F949-C1C9-474C-B848-3234FBAAB48E}'] {procs and stuff} end; TMyFieldBase = class(TInterfacedObject, IMyField) public constructor Create(aOwner: TComponent; aGroupName: string); end; TMyFieldOne = class(TMyFieldBase) end; TMyFieldTwo = class(TMyFieldBase) end; Implementation var MyContainer: TContainer; Type {M+} TFieldFactory = reference to function(AOwner: TComponent; aGroupName: string): IDevExCustomField; {$M-} Initialization MyContainer := TContainer.Create; MyContainer.RegisterType ('One'); MyContainer.RegisterType ('Two'); MyContainer.RegisterFactory .AsFactory('One'); MyCon

Delphi 10.2 fmx Android This very simple program to display styles give me fmx segmentation fault(11) when used from PopupBox private { Private declarations } resname: string; style: TFMXObject; This is OK <<<<<<<<<<<< procedure TForm1.Button2Click(Sender: TObject); //var //style: TFMXObject; begin style := FMX.Styles.TStyleManager.GetStyleResource('GoldenGraphite'); <<<< OK if style <> nil then TStyleManager.SetStyle(style); end; This is bad segmentation fault(11) <<<<< procedure TForm1.PopupBox1Change(Sender: TObject); //var //resname: string; //style: TFMXObject; begin resname := PopupBox1.Text; style := FMX.Styles.TStyleManager.GetStyleResource(resname); <<< BAD if style <> nil then TStyleManager.SetStyle(style); end;

Hello Andreas Hausladen, is it possible that your JsonDataObjects has a bug on empty string values? I'm trying your component right now but output for empty strings is like this: { "adressen": [ { "k_nummer": 11, "k_kurz": "matchcode", "k_name": "Muster GmbH", "k_name1": , "k_name2": ... snip ... should the empty-string not be quoted with " like this "k_name1": "", Or is it possible that i'm missing something?

Scopes and names can really be deceiving. A root class and a descendant class can both have public fields, properties and methods with the same name. I really wonder why this doesn't raise a warning or a even a hint? (Berlin 10.1.x / Tokyo 10.2.x) Output: c: 1 TClass1:1 TClass1.PropTest:1 TClass2.Test:2 TClass2.PropTest:2 TClass1.Oops Press any key: Code: program PublicScope; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils; type TClass1 = class public Test: Integer; constructor Create; virtual; procedure Dump; virtual; procedure Oops; property PropTest:Integer read Test; end; TClass2 = class(TClass1) public Test:Integer; constructor Create; override; procedure Dump; override; procedure Oops; property PropTest:Integer read Test; end; { TClass1 } constructor TClass1.Create; begin Test := 1; end; procedure TClass1.Dump; begin Writeln('TClass1:', Test); Writeln('TClass1.PropTest:', Test); end; procedure T

I have a FR5 report that has two dynamically sized TfrxMemoViews. They start out about 20 high and grow as needed. Now I have a record that has more than enough data to cause the Memo to exceed the page height. How can I the data flow into a MemoView on the next page?

In my application, Open document management architecture(ODMA) is not working with later versions of Microsoft Word(2013,2016). Can anyone help me to resolve this issue ? It is not copying word document to the specified location.(It is not throwing any error). The code is written in Delphi XE8 version.

In my application, Open document management architecture(ODMA) is not working with later versions of Microsoft Word(2013,2016). Can anyone help me to resolve this issue ? It is not copying word document to the specified location.(It is not throwing any error). The code is written in Delphi XE8 version.

EDIT.....ANSWER: Right-click and run Delphi IDE as "Run as Admin".. remove the template. Start IDE normally. .. IMHO, you shouldn't have to do this. Live Templates: IF statement I'm having troubles turning OFF the template for the IF statement, as I find it's invocation results in a 5 backspaces from me every time (since I wrap conditions in parentheses). However, when I REMOVE it from the IDE (under the following location), it just comes back when I start the IDE again. Edit -> Tools Window -> Templates Delphi 10.2 under Win10 pro

EDIT.....ANSWER: Right-click and run Delphi IDE as "Run as Admin".. remove the template. Start IDE normally. .. IMHO, you shouldn't have to do this. Live Templates: IF statement I'm having troubles turning OFF the template for the IF statement, as I find it's invocation results in a 5 backspaces from me every time (since I wrap conditions in parentheses). However, when I REMOVE it from the IDE (under the following location), it just comes back when I start the IDE again. Edit -> Tools Window -> Templates Delphi 10.2 under Win10 pro

In 10.2 Tokyo, does the procedure TRESTHTTP.AddServerCookie in REST.HttpClient.pas actually add a server cookie? In Seattle and Berlin it's not doing anything if cookies are allowed.

Need a pocket development system? Joe has a neat little setup. Originally shared by Joe C. Hecht Look what TJoe has going - Lazarus on a Nexus Phone Running Linux Thank you Kris Kamil Jacewicz​

What is the status on Berlin 10.1.2 VCL development and Windows 10 Build 1709? Will it behave, or is Tokyo 10.2.x or a hotfix required?

What is the status on Berlin 10.1.2 VCL development and Windows 10 Build 1709? Will it behave, or is Tokyo 10.2.x or a hotfix required?

Blog post: Introducing mORMot-JWT: a "new" JWT implementation #Delphi #JWT #REST #MARS https://blog.andreamagni.eu/2017/11/introducing-mormot-jwt-a-new-jwt-implementation/ https://blog.andreamagni.eu/2017/11/introducing-mormot-jwt-a-new-jwt-implementation/

Does anybody know of a ide add-on to be able to use 3rd party components CHM help files with Delphi XE3 (which uses that sh*t help format)? I'm willing to write my own ide add-on for this functionality, but first thought I would ask - in case somebody already did something like that and can save me some time and effort.

ANN: StyleControls VCL v. 3.85 released! http://www.almdev.com 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 (memo, editors, listbox, combobox, 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 of the styled form and improved behavior of the form • special component to add alphablend transparency and wallpapers for the styled menus • special virtual image list component, which can be HQ scaled to any size with any scale factor • custom images support for custom style in many controls (you can define custom images collection, whi

I'm looking for a Pascal / Delphi implementation of InsertionSort that works indirectly on the data by calling two methods: 1. function Compare(_idx1, _Idx2:integer): integer 2. procedure Swap(_Idx1, _Idx2: integer); The first is not the problem, but so far all implementations I have found either work directly on arrays or would require a MoveByOne(StartIdx, EndIdx) operation and the possibility to temporarily store one element. Why do I want this? My implementation of QuickSort in dzlib works with the two methods mentioned above. I would like to implement a cut off where it switches to InsertionSort as mentioned in all articles about QuickSort optimization. So far I am using CombSort, which works but is not quite as efficient as InsertionSort would be.

Originally shared by Thomas Mueller (dummzeuch) You might have noticed that I haven’t blogged as much as usual and that there have been no recent updates to GExperts either. The reason of course was that I was busy doing other things. Some of them were programming related and one of these was writing a… http://blog.dummzeuch.de/2017/11/25/tdzstreamcache-class-for-caching-access-to-any-tstream/

procedure Test(Value: Integer); overload; begin ShowMessage('int') end; procedure Test(Value: Double); overload; begin ShowMessage('dbl') end; const cValue: integer = 123; begin {1} Test(11 * Screen.PixelsPerInch / 96); {2} Test(cValue + Round(11 * Screen.PixelsPerInch / 96)); {3} Test(cValue + Round(11 * 96 / 96)); {4} Test(Round(11 * Screen.PixelsPerInch / 96)); {5} Test(Round(11 * 96 / 96)); end. What function you expect to be called at 1, 2, 3, 4, 5?

I have made a program to connect a device (cellular) to an IP (wifi) ,for debug purposes. The program was influenced by Android WiFi ADB - IntelliJ/Android Studio Plugin If you find it useful you have it at http://limelect.com/delphi-2/ or http://limelect.com/downloads/connect-adb-to-device-program/

Guys I need some help with communicating between Delphi apps, any input would be much appreciated. Here's a link to my question on StackOverflow: https://stackoverflow.com/questions/47487659/data-transfer-between-different-delphi-version-apps-via-wm-copydata https://stackoverflow.com/questions/47487659/data-transfer-between-different-delphi-version-apps-via-wm-copydata

Does anybody know how to change the volume on a TALMasterVolume component from the AudioLab pack by Boian Mitov ?

Blog post "Cross JIRA Analysis with FireDAC CDATA JIRA Connector" at http://blog.marcocantu.com/blog/2017-november-cross-jira-analysis-cdata-connector.html http://blog.marcocantu.com/blog/2017-november-cross-jira-analysis-cdata-connector.html

Dear friends! Dear developers! Take a 30% discount on any of our products and subscriptions! Just use #BlackFriday code on any order page. http://microolap.com/products/connectivity/postgresdac/ http://microolap.com/products/connectivity/mysqldac/

Fellow Delphi developers, #BlackFriday 60% discount on HelpNDoc Pro till #CyberMonday only. Hurry up: http://ow.ly/DAPd30gMMYf -- HelpNDoc is a powerful help authoring tool which can generate CHM, HTML, Word, PDF, ePub, Kindle and Qt Help files from a single source! #Discount link: http://ow.ly/DAPd30gMMYf Best regards, John, HelpNDoc team. http://ow.ly/DAPd30gMMYf

We just did a major update to the StarDocs UniGUI Document Viewer. PDF form filling in a UniGUI app is now made really simple. If you are building web apps with UniGUI, please do have a look. Originally shared by Gnostice.com Gnostice #StarDocs now includes a full-fledged #UniGUI Document Viewer for your UniGUI web applications. The UniGUI document viewer now has deep support for interactive PDF form filling, including programmable events for form elements. Here is a detailed article on the possibilities: https://www.gnostice.com/nl_article.asp?id=350&t=Using_StarDocs_with_UniGUI You can get the StarDocs SDK and the UniGUI components from the following GitHub repo: https://github.com/Gnostice/StarDocs-SDK-Delphi You can get the StarDocs API server/cloud account from the following link: https://www.gnostice.com/StarDocs.asp?show=trial https://www.gnostice.com/nl_article.asp?id=350&t=Using_StarDocs_with_UniGUI

Any good Black Friday sales on Delphi components?

I noticed there were a few new demos in GetIT, so I downloaded the Card Panel one as I thought it would be interesting, but when I did none of the components showed and Delphi complained that it could not find Vcl.WinXPanels. Anyone got a clue what has gone wrong ? I'm guessing I need Vcl.WinXPanels, but if that was the case why didn't the demo download and install it. I've searched the internet to no avail. Got to the Wiki page for this one Embarcadero at: http://docwiki.embarcadero.com/Libraries/Tokyo/en/Vcl.WinXPanels This would kind of imply that it was there already, but it isn't !! http://docwiki.embarcadero.com/Libraries/Tokyo/en/Vcl.WinXPanels

We FINALLY have docwiki back a bit slower... but it is there... hopefully they will be able make a fire under it...

does anyone know of any Spring.Container examples (preferably non trivial) that show how to build an app with a container just referenced from the Composition Root?

Does anyone know what's happened to the Docwiki? It seems to have been down for a few days now and comes back with a 503 Service Unavailable?

Does anyone know what's happened to the Docwiki? It seems to have been down for a few days now and comes back with a 503 Service Unavailable?

Originally shared by TRichView We've released new versions of our rich text editing #VCL components for #Delphi: #TRichView 17 and ScaleRichView 8. Changes since the last public update: - possibility to draw pages on the specified canvas instead of printing; all page features are supported: margins, footnotes, endnotes, text boxes, all types of headers and footers; - option to use VCL theme colors in editors (they are always used in user interface, but disabled in documents by default); - printing pages in reverse order, printing only odd/even pages (both in TRVPrint and TSRVPrint) - Japanese UI language (in RichViewActions, ScaleRichView and ReportWorkshop) - all our mouse cursors have large versions for using on high-dpi screens; - using a system caret width in editors (defined in "ease of use" system parameters), with possibility to customize caret size and position (including an option to use a next character width for the caret) - improved functions for headers and f

Question I develop on the raspberry PI (1 2 and 3) using FPC it would be great is Delphi could in the future add support for that platform (I see you can, and I did get it working, run android on a raspberry pi3 and Delphi does work compiling and deploying to that but that is still a beta solution (android for raspberry pi ...the video output is not very well supported yet, ec)

Is possible to pass an interface (instance) from DLL to exe and use it in exe without memory access issues?

Hello! RB 14.01 Build 334 Enterprise Edition on Delphi XE Enterprise. Data is right, i.e. if I look at the query the right elements have the right group. On preview, however, one specific page lists as part of one group elements that pertain to another group. This, however, seems to affect only one specific page, with all the others seemingly working fine (but I haven't yet gone through all of them....). So, what I should have on that page is something like this: DR Element 1 Element 2 GM Element 1 Element 2 What I am seeing instead is this: DR Element 1 Element 2 Element 3 Element 4 No idea why and I am not well versed in Report Builder. Ideas?

Brilliant article on how to make Delphi apps run on iPhone X properly. http://delphiworlds.com/2017/11/supporting-iphone-x-display-with-delphi/ Works on Berlin 10.1 too. I still don't fully understand why all it takes is to add a splash screen to the info.plist, but hey - it works! http://delphiworlds.com/2017/11/supporting-iphone-x-display-with-delphi/

How to make looping data based on date condition : i will save one user , the user just activated for 4 days, example beetween 1 dec to 4 dec, how can i get 4 data in database with same user but have different date?

Suddenly, I open a form in one of my projects and I get an AV in fmx250.bpl I removed the file and added it again. All the other forms work correctly and the app compiles and runs without issues. Anyone knows how to fix this?

CrossVcl 0.99 Beta just released. Almost all features from roadmap are implemented. Let's start beta testings. Order now with good discount before final release is out. What's new: http://www.crossvcl.com/history.html More Info at: http://www.crossvcl.com

Hello, I have an application that pulls some data from a service provider in JSON format. The application makes several calls to the service provider; some calls are answered immediately but for some calls it may take a few minutes. At the moment the application is processing the calls sequentially (single thread) but I want to improve the performance by processing the calls in multi thread mode. As far as I can understand I have to submit a thread for each call, every thread will send the data request to the service provider independently and once received the answer will use the information to do all the actions that my application requires. The threads will be independent from each other, I mean, I don't need one particular thread to finish before another. This is the first time I work with multi threading and I was looking into the material available on the Internet but there are two things which are not clear to me yet. Do I need to manage the "list of threads" that

Tutorial de Simon, color vs. color en Delphi Firemonkey. Part 4 https://jugandocondelphi.blogspot.com.es/2017/11/simon-color-vs-color-5.html https://www.youtube.com/watch?v=v8NA09vVFvE https://www.youtube.com/watch?v=v8NA09vVFvE

Hi, I can't get the white paper 'REST Servers in Delphi XE Using DataSnap' from Marco Cantù ( https://www.embarcadero.com/rad-in-action/datasnap-rest ). The formular page seems to be buggy and can't fill it without reporting an error. Does anyone know how to get the white paper ? Thanks https://www.embarcadero.com/rad-in-action/datasnap-rest

Sorry! This site is experiencing technical difficulties. :/ http://docwiki.embarcadero.com/Libraries/Tokyo/en/

Raudus News !! What's new in sight. 1) First test with a mobile application 100% offline on the mobile device; 2) and the same application running in the browser using the same code.

Only once in a year (on the occation of my birthday) 5 licenses of any http://delphihtmlcomponents.com products are available with unique 41% discount. Please use coupon code NOV2017 (please check coupon validity by entering code and pressing submit button before filling other fields). https://delphihtmlcomponents.com https://delphihtmlcomponents.com

Using CodeSite on interfaced objects http://www.davidghoyle.co.uk/WordPress/?p=1827 http://www.davidghoyle.co.uk/WordPress/?p=1827

How can I make the Dictionary in the following code to accept both TC and TC1? type TC = class end; TC1 = class (TC) end; TR= class of TC; var dict: TDictionary ; ref: TR; c: TC; c1: TC1; begin dict:=TDictionary .Create; /////The following 4 lines generate an error c:=ref.Create; dict.Add(1, c); c1:=ref.Create; dict.Add(2, c1); /////////////////// dict.Free; end. TIA

just a heads up, it seems the latest windows 10 roll out is problematic for launching .exe programs via winexec function (using shellexecute works though)

Originally shared by Boian Mitov Sneak peek at the InstrumentLab Delphi running in CrossVcl Team on MAC :-) This is also important step in the Visuino MAC/Linux port! #Delphi #Visuino #CrossVCL

you know what would be a really good Delphi IDE function? to copy to the clipboard all the object names highlighted on a form by a right mouse click option

Watch a Replay of the Live Session with Q&A about the Delphi Parser Automatic Migration Tool https://www.embarcaderoacademy.com/courses/236275/lectures/3690331

Is anybody aware of a good opensource library which can be used to import ical data into a Delphi object model? I found ... https://sourceforge.net/projects/delphiical/files/delphiical/DelphiIcalV1.07/ ... which is not quite good yet and I am thinking about developing improving/something based on that library. But I do not want to do that if anybody can point me to a maybe already existing better library for https://icalendar.org/resources.html ? https://sourceforge.net/projects/delphiical/files/delphiical/DelphiIcalV1.07/

I have a downloader app that will d/l and either saves or installs the main app. I want to know how many times the main app has been d/led. My first thought was to keep a counter.txt file in my dropbox (cloud) folder. That has not worked so well. Can someone explain how to update the txt file? This should work even if the client computer does not have a dropbox folder Thanks...Dan'l

Suddenly getting runtime error 236 with Delphi 10.1 on start up (happens right after a component loaded shows in the splash screen). Seemed to happen after I added a component to Delphi 10.2. Help. I can't use 10.2 yet as waiting on a set of components to be ported to it (Instrument lab)

Suddenly getting runtime error 236 with Delphi 10.1 on start up (happens right after a component loaded shows in the splash screen). Seemed to happen after I added a component to Delphi 10.2. Help. I can't use 10.2 yet as waiting on a set of components to be ported to it (Instrument lab)

Using Hartmut Davids TensorFlow wrappers...

Originally shared by Boian Mitov A cool Modbus with Visuino Pro and ControlLab in Delphi video by Rafal Czachurski in Polish :-) #Arduino #Visuino #Delphi https://www.youtube.com/watch?v=d35pGPHmkiI&feature=share

Can someone reach the forum http://forums.embarcadero.com today?

Check out this free Color Picker for Windows 10: https://www.microsoft.com/en-za/store/p/roselt-color-picker/9nq8c70flp0r I think it's the best color picker currently available on the Windows 10 Store! https://www.microsoft.com/en-za/store/p/roselt-color-picker/9nq8c70flp0r

Originally shared by Boian Mitov Learn how you can develop Modbus Client applications, PLC controllers, and Modbus TCP/Serial Bridges, with Arduino based CONTROLLINO controllers, Visuino Pro, Delphi and OpenWire Studio! Video replay from my CodeRage XII session. #Visuino #Arduino #Delphi #Controllino https://www.youtube.com/watch?v=SuvgghkHY0A&feature=share

I am studying OOP languages at uni and we've discussed a lot on virtual destructors using C++ as example. I've a doubt regard Delphi by the way. Let's say that we have ClassA and ClassB (which is a subclass of ClassA). So in this C++ code: ClassA* x = new ClassB; delete x; I have to declare the destructor of ClassA virtual so I do a proper delete clean-up of the memory. I have to use virtual destructors when a class behaves polimorphically like above. In Delphi I can do: x := ClassB.Create; //where of course x: ClassA; x.Free; I have seen that TObject's destructor is virtual so in every delphi class we have to OVERRIDE the destructor. So my questions are: 1) In Delphi are ALL destructors virtual by default? Every delphi class inherits from TObject, TOjbect has a virtual destructor so every destructor in the children classes must be overridden since it is virtual as well. 2) In c++ I can make pure virtual destructors ( like ~ClassA() = 0; ). Does it make sense in Delph

If you are getting memory leaks reported in Delphi Tokyo Firermonkey try this. https://community.embarcadero.com/blogs/entry/workaround-for-fmx-memory-leaks-on-windows-in-10-2-1

https://community.embarcadero.com/blogs/entry/massive-collection-of-design-patterns-frameworks-components-and-language-features-for-delphi https://community.embarcadero.com/blogs/entry/massive-collection-of-design-patterns-frameworks-components-and-language-features-for-delphi

Looking for an answer... https://stackoverflow.com/q/47247909/1792847?sgp=2

I want to link a TGrid to a TDataSource at runtime. Can anyone point me to an up to date example of how to achieve this please?

Hi, I try to create a new component and in the page of the wizard where you select the ancestor, the wizard can't find any components. I restarted the IDE a couple of times but can't seem to find the cause. Anyone has seen it before? Thanks

CrossVcl 0.98 just released. Start building macOS and Linux apps with Embarcadero Delphi and CrossVcl. Pre-Order with good discount before 1.0. History: https://www.crossvcl.com/history.html Download from: http://www.crossvcl.com TTreeView now supports images:

This time just the fact. I was interested buying after getting this email Professional Edition - 42% OFF Well i was not sure if i was entitled to this reduction. So i wrote sales twice within 2 days A week ago .NO response. 1. Are they to busy to answer 2. I am not entitled. 3. They do not care. Good luck Embarcadero with sales.

I was wondering if anyone knew how to call your delphi linux with parameters. For example ./DelphiLinux start in this case start being a parameter to start the app. Would anybody know how to do this on Delphi for linux ?

This is a shot in the dark, but here goes. We use Indy to connect and transfer files to an FTP server. We're using SSL (TLS - not sure what version). It works.. sometimes. about 2 of our customers report "SSL is not available on this server". I was able to reproduce it when I use AT&T cellular hotspot, connected to my laptop. However, when I got home, I have Cincinnati Bell fioptics, and it worked fine. I debugged the code, and it can't connect. I think it times out , if I continue the debugging, it says, "error negotiating SSL", or something like that.

Tcharan! TIOBE Index for November showing our best friend Delphi (and its Object Pascal siblings) at 9th position \o/

Hi guys, I'm trying to create an option in my media player program where I can select which sound card the TMediaplayer uses for output. Anybody know how I can do this? Been struggling for days.

Hello guys, I'm looking to normalize audio files (mp3) that get added to my program, so that the volume difference between the files are minimal. Anybody know how I can do this?

Delphi's RAD concept revived for web development, you must be impressed by their demo video. What if we have something built on top of mORMot! A. Bouchez https://anvil.works/

https://delphiparser.com/2017/10/23/get-a-free-delphi-parser-automatic-migration-wizard/ https://delphiparser.com/2017/10/23/get-a-free-delphi-parser-automatic-migration-wizard/

Hello! Anybody knows of a component suite that does FB/Google/Twitter login with examples and that works properly with minimal configuration? Free or paid doesn't matter much as long as it's reasonable :)

you learn something new every day the tchart pro gauges are actually very good :)

We're hiring new developers at LiveMon. We're a full-remote team (with a monthly gather-up in Paris), working on a real-time AI powered monitoring tool. I joined LiveMon this week, and we will work together on this exciting project, using mORMot and modern Object Pascal ! http://blog.synopse.info/post/2017/11/11/Job-Opportunities-at-LiveMon

I hope, it's enough cool to post it here :)))) https://medium.com/@Zawuza/build-your-first-hybrid-desktop-application-with-delphi-scriptgate-bootstrap-and-js-df530a73160

Hello, is there an IDE expert that does *removing* surrounding parentheses, bracket pair, begin..end block, try...finally block, try...except block, and so on? It must be invoke-able with keyboard shortcuts.

Does anyone know of design patterns or best practices for dealing with chains of asynchronous callbacks? We need to replace all of the currently blocking ShowModal calls in our app with Show/OnClose type blocks instead. I'm planning on switching to anonymous methods for most, like FMX's non-blocking ShowModal, but that doesn't seem like it's going to scaling well in cases where there's a series of possibly optional dialogs that might depend on previous dialog's responses. Memory management and exception handling look like they're going to be hairy too since try..finally/except won't work, and the callbacks don't have the caller's stack to unwind to.

Is there an IDE expert that would create a dockable window containing list of all editor tabs. I would then dock this window vertically next to the editor so I could quickly switch between open units. Tabs are just useless when you have 15 units open and hunting for the small "v" button on the editor tabs bar is just painful. If not, is somebody willing to write it?

Following my finding #1 posted just now, I got some hints from Jon Aasenden, as a result, I found another more *exciting open source project* -- v8DelphiWrapper, available since Jun 1, 2016, which is a wrapper around Google's V8 JavaScript engine! I immediately spread the words( https://stackoverflow.com/a/47218541/133516 ), and I think it's worth a new post about it here. https://github.com/zolagiggszhou/v8delphiwrapper

What is good news on DevExpress VCL?

New finding today - open source Delphi headers for the ChakraCore JavaScript engine by Microsoft, which powers the Edge and Internet Explorer browsers. === ChakraCore's advantages IMHO: A - small binary size - less than 2MB zipped. B - Known to have the best ES6 support among the JS engines. C - Good performance. (I read some online reviews). === Sample is here: https://github.com/hsreina/Chakra-Samples-Delphi === Let's thank @HSReina https://github.com/hsreina/ChakraCore-Delphi

Originally shared by Boian Mitov Learn how to Develop Your Own Visuino Components with Delphi! :-) Video replay from my CodeRage XII session. #Visuino #Arduino #Delphi https://www.youtube.com/watch?v=iyJC-LdE4v0&feature=share

Yesterday I did a short presentation at the Norway Delphi Club[1] meetup, covering some fun and interesting uses of the "new" language features introduced after Delphi 7. The main purpose of the talk was to try to be inspirational, and give a sense of what kind of stuff you can do with the language these days. So it's not very in-depth, but rather tries to showcase several interesting features and tricks. Anyway, in case it might be useful to others I thought I'd publish the slides and code here as well. [1]: https://www.meetup.com/delphi-173 https://github.com/aheid/RediscoveringDelphiTalk

New Spanish Delphi Podcast in https://nosolodelphi.com https://nosolodelphi.com

Hi, another basic Delphi (feeling stupid) question .. I am trying to add a control at runtime to a TGridPanelLayout control. The layout panel grid is 4 x 4. Adding a control anywhere works except as position 0,0. When I add a groupbox at position 0,0 to span 4 cols and 2 rows, it behave incorrectly. If this is the first control I add it gets created in the first cell only. If I move this code to after the correct working groupbox, then it gets created in position row0,col1 which to me is even stranger. Any help appreciated!! My code looks like this: //Remember to first add a TGridPanelLayout called gplMain to the main Form. procedure TForm1.FormCreate(Sender: TObject); var AControlItem: TGridPanelLayout.TControlItem; gbox1,gbox2: TGroupBox; begin try gplMain.BeginUpdate; // Box that dont gbox2 := TGroupBox.Create(Form1); gbox2.Parent := gplMain; gbox2.Text := 'Some things dont'; gbox2.Align := TAlignLayout.Client; AControlItem := gplMain.Contro

We're all excited about Delphi and it has to be said that Embarcadero works hard to add new functionality to make Delphi (and C ++) is a quick way to write, compile, pack and implement cross-platform native applications. But the downside is that Embarcadero does not spend much time improving existing functionality. Until today there are 5274 outstanding issues. Some of them are a real pain in the ass. I think it's time to mobilize all Delphi developers in the world and convince Embarcadero to improve Delphi by improving functionality instead of increasing functionality. What do you think?

We're all excited about Delphi and it has to be said that Embarcadero works hard to add new functionality to make Delphi (and C ++) is a quick way to write, compile, pack and implement cross-platform native applications. But the downside is that Embarcadero does not spend much time improving existing functionality. Until today there are 5274 outstanding issues. Some of them are a real pain in the ass. I think it's time to mobilize all Delphi developers in the world and convince Embarcadero to improve Delphi by improving functionality instead of increasing functionality. What do you think?

TSplitView is sometimes invisible I have an application (made with Delphi 10.1 Berlin) that has several forms, some of them with one or two TSplitView instances (one left - one right). There are cases when the splitview (mostly the right one) does not show up as it it were hidden behind another control. Calling BringToFront didn't help, though. As usual this happens only at the customers computers but not on my developer machine. To make it even harder it is not always the case and there seems no pattern. Has anyone experienced a similar behavior - or even has a solution for that?

CrossVcl 0.97 just released. Start building macOS and Linux apps with Embarcadero Delphi and CrossVcl. TListView now supports images and check boxes. History - http://www.crossvcl.com/history.html More Info - http://www.crossvcl.com

Please help me convert C code from this: const ULONG length = MOV_make_string2(tdbb, value, value->getTextType(), &address, buffer, false); for (const UCHAR* end = address + length; address < end; ++address) { impure->vlu_misc.vlu_int64 = (impure->vlu_misc.vlu_int64 << 4) + *address; const SINT64 n = impure->vlu_misc.vlu_int64 & CONST64(0xF000000000000000); if (n) impure->vlu_misc.vlu_int64 ^= n >> 56; impure->vlu_misc.vlu_int64 &= ~n; } where vlu_int64 is SINT64, address is UCHAR*. This is C implementation of HASH function from Firebird. My implementation "almost" works: var s : AnsiString; b : Byte; h : Int64; //result hash n : Int64; i : Integer; begin h := 0; s := trim(mmo1.text); for i := 1 to Length(s) do begin b := Byte(s[i]); h := Int64(h shl 4)) + b; n := Int64(h and Int64($F000000000000000)); if n > 0 then begin h := Int64(h xor Int64(n shr 56))); end; h :=

I have a problem with debuging of my application on 64 and 32 bit iOS, I can debug it on Mac and its working on the Mac but not when I trying on my Iphone 7. My Iphone 7 is running iOS 11.2. The errror codes I get: " [DCC Error] E2597 ld: file not found: /System/Library/Frameworks/FileProvider.framework/FileProvider for architecture arm64 " " [DCC Fatal Error] F2588 Linker error code: 1 ($00000001) "

I am using the REST-Library Demos to learn how to get & put files to a Dropbox App. I need to setup a redirect_uri but I can't figure out what to provide. The App setup page says this 'You must provide a proper URI with an authority or path component' and the hint is 'https:// (http allowed for localhost)'; What do I need to provide?

Nick las left Embarcadero http://www.codingindelphi.com/blog/nick-update/ http://www.codingindelphi.com/blog/nick-update/

Why is my buttons not created in logical order? If I run this, my buttons area created ACB rather than ABC as I expected. procedure TForm1.FormCreate(Sender: TObject); var tbar: TToolbar; cbtn: TCornerButton; I: integer; begin tbar := TToolbar.Create(Form1); tbar.Parent := Form1; for I := 0 to 2 do begin cbtn := TCornerButton.Create(tbarGrid); cbtn.Parent := tbarGrid; cbtn.Align := TAlignLayout.Left; cbtn.Text := Chr(65 + I); end; end;

https://community.embarcadero.com/blogs/entry/adding-a-custom-icon-to-a-firemonkey-button