Jump to content

limelect

Members
  • Content Count

    781
  • Joined

  • Last visited

  • Days Won

    1

Posts posted by limelect


  1. 1. current folder is where execution is.

    2 first I checked in the IDE

    3 then I executed outside the ide (in the folder)

    4 a few hours it was NO.

     

    it seems something with Windows as this is the only explanation

    since now it is OK.

    Or Delphi compilation no other explanation.

     

     

    • Confused 1

  2. @Der schöne Günther 2 lines this is the INI

     

    Crazy as it sounds I gave a full path I got yes

    then I deleted the full path I got yes.

    Well now I am buffeled 

    Is it Delphi that gives me a beautiful day? 

     

    What I think there might have been hidden characters although no reason for it

     

     
     


  3. Crazy but true.

    I have a solution moved to  TMemIniFile but need your help to understand

    var
     TIFFileini: TIniFile;

     

    begin
      TIFFileini:=
    TIniFile;.Create('ComPortServer.ini');
       if TIFFileini.SectionExists('Tst0') then
    Label1.Caption:='yes'
    else  Label1.Caption:='No';

     

    INI file

    [Tst0]
    HardFlow=0

     

    ANY IDEA WHY I GET NO ????????????
     D10.2.3 never had such a problem

     


  4. @Serge_G

    I do not know if what I have applied to your case but I have 2 functions in my table and sql

    that work

     

    1.

     ProjectsFDTable.Filtered := false;
      ProjectsFDTable.FilterOptions := [foCaseInsensitive];

      ProjectsFDTable.Filter := 'MyDateTime > {dt ' + FormatDateTime('yyyy-mm-dd ',
        AdvDateTimePicker2.Date) + ' 00.00.00 }' +
        ' and MyDateTime < {dt ' + FormatDateTime('yyyy-mm-dd ',
        AdvDateTimePicker2.Date) + ' 23.59.59 }';
      ProjectsFDTable.Filtered := True;

     

    2.

      FDQuery2.Close;
      FDQuery2.SQL.Clear;
      FDQuery2.SQL.Add('Select * from Projects');

      FDQuery2.SQL.Add('WHERE {fn CONVERT(MyDateTime,DATE)}=:MyDate');
      FDQuery2.SQL.Add('ORDER BY MyDateTime'); //=''03/10/2021''');
      FDQuery2.Params.ParamByName('MyDate').AsDate := AdvDateTimePicker1.Date;
    FDQuery2.Open;

     

     


  5. @Serge_G

    Thanks, serge however to use your program

    I needed to move the database to debug

    and change to

    Database=madb.sdb
    DriverID=SQLite
    While running I got date encode error recovery error

    D10.2.3 maybe because our date is different?


  6. Ok what you all say is that it is ONLY a problem with 2 Applications running but 

    In my case, it was only under 1 development.

    It seems that somehow the computer used to have access to more than one (same)database.

    (for that I have a program called "unlocker.exe.)

    well now I cannot check the problem as somehow it was fixed by itself

    So maybe you are all right.


  7. @joaodanet2018well I have a "GOOD" database; That is not the problem.

    using SQLiteDatabaseBrowserPortable the program has the same problem of lock.

    As I said the problem is developing a small program to fix the problem if it happens 

    again.

    Or finding an SQLite. DB fixer

    In the BDE days, I had many programs fixing the database with sources


  8. My problem is not Delphi but.... I am using SQLite.

    I have these lines

           ProjectsFDTable.Edit;
            ProjectsFDTable.FieldByName('ProjectName').AsString :='1111';
          ProjectsFDTable.Post;

    While developing I found I get locked situation I could not get rid off.

    It took me some time to understand the problem is within the DATABASE itself!!! not my program.

    Somehow while developing I made a locked database.

     

    So my main question is can someone  give me some link for source or guideline

    to build a small program to fix such problems within a database.

    Although I have a "GOOD" database I still would like to have such a program

     

    P.S During my "good old days" D6 ,D7, and before we had a program to fix the database records in BDE.

     


     

     

×