>I tried your example and it worked - thanks.
>
>But then I changed to use the EncryptSessionStreamFile function and it failed.
>
>
>loCrypt = NewObject("_CryptApi",Home()+"FFC\_Crypt.vcx")
>lcHome = "c:\temp\"
>lcFile = lcHome + "base.txt"
>STRTOFILE(SPACE(2000), lcFile)
>loCrypt = NewObject("_CryptApi",Home()+"FFC\_Crypt.vcx")
>? loCrypt.EncryptSessionStreamFile(lcFile, "flabbergaster12345a", lcHome + Version()+".txt")
>
>
>I do not get the same results.
>
>I am stumped.
>
>--rab
Yes with EncryptSessionStreamFile() VFP7 encrypted file is not the same as the ones produced in 8 and 9.
In API declarations change SHORT to INTEGER (for VFP7). Under VFP7 with SHORT it was treating bool Final parameter as .T.
Cetin