Delphi Developers Archive

Hello, Can someone explain me why this is possible ? https://www.youtube.com/watch?v=bjflkb1GzaM If you apply the rotations on a cube for instance (or it's parent dummy), it will turn around X axis, then Y axis and finaly Z. So if X and Y are not null, Z will not turn on the depth axis anymore but around a rotated axis. Why a Camera in a rotating Dummy still rotates along the desired axis ?! Under OpenGL I use a Matrix to cumulate the rotations and add the new one, but I can not reset the component with a null rotation, I have to clear the matrix...I miss something Thanks https://www.youtube.com/watch?v=bjflkb1GzaM

Creating an HTML version of an application can be an arduous task. First you have to create a REST api server and then use a mix of Javascript & HTML for the front end. Browser incompatibilities are still an issue... Has anyone used Cybelle's (their Wordpress site is down at the moment) ThinFinity ( https://www.cybelesoft.com/ )? I am wondering how well it scales on a single server instance. Seems like an ideal way to create a web version of a desktop application, assuming it's not to chatty or chews up too m,uch server memory. https://www.cybelesoft.com/

Update: It was not clear what I was asking so I updated the question. I am trying to call RTTI Invoke from within TTask.Run and I get an AV. I have this code: function getProc(const aMethod: TRTTIMethod; const aObject: TObject; const aParams: array of TValue); begin return:=procedure begin aMethod.Invoke(aObject, aParams); end; end; ...then somewhere else... TTask.Run(getProc(myMethod, myObj, myParams); I get an AV with Invoke. If I remove the call and add some other code that does not use any of the aMethod, aObj, aParams it works correctly. I have, also, tried to use private fields to pass the params in getProc

I am a one person software development company. I've worked with the same sign business in Texas for over 20 years and over that time have developed systems that are integral to their operations. They are concerned that one day I might be incapacitated, rightly so, and they would like to find someone who they could call to help them continue to develop their systems should something happen to me. Nearly all of the code is Delphi, current or recent version (with DevExpress, ReportBuilder, Jam Software), but one crucial piece is written in Delphi 6 (Woll2Woll, ReportBuilder, Pragnaan, Jam). The apps are mostly Windows-based, but there are 3 android based apps for labor capture and other field-related activities. The back end is SQL Server. I am new to this group and not sure if I should post email or phone number, so for now if you would just reply to this thread with contact info I will contact you. Ideally a Delphi shop (multiple people) will be interested in playing this backup ro...

not only in my tests, anywhere really delphi 64 bit achieves and outperforms the best C performances, check this for example https://codingforspeed.com/integer-performance-comparison-for-c-c-delphi/ :-) https://codingforspeed.com/integer-performance-comparison-for-c-c-delphi/

Originally shared by Thomas Mueller (dummzeuch) … you might not be used to anti-aliasing. Recent (#1) versions of TeeChart switched to GDI+ as their default drawing engine which also switched on anti-aliasing by default. The difference looks like this: It’s a matter of personal taste (and the use case)… http://blog.dummzeuch.de/2018/08/31/if-your-lines-seem-too-thick-in-a-teechart/

Hey guys, sorry for the picture with the camera, i was in a hurry. As you can see, i was in a VM, with Windows XP-64bit, Deplhi7, Firebird 2.1, Zeos and Fortes Report. My client wants a specific task to perform so i wrote the SQL and it compiled very well on my machine, so i went to my client, that had the same config, but using win7-32. The same query on my client broke in several occasions, manly due to the Alias using, i kinda went my way around it but now i have this. Token size exceeded. If i cut some of the code off it will work, but i dont think i can accomplish what i want with less code. (note that the code is pretty mess up, that was i trying to debug and eventually surrendering. Can you guys give me a light? https://imgur.com/a/kqtJ2v1 https://imgur.com/a/kqtJ2v1

Hey guys, sorry for the picture with the camera, i was in a hurry. As you can see, i was in a VM, with Windows XP-64bit, Deplhi7, Firebird 2.1, Zeos and Fortes Report. My client wants a specific task to perform so i wrote the SQL and it compiled very well on my machine, so i went to my client, that had the same config, but using win7-32. The same query on my client broke in several occasions, manly due to the Alias using, i kinda went my way around it but now i have this. Token size exceeded. If i cut some of the code off it will work, but i dont think i can accomplish what i want with less code. (note that the code is pretty mess up, that was i trying to debug and eventually surrendering. Can you guys give me a light? https://imgur.com/a/kqtJ2v1 https://imgur.com/a/kqtJ2v1

I need a way to buy a notebook computer with a Portuguese keyboard layout (and Windows 10 in Portuguese, but that is probably not difficult). None of our usual suppliers can help. I looked at Dell Portugal and they seem to sell this kind of notebooks, but I don't speak any Portuguese and Google Translate doesn't work on that page, so I can't even find out a contact. (I asked Dell Germany and they were rather unhelpful "We don't sell that.".) Any idea?

Hello, currently we're struggling with a pricing model for our Gorilla3D framework ( https://www.diggets.com ). The developer edition will be free, but for published products, built with our framework, we have to demand money. We would appreciate, if you take your time to select an option. This would really help with the decision. 1) Monthly fixed fee per developer (without any further costs) 2) Monthly fixed fee per company (without any further costs) 3) A fixed component suite price 4) A participation model, f.e. ~3-5% on retail price Thanks for joining.

Delphi Community Edition Rant. Just installed Delphi CE from the 3rd attempt. Two times I tried to install all features - both times the installer fell asleep with zero CPU usage somewhere in the middle and was terminated by task manager. On the 3rd attempt I installed Win32 and Win64 platforms only and it worked. When building TForge I've got a bunch of warnings: [dcc32 Warning] tfNumerics.pas(244): W1025 Unsupported language feature: 'operator explicit' Brrr... I didn't seen this nonsense in Delphi XE. If this is unsupported language feature how the code compiles? When I clicked on the warning I've got a message box with the error message: ------------------------- Cannot open file "F:\TForge\tforge\Packages\DX10.2\tfNumerics.pas". The system cannot find the file specified. ------------------------- Brrr... Why IDE is searching the file where it shouldn't be? I've set all paths to my source files in Tools/Options/Library/Browsing path for IDE Edi...

Hello! There is a rather obscure and old couple of routines in the RTL that let you save things such as fonts and brushes without the need for a variable. Obviously, I can't remember what they're called. Anyone remembers?

Is it possible to get the class that an attribute is used within the same attribute? For example: TMyAttr = class(TCustomeAttribute) constructor Create(aSelf: TObject; field: string); end; When I do that and use it like this: [MyAttr (self)], self is not recognised by the compiler

What are these text remnants behind the Properties tab in the Object Inspector?

How do you use the CLI version of GetIt Package Manager. I always get a "no items were found." response. As usual, the EMBT wiki is total rubbish and doesn't even mention GetItCmd anywhere. C:\Program Files (x86)\Embarcadero\Studio\19.0\bin>Getitcmd.exe -listavailable GetIt Package Manager - Version 6.0 Copyright © 2018 Embarcadero Technologies, Inc. All Rights Reserved. No items were found.

hello guys I don't understand, I was creating a new android firemonkey application, but when put ing Timage multresimage and put any images with several resolutions, I can not get it right resolution in smarthphone, sometimes a small image or a large image on the screen. Anybody know if exist a component with vector image? Or other way to solve? Smarthphones have many difers resolutions.

Will Delphi support record inheritance? If yes, it should lead to pointer inheritance: type PRecA = ^TRecA; TRecA = record .. end; PRecB = ^TRecB; TRecB = record(TRecA) .. end; and now PRecB is derived from PRecA and for example a variable of type PRecB can be used as a function's parameter of type PRecA: var PB: PRecB; procedure Foo(P: PRecA); begin .. end; Foo(PB);

Gorilla 3D Engine for Delphi Firemonkey Alpha Release phase is on. Another good tool for gamedev is coming. http://www.jugandohaciendojuegos.com/2018/08/gorilla-3d-framework-alpha-release.html https://www.diggets.com/

Is there another shortcut to create a new FMX-based Windows application, besides "Firemonkey Metropolis UI Application?" What if one just wants to use the FMX library, without any of the Metropolis stuff? And why is FMX for Windows such a hidden option? I remember it being quite prominent in XE2.

Is there another shortcut to create a new FMX-based Windows application, besides "Firemonkey Metropolis UI Application?" What if one just wants to use the FMX library, without any of the Metropolis stuff? And why is FMX for Windows such a hidden option? I remember it being quite prominent in XE2.

Considering that we now can have constants within records and classes - why can't we have resource strings in there? type TMyRec = record const ThisIsOK = 'String'; resourcestring ThisIsNotOK = 'string'; end; [dcc32 Error] : E2029 'END' expected but 'RESOURCESTRING' found

Fellow Delphi Developers! We continue to add new color schemes to existing styles, because you have different preferences. - "Midnight Express" VCL Style now includes 4 variants with yellow, green, blue and red colors. https://www.delphistyles.com/vcl/MidnightExpress.html - "Allports" VCL Style now includes 4 variants with blue, orange, red and green colors. https://www.delphistyles.com/vcl/Allports.html

Thank you to everyone that has contributed to the document (see "files section" in the Delphi Developer Facebook group) but we need more! I urge everyone to take 5 minutes to check the document and add a Delphi or C++ builder club if it's not already there. This is extremely important! Be pro-active, don't leave it to chance or someone else. Be the change! #Delphi #Embarcadero #CPPBuilder #SOCIALNETWORKING https://jonlennartaasenden.wordpress.com/2018/08/28/getting-organized-register-a-delphi-user-group-or-club/

Mantaining a Delphi 2007 (server) software now I'm at the point of having to add a call to Google Translation API to translate some english text to italian. My first question is : which is the more recent version of Indy I should use with D2007 ? Because, till now, Indy gives me back a lot of wrong characters (? & = . #) in the JSON REST response, mixed into the italian text, and I fear this has something to do with D2007 and Indy version limits with Unicode strings. If I use the RESTDebugger or a browser to do the same call the result with translated text is much better (perfect using a browser, almost perfect with the RESTDebugger - strangely a ' isnt correctly escaped). I've googled a lot today, and read many tips, mostly from Remy, but I haven't found any real solution.

Why Delphi ignores config (Debug/Release) in default location of *.dcp files? By default ( http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Package_Files_Created_by_Compiling ) Delphi writes *.dcp files for Win32 platform to C:\Users\Public\Documents\Embarcadero\Studio\19.0\DCP . If I use default settings and build a package in Debug and Release config, then Release *.dcp overwrites Debug *.dcp. I don't like it and never use default *.dcp location; should the default *.dcp location be considered as IDE bug?

Have you a Tokyo 10.2, 10.2.1 or 10.2.2 installation ? I've discovered a bug between Berlin Update2 and Tokyo 10.2.3 but don't have previous versions anymore. Create a new blank FMX application (2D) Add a Viewport3D Add a Text3D set the Text property and uncheck WordWrap on my 2 Android devices, the text is replaced by a red rectangle. (it work fine on a 3D Form)

I created one year ago a C++ library for equations because my thesis for the degree was on numerical analysis. It had a GUI created with Qt that used to plot equations, derivatives and so on. I have decided to revive and improve that project! I am translating it into Delphi and C# as well, you can find the source here: https://github.com/albertodev01/TEquations/ This is a library useful if you'll ever had the need to solve any kind of equations using root finding algorithms. I have also included 2 components: one is non visual (that can be used on VCL and FMX), the other is visual and it works only under FMX (it is a chart in which the component draws the equation). Delphi has expression parsers but they are very old or the good ones aren't free; I am planning to create a new expression parser in the future. For now, my library uses a good one that already existed. Maybe I will create libraries for matrices, eigenvalues and differential equations but for sure not now (because I...

I am looking into AsynCalls library but it is lack of documentation. Any async library recommend for Delphi 7?

Currently my company, DZHI International Pte Ltd is looking for Senior Delphi Developer (Software Engineer) to be located: Singapore. Requirements - Min 10 years working experience in software development. - Ability to understand complex logic and writing efficient code is a must. - Knowledge in developing market data feed handlers/decoders or exchange connectors preferred. - Working knowledge of FIX protocol will be advantageous. - Strong in at least 2 of the following ( C++, Delphi, Java or C# ). - Good problem solving skills and able to work independently. If you are interested, you can send email to stefanus@dzhintl.com. Looking forward from you experts :)

I am looking for a good replacement for INI files for storing large / complex configuration. So far I have used JvApplicatoinIniStorage + a custom INI file. INI files have the advantage of being simple to read and edit by humans. Even though TMemIniFile removes the standard comments starting with semicolon, it does not remove those starting with e.g. //. They are simple to parse because of the TMemIniFile class and the above mentioned JVCL components. Unfortunately when the configuration becomes more complex they get much more difficult to read and edit: [Cameras] count=4 [Cameras\Item0] Name=Front Camera CaptureFile=d:\capture\front.avi // and much more [Cameras\Item1] Name=Left Macro Camera CaptureFile=d:\capture\MacroLeft.avi // and much more [Cameras\Item2] Name=Middle Macro Camera CaptureFile=d:\capture\MacroMiddle.avi // and much more [Cameras\Item3] Name=Right Macro Camera CaptureFile=d:\capture\MacroRight.avi // and much more For a developer it is easy to understand that Count=...

I've finally added support for multiple licenses in a Delphinus-Package. That was long overdue, shame on me :D http://memnarch.bplaced.net/blog/2018/08/support-for-multiple-licenses-in-a-single-package/ http://memnarch.bplaced.net/blog/2018/08/support-for-multiple-licenses-in-a-single-package/

Yes ! I've published a Record property it could be nice to have this feature in Delphi, but we need RTTI for record properties to simplify the code (and TReader should handle tkRecord aswell) https://github.com/tothpaul/DelphiTips/tree/master/RecordProperty https://github.com/tothpaul/DelphiTips/tree/master/RecordProperty

Originally shared by Thomas Mueller (dummzeuch) If you enable regular expressions in the GExperts Grep search form, you can search for escape sequences like \t which is expanded to a tab character or \x20 which is expanded to char($20), the space character. Up to now it was not possible to use \t (and… http://blog.dummzeuch.de/2018/08/26/using-escape-characters-in-gexperts-grep-replace/

Has anybody already extended TRegExpr.Substitute to allow escape sequences other than '\c' -> 'c'? E.g. '\n' -> #10, '\r' -> #13 or '\xnn' => #$nn The original on https://github.com/masterandrey/TRegExpr apparently does not have that feature and it's difficult with all those copies on e.g. GitHub to find out how they actually differ. (Don't you love fragmentation?). https://github.com/masterandrey/TRegExpr

Just wondering...how do you names your set ? TItem = (one, two) TItems = set of TItem; or TItems = (one, two) TItem = set of TItems; I'm always troubled by TTextFormat(s) for instance

It's high time Delphi got it's own bytecode compiler. Here is a brief overview of the LDEF assembler. This was prototyped in Smart Mobile Studio and the code is what people call "ASM.JS" -- but I am porting over both the assembler, disassembler and runtime system to Delphi. Which means the bytecode system will be available on pretty much every platform known to mankind. With the assembler in place, the next step is the high-level parser that takes your Delphi code and emits LDEF assembly. If I have my way you will be able to write bytecode based libraries that are platform independent next xmas. Note: This project is not sanctioned by Embarcadero, this is purely my own research.

HexLicense, the in-software license minting and security system for Delphi and C++ builder developers, is going open source! https://hexlicense.com/2018/08/24/hexlicense-goes-open-source/

After reinstalling 10.2.3 whenever I write a firemonkey programme and put it on the android (samsung s5) and rotate the phone 90 degrees, the programme dies. On the phone is a black screen with the firemonkey flame; on the computer it is as though the programme has terminated (and you can run it againk by pressing f9, if you want to watch it die again!) I went hunting for android options, and ticked all the boxes under Project/Options/Application/Orientation, but it made no difference. Any ideas please?

Anyone (EU-based) have a copy of paxCompiler 4.2 that they're interested in selling? You can email me at rlsdevine AT Google's mail server.

I have 10 TSpeedButtons labeled "1" ... "10". "10" is aligned MostRight, and all the rest are aligned "Right". At run-time I see 9 8 7 6 5 4 3 2 1 10 rather than 1 2 3 4 5 6 7 8 9 10 as I do at design time. Any idea why this might be so?

Learnt today where the word debugging came from

Delphi 10.2 and ADO support. Does D10.2 not ship with the "ADOdb" unit any more? Or is it maybe because I'm using the free community edition of Delphi. ps: I'm using D10.2 for an open source project (tiOPF), not commercial work.

Does anybody know if it's possible to write an FMX app in Delphi that can read emails - subject lines, message content, names of attachments etc - from the iOS inbox? Or is the inbox completely locked down and inaccessible? (I've been asked to investigate the feasibility of filing email content direct from the phone into a database.) Many thanks.

Any existing tool to sync databases? Instead of re-inventing the wheel, does anybody here know of a good tool/component/framework that takes care of all the mechanisms of DB syncing across platforms? I mainly use SQLite on iOS/Android/macOS and Windows and want my apps to be able to sync their contents over WiFi and/or iCloud/DropBox. I know that DropBox used to have built-in APIs but I'm really looking for something that implements strategies to take care of all the hair pulling tricky cases when data has been modified on 2+ platforms, etc... Something that can check additions/deletions, modifications wherever the users did them, and then reconcile everything. I'm not using a server anywhere, just need to talk from device to device. Thanks for sharing any kind of experience, leads, directions, articles. Steve

Hello, I am not expert with hardware so I really need your help! I am going to create iOS applications because I have a lot of requests but I do not have a mac. I am going to buy an iMac but please, tell me if this configuration is fine for my needs: - iMac 21,5" - Intel Core i5 quad‑core @ 3.00 GHz (up to 3.5) - 8GB DDR4 (2400MHz) - HDD SATA 1TB (5400 rpm) - Graphic card Radeon Pro 555 (2GB of memory) What are my needs? Well, the above iMac will be used for 1) connect the iMac to the LAN and create iOS/Mac applications (I have a powerful windows pc, I have seen in the doc that a Mac connected to the router can work fine too) 2) maybe run a VM with windows and install delphi on it I will use the iMac ONLY for the 2 purposes I have listed above. Do you think that those specs are good? Should I get something more powerful (RAM, Processor) or maybe something less powerful? ----------------------------------------------------------- I am asking because an apple computer is expensive f...

Ubisoft and Embarcadero, same fight :) https://i0.wp.com/cosmo-games.com/wp-content/uploads/2018/06/Assassin%E2%80%99s-Creed-Odyssey-Pr%C3%A9commande-acc%C3%A8s-anticip%C3%A9-les-6-%C3%A9ditions.jpg?w=696&ssl=1

Finally implemented the jump tables for my bytecode assembler and runtime. The project contains parser, codegen and runtime (virtual machine). It is written from scratch in Smart Pascal (Smart Mobile Studio), but the project will be ported to Delphi as well. In short, this is a register based virtual-machine running bytecodes (or P-Code as the traditional term was). When running under JS it results in what is known as "asm.js". Meaning the code runs ridiculously fast. The system is non-visual so can run both under node.js, phonegap and ordinary browsers. When executed in Delphi it works fine everywhere Delphi can reach. Very happy about finishing the assembler and executable model, now I can enjoy writing the high-level parser for pascal and implementing a sexy register scheme for the OOP layer. Why? Because la-di-da :)

some nice features to add 1) display the expected classname in unassigned component properties ie: Action -> (TBasicAction) 2) display the expected method name in unassigned events ie: OnClick -> (TNotifyEvent) 2) supports for "web" colors #f00, #00ff00, rgb(255, 0, 0) for TColor properties input 3) optionaly, shift+click on the color to cycle through the color display mode (like under Chrome) : clBlue / $ff0000 / #0000ff / rgb(255, 0, 0) 4) inline evaluation of simple exemple: Left = 10 + 25 or complex expression: Panel1.Width - ListBox1.Width + 5 (not a persistent formula, just an input evaluation) https://quality.embarcadero.com/browse/RSP-21090 https://quality.embarcadero.com/browse/RSP-21090

How to show in the object of TListBox the pictures from TStrings that has all full path and file names like 'c:\folder\picture1.jpeg'?

Tokyo 10.2 iOS 64bit, I get this error: [DCC Error] E2597 ld: warning: directory not found for option '-FC:\Users\raimondi\Documents\Embarcadero\Studio\SDKs\iPhoneOS11.4.sdk\System\Library\PrivateFrameworks' ld: file not found: /System/Library/Frameworks/AudioToolbox.framework/AudioToolbox I have added all frameworks setting "Library path" as an option. Anyone has a clue, please?

FmxLinux 1.28 just released. Start building UI Linux apps with Embarcadero Delphi and FmxLinux. What's new at: https://www.fmxlinux.com/history.html More Info at: https://www.fmxlinux.com All KSDev's Products at: https://www.ksdev.com

Delphi job available in Houston, Texas. https://recruiting.paylocity.com/Recruiting/Jobs/Details/55438

CrossVcl and Delphi Community Edition. Since Community Edition doesn't have Linux compiler it is still possible to build OSX32 apps using Delphi CE and CrossVcl. Start building macOS VCL apps with Embarcadero Delphi CE and CrossVcl. https://www.crossvcl.com

Free tools Stencils FMX https://www.embarcadero.com/br/free-tools/firemonkey-stencils https://www.embarcadero.com/br/free-tools/firemonkey-stencils

Hello! Does anyone know if DMVC still requires an Enterprise version for the Expert? Thanks.

Frame problem i have a frame with components. a panel on the frame is initialized to color red. i load the frame on a test form1 with Editor.Create(Form1); Editor.Parent:=Form1 Or as a component. If i make the test form a program NO problem the panel is painted red. Now to the problem. I have another application that uses the test form to open the frame form. It opens the test form with Application.CreateForm(TForm1, Form1); The problem - panel on the frame form DOSE NOT PAINT RED. i tried to change the property "parentcolor" to false, it did not help Any help ?

Anyone know of a way of obtaining drag information from another application (e.g. Explorer) when the drag begins ? Think of this as a drag "spy" process.. the application in question isn't actually involved in the drag/drop: it's just watching

Does anyone have the source from the book: The Tomes of Delphi: Algorithms and Data Structures by Julian Bucknall?

Aha experiences using Delphi https://components4developers.blog/2018/08/20/delphi-revelations-1-kbmmw-smart-client-on-nextgen-android-scope-problems/

I'm using THTTPClient.BeginGet() to create an async get request to a webservice that holds a connection open until it has data to return (sort of like a long-polling connection). I'm looking for a way to cancel/disconnect the waiting connection. Calling Cancel on the IAsyncResult works, but it only takes effect once the WinHttpQueryDataAvailable call in TWinHTTPResponse.DoReadData returns and says data is available (when the webservice finally returns some data). I even tried freeing the THTTPClient which would cause it to call WinHTTPCloseHandle on the session; but that didn't work either, WinHttpQueryDataAvailable still blocks until the server has sent data; then it throws an exception saying the session was already terminated. I'm using 10.2.3 on Windows platform. Any ideas?

I am trying to get an Android TListBox to work. If I tap on the 1st item, both the OnTap and OnClick events are triggered, but ItemIndex remains as -1. If I then tap on the 2nd item, both events are triggered, but ItemIndex points to the 1st item. When is the ItemIndex changed? How do I access it properly? Thanks!

Is there any documentation for attribute and Json? uses Rest.Json, Rest.Json.Types; [JSONName('TokenName')]

Native Delphi Deep Learning library, ported from ConvNetJS, by Mr. M. Schlieper. Well, DL and Machine Learning are hot in recent years, although I know nothing about it, but a pure Pascal deep learning library is really cool, isn't it? https://github.com/mhoellerschlieper/DelphiCNN

Does anyone know of a TEdit-type control that doesn't descend from TWinControl? I need Calibri font size 11 and in TEdit the underlying Windows control forces a minimum height of 26 for this combination - and I need a height of 22. Alternatively if anyone knows how to override the underlying height value?

What do you think of this proposal ? instead of writing this https://github.com/tothpaul/Delphi/blob/master/CubeMan3D/Execute.CrossGL.pas#L365 we could write this type OpenGL = library procedure glClear(mask: GLbitfield); procedure glClearColor(red, green, blue, alpha: GLclampf); procedure glDrawArrays(mode: GLenum; first: GLint; count: GLsizei); procedure glEnable(cap: GLenum); procedure glEnableClientState(array_: GLenum); procedure glFlush; procedure glHint(target, mode: GLenum); procedure glLightfv(light, pname: GLenum; params: PGLfloat); procedure glLoadIdentity; procedure glNormalPointer(type_: GLenum; stride: GLsizei; pointer: Pointer); procedure glMatrixMode (mode: GLenum); procedure glMultMatrixf (m: PGLfloat); procedure glPopMatrix; procedure glPushMatrix; procedure glRotatef(angle, x, y, z: GLfloat); procedure glShadeModel(mode: GLenum); procedure glTranslatef(x, y, z: GLfloat); procedure glVertexPoint...

Originally shared by Thomas Mueller (dummzeuch) Based on an idea and partial implementation submitted by Sven Harazim from Landrix Software I have just added support for GNUGetText to the GExperts Message Dialog expert. It now looks like this: And generates Code like this: Or, if you’d rather use the… http://blog.dummzeuch.de/2018/08/18/gnugettext-support-for-the-gexperts-message-dialog-expert/

I am trying to calculate the width of text on an Android device. These links provide hints, but I cannot find TPaint in the Delphi IDE. Any thoughts? https://stackoverflow.com/questions/3630086/how-to-get-string-width-on-android https://stackoverflow.com/questions/24359538/how-to-find-the-text-areaheight-width-of-textview-programmatically-in-android https://stackoverflow.com/questions/3630086/how-to-get-string-width-on-android

Opinioned, incomplete comparison of OmniThreadLibrary and darkThreading ( http://chapmanworld.com/2018/05/24/a-new-mutlti-threading-library-for-delphi-darkthreading/ ) I spent half of my time today to dig into darkThreading. Why? === I'm refactoring the multi-thread part of a program, decided to make it as much *FPC-ready* as possible. Note, OTL is a very good and versatile threading library for Delphi, if the mentioned program would always stick with Windows I won't consider switch ATM. Observations === - like OTL, darkThreading has an *lockless* *inter-thread communication* module that supports multi-sender-one-receiver mode which is just what I need. Actually an inter-thread communication channel is my main (of not only) reason to use a 3rd party threading library. - As opposed to OTL's inter-thread communication module's implemented using Windows messaging, the one in darkThreading's implemented using array thus is more *crossplatform-friendly* - By browsin...

Originally shared by Thomas Mueller (dummzeuch) I am not claiming to be an expert in building good user interfaces, in fact I have been known to use terrible color combinations, overload forms with too many controls and confusing the user. But on the other hand I have been using computers for all of my… http://blog.dummzeuch.de/2018/08/18/building-less-annoying-user-interfaces-part-1/

When an android programme crashes, with a "device not responding", it tries to write a file to C:\Program Files (x86)\Embarcadero\Studio\19.0\source\fmx\__recovery. It prangs, unable to write the file. Unfortunately this subdirectory and the one above it are always read only, and if I set them to be writeable (and just change the individual file protections to read only), something somewhere changes the subdirectories back again to read only. I can't find anywhere in the options to change the error-writing subdirectory to something else. Any ideas please?

When an android programme crashes, with a "device not responding", it tries to write a file to C:\Program Files (x86)\Embarcadero\Studio\19.0\source\fmx\__recovery. It prangs, unable to write the file. Unfortunately this subdirectory and the one above it are always read only, and if I set them to be writeable (and just change the individual file protections to read only), something somewhere changes the subdirectories back again to read only. I can't find anywhere in the options to change the error-writing subdirectory to something else. Any ideas please?

XtremeDocumentStudio Delphi 18.1 Released. Gnostice is pleased to release XtremeDocumentStudio Delphi 18.1. 18.1 includes major performance improvements to the FMX Document Viewer. Here's what's new: https://bit.ly/2vRt2sq To download the Android APK and Windows EXE of the FMX Document Viewer demo, please use the following link: https://bit.ly/2Mozguc To download the full featured trial version, please log on to: https://bit.ly/2nKIeDl Please do try it out. https://bit.ly/2nKIeDl

After dealing with Base64 images now I have a function that can convert PNG, last lines are: Img.Picture.LoadFromStream(MemoryStream); Bmp.Assign(Img.Picture.Graphic); Where the MemoryStream var is the decoded data from string. Now make it work for sure I have to save it as file Bmp.SaveToFile(); But why I cannot simply return: Result := Bmp ??? If I do that, I get no error, but the image won't show. Function returning is a TBitmap type.

Reminder: When you need help, please be specific and remember to tell us: - Version of Delphi incl. ver.no (D5, D2006, XE3, XE8, Seattle 10.0.x, Berlin 10.1.x, Tokyo 10.2.x, etc.) - SKU (Community, Pro, Enterprise, Architect) - Platform (Windows, iOS, Android, Linux) - Tech (console, VCL, FMX, etc) - Database platform (ADO, dbExpress, FireDAC, etc) - Database (MSSQL, MySQL, Oracle, SQLite, etc) Also see: https://plus.google.com/+LarsFosdal/posts/NarwjyzC4rN

Quite strange thing. We have simple object that creates TThread descendant, pretty standard stuff (Except maybe SOAP call which it makes). On Execute it calls coInitialize (I believe because of SOAP stuff) The problem is that on other projects it works like an charm. But in one, the TThread.Synchronize() call fails. Get errors like : exception class $C000001D with message 'system exception (code 0xc000001d) at 0x0040b2a6 exception class $C0000096 with message 'privileged instruction at 0x0a99fdac Etc, did not check all. Usually braks at TMonitor.GetEvent - Line -> Result := AtomicCmpExchange(FLockEvent, Event, nil); Does anyone have faintest idea why this happens Tried to use TThread.Queue instead, it seems to work, untill shutdown : exception class $C0000005 with message 'access violation at 0x7f78f463: write of address 0xfbe1a1b0 etc... And then pretty massive memory leak: 5 - 12 bytes: TObject x 3, Unknown x 2 13 - 20 bytes: TObjectCache x 2, TThreadList x 1, TSparse...

Can someone please point me to an example on how to use Grijjy/DelphiMongoDB driver to upload/download files to and from a Mongodb GridFS database? I have searched the sources to no avail.

I have a TMemo loaded with text. I want to choose the font size that makes the text as big as possible. The following code does not work, probably because I am mixing up the old Delphi canvas with the new TextSettings. I do not know the history, but it seems as if I am working with a mixture of old Delphi fields and some new perhaps Android fields. Can someone clarify? Even better, where would I go to read about this kind of issue without having to post a question! Searching for solutions is challenging because many "Delphi" solutions do not pertain to Android. mw := 0; for i := 0 to Memo1.Lines.Count-1 do begin w := Memo1.Canvas.TextWidth(Memo1.Lines[i]); if (w > mw) then begin mw := w; ml := Memo1.Lines[i]; // assumes fixed width end; end; // size font so longest line fits in memo Memo1.TextSettings.font.Size := 100; while (Memo1.Canvas.TextWidth(ml) > width) do Memo1.TextSettings.font.Size := Memo1.TextSettings.font.Size -...

This is the second part of my tutorial on how to make your own database engine. The code for the system has been uploaded to bitbucket for convenience. Stay tuned for part 3 when we implement sequence based IO and begin shaping the metadata. #Delphi #Embarcadero #DbEngine https://jonlennartaasenden.wordpress.com/2018/08/16/building-a-delphi-database-engine-part-two/

NexusDB website We apologize; our site is not accessible at the moment, as certificate expiration caught our web maintainer off guard. We are fixing it ASAP, hang in there. :)

HI . Having a problem with creating MD5 hash on linux problem is with the use of pansichar at its replacement. this is the problem code procedure TMD5.Update(const Input: string); var {$IFDEF UNICODE} utf8Str: UTF8String; {$ENDIF} Bytes: TByteDynArray; Len: Integer; Str: PAnsiChar; begin {$IFDEF UNICODE} utf8Str := UTF8Encode(Input); Len := Length(utf8Str); {$ELSE} Len := Length(Input); {$ENDIF} if Len > 0 then begin SetLength(Bytes, Len); {$IFDEF UNICODE} Str := PAnsiChar(utf8Str); {$ELSE} Str := PAnsiChar(Input); {$ENDIF} Move(Str^, Pointer(Bytes)^, Len); Update(Bytes, Len); end; end; from MessageDigest_5.pas I have tried replacing pansichar with pwidechar but I get a different result help appreciated :) thanks!

I'm scratching my head here... I am getting a fairly nondescript error while doing a fairly simple task... I have a TFDTable object connected to a Pervasive SQL database. When I attempt to do a FindKey on it, I get [FireDAC][Phys][ODBC][W3ODBCCI.DLL] SQL_ERROR. This exact same code works elsewhere. I have tried replacing the FDTable.FindKey with an FDQuery and an appropriate SELECT, and I get the same error. As this error tells me basically NOTHING, I was wondering if anyone had any ideas about how I could go about narrowing this down?

I am trying to convert Base64 text image to bitmap. Now it is not working anymore, I used to follow this tip: https://stackoverflow.com/questions/21909096/convert-base64-to-bitmap Routine says the image (source was a PNG) is not a valid bitmap image. Both Vcl.Imaging.Jpeg,Vcl and Imaging.pngimage units are declared. https://stackoverflow.com/questions/21909096/convert-base64-to-bitmap

I am trying to convert Base64 text image to bitmap. Now it is not working anymore, I used to follow this tip: https://stackoverflow.com/questions/21909096/convert-base64-to-bitmap Routine says the image (source was a PNG) is not a valid bitmap image. Both Vcl.Imaging.Jpeg,Vcl and Imaging.pngimage units are declared. https://stackoverflow.com/questions/21909096/convert-base64-to-bitmap

I am using an AirTurn PEDPro device, which recommends that I use GATT rather than HID to connect to my Android device. Anyone who has done this and can point me in the right direction?

I was chugging along just fine, developing an Android app in Delphi 10.2 when the IDE hung. I killed the process. Now when I compile, I am told that the IDE cannot delete a libc.so file in the debug folder for my app. Makes sense, since there is no libc.so file there. No idea what a libc.so file is (although there are many on my system) so I do not know how to regenerate it or why the IDE is so upset that it cannot delete a non-existent file. Thoughts?

Delphi and JSON Is there an overlay (eg in the form of a helper) for the JSON classes built into Delphi (System.JSON), which offered an interface similar to SuperObject, i.e. methods like json.S(), json.I(), json.A()?

I've built a Firemonkey app and have some kind of visual errors, I use a lot of layouts to group controls but they get bounded with a border, and if resize the form or minimize/maximize the form the border disappears. How to fix that?

I've built a windows service to sinchronize to Firebird databases. A sample method to sync 2 tables is as follows: function TCSVSync.SyncStoc(const aID: Integer; var mID: Integer; const aAction: String): Boolean; begin Result := False; if aID mID := -1; if qSlaveStocs.Active then qSlaveStocs.Close; try qSlaveStocs.Params.ParamByName('ID').AsInteger := aID; dbSlave.StartTransaction; qSlaveStocs.Open(); if qMasterStocs.Active then qMasterStocs.Close; qMasterStocs.CachedUpdates := True; qMasterStocs.SQL.Text := ' update or insert into STOC (IDOF,IDVAL,VAL) values (:IDOF,:IDVAL,:VAL) matching (IDOF, IDVAL) returning ID '; if (qSlaveStocs.RecordCount>0)and(not qSlaveStocs.Eof) then begin try dbm.StartTransaction; try qMasterStocs.Prepare; qMasterStocs.Params.ParamByName('IDOF').Value := qSlaveStocs.FieldByName('IDOF').Value; qMasterStocs.Params.ParamByName('...

Job losses start to bite as yet again all the 'big' features get shifted forward another year in the updated Delphi roadmap today. Boy am I glad we decided not to use Delphi for mobile dev/mac dev. https://community.embarcadero.com/article/news/16638-rad-studio-august-2018-roadmap?utm_source=article&utm_medium=email&utm_content=Article-180815-RADStudioRoadMap ?

A success story - kudos to ScaleMM, André Mussche Originally shared by Russell Weetch I have an application that creates PDF versions of invoices. They come in files of 100 records and we get up to 1000 files per batch. I use a IOmniBackgroundWorker and that works well. The virtual machine has 16 cores allocated to it and I assign 12 cores to to the IOmniBackgroundWorker. I queue each file as a task and the expected number of threads are used. However, the core utilisation is not ideal. When running 100 files against this it looks like 8 cores were quite active, another three were barely in use and 5 were nil. Is there a way to get better core usage? We are trying to increase the performance bu about 10% - 15%. Thanks.

Introducing Continua CI 1.9 - adds notifications with Slack, HipChat, Stride, Microsoft Teams - also performance and other minor improvements. Continua CI is a powerful Continuous Integration Server, supports Delphi, Visual Studio and many other tools. https://www.finalbuilder.com/resources/blogs/introducing-continua-ci-version-19

Originally shared by Thomas Mueller (dummzeuch) Note to self: The Delphi IDE stores a list of disabled packages (that is packages where the user removed the check mark in front of the package under Components -> Packages) in the registry under HKCU\disabled packages. is the base key of the Delphi… http://blog.dummzeuch.de/2018/08/14/delphi-disabled-packages-in-the-registry/

I need a little help - anyone has successfully made DKLang (the open source multi-language package) to process Virtual treeview's header captions? https://stackoverflow.com/questions/51836118/dklangs-storelist-and-virtual-treeviews-header-text-translation

Classic compiler (Win32) strings double-free crash because of error in reference-counting. Tested with XE2 and 10.1 Berlin Test applications: https://github.com/the-Arioch/XE2_AutoOpenUnit/tree/master/Delphi_String_Bug UPD's Girli's version in that folder is probably THE ultimate "minimal reproducible example" without need for external files.: https://github.com/the-Arioch/XE2_AutoOpenUnit/blob/master/Delphi_String_Bug/Girli_str_2xFree_Minimized.dpr The initial repro requirement - the project should find its dproj-file and then its dpr-file to run the bug triggering code path. Discussions, minimizations and testing: http://www.sql.ru/forum/1300873-a/xe2-string-double-free https://github.com/the-Arioch/XE2_AutoOpenUnit/blob/master/Test/xe2_str_2xFree.dpr

My computer got "tidied" - removing the Java SDK, so now I cannot compile Delphi FMX programmes. Which version of java sdk / ddk / whatever do I need to find and instal to get it working again please?

OmniPascal 0.16.0 available now! – Auto uses and auto declarations http://blog.omnipascal.com/omnipascal-0-16-0-auto-uses-and-auto-declarations/

JSON question: I'm wanting to use Delphi's latest JSON Builder to create a JSON expression that is structured like this: NumStartMethods: integer StartMethodUsed: integer StartMethods: Method1 param1 = something1 param2 = something2 Method2 param1 = something3 param2 = something4 param3 = something5 So we have two pairs, and an array of objects. But I can't figure out how to get an array of objects to work! { "Bookmark": { "NumStartMethods": 2, "StartMethodUsed": 1, "StartMethods": [ "StartMethod-1": { "aID": "", "aName": "foo" }, "StartMethod-2": { "aID": "xyz", "aName": "bar" "aFlag": false } ] } } This doesn't work. Changing the square brackets to curly brackets works, but then StartMethods...

JSON question: I'm wanting to use Delphi's latest JSON Builder to create a JSON expression that is structured like this: NumStartMethods: integer StartMethodUsed: integer StartMethods: Method1 param1 = something1 param2 = something2 Method2 param1 = something3 param2 = something4 param3 = something5 So we have two pairs, and an array of objects. But I can't figure out how to get an array of objects to work! { "Bookmark": { "NumStartMethods": 2, "StartMethodUsed": 1, "StartMethods": [ "StartMethod-1": { "aID": "", "aName": "foo" }, "StartMethod-2": { "aID": "xyz", "aName": "bar" "aFlag": false } ] } } This doesn't work. Changing the square brackets to curly brackets works, but then StartMethods...

Hi all, I am trying to make a certain piece of code cross compile between Delphi and FPC. On FPC, it compiles fine but on Delphi I get a [dcc32 Error] Project1.dpr(14): E2086 Type 'TAutoPtr ' is not yet completely defined on Line 14. Below is the relevant code. program Project1; {$IFDEF FPC} {$MODE DELPHI} {$ENDIF FPC} {$APPTYPE CONSOLE} uses SysUtils; type TAutoPtr = record private type __TAutoPtr_T = TAutoPtr ; __PAutoPtr_T = ^__TAutoPtr_T; TGuard = class(TInterfacedObject) private FOwner: __PAutoPtr_T; public constructor Create(AAutoPtrRec: __PAutoPtr_T); destructor Destroy; override; end; private FGuardian: IInterface; FPointer: Pointer; class procedure Initialize(var AAutoPtr: __TAutoPtr_T); static; class procedure Finalize(var AAutoPtr: __TAutoPtr_T); static; function GetPointer: Pointer; inline; procedure SetPointer(Ptr: Pointer); overload; inline; function GetObject: TObject; inline; proc...

Don't Judge a Delphi Book Collection by it's Picture http://capecodgunny.blogspot.com/2018/08/delphi-book-collection.html

Hello everyone, we have recently started the alpha release phase to our third-party framework Gorilla3D. Gorilla3D is an extension to the 3D components of Firemonkey. Key-Features: - Skin-, Skeleton- und Vertexanimations for 3D Meshes (Key-Animations) - Integrated and fast Q3 Physics Engine (with collision detection) - Materials: textures, bump-mapping, vertex-color, phong-, blinn-, lambert-materials, water and reflection - Loading complex multi-mesh models with UV-textures - Logical model management (independent from FireMonkey tree), to manage a large amount of meshes and to instanciate separatly - Flexible particle-system with influencer-classes - Shadow-Volume rendering, VarianceShadowMapping (experimental) - Multipass-Rendering - Depth-Of-Field - Skybox-Support - Terrain rendering: from height-maps and procedural algorithms (Diamond-Square, Perlin-Noise, ...) - New Point3D-, Quaternion-, Transformationsmatrix- und VertexKey-Animationen - Multitrack AudioManager (threadsafe) - Asse...

eBook $8.00 RRP $39.99 Save 79% Delphi Cookbook - Third Edition By Daniele Spinetti, Daniele Teti | $39.99 $8 Quickly learn and employ practical recipes for developing real-world, cross-platform applications using Delphi. https://www.packtpub.com/application-development/delphi-cookbook-third-edition https://www.packtpub.com/application-development/delphi-cookbook-third-edition

I have developed Windows applications in Delphi for at least 15 years. I just started using 10.2 to develop a simple Android application. I discovered, quite painfully, that OpenDialog is not available on Android. It would have been nice if there had been an error message, but... I looked around and have seen people struggling with this for over 5 years. Is it really true that no one has developed a replacement for OpenDialog in all of this time?

Fellow Delphi and C++Builder developers! StyleControls VCL v.3.98 just released. Main feature - support of VCL Styles in DevExpress controls v.18.X. How to use: 1. Add scDevExStyleAdapter.pas to the StyleControls VCL package and recompile it. 2. Set LookAndFeel.NativeStyle properties to False in DevExpress controls. 3. Set LookAndFeel.Skin property to "VCLStyle" in DevExpress controls. StyleControls VCL Home: http://www.almdev.com

Part one of our "Roll your own" database articles. Have a nice weekend and happy coding! #Delphi #Embarcadero #DB #DBTheory https://jonlennartaasenden.wordpress.com/2018/08/10/building-a-delphi-database-engine-part-one/

Hi, i got the same delay on Characteristic Write in all my Android devices with BluetoothLE. I would have liked to overwrite the "DoWriteCharacteristic" method, but unfortunately the "TAndroidBluetoothLEManager" class is defined in the "implementation" of the "System.Android.Bluetooth" unit and I can not inherit it and overwrite the method. I only need to try to set the callback timeout with a lower value then 5000ms!! I tried btle on macosx, ios and android and i have no problems but in Android, i'm using 10.2.3 but i have this problem from XE10 tnkx Ivan

TMS to the rescue - Merging HTML with TAdvRichEditor by Joe C. Hecht https://www.tmssoftware.com/site/blog.asp?post=472

I have something very strange on Windows 8.1 with TidHTTPServer (Tokyo 10.2.3) sometime the server wan't start with error 10048 (WSAEADDRINUSE) but with netstat or Sysinternals TCPView I can't see any binding on port 80 ?! the only solution I've found is to restart my computer :( I guess it has something to do with program reset (F2) but I'm not sure.

We are glad to introduce some updates in our FM Styles collection! - New variant of "Calypso" style (now it has blue/greeen versions): https://www.delphistyles.com/fmx/Calypso.html - New variant of "MaterialOxfordBlue" style (now it has green/blue versions): https://www.delphistyles.com/fmx/MaterialOxfordBlue.html

What's the best alternative to Delphi for multi-platform development...any opinions?

came across this gem of a component works great! (especially as it deals with font size auto too) https://torry.net/quicksearchd.php?String=formresizer&Title=No https://torry.net/quicksearchd.php?String=formresizer&Title=No

I've been running the Delphi 10.2.2 release without any further patches for a while, and I just installed the most recent 10.2.3 release with consolidated patches. One thing I've noticed is this new IDE seems to "lock up" a lot more often when a "hovering cursor" causes the IDE to try looking up references or definitions. (One of the "insight" functions I guess.) There's no visual feedback that it's doing anything at all, it just looks like it stalled. I try moving and clicking the mouse, hitting the Enter key ... nothing. Apparently all of those event messages are getting queued-up somewhere and when the IDE comes back to life, it processes them. This didn't happen in the 10.2.2 IDE for me. Has anybody else noticed it? Is there some way to fix it so the IDE doesn't seem to just lock-up for so long? I don't know what exactly it's doing, but the time lag is similar to how long it takes for this project to do a Build, so I...

Has anybody ever pushed printer resources behind an Interface? We've got an app that runs on a machine that must be connected to a printer, and it controls resources on the printer very closely. The problem is, the way it's designed now, we can't run it on any other computer if the same printer isn't attached. I'm looking into pushing the printer-specific functions into an Interface so we can replace the printer with a stub, allowing us to test the app's logic without being connected to a real printer. The output of the stubbed Interface could go to a PDF printer or something similar if we need to see the output, or just a bitbucket if not. For simple printing, that's not too bad, but if we want to test things like paper-out detection on forms in various (4) paper trays, it's a little more involved. I looked through the code, and there are 7 distinct units that interface with VCL.Printers and API.WinSpool. What I'm wondering is where to draw the line...

Tokyo 10.2 Using Java2OP, after many struggles, I get this: MyClasses.pas issues: Activity: not found ArrayList: not found AttributeSet: not found Bitmap: not found Boolean: not found BroadcastReceiver: not found Builder: not found Bundle: not found Canvas: not found Closeable: not found ConnectivityManager: not found ContentValues: not found Context: not found Cursor: not found CursorFactory: not found Date: not found File: not found Gson: not found HashMap: not found HttpURLConnection: not found HttpsURLConnection: not found Inflater: not found InputStream: not found Integer: not found Intent: not found JSONArray: not found JSONException: not found JSONObject: not found JsonElement: not found JsonObject: not found JsonSerializationContext: not found JsonSerializer: not found List: not found Long: not found Map: not found MotionEvent: not found NetworkInfo: not found OutputStream: not found Paint: not found Point: not found ProgressDialog: not ...

YES ! I've successfully registered my first domain on Let's Encrypt with a Delphi Tokyo application ! Now it's time to clean the code, handling errors...you can prepare your credit card :D

Where do you place your unit uses? Over the years, I've come to preferring to place my uses in the Interface section only, even if its types, constants or methods only are used in the implementation section. What is your practice, and why do you prefer one pattern over the others - or why would you recommend against one of these patterns? unit Test; interface uses ThisUnit, ThatUnit; implementation end. vs unit Test; interface uses ThisUnit; implementation uses ThatUnit; end.

In what ways can you detect which edition of Delphi in installed from the installed files? I'm trying to distinguish between Standard, Professional, Enterprise, Architect from a batch file.