limelect

@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

I own Delphi 10.2.3 with a license why I do not have FireDAC.Phys.MSSQL and more.? All I have is in the picture Is it only in enterprise Not in professional?

@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

I need just advice. I have no problems. I have IdTCPServer IdTCPClient with more than one client. I am using the server as a response to clients. However, I would like to send specific client information from the server, which is impossible. However, I saw a TIMER answer which I liked at the end of https://stackoverflow.com/questions/5530038/how-to-handle-received-data-in-the-tcpclient-delphi-indy Here comes the knowledge. If the server sends a message to whom does he send it? To all clients? Or else? The server message is not a response to the client message. I could not find a write instruction with the peer number. As I have the PeerPort on my server software (I keep a list) I suspect it is not possible to send from server text to a specific Client. A solution is to embed in the message a sign that a specific client will recognize. Any other solution in your opinion?

@Remy Lebeau As usual you are the greatest. Thanks But also everybody thanks

Just for knowledge. How will you save TIdContext and then interrogate the list? In my case, I use a stringlist with peernumber=worker# it is very helpful to search for peernumber. or vice versa. clients.IndexOfName(IntToStr(PeerPort)); in one case. or vice-versa. P.S. I do not suspect using outside the network of the project.