Die Holländer

The problem is to get this TFDPhysMSSQLDriverLink casting based on FDConnection.

I can't get the name like "ODBC Driver 17 for SQL server" but I see things like "17" by the statement under, so that will do.. Uses FireDAC.Phys.ODBCWrapper; SQLDriverName:=TODBCConnection(DatabaseConnectionObject.ADConnection.CliObj).DRIVER_NAME;//DRIVER_VER;// DRIVER_ODBC_VER;

Looks very nice but hard to find what the cost will be.. Ian?

To avoid hanging of the UI I use FireDac CmdExecMode: MyQuery.BeforeOpen:=FDQuery1BeforeOpen; MyQuery.AfterOpen:=FDQuery1AfterOpen; MyQuery.ResourceOptions.CmdExecMode:=amAsync Execute MyQuery; procedure FDQuery1BeforeOpen(DataSet: TDataSet); Begin fCurTime:=now; JvDesktopAlert2.HeaderText:='HeaderText'; JvDesktopAlert2.MessageText:='Fetching Data..'; JvDesktopAlert2.Execute(self.Handle); MyQuery.BeforeOpen := nil; End; procedure FDQuery1AfterOpen(DataSet: TDataSet); Begin //Reset MyQuery.ResourceOptions.CmdExecMode:=amBlocking; MyQuery.AfterOpen:=nil; Sleep(3000); JvDesktopAlert2.MessageText:='Execute Time: '+IntToStr(SecondsBetween(Now,fCurTime))+' Sec.'; JvDesktopAlert2.Close(False); //Extra Things.. End;

I've got thousands of large JSONS in the same format (like with intake data for many persons..) each with many objects and array's where the people wanted to do searching. I tried many Delphi JSON programming libraries but ended up by adding all the plain JSONS as records in the MSSQL database and wrote a SQL-View using the "OPENJSON" rowset function Now I can do: Select * FROM [View_JSON] where field=value Even better.. You can just do joins with "normal" tables.. Select * FROM [View_JSON_] left join myNormalTable on [View_JSON].field=myNormalTable.field=value and the speed.?

I like the native Delphi JSON Data Binding Wizard that creates objects for you by importing your JSON file.. neftali.clubdelphi json data binding wizard delphi 12

Fortran on place 9.. Why or for what is Fortran so populair nowadays?

I had the same issue by opening some of my D11.3 projects after D12.2 install. I just clicked and messed around the screen and I was able to get it back to sizeable. Not sure it was because of the "old" projectfiles..

Wise developers. MS SQL Express is great and the 10GB restriction is a lot of data. Easy to install and the database manager studio for managing your databases and testing your SQL's is also very good.

<?xml version="1.0" encoding="UTF-8"?> <PCConfiguration> <System> <Brand>Custom Build</Brand> <Model>Gaming Rig</Model> <DateAssembled>2023-10-15</DateAssembled> </System> <Hardware> <CPU> <Model>AMD Ryzen 9 5900X</Model> <Cores>12</Cores> <Threads>24</Threads> <BaseClock>3.7 GHz</BaseClock> <BoostClock>4.8 GHz</BoostClock> </CPU> <Motherboard> <Brand>ASUS</Brand> <Model>ROG Strix X570-E Gaming</Model> <FormFactor>ATX</FormFactor> <Chipset>AMD X570</Chipset> </Motherboard> <RAM> <TotalCapacity>32 GB</TotalCapacity> <Type>DDR4</Type> <Speed>3200 MHz</Speed> <Modules> <Module> <Capacity>16 GB</Capacity> <Brand>Corsair</Brand> <Model>Vengeance LPX</Model> </Module> <Module> <Capacity>16 GB</Capacity> <Brand>Corsair</Brand> <Model>Vengeance LPX</Model> </Module> </Modules> </RAM> <Storage> <Drives> <Drive> <Type>SSD</Type> <Capacity>1 TB</Capacity> <Brand>Samsung</Brand> <Model>970 EVO Plus</Model> </Drive> <Drive> <Type>HDD</Type> <Capacity>2 TB</Capacity> <Brand>Western Digital</Brand> <Model>Blue</Model> </Drive> </Drives> </Storage> <GraphicsCard> <Brand>NVIDIA</Brand> <Model>GeForce RTX 3080</Model> <Memory>10 GB</Memory> <Type>GDDR6X</Type> </GraphicsCard> </Hardware> <Peripherals> <Monitor> <Brand>Dell</Brand> <Model>U2720Q</Model> <Size>27 inches</Size> <Resolution>3840 x 2160</Resolution> </Monitor> <Keyboard> <Brand>Logitech</Brand> <Model>G915</Model> <Type>Mechanical</Type> </Keyboard> <Mouse> <Brand>Razer</Brand> <Model>DeathAdder V2</Model> <Type>Wired</Type> </Mouse> </Peripherals> </PCConfiguration>

Openai-Codex

Seems the same issue like this Stackoverflow Question

I can't help you with this question. Don't you need the PEM (Public) file from the server people? Isn't it possible to ask for the connect string from Azure at your database person ("someone else")? Like the example: https://samadhiweb.com/tags/Azure.html I believe, sometimes I see the Delphi database (FireDac) guru here on the form Maybe you can ask him about connecting the Mongo Azure database with SSL: Dmitry Arefiev

Please, if you find out some good things to know for other developers then come back here and add some solutions and info.

Mongodb with delphi 11.2 firedac https://github.com/grijjy/DelphiMongoDB

I'm using Azure MSSQL and that will connect just like a normal Server MSSQL using the Delphi Data Explorer. (View-ToolWindows-DataExplorer) Connect to MongoDB Database (FireDAC)

Creating a public endpoint What I understand is that it is not safe to publish the Azure database endpoint in your Delphi application. I still investigate if creating a public endpoint in Azure solve this. See link above..

In 11.3 it exist. I also saw some time ago that if you minimize a childform with Windows screen setting on 125% then the form disapears behind the taskbar.. (on a lot of Laptops it's default setting..) I don't have this issue on my machine because I like the auto-hide taskbar setting in Windows 😉

Using native XML Data Binding in Delphi. uses Sample_Invoice; {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); var Invoice: IXMLInvoiceType; begin Invoice:=LoadInvoice('sample_invoice.xml'); Showmessage(Invoice.AccountingSupplierParty.Party.PartyName.Name); Showmessage(Invoice.AccountingCustomerParty.Party.PartyName.Name); Showmessage(Invoice.InvoiceLine.Item.Name); end; end. Just did a small test and works great..

>and if I haven't saved my work it's a pain I always check the autosave option "when compiling or running".

Has it something to do with Android forces since June "MEETS_STRONG_INTEGRITY" of your device? https://developer.android.com/google/play/integrity/additional-tools#check-device

If I understand it well, a extra parameter (strict) must be added to the configuration of the prompt. To support this in Delphi you have to look to a ChatGPT implementation for Delphi IDE, like: https://github.com/AliDehbansiahkarbon/ChatGPTWizard

https://learn.microsoft.com/en-us/azure/azure-sql/managed-instance/public-endpoint-configure?view=azuresql&amp;tabs=azure-portal >>You are exposing the db endpoint on the network. The problem is that developers might have applications working over a database developed over many, many years with a lot of queries, easy edit possibilities and business objects using Delphi FireDAC or other direct data access. It´s almost impossible, time sense, to convert such data access application with a REST API instead using the data objects already created. Nowadays, with systems like Azure with a database in the cloud I wonder if it is possible to create applications on the internet with a direct database connection in a save way using Delphi VCL or FMX. Thats why I investigate if there is a possibility and posted the link above.. That it is easy possible to use the azure database directly from a Delphi application I know because I wrote an VCL application just doing this and the users are very happy with it.

Delphi IDE ChatGPT My feeling is that a real kind of Copilot will also come for Delphi..

Dude, although its not so much code you posted this is more readable: type TPyThread = class(TPythonThread) protected procedure ExecuteWithPython; override; public constructor Сreate(createsuspended: boolean); end; procedure ExecPythonFile(const FFile, Params:string); const Arg: string = 'import sys' + #10 + 'def run_python_script(args_str):'+#10+ ' args_list = args_str.split()'+#10+ ' sys.argv = [sys.argv[0]] + args_list'; var Py: IPyEngineAndGIL; begin try PythonEngine.ExecString(Arg+#10+'run_python_script("'+Params+'")'); PythonEngine.ExecFile(FFile); except Raise; end; end; constructor TPyThread.Сreate(createsuspended: boolean); begin inherited Create(CreateSuspended); ThreadExecMode:=emNewInterpreterOwnGIL; // I USE Python12.dll FreeOnTerminate:=True; end; procedure TPyThread.ExecuteWithPython; Begin while true do ExecPythonFile(myfilename,'-i 2000 --r'); end;