Robert Gilland

Yes I did that.

By sheer exasperation, I removed the conditionals for FASTMM4 LogMemoryLeakDetailToFile and FullDebugMode. And then GetDeviceCaps worked, no idea why. Another day of banging my head against the wall ends miraculously, Thank God.

I borrowed the below function from jclPrint.pas using Delphi 10.4.2 When function is called the entire process fails. What could be wrong. function GetPrinterResolution: TPoint; begin Result.X := GetDeviceCaps(Printer.Handle, LogPixelsX); Result.Y := GetDeviceCaps(Printer.Handle, LogPixelsY); end;

I am using the have an Interbase database with an Interbase2020 server. I have a table with a field of TYPE CHAR(6) DOMAIN CALLED INVOICECODE in it's primary key I call ALTER DOMAIN INVOICECODE TYPE CHAR(10) I get "unsuccessful metadata update MODIFY RDB$FIELDS failed action cancelled by trigger (1) to preserve data integrity RDB$TRIGGER_39 Cannot update index segment used by an Integrity Constraint" What can I do?

I am trying the same and with TNetHttpClient and getting an error: Error adding header: (87) The parameter is incorrect when I have an authorization header.

I have been given this system to look at in order to place a Delphi app inside a web browser: https://thinfinity-vui-v3-docs.cybelesoft.com/ Has anyone else tried to do this? Has anyone tried to use thinfinity?

I am using Delphi 10.2. How do I define an array of records in the type library editor?

I have a ALL.groupproj file, and I want to rearrage the order of the projects contained within, how do I do that? Using Delpho 10.2

I cannot understate the necessity to handle TLS1.3!

Previous code was procedure Tdtmdl.CheckDatabaseExists; var EmptyDB: string; begin if not FileExists(DBPath) then begin EmptyDB := DocumentsFolderPath + 'empty.sqlite'; TFile.Copy(EmptyDB, DBPath); end; end; procedure Tdtmdl.ConfigureDatabaseAndTable; var SQL: string; SL: TStringList; begin // if fActiveApp = TActiveApp.aaNone then exit; cnctnDB.Params.Values['Database'] := DBPath; CheckDatabaseExists; try cnctnDB.Connected := true; except on e:Exception do begin end; end;

We are trying to run this code as a linux service and the service is freezing. Can this code work under linux service conditions?

Victory: I created an empty file fist by this method and then all good: lsDBPath := DBPath; if( not FileExists(lsDBPAth))then begin lhandle := System.SysUtils.FileCreate(lsDBPath); System.SysUtils.FileClose(lhandle); end; cnctnDB.Params.Values['Database'] := lsDBPath; cnctnDB.Params.Values['SQLiteAdvanced'] := 'page_size=4096'; cnctnDB.Params.Values['OpenMode'] := 'ReadWrite';

I am having real trouble trying to create an SQLLite Database at runtime in Android. Does anyone know how to do this?

It seems to me that this library requires gnome or kde installed is that correct? I am getting an access violation when the GtkWindowNew function is called, so I am guessing the Linux box needs a GUI installed to run this code. Is that right? LibGDKHandle := LoadLibrary(PChar(LIB_GDK)); if LibGDKHandle = 0 then raise Exception.Create('libgdk-3 not found.'); GdkAtomIntern := GetProcAddress(LibGDKHandle, 'gdk_atom_intern'); LibGLibHandle := LoadLibrary(PChar(LIB_GLIB)); if LibGLibHandle = 0 then raise Exception.Create('GLIB 2 is required to be installed.'); GFree := GetProcAddress(LibGLibHandle, 'g_free'); IntClipboardOwner := GtkWindowNew(0);

Okay, but where do you deploy it to, what target platform? ie, how to get the built apk to the MacOS Transporter from Delphi 11.3?