Jump to content

PhilPlus

Members
  • Content Count

    27
  • Joined

  • Last visited

Community Reputation

4 Neutral

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. PhilPlus

    ICS V9.3 announced

    Also the same 'missing constant error' for me via Getit (Delphi 12.2 patched) , all seems OK via the zipped install.
  2. PhilPlus

    Why Aren't You Using SQLite?

    I use MS Access : no installation, triggers, views, all the datas are in a single file but for Windows only.
  3. The problem is not so much the bug/fault on the site (it happens to everyone) but the time taken to resolve it. Not serious.
  4. PhilPlus

    Getit out of service

    Is Getit offline for everybody ? (and https://docwiki.embarcadero.com/ ...)
  5. Hello David Again I don't see the real problem. When you call the API just send a function which parse the parameter TTABSheet and return a tstringlist (or a string or an array). function sendData(MyTab: TTabSheet): tstringList; var comp: TComponent; begin for comp in MyTab do begin if (comp is Tcheckbox) and then Result.add('"' + comp.Name + '":"' + booltostr(Tcheckbox(comp).checked)) +'"' //or other logic else begin // other comp logic; end; end; end; After you just have to add the TstringList.commatext into your JSON Request.
  6. PhilPlus

    How to 'disconnect' a TFDQuery keeping the datas.

    Excellent Anders, excellent ! I didn't know this, first tests show that it was the exact simple solution I was looking for. The code is FDConnection1.Offline;
  7. PhilPlus

    How to 'disconnect' a TFDQuery keeping the datas.

    Ok but even with these options, when the TConnection is closed (FDConnection1.Connected := false) all the data are lost. So how to use the "offlien mode" ?
  8. PhilPlus

    How to 'disconnect' a TFDQuery keeping the datas.

    Thx, but TClientDataset seems more complex than my (not very cean) solution : a copy to FDMemeryTable, but it may be more efficient (perf and memory).
  9. PhilPlus

    How to 'disconnect' a TFDQuery keeping the datas.

    Thx I yet use these 2 variants (more or less) but I would find a simpler way as FDDataset have all the data in memory.
  10. I typically use TFDQuery connected to a database to use with a TDBGrid. Everything is OK but I would sometimes need to disconnect this TFDQuery while keeping the data in the TDBGrid, just for visualization, with, of course the loss of some functions related to the data update, but it does not pose any problem. It seems to me that it was possible with the old library 'ADODB' : http://etutorials.org/Programming/ma...ed+Recordsets/ Unfortunately I haven't found how to do this with the Firedac components (apart from making a copy in a TFDMemTable but this is a bit cumbersome). Has anyone already implemented this principle?
  11. Hello I'm not sure I understand your problems. I have an application with params used in API & VCL interface, every param is declared in a Table (from Database or Inifile) and is used dynanically to construct the param VCL Form AND the API Swagger file. For xyz param the table store its name (xyz) its label ("My parm xyz") its type (integer) and osme other informations (default value...) If in the interface xyz is set to '1' the API (here a GET method) become http://127.0.0.1/api/param?xyz=1&
  12. PhilPlus

    Action after all form destroy in project

    @Alexander Yes it works thx for the idea, what a pity that this is not possible in the .dpr
  13. PhilPlus

    Action after all form destroy in project

    Good idea, we can be sure that Unit3 initialization is used before other, but it is less clear for finalization.
  14. Hello, in a VCL project I need to run some code when closing the application, after destroying all forms. In the next sample I try to free a tstringlist but the line 'tsTest.Free;' is executed before the Tform onDestroy program Project1; uses Vcl.Forms, System.Classes, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}, Unit3 in 'Unit3.pas'; // global contains var : tsTest : TStringList; {$R *.res} begin tsTest := TStringList.Create; Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.Run; tsTest.Free; end. It is just a simple example of my problem, any idea how to do it ?
  15. PhilPlus

    FireDAC performances

    Hello As you need dataset 'to save data to other kind of structure' paging is not a good idea, just try FetchOptions.Mode := fmAll; and compare timings. Now it would be usefull to have more informations about your software : table size, Query size...
×