Interpret DFM Variables.Data

[Henrique]

I'm developing a tool to document all the components from the .DFM files and for that I need to read the Variables (Variables.Data) property of DFM. I tried to use the TVariables.ReadBinaryData routine as a basis to obtain the information of the variables but I couldn't.
Could you help me?

In the example below, using the Variable Editor I defined the variable "schema" as an integer for testing only:

object OracleQuery2: TOracleQuery
SQL.Strings = (
'select *'
'from all_objects'
'where owner = :schema')
Optimize = False
Variables.Data = {
04000000010000000E0000003A0053004300480045004D004100030000000000
000000000000}
Left = 200
Top = 72
end

 

[Marco Kalter]

Can you let me know what exactly goes wrong when you use TVariables.ReadBinaryData?

 

[Henrique]

We have a routine that reads DFM files as a text file and we are not instantiating TVariables because we have thousands of datamodules and it would be too slow to instantiate classes. The idea is to document all SQL's and show their variables as well as the types of variables, treating DFM as text.
To use the TVariables.ReadBinaryData routine we need the TOracleQuery component and in this documentation we would not like to instantiate any type of object.

 

[Marco Kalter]

If you send an e-mail to support@allroundautomations.com we can provide the TVariables.ReadBinaryData source code so that you can use it to determine the variable names, types, and values.

 

[Henrique]

We have the sources for TVariables.ReadBinaryData, but I'm not getting it to work with the .dfm data.

I sent the email and explained.

Thank you very much.