Blocksize in V7

[Yuri Korin]

Hi Everybody,
Does anybody know how to get the blocksize of a table from OPAL in V7 of
Paradox?
Thanks,
Yuri Korin

[Tony McGuire]

I think you can *simulate* doing it directly.
Your install to tutil32.fdl may be elsewhere, so you need to find it first.

Someone may come along later with a direct implementation using tutil32.dll,
but the below should work.

var
f form
ay anytype
endvar
f.open("C:\\Program
files\\Corel\\Paradox7\\tutil32.fdl",winstyledefault+winstylehidden)
f.fldTable="c:\\testing\\subdir\\tablename.db" ; use your own table here
f.btnBrowse.moveTo()
ay=f.fldblocksize.value
f.enumobjectnames(ar)
f.close()
ay.view()

--
--
Paradox Support http://www.thedbcommunity.com/support/

Tony McGuire

"We act as though comfort and luxury were the chief requirements in life,
when all we really need to be happy is something to be excited about."
Charles Kingsley
_____________

[Tony McGuire]

I think you can *simulate* doing it directly.
Your install to tutil32.fdl may be elsewhere, so you need to find it first.

Someone may come along later with a direct implementation using tutil32.dll,
but the below should work.

var
f form
ay anytype
endvar
f.open("C:\\Program files\\Corel\\Paradox7\\tutil32.fdl",
winstyledefault+winstylehidden)
f.fldTable="c:\\testing\\subdir\\tablename.db" ; use your own table here
f.btnBrowse.moveTo()
ay=f.fldblocksize.value

[Rodney Wise]

If Pdox7 has enumTableProperties()
then check it out in Opal Help and try using it.

--
....
`·.¸¸.·´¯`·.¸¸.·´¯`·-> rodney

[Yuri Korin]

Thank you both for your responses. I was in fact trying to get Rodney's
"View Table Details" solution working under V7, hence the need to find the
blocksize.
Thus, the answer to your question, Rodney, is Yes and No; Yes there is
enumTableProperties() in V7 but it caused the need for a workaround in that
the method doesn't return Blocksize. It also doesn't return "TableLevel" or
"ShareMode". These last two don't appear to be "must have" items for the
solution to run so I've just commented that code out for the time being.
I am happy to say that Tony's solution does work very well indeed and has
enabled me to be able to get the solution to run successfully.
Thank you very much, Tony.
Thank you Rodney for providing such a helpful web-site. I didn't know of it
until I came across it in another post this morning.
Cheers.

Yuri Korin

"Rodney Wise" <NoMoreSpamP...@ars-florida.com> wrote in message
news:4107240c_1@cnews...

[Tony McGuire]

I know you didn't ask for it, but below is the main portions of the table
info available from the tutility form.

Included is the language to pull the current running version of Paradox, and
retrieve the appropriate Registery entry to get the path to the tutil32.fdl
file.

This should work in P7 (32 Bit) thru P10, at least.

var
f form
stPath,
stCompany string
arVersion array[] string
dyTableInfo dynarray[] anytype
endvar

breakapart(version(),arVersion,".")
if arVersion[1]="7" then
stCompany="Borland"
else
stCompany="Corel"
endif

stPath=getregistryvalue("Software\\"+
stCompany+
"\\Paradox\\"+arVersion[1]+".0\\Experts\\09\\CoreUI\\TableRepair","File
Name",
regkeycurrentuser)

f.open(stPath,winstyledefault+winstylehidden)

f.fldTable="c:\\testing\\subdir\\tablename.db"

f.btnBrowse.moveTo()

dyTableInfo["TableName"]=f.fldTable
dyTableInfo["SortOrder"]=f.fldSortOrder
dyTableInfo["CodePage"]=f.fldCodePage
dyTableInfo["ReadOnly"]=f.fldReadOnly
dyTableInfo["TimeStamp"]=f.fldTimeStamp
dyTableInfo["BlockSize"]=f.fldBlockSize
dyTableInfo["FileFormat"]=f.fldFileFormat
dyTableInfo["RecordSize"]=f.fldRecSize
dyTableInfo["NumberFields"]=f.fldNumFields
dyTableInfo["NumberRecords"]=f.fldNumRecs

f.close()
dyTableInfo.view("Table Info")

[Yuri Korin]

Thank you Tony for the additional information. I will have a go at using it
when I have a bit more time.
Cheers,

Yuri Korin

"Tony McGuire" <cng.paradoxcommunity@com> wrote in message
news:410793ae$1_2@cnews...

>
>
> I know you didn't ask for it, but below is the main portions of the table
> info available from the tutility form.
>
> Included is the language to pull the current running version of Paradox,
and
> retrieve the appropriate Registery entry to get the path to the
tutil32.fdl
> file.
>
> This should work in P7 (32 Bit) thru P10, at least.
>

..
..
..
..
..
..> f.close()