#Delphi xe findinfiles how to

Performance on the desktop is good, until we try accessing a database on our head office server. The program keeps track of patients that have had ophthalmic procedures (such as laser or cataract surgery) with pre- and post-operative measurements. I am developing a Delphi program using Tokyo 10.2.2 and FireDAC with postgreql (10). Up to 160 per month! This is your chance! Add your money in our business, which brings us a 300 percent profit, put your money in three months or one year and earn income every month. We also offer you to participate in our business as an investor. NB:We don't send samples because I can't spent all time going to the post to send a bank note. Payment us in BTC to the wallet 3616hwk5TBJkzZFefTZ77vpgpDBLt9 AZeiĪfter you make the payment,you will have to send your shipping details to our e-mail address,for your security use only btc. They pass the UV test and the PEN test.They also work at vending machines and all banking facilitiesĥ super notes-40$10 super notes-80$20 super notes-160$30 super notes- 215$ I hope this article gets you started on Delphi’s DCP-File.High quality super bank notes all denominations with watermark and hologram.Premium paper made from cotton fiber. I just looped with a pattern of 60 Bytes here, that’s why i have an extra character here in front of the last name.

Something to note here: The last entry, which is the DPK-Entry seems to have a Header with a length of 61. So if you’ve done everything right, you can get an output like this: The last element is always the Package-DPK unit. So to get a list of contained units here, you simply skipp 60 Bytes and read 2 strings per element based on the number of contained units in our header. I highlighted theses fields in Green/Brown and Blue/Orange. This pattern goes on with units like “”, where the NameSpace is “Foo.Bar”. But when your unit is dotted like “Foo.OtherUnit”, it’ll contain “Foo”. When your unit is not dotted, the second string is always empty and consists only of the NULL-Character. The first string is our Unit-Name, the second one seems to be some kind of NameSpace. And 2 zero-terminated strings after each block. To sum it up here, each element of this list contains of a 60 Byte-Blob i haven’t investigated, yet. After that, a list of contained units with their own header follows. So to get a list of required DCPs, you simply read zero-terminated string after zero-terminated string based on the number of required DCPs as noted in our header. This is because it is directly followed by a list of zero-terminated strings which include the names of required DCPs. Right after our BPL-Name, we’ll notice “RTL”. So to sum it up, our header looks like this in Delphi: The Orange box simply contains the lengths in Bytes of the BPL-Name which follows the header (Excluding the terminating NULL-Character). Wait, we have to units, why does it tell me that there are 3? Quite simple, the DPK-File of your Package (In this case TestPackage.dpk) is included in this list, too. By fiddling around, you’ll notice that Green is the number of required DCPs and Blue the number of Contained Units. Green and Blue contain numbers, which change depending on the Number of contained Units and required DCPs. The Red-Field is our Signature as discussed before. I have outline the fields i already analyzed and describe them here. So our first 32 Bytes are for sure some kind of Header. By comparing different DCPs, you’ll notice, that the BPL-Name always starts at the same position (Byte 33). And this is the place where you’ll find the final BPL-Name. For example, for VCL150.bpl only a VCL.dcp exists. This is required when dealing with BPLs which have Postfixes. This is the name fo the BPL the linker will link to. YOu may validate this when loading a file to make sure you have a DCP. All DCP seem to start with it, so i declared it as our DCP-Signature. Something you’ll notice is, that the Stream starts with the 4 AnsiChars “PKX0”. Grab a Hex-Editor of your choice and look into it. This should do the job for experimenting. It requires only the RTL and has 2 empty units: MyUnit and Foo.OtherUnit. For analyzing a DCP, i created a new Package, called TestPackage.bpl. So let’s get started with our dirty work. I know that things might have changed from XE to XE8, but i hope this article is still helpfull to get anybody outside of XE started. Some searching didn’t reveal much (besides the same questions as i had). However, to do so, i had to work with DCPs, too. During the last past weeks, i wrote a Project-Analyzationtool, which is able to completely unwire all Unit-Dependencies and fix searchpathes. This includes name of BPL to link with, required DCPs and contained Units.

#Delphi xe findinfiles how to

During this Article, I’ll show how to read some very basic information from Delphi’s DCP-Files.