Gary

Hello all, My styles have disappeared from the IDE, and now projects will not compile. I get an intermediate .vrc file with the error cannot find file on this line: IcebergClassico VCLSTYLE "c:\\program files (x86)\\embarcadero\\studio\\22.0\\bin\\22.0\\Styles\\IcebergClassico.vsf" The files are where they are supposed to be in : C:\Users\Public\Documents\Embarcadero\Studio\22.0\Styles not the above. This happened after Delphi asked to update my path for run time packages (I'm not currently using run time packages). How do I point the IDE to the correct location. Thanks

@Programmer.. I think I will take this opportunity to do a clean install. This is a secondary machine(Laptop) that has a lot of old components I keep on it to support Legacy apps. I have been wanting to move them to a VM, so this will give me a chance to experiment with that. I'll open a new topic for VM suggestions, the latest discussion I could find was from 2019 Thanks for the help[

@Programmer... It happened after Delphi offered to correct my path to allow run time packages. Foolishly clicked OK

@limelect All my styles are in C:\Users\Public\Documents\Embarcadero\Studio\22.0\Styles

BDSCOMMONDIR c:\program files (x86)\embarcadero\studio\22.0\bin\22.0 That seems to be the problem, the last \22.0 How do I change it?

It's not just the project, the styles are not in the IDE. Project/Options/Appearance all styles are empty including default Windows style. Delphi IDE Style directory is wrong. I don't know where to redirect to the correct location

Hello all< I didn't realize this was such a difficult problem. I am using Devart UniDac and MariaDB (MySQL). I simply want to check in the OnBeforeEdit event of a dataset if the record is locked and display a message to my users. The UniTable has LockMode set to lmPessimistic. I have scoured Google for hours and there is no direct answer. What I have tried is to add an OnEditError handler to deal with it, however it just hangs with a SQL cursor and finally gives the timeout error. Expecting users to wait for a timeout error is not acceptable. How can I check if the record is locked in the BeforeEdit event handler?? Thanks in advance Gary

Thanks Anders

Agreed, however this is a small company with 4 users in 2 offices next to each other over a LAN connection. Leaving for lunch has happened 🙂. When they return their co-worker looks across the desk and says "Quit doing that". Handled! Seriously though I also read posts about "Ghost" locks, not sure what they are, but sounds as if a problem occurs while the record is locked it could leave the lock in place indefinably. Recently they did a price increase, several times they ended up editing the same record in Quickbooks (much bigger program than mine). When they would try to post the record they would immediately get a message telling them to try again. They have asked me to do the same. Simply checking if the record is being edited by someone else, either before editing or posting seems like an easy fix, until you try to implement it.

More correctly the DataSet could have other record locks, but the BeforeEdit would know the record in question. If not then instead of is DataSet.locked it would be if CurrRecord.Locked or the substance of.

Unlike Firebird/Interbase there is no Commit in MySQL(MariaDB), I think? I just tried editing a memo, then tried with a second connection - Time out started - then quickly canceled first edit and lock released - second edit good to go. Is it just not possible to do the following: procedure TdmPoolDetails.tblPoolsBeforeEdit(DataSet: TDataSet); begin if DataSet.Locked then begin Post record locked Message; Abort; end; end;

Thank You for your response. More info: I am not using transactions. The Uni example uses the Connection level lock and edits/Posts in code. That post had the same problems of waiting for a time out. They tried setting the lock type (lrimmedialty or IrDelayed) and still had problems. I would like to handle this at the DataSet level. I'm using data aware components, so for example (the real life big one) one user starts to edit a DBMemo component(They use this to log call conversations and service calls), another user try's to edit the same customer's memo. I want to notify the second user the record is locked for editing, not wait until they have added conversation notes and try to post the edit.

Hello all, Where is the best place to discuss Spring4D? the Google groups has been down for some time

I had the same problem a few years age, and now consider Delphi ransomware. When it happened, I was just going to go back to D7 but that license (CodeGear) would not work either. I ended up buying a new license (Pro version). I was contacted by a new Embarcadero rep when the renewal came due and found that the majority of the renewal price was premium support $500.00 I think, so now I just pay the $400.00 ransom each year. Shame on you Embarcadero!

You iterate over the items, check if it's checked if it is, save it to your table for var i := 0 to (FileListBox1.Items.Count - 1) do begin if FileListBox1.Selected[i] then begin // save item to table FileListBox1.Items[i] end;

Use the TCheckListBox.Selected Property Here is an example from the documentation: https://docwiki.embarcadero.com/CodeExamples/Alexandria/en/FileListBox_(Delphi)

Hello all, Looking forward to the upcoming Bootcamp, so I thought I'd finally set up Mac OS. I have an older IMac 2012 Catalina that was given to me, no go. XCode requires Monterey. I opened a trial account at MacInCloud their support page says all plans Managed and Pay-As-You-Go come with PaServer installed. I am a total newbie with Mac, still search as I may, I cannot find it on the machine. Can anyone using MacInCloud instruct me in how to start PaServer. Thank You, Gary

I sent email to them and they added it. Don't know why they advertise it as already installed if you have to request it.

Your book couldn't have come out at a better time for me! As a hobbyist I wrote my first commercial application for a friend about 3 years ago the old RAD way. I have been adding features and fixing bugs since then. As expected, I now have a big ball of mud. I had just started refactoring when the book was published. Every Delphi book I have purchased has paid for itself with even 1 tip, this was no different. I have found many useful suggestions in particular section 13.6.6 Arrays vs Cases. I had to laugh at myself reading 2.3.1 "the developed application looks as though the developers never saw a component they didn't like." CHECK

DEVART UniDac components have TVirtualTable, Dataset that stores data in memory and TVirtualQuery Dataset that allows to use SQL statements to retrieve data from in-memory datasets or simultaneously from several different RDBMS'es. I haven't used them in a production project, but I do use them constantly to simulate DataSets in tests. I used to use TClientDataSet but TVirtualTable has an AutoInc field that TClientDataSet does not and most of my tables do. Component List (devart.com)

You can also add popup menu's to the data module and they will be visible in the form as well. I use David's suggestion with global data module and popup connected to action list for my data grids, then assign the grids popup property at runtime depending on the grid shown. If I want to change or add functionality it's done in a single place.

From Delphi Twain - scan documents with Delphi (kluug.net) Windows 10, Delphi 11 Hello all, When I run the sample vcl1 in the debugger I get a EZCompressionError here. if Assigned(FTwain.SelectedSource) then begin try // Load source, select transference method and enable FTwain.SelectedSource.Loaded := TRUE; // display interface FTwain.SelectedSource.ShowUI := TRUE; // Scan FTwain.SelectedSource.Enabled := TRUE; except on E: EZCompressionError do { TODO : Nothing, does not effect. Investigate, caused by FTwain.SelectedSource.Loaded & FTwain.SelectedSource.Enabled } end; end; Anyone else get this? Any fix? Also I need to get the scanner resolution used. I tried this: var lReturn : Extended; var lValues : TTwainResolution; var lResult : TCapabilityRet := FTwain.SelectedSource.GetIYResolution(lReturn, lValues); but the return value is crUnsupported on a newer Canon Color Image Class laser printer. Is there another way to get the selected resolution? Thanks, Gary

Hello All, I am making some changes to an app that has been running for a little over 2 years. I have a MySQL DB with an attachments table that stores filenames, the actual files are in a shared folder on the same computer. The full path had been stored, now the path is in a settings table where it can be changed and only the filename in the attachments directory. To test it I have 2 computers with the database and attachments stored, the path in the settings table is of course different on each computer. All is well and I was ready to update it when I tried to run the client app from my laptop. All is well accessing one computer, but not on the other. When loading the form that deals with the files I do a check to make sure I have a valid directory DirectoryExists(AttachmentsDir), if not I show a message and close the window. This returns false for the second computer, it does work fine from my desktop. So it must be an access issue but I have tried the following with no joy: Confirm the laptop has access to the shared directory, I have a mapped drive that access it no problem, I can type the path just as it is passed to DirectoryExists into File Explorer and no problem there as well. I ran the program as administrator and still no access. The client has 4 users in it all day and a couple other occasional users, they have no problem with access currently, but I know that if this can happen here it WILL happen as soon as I update their copy. BTW the file server is a simple Windows 10 PC with a local network no outside access. Any ideas?? Thanks in advance Gary

More info.. Seems VPN not the problem. It is only blocked if I run from IDE. So app is fine running outside of Delphi, good enough for me.

Problem solved! Coming back to the laptop my BitDefender prompted me to turn the VPN back on, leaving it off everything is good, turn it on I get restricted. I went back to desktop, turned on VPN and it still connects. The Desktop is wired, the laptop is on wifi though. Why would only this app be blocked though? I can still access the folder with file manager and pdf reader with the VPN on. I thought, maybe the DirectoryExists() function could possibly be the problem, but commenting it out and letting the form load then selecting a file to open fails as well. I use ShellExecute to try to open the files with the users default app since the attachments can be different file types. No exceptions are raised, it just does nothing.