limelect

How ? in the IDE? the whole thing started by compiling the same source Into 2 different directories. P.S. very important. The problematic directory originally worked without any problems I came back to it after a few weeks then it happened. Furthermore, the program was on the backup so I could check.

No. the project has basically the 2 lines shown in the beginning Nothing special. Guys be aware that the source is the SAME. Nothing else procedure TForm1.fillLists; var i, k: Integer; str, str2: TStringList; begin ListBox1.Clear; ListBox2.Clear; str := TStringList.Create; str2 := TStringList.Create; FDConnection1.GetTableNames('', '', '', str, [osMy, osOther], [tkTable], False); for I := 0 to str.Count - 1 do begin ListBox1.Items.Add(str); ListBox2.Items.Add('Fields of Table ' + str); ListBox2.Items.Add('---------------'); FDConnection1.GetFieldNames('', '', str, '', Str2); for k := 0 to str2.Count - 1 do ListBox2.Items.Add(Str2[k]); ListBox2.Items.Add(''); end; str.Free; str2.Free; end; So simple it baffled me.

The time stamp is reasonable. Both projects are debug

Okay guys I am still very curious so I made this program information here https://www.swissdelphicenter.ch/en/showcode.php?id=1302 Same source different PE data I do not really know why the compiler makes 2 different execute on the same source but definitely, there is a difference As you can see..

@Attila Kovacs If I knew (with all my experience) what was going on I wouldn't put this post. The problem has NOTING to do with the source If you take the source and put it in one directory and compile the outcome is that the program does not give the expected result. That's it It does not read the database. I needed in a project to copy database content It is a Delphi compiler?????

Ok final verdict. Copied the good directory into a new directory and it works Crazy ha?????

Some news. Compare Hex of both exe (same source working and nonworking) sime to be different in content.

@Attila Kovacs This is why I give the NOBEL prize for free. I am with Delphi since #1 !!!! never but never had such a thing. Always take pas dpr and dfm and you got it. So this is why I put this post.

What I did was take a NOT working exe and put it in a working dir and the exe did not work! so it is NOT a direct problem But a compilation problem. Crazy as it sounds I cannot find why in one directory the compilation is OK and the other dir the compilation does not give a working exe although file !!!!! are the same !!!!!!!!!!

@Kas Ob. sorry with all due respect the above has nothing to do with the compilation and working project. It is crazier than it just a few checkboxes

Do not forget that the backup is supposed to be duplicate of the original. I can put the backup folder anywhere and it will compile and work. However, its files do not.

well I am the owner with full control

Copy the whole project from backup workes. Copy file from directory does not. can you plz explain your idea of how to do it?

@Kas Ob. Run as administrator does not help Something very basic is a fault here I tested your idea made a new directory and copied the whole project files !!! and it does not work. Only coping the directory works

@Attila KovacsThe whole point is that I have nothing to do with the program. . There is nothing to debug. as I made a new project from a working file and it does not work. Read carefully what I wrote

@DelphiUdIT Read carefully. Mad a new project by copping from backup the dpr pas dfm and compile it does not work. It has nothing to do with dproj But you gave me an IDEA I will check dproj on both programs

@Die Holländer In the About it does not say what I have. As far as I recall I have professional In the license, it says professional.

I have TDBEdit. I entered a number and would like to know BEFORE POST if the number exists in the database and cancels the post. If OK (number does not exist ) the POST is executed Now it gives a LOCK condition. What I tried procedure TForm1.FDTable1BeforePost(DataSet: TDataSet); begin Form1.FDQuery1.SQL.Clear; Form1.FDQuery1.SQL.add('Select *'); Form1.FDQuery1.SQL.add('from WeighingCows'); Form1.FdQuery1.SQL.add('WHERE Cownumber = :Cownumber'); Form1.FDQuery1.ParamByName('Cownumber').AsString := Drivers.DBEdit1.Text; Form1.FDQuery1.Open; if Form1.FDQuery1.RecordCount > 0 then begin MessageDlg('This number exist', mtError, [mbOK], 0); FDTable1.Cancel;<<<<<<<<<<< if execute then OK end; Form1.FDQuery1.Close; end; I got a LOCK condition. It seems I am not allowed to use SQL and table at the same time. I also tried FDTable1.CachedUpdates is true but then Form1.FDTable1.ApplyUpdates() ; gave LOCK too. Any help? P.S I tried that too //Form1.FDQuery1.Connection:=nil; //Form1.FDTable1.ApplyUpdates() ; //Form1.FDQuery1.Connection:=Form1.FDConnection1;

It works nicely

Thanks

It seems to be OK to running exe NOT in IDE

I add procedure TForm1.FDTable1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); begin Action:=daAbort; end; still 1 window messeg

which means?

@fr0st The first suggestion did not help lock. The unique suggestion seems to work but catching the error seems not to stop the window message; For a moment it enters data into DBGRID until I cancel 1. I do not want the Windows error messages only mine 2. If possible not create the record but that is not important as the cancel will delete it. #1 is the most important. procedure TForm1.FDTable1Error(ASender, AInitiator: TObject; var AException: Exception); begin MessageDlg('err1', mtWarning, [mbOK], 0); FDTable1.Cancel; end; procedure TForm1.FDTable1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); begin MessageDlg('err2', mtWarning, [mbOK], 0); FDTable1.Cancel; end;

Thanks, i will try both suggestions