Dimensional Data

Delphi is one of the programming world’s legendary languages, a cornerstone of the history of software development. New languages have come to the fore as new platforms and frameworks have emerged, but Delphi has stood its ground as development trends came and went because of its reliability and efficacy as a development path.  What’s more, over time Delphi has not only not faded into the annals of history, it has evolved and expanded its capabilities, features and libraries on pace with the growing sophistication and needs of contemporary software solutions. Delphi has remained highly relevant throughout the 26 years since its inception, and today offers a unique and highly attractive proposition that combines multi-platform native capability, low-code high-productivity development, and integration with other languages (with C++ through C++Builder, with Python through Python4Delphi). And with Microsoft’s return to native as the preferred option for Windows app development, there are many reasons why it’s great to be a Delphi developer in 2021-2022. Here are the five most important reasons: 1. Delphi is The Best Available Framework for Native Windows Development As Embarcadero Product Manager Marco Cantu points out in his recent blog post, native Windows development is poised to return to the forefront after Microsoft’s decision to move away from UWP. Microsoft’s recent official deprecation of UWP, which originally replaced .NET alongside the release of Windows 8, indicates that native is once again the focus for application development. And it just so happens that Delphi and RAD Studio are positioned as the best available frameworks for native Windows development. For more information read Marco Cantu’s detailed blog post on this important decision from Microsoft. 2. Delphi Has a Big Community of Fans and Highly Loyal Following  Millions of developers around the world were introduced to programming through Delphi and Object Pascal, and many remain deeply loyal to it. There are also large local and international online communities for Delphi developers and fans. Every year Delphi developers get together for the annual online conference DelphiCon, to discuss the latest in, on and around Delphi. DelphiCon 2021 is scheduled to take place November 16th to 18th. Themes include blockchain, artificial intelligence, tools and APIs, low-code, VCL, components, libraries, and developer productivity. DelphiCon 2021 is open and registration is free. Sign up here: DelphiCon2021 3. Delphi is Super-Easy to Learn And Use Delphi is known as a very easy language to learn and use. Developers new to Delphi also have access to extensive free learning resources, including free courses and content on LearnDelphi.org, and on the Embarcadero Channel on YouTube. LearnDelphi.org Embarcadero YouTube Channel 4. The Full-Featured Delphi Community Edition is Available For Free Not only is Delphi super-easy to learn, developers new to Delphi can download the full-featured Community Edition to work with Delphi completely free forever. They can move to a paid version only after crossing a set revenue threshold. Delphi Community Edition is a full-featured IDE for building iOS, Android, Windows and macOS apps from a single Delphi codebase.Delphi Community Edition includes a code editor, powerful debugging tools, built-in access to popular local databases with live data at design time, Bluetooth capabilities, and a visual UI designer with support for pixel perfect, platform-specific styling. Delphi Community Edition is ideal for learners, independent developers and small teams looking to get started with development, […]

Hello C++ Developers, LearnCPlusPlus.org is packed full of great articles on new modern C++ topics for professionals and beginners. In this article, we point you toward some recent great posts about how to open old project files like *.mak and *.bpr files, how to create a DLL in FMX projects, and 64bits VCL Component. Do you want to set the runtime process priority of your applications in runtime? For the Artificial Intelligence field, we explain the simplest basic activation function that can be used in C++ applications. As you see, again we have a lot of different topics that can be used in Modern C++ applications. If you are new to RAD Studio, we think these posts may help you as much as a rapid introduction to programming in C++ if you’re a beginner, all the way to the most robust, modern, and latest techniques for those more experienced with the language. For those who are perhaps wanting to expand their knowledge with the most up-to-date features, routines, and methodologies this is a great little boost (pun intended) to your C++ knowledge. The new RAD Studio 11, C++ Builder 11, Delphi 11 are released with great new features and according to our tests, the LearnCPlusPlus.org examples are working well with the latest RADS 11. You can see more of our C++ posts on this blog by clicking the following dynamic search link: https://blogs.embarcadero.com/?s=C%2B%2B Here are our selections, How Can We Use C++ Builder in Modern and Professional Ways? These posts are designed to be easy to understand the modern C++. Here are the topics, How To Open Legacy C++ .mak Files With The Latest RAD Studio This Is How To Open C++ Builder .bpr Projects With The Latest RAD Studio How to Create a New Windows FMX DLL In C++ How to Create a New 64bits VCL Component in C++ or Delphi How To Set Runtime Process Priority On Windows In A C++ App What Is An Identity Activation Function in Neural Networks? What Kind of C++ Questions Are We Answering? These are the questions that we answer this week, What is the Project file in C++ Builder? What is .bpr file? Can I open very old C++ builder *.bpr project files with the latest RAD Studio? Is it possible to use forms of .bpr projects with the latest RAD Studio? How can I use forms of the old .bpr project? What is a Project file in C++ Builder? What is a .mak file? Can I open very old C++ builder *.mak project files with the latest RAD Studio? Is it possible to use .mak projects with the latest RAD Studio? How can I use old versions of a .mak project? What is Static Library? What is DLL? How can I create a new DLL Dynamic Library? Can I create a new DLL using with FMX framework? How can I create a function in a Dynamic Library? Where can I find a simple DLL example as a C++ Builder FMX? Can we develop Dynamic Link Libraries in C++ Builder for Windows FireMonkey Applications? Is it possible to use DLLs in multi-device applications? How can I create a new 64bits VCL Component? How can I use the New Component menu? How can I use and fill the New Component Wizard for the 64bits VCL applications? What is a Component in C++? What is an Object in C++? How I can set runtime process priority on my Windows C++ application? Can I change the process […]

With the downplay of UWP, native development is again the primary Windows development model, after 20 years (given we had .NET in between). Native is what Delphi does at its best, so this is great news for us. Over the last couple of weeks there have been  several announcements from Microsoft that partially reverse past directions in terms of Windows development. In short, Microsoft is downplaying (if not fully deprecating) the Universal Windows Platform model. Here are some relevant links: UWP has been the application development focus for Microsoft since Windows 8 was released, and it was replacing a focus on .NET architecture as the Windows development platform. Now this is a very interesting evolution from the perspective of developers (and development tools vendors like Embarcadero) who have remained focused on the classic native Windows development model, as we are first class citizens again after a very long time. From Native to .NET and UWP For many years, the native development model based on involving the classic Windows API and leveraging the three core Kernel/User/GDI libraries and all of their extensions has been considered an old-style, deprecated approach that would soon be abandoned. This is the classic model used by Delphi and C++Builder (with the VCL library), but also by Visual C++ (with the MFC library). Windows developers were first encouraged to move to .NET (with the idea that the future platform APIs would require .NET and classic applications at some point would stop running on Windows). Over time, it became clear this wasn’t going to be the case. As the .NET-centric focus slowed down, Microsoft started pushing the next idea: the Universal Windows Platform. This was primarily driven by two ideas: one, the ability to run the same application on a desktop PC, but also a Windows phone, a gaming console and a visor technology; two, a more secure platform with limited access to the underlying operating system. At the API level, supporting UWP implied using the WinRT platform APIs, which were different and incompatible with the classic APIs. UWP was slow to catch up. For Delphi and RAD Studio there wasn’t an option, but also migration from Visual C++ and .NET and C# would imply using different runtime libraries and different UI controls — accounting for a large rewrite of an existing application. When Windows 8 first shipped (still allowing classic API applications) there were very few UWP apps available, including from Microsoft. However, some of the new platform features were only available via the WinRT APIs, which is why developers and tools (RAD Studio included) came up with options to call WinRT APIs from within a classic application. RAD Studio Windows notifications support, for example, is implemented with this approach. While Microsoft kept pushing for UWP, indicating classic apps were going to be deprecated, developers didn’t really listen. The next step was promoting the so-called “Desktop Bridge”, that is, the ability for native applications to leverage more of the WinRT APIs and to be “packaged” in a light container for extra security. This last feature was achieved by packaging an application as an APPX and later MSIX. Again, RAD Studio has long offered this support directly in the IDE. Microsoft initially described the bridge as a way to help migrate applications to UWP, which was still the […]

What would it be like to create tools that integrate Delphi with Python? How much fun would it be to allow Delphi to execute Python code and call Python libraries, and allow Python to call modules in Delphi and interact with Delphi code, objects, interfaces and records? Two-directional integration is a great boon to Delphi developers, and the open-source Python4Delphi (P4D) library by Kiriakos Vlahos, author of the popular PyScripter Python IDE, does precisely that. Through Python4Delphi, Delphi developers can leverage the entire collection of Python libraries directly from their favorite IDE. Python4Delphi also allows Delphi developers to execute easily execute Python scripts and create new Python modules and types directly from Delphi applications. If you work with both Delphi and Python, and want to, here are our 10 top How-To’s for combining the two languages: 1. How Can I Get Started With Python for Delphi Developers? Part 1 of the Python for Delphi Developers webinar. Agenda includes Motivation and Synergies, Introduction to Python, Introduction to Python for Delphi, Simple Demo, TPythonModule, TPyDelphiWrapper 2. How Can I Combine The Strengths of Delphi and Python? Part 2 of the Python for Delphi Developers webinar, with Q&A. 3. How Can I Get Started With Python4Delphi? SynEdit is an optional library that provides syntax highlighting and proper indentation behaviors if you want to allow users to edit Python code in your application. It is an open-source VCL only component set available via GetIt or on GitHub. Installing it via GetIt is the easiest. 4. How Can I Set And Get a Variant Array Between Delphi And Python For Building Windows Apps? Python4Delphi offers the TPythonModule component which has a method and procedure to exchange a variant array. This post guides you to do that. You can also use Python4Delphi with C++Builder. 5. How Can I Use Threads Inside Python For a Windows Delphi App? We know Delphi supports Multithreading. Multithreading in Python can be achieved using Python Module Threading. However, In a use case like Delphi Application embedding Python(Python4Delphi) or CPython, the interpreter is not fully thread-safe. 6. How Can I Run a Simple Python Script in a Delphi Application Using Python4Dephi? How about combining the strength of Delphi and Python for your applications to provide first-class solutions for your customer needs? Thinking about how to do it? Don’t worry! Python4Delphi does it for us. 7. How Can I Use Python4Delphi With C++Builder? David I. has a fantastic blog post on using Python4Delphi with C++Builder. This was inspired by our previous webinars on the topic. and is the result of his collaboration with Kiriakos (AKA PyScripter), the maintainer of Python4Delphi, who also made some changes in the library to work better with C++Builder. 8. How Can I Make a Python Module as a DLL Using Python4Delphi? Sometimes we may need to share the functionalities as DLL and we know, creating a DLL in Delphi is a simple task. We learned how to create a Python Module and add methods to it in Delphi. How about making a Python module as a DLL using Python4Delphi and importing this Python module in another application? This post will guide you to do that. You can also use Python4Delphi with C++Builder. 9. How Can I Wrap Delphi Objects to Python Objects With Python4Delphi? How to wrap the […]

unit uMainForm;   interface   uses   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,   FMX.Controls.Presentation, FMX.StdCtrls, Windows, FMX.Objects, System.IOUtils,   FMX.Layouts;   type   TMainForm = class(TForm)     MaterialOxfordBlueSB: TStyleBook;     BackgroundImage: TImage;     Button1: TButton;     GridPanelLayout1: TGridPanelLayout;     Button2: TButton;     Button3: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     procedure SetWallpaper(APath: String);   end;   var   MainForm: TMainForm;   implementation   {$R *.fmx}   procedure TMainForm.Button2Click(Sender: TObject); begin   SetWallpaper(TPath.Combine(ExtractFilePath(ParamStr(0)),‘delphinaut.jpg’)); end;   procedure TMainForm.Button3Click(Sender: TObject); begin   SetWallpaper(TPath.Combine(ExtractFilePath(ParamStr(0)),‘cppnaut.jpg’)); end;   procedure TMainForm.SetWallpaper(APath: String); begin   SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(APath), SPIF_SENDCHANGE); end;   procedure TMainForm.Button1Click(Sender: TObject); begin   SetWallpaper(TPath.Combine(ExtractFilePath(ParamStr(0)),‘radnaut.jpg’)); end;   end.

DelphiCon is On! The world’s biggest annual online conference on, in and around Delphi is just a week away! DelphiCon 2021 is open, free, and loaded with incredible content and amazing prizes and giveaways. If you want to know just how hot Delphi is right now, this is an unmissable event! Here at Embarcadero we want to make this year’s DelphiCon the biggest ever, and to achieve that we need your help to reach everyone who loves Delphi. To make it easy to reach Delphi fans we’ve created a referral program that can also help you win big prizes! Here’s how it works: Refer And Win Big Prizes! The Prizes: 1. Top Prize: One randomly selected referrer will win a Mac Mini (with the powerful new M1 chip, which Embarcadero’s IDEs now support). 2. Two Runners Up: Two randomly selected referrers will each win a one-year Delphi license (without update subscription). 3. Everyone who successfully refers at least one signup will be granted access to the closed Special Session near the end of DelphiCon 2021. 4. Everyone who attends three or more sessions will win the Ultimate Delphi eBook Bundle, which contains: Alistair Christie’s “Code Faster in Delphi”, Nick Hodges’ “Coding in Delphi”, “More Coding in Delphi” and “Dependency Injection in Delphi”, and Marco Cantu’s “Object Pascal Handbook” (updated specially for DelphiCon 2021). 5. Everyone who signs up for DelphiCon 2021 will get a free version of Marco Cantu’s updated “Object Pascal Handbook”. The Rules: 1. Unique referral codes are used to track referrals. Only successful referrals with unique codes will be valid. 2. Each referral that leads to a signup will count as a “ticket” for the prize draw. The more people you successfully refer who sign up, the higher your chances of winning. 3. The winners will be randomly selected from the pool of referrers. How to Participate 1. Use your unique referral code to refer friends, colleagues and anyone you know who may be interested.  2. If you haven’t signed up for DelphiCon, do so here. You will be automatically redirected to a page where you can see your unique referral code and start referring. 3. If you’ve signed up already visit this page to get your unique referral code and check your activity. Note: If the DelphiCon 2021 referral program is a success, we will be introducing an ongoing referral program that will help our subscribers win incredible prizes, giveaways, discounts and more every month! Help us make this a reality! Good luck! More About DelphiCon More than 10,000 developers will be gathering together from November 16th to 18th for panel discussions and webinars on Delphi. Speakers DelphiCon has a top-tier lineup of speakers, including Marco Cantù, David Millington, Ray Konopka, Holger Flick, Nick Hodges, Alistair Christie, David Intersimone, Jim McKeeth. Find the complete list of speakers here. Themes Our speakers and guests will be discussing the future of development with Delphi, multi-platform app development, desktop UX, Rapid App Development, developer productivity, multi-threaded programming on multiple platforms, gaming, low-code and no-code, extending Delphi’s reach with C++Builder, Telegram bots, ethereum blockchain, connecting with REST, Windows 11, and IntraWeb apps. For a complete schedule of panel discussions click here.    See you there!

DelphiCon 2021 is coming up soon and in order to get in the spirit we created this desktop wallpaper that captures the essence of DelphiCon. DelphiCon 2021 is the best way to learn all about your favorite programming language. Sessions are planned around the latest features, as well as general best practices, and emerging technologies that apply to all versions. There are also sessions on integrations with other languages (C++, Python, etc.) and platforms. Where can I get the DelphiCon 2021 desktop wallpaper? What better way to apply your new DelphiCon 2021 desktop wallpaper than we a Delphi Win32 API call? This works in both VCL and FMX as long as you have the Winapi.Windows unit in your uses clause. For this API call we can use SystemParametersInfo() with SPI_SETDESKWALLPAPER as the first parameter. Download the DelphiCon 2021 desktop wallpaper now! What online sessions are available at DelphiCon 2021? Here are some of the sessions you will find at DelphiCon! Keynote – Beyond 10x – The Future of Development with Delphi Convert your VCL Database Application to Mobile and Multiplatform Entity Component Systems: A Different Approach to Coding How Tab Controls Can Ruin Desktop UX Effectively Using FMX List Controls Thriller: A Delphi Web App in 5 Work Days Move Your UI to the 23rd Century – Building a Data Dashboard with Delphi and Skia. Engage! Why Does the Cloud Matter for a Delphi Developer? Maximize Your Delphi Productivity Multi-Threaded Programming on Apple’s Mac M1 vs Mac Core i7 vs Windows Core i7 Developing Applications for the Raspberry Pi with Delphi 11 Castle Game Engine – Coming to Delphi! Delphi Does Low-Code: Cross-Platform REST Client in – 30 Minutes! Smartwatch Android Meets Delphi – Controlling Devices Multi-Platform Explorations using Delphi, FMX, Feeds, REST and More Control Arduino Manipulator with Delphi and Visuino over WiFi or Bluetooth Things That You Don’t Know About JSON in Delphi Leaving Delphi 7 – A Success Migration Case Using C++Builder to Extend the Reach of Delphi Invoice Generation via Telegram Bot Using FastReport VCL and Delphi FireDAC: Combining Power and Speed in Cross Platform Database Access (Live Panel) Fintech on the Ethereum Blockchain with Delphi Delphi Best Practices: The Top Seven Things you Should be Doing Building a Web Crawler with Delphi and Python APILayer: Features and Connecting with REST Check out the full list of sessions at DelphiCon 2021! Who is presenting at DelphiCon 2021? Who are these people in bright red Greek helmets? They’re the Delphi superheroes you’ll be running into at DelphiCon 2021! And which Delphi superpowers will they be talking about at DelphiCon? Find out on the Schedule & Talks page on the DelphiCon website. Sign Up Now! Who is sponsoring DelphiCon 2021? DelphiCon 2021 is has a huge number of sponsors this year and here are some of them: How can I sign up for DelphiCon 2021? Head over to the DelphiCon 2021 website and get your free ticket today!

procedure TForm1.Button2Click(Sender: TObject); var   i, X, Y: DWORD;     fLibrary: HMODULE;   fModel: Pointer;   fInterpreterOptions: Pointer;   fInterpreter: Pointer;   fStatus: TfLiteStatus;   fInputTensorCount, fOutputTensorCount, fNumDims: Int32;   fInputTensor, fOutputTensor: Pointer;   fInputDims: Integer;   fTensorName: PAnsiChar;   fTensorType: TfLiteType;   fTensorByteSize: SIZE_T;     // 28×28 pixel image as input   fInput: array [0 .. 28 * 28 – 1] of Float32;     // output 0 to 9   fOutput: array [0 .. 10 – 1] of Float32;     fValue: Extended; begin   fLibrary := LoadLibrary(LibraryName);     if fLibrary = 0 then   begin     ShowMessage(‘Error: Load tensorflow lite library ‘ + LibraryName + ‘ – ‘ +       SysErrorMessage(GetLastError));     Exit;   end;     try     fModel := TfLiteModelCreateFromFile(PAnsiChar(AnsiString(Edit1.Text)));       if fModel = nil then     begin       ShowMessage(‘Error: Create model from file – ‘ +         SysErrorMessage(GetLastError));       Exit;     end;       fInterpreterOptions := TfLiteInterpreterOptionsCreate;       if fInterpreterOptions > nil then     begin       TfLiteInterpreterOptionsSetNumThreads(fInterpreterOptions, 2);         fInterpreter := TfLiteInterpreterCreate(fModel, fInterpreterOptions);         // parameters / model can be removed immediately after the interpreter is created       TfLiteInterpreterOptionsDelete(fInterpreterOptions);       TfLiteModelDelete(fModel);         if fInterpreter > nil then       begin         fStatus := TfLiteInterpreterAllocateTensors(fInterpreter);           fInputTensorCount := TfLiteInterpreterGetInputTensorCount(fInterpreter);         fOutputTensorCount := TfLiteInterpreterGetOutputTensorCount           (fInterpreter);           // fLiteTensor* TfLiteInterpreterGetInputTensor(const TfLiteInterpreter* interpreter, int32_t input_index);         // returned structure TfLiteTensor         // an example is simple, there is no need to translate everything from the         // in general, the source of the: https://github.com/tensorflow/tensorflow/tree/master/tensorflow/lite/c         { typedef struct TfLiteTensor {           TfLiteType type;           TfLitePtrUnion data;           TfLiteIntArray* dims;           TfLiteQuantizationParams params;           TfLiteAllocationType allocation_type;           size_t bytes;           const void* allocation;           const char* name;           struct TfLiteDelegate* delegate;           TfLiteBufferHandle buffer_handle;           bool data_is_stale;           bool is_variable;           TfLiteQuantization quantization;           TfLiteSparsity* sparsity;           const TfLiteIntArray* dims_signature; }         fInputTensor := TfLiteInterpreterGetInputTensor(fInterpreter, 0);         fOutputTensor := TfLiteInterpreterGetOutputTensor(fInterpreter, 0);           if fInputTensor > nil then         begin           // info about tensor           // fNumDims := TfLiteTensorNumDims(fInputTensor);           // fTensorName := TfLiteTensorName(fInputTensor);           // fTensorType := TfLiteTensorType(fInputTensor);           fTensorByteSize := TfLiteTensorByteSize(fInputTensor);             // writing pixels to fInput, top to bottom, left to right           for Y := 0 to Image1.Picture.Bitmap.Height – 1 do           begin             for X := 0 to Image1.Picture.Bitmap.Width – 1 do             begin               if (Image1.Canvas.Pixels[X, Y] > 0) then                 fInput[X + (Y * Image1.Picture.Bitmap.Width)] := 1               else                 fInput[X + (Y * Image1.Picture.Bitmap.Width)] := 0;             end;           end;             // fTensorByteSize = Length(fInput) * SizeOf(Float32)           fStatus := TfLiteTensorCopyFromBuffer(fInputTensor, @fInput,             fTensorByteSize);             fStatus := TfLiteInterpreterInvoke(fInterpreter);             if fStatus = kTfLiteOk then           begin             for i := 0 to High(fOutput) do               fOutput[i] := 0;               fOutputTensor := TfLiteInterpreterGetOutputTensor(fInterpreter, 0);               // info about tensor             // fNumDims := TfLiteTensorNumDims(fOutputTensor);             // fTensorName := TfLiteTensorName(fOutputTensor);             // fTensorType := TfLiteTensorType(fOutputTensor);             fTensorByteSize := TfLiteTensorByteSize(fOutputTensor);               if fOutputTensor > nil then             begin               // fTensorByteSize = Length(fOutput) * SizeOf(Float32)               fStatus := TfLiteTensorCopyToBuffer(fOutputTensor, @fOutput,                 fTensorByteSize);                 if fStatus = kTfLiteOk then               begin                 ListView1.Items.Clear;                   for i := 0 to Length(fOutput) – 1 do                 begin                   // ingenious solution, coolest conversion                   fValue := StrToFloat(Copy(FloatToStr(fOutput[i]), 1, 17));                     if fValue = 1 then                   begin                     with ListView1.Items.Add do                     begin                       Caption := FloatToStrF(fValue, ffNumber, 17, 17);                       SubItems.Add(IntToStr(i));                     end;                   end;                 end;                   ListView1.AlphaSort;                   Beep;               end;             end;           end;         end;       end;     end;   finally     FreeLibrary(fLibrary);   end; end;