thanks Jonathon
I needed to know that because I save a xml file in the preference folder
for my app, but some users have problems with that because the antispyware
or antivirus software that they are using block my application when it's
trying to write in this folder.
That is the reason why I need to know is better write in preference or in
registry.
thanks for all the help.
Another suggestion?
Regards, Jose
At 09:05 a.m. 05/05/2006, you wrote:
Jose,
The code I gave you is for a simple TEXT file using the TextInputStream
and TextOutputStream functions. Don't use anything that will write to the
Win Registery unless it is required and many programs really DON'T require
it at all. All you really need is a simple text file to hold the
End-Users info for the Configuration. No top secret information at all.
CODE Correction: Found that the code had a error in it as instead of f for
the folderitem it had c.
Here is the code to read from the text file.
// Get Configuration info
Dim strin As TextInputStream
Dim f As FolderItem
f = GetFolderItem("MyProgram_CFG.ini")
If f <> Nil and f.exists then
strin = f.OpenAsTextFile
Name.text = strin.ReadLine
Address1.text = strin.ReadLine
Address2.text = strin.ReadLine
Phone.text = strin.ReadLine
Email.text = strin.ReadLine
strin.Close
End If
Even if the End-User looks at the text file, WHO really cares as it's just
his/her own info used for the configration info is all.
NOTE: I even use this for the programs own setup file as when the user
runs his copy of the program, it will do what he/she likes it to do. So
in the Open of the Main Event Handler, I had 3 foldleritems (c = config, s
= setup and u = user) that would check or read the "MyProgram_CFG.ini",
"MyProgram_STP.ini" and "MyProgram_USR.ini" files. So when the program
started, it was all ready to go, "PreSet" to the users likes.
Here is the code to read from the text file.
Dim strin1,strin2,strin3 As TextInputStream
Dim c, s, u As FolderItem
// Get Configuration info
c = GetFolderItem("MyProgram_CFG.ini")
If c <> Nil and c.exists then
strin1 = c.OpenAsTextFile
Name.text = strin1.ReadLine
Address1.text = strin1.ReadLine
Address2.text = strin1.ReadLine
Phone.text = strin1.ReadLine
Email.text = strin1.ReadLine
strin1.Close
End If
// Get Setup info
s = GetFolderItem("MyProgram_STP.ini")
If s <> Nil and s.exists then
strin2 = s.OpenAsTextFile
ProgramName.text = strin2.ReadLine
ProgramVersion.text = strin2.ReadLine
strin2.Close
End If
// Get User info
u = GetFolderItem("MyProgram_USR.ini")
If u <> Nil and u.exists then
strin3 = u.OpenAsTextFile
NumberOfUsers.text = strin3.ReadLine
strin3.Close
End If
Very simple...
Jonathon
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.5.3/331 - Release Date: 5/3/2006
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
Atte. Ing. José Andrés Morey
-------------------------------------------
[EMAIL PROTECTED]
[EMAIL PROTECTED]
www.auyantepui.com
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
