{"id":1372,"date":"2013-04-23T11:12:36","date_gmt":"2013-04-22T23:12:36","guid":{"rendered":"https:\/\/www.deltics.co.nz\/blog\/?p=1372"},"modified":"2013-04-23T11:12:36","modified_gmt":"2013-04-22T23:12:36","slug":"dproj-woes","status":"publish","type":"post","link":"https:\/\/www.deltics.co.nz\/blog\/posts\/1372\/","title":{"rendered":"DPROJ Woes"},"content":{"rendered":"[Estimated Reading Time: <\/span> 4<\/span> minutes]<\/span><\/span>

I spent the best part of half a day last week trying to get to the bottom of a very strange issue on a project I was working on. I had just created a new unit in the project and had reached a point where I needed to add that unit to the uses<\/strong> list of an existing unit in the same project. It was at that point that things started to go awry.
\n
\nWhen it encountered the new unit in the uses list of the referencing unit, it complained that the file did not exist.<\/p>\n

This was strange because I was sure that the unit was in the DPR uses list and so if there was any problem with it not existing this should have been encountered before. So I double checked, and sure enough the unit was in the DPR uses list.<\/p>\n

The first thing I always check when I get spurious errors involving unit references is my project search path and the possibility that I might have some old DCU’s lurking in places that they should not be.<\/p>\n

So I checked this and – as I thought, this being a new unit – this was not the problem. There were no DCU’s or old copies of PAS files where there shouldn’t be (no duplicates etc) and they were all up to date (full build’s were indeed building fresh new DCU’s). But, to be doubly sure I deleted all history files and all DCU’s anyway.<\/p>\n

Nothing changed.<\/p>\n

But, at least duplicate\/old DCUs were eliminated as a possibility.<\/p>\n

Next, I removed the unit from the unit uses list, and to make doubly sure that it was still being compiled by the project (by virtue of it being referenced in the DPR uses list) I added some code to the initialization section of the new unit, to throw up a message box at runtime, just so I could be certain that it was being compiled into the project.<\/p>\n

Sure enough, the project compiled successfully and when it was run the message was presented as expected. Clearly this unit that the compiler was complaining did not exist not only did exist but was compiling without a hitch.<\/p>\n

So, thinking that whatever SNAFU had occurred had perhaps now resolved itself somehow, I added the unit back to the other unit uses list:<\/p>\n

“ERROR: File does not exist”<\/p><\/blockquote>\n

Aaagh! Ok, so what next ?<\/p>\n

Well, the unit name was a dotted style name, a convention that I have embraced since Delphi 7 and though it has caused the occasional problem it has generally been a sound strategy. But in this case, there was a part of the unit name that might – at the edge of reason – conceivably cause some problem. The unit name was “<...>.Directory.Interfaces”<\/strong>.<\/p>\n

The <...><\/strong> part was common to a large number of other units in the same project and since this had not been a problem up to now I had no reason to think they might be involved in this case. Similarly “Interfaces”<\/strong> was part of a number of other unit names, with no problems to date.<\/p>\n

“Directory”<\/strong>, on the other hand, was a new addition to the lexicon of unit name components. Even so, I had established that this was not causing problems in the DPR<\/em> uses<\/strong> list so I could not envisage why it would be an issue in a unit<\/em> uses<\/strong> list.<\/p>\n

But, the first rule of problem solving: Eliminate the improbable.<\/p>\n

So I went back to the beginning. I removed all references to my new unit and created another new unit with a simple, plain name: “Foo”<\/strong>. A true classic. \ud83d\ude42<\/p>\n

Everything went as before. No problem when compiling this with a reference in the DPR uses list but as soon as I added it to the other unit involved:<\/p>\n

“ERROR: File does not exist”<\/p><\/blockquote>\n

This was getting ridiculous.<\/p>\n

OK, so remove the reference from this unit and add it to some other arbitrary unit instead:<\/p>\n

“ERROR: File does not exist”<\/p><\/blockquote>\n

At this point I decided that my entire Delphi installation might have some deeper issues and the prospect of having to re-create my entire development environment began to lurk ominously in the shadows.<\/p>\n

One last thing occurred to me to try: the DPROJ<\/strong> file.<\/p>\n

I knew that it contained information about the project contents because this was the place where – among other things – the order of units in the Project Manager\/Explorer<\/strong> was maintained.<\/p>\n

But I also knew that aside from compiler and other project settings, the DPR was still the definitive reference for the project contents – or should be. Fortunately, the project had no particular specific options set. In particular, the search path referenced only a couple of 3rd party source trees (Indy, FastMM) which could easily be restored.<\/p>\n

So I simply deleted the DPROJ. With interesting results.<\/p>\n

Suddenly my project would not compile at all since it transpired that I had several units missing from my DPR uses list. These were not units that were previously on the project path because these were units that were part of the project’s own source tree which was not previously on the project path at all.<\/p>\n

Equally I had already deleted all the project DCU’s so it couldn’t have been that the compiler had previously been picking up old DCU’s before now. The only thing that had changed was that the DPROJ had been deleted and now recreated from scratch (by the IDE).<\/p>\n

Once I dealt with the missing units and had a compiling project once more, I added my new unit back in to the DPR<\/strong> and unit<\/strong> uses<\/strong> lists as required and hey presto. Everything was fine once more.<\/p>\n

The lesson I learned from all this:<\/p>\n

When experiencing perplexing and apparently impossible errors involving unit referencing in a Delphi project, investigate the possibility of a corrupt or damaged DPROJ before wasting time on other causes that will consume more time to explore.<\/em><\/p>\n

I only wish I had kept a copy of the DPROJ so that I might have conducted a post-mortem on the damaged\/corrupted file which might have shed some light on what had happened.<\/p>\n","protected":false},"excerpt":{"rendered":"

[Estimated Reading Time: <\/span> 4<\/span> minutes]<\/span><\/span>I spent the best part of half a day last week trying to get to the bottom of a very strange issue on a project I was working on. I had just created a new unit in the project and had reached a point where I needed to add that unit to the uses list […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false},"categories":[4],"tags":[200,199],"class_list":["post-1372","post","type-post","status-publish","format-standard","hentry","category-delphi","tag-dproj","tag-ide"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p1TKYv-m8","jetpack_sharing_enabled":true,"jetpack-related-posts":[],"_links":{"self":[{"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/posts\/1372","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/comments?post=1372"}],"version-history":[{"count":5,"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/posts\/1372\/revisions"}],"predecessor-version":[{"id":1377,"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/posts\/1372\/revisions\/1377"}],"wp:attachment":[{"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/media?parent=1372"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/categories?post=1372"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/tags?post=1372"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}