Italian community of Lazarus and Free Pascal
Programmazione => Generale => Topic aperto da: xinyiman - Dicembre 12, 2012, 09:55:39 pm
-
Ragazzi qualcuno di voi ha avuto problemi con i file ini su win 7?!
Esempio codice
var
INI:TINIFile;
Nick,Pwd,Host,DBFile:String;
Crypt: TMyCrypt;
begin
Crypt.SetPassphrase('1234');
INI := TINIFile.Create(Application.Location + 'Config.ini');
//recupero i dati del database locale
Nick := Crypt.DeCifra(INI.ReadString('ConnDB_Locale','NickLocale',''));
Pwd := Crypt.DeCifra(INI.ReadString('ConnDB_Locale','PwdLocale',''));
Host := INI.ReadString('ConnDB_Locale','HostLocale','');
DBFile := INI.ReadString('ConnDB_Locale','DBFileLocale','');
TempoAttesa:=StrToInt(INI.ReadString('Impostazioni_Importazione','Temporizzazione','1'));
//recupero i dati del database remoto
Nick_Remoto := Crypt.DeCifra(INI.ReadString('ConnDB_Remoto','NickRemoto',''));
Pwd_Remoto := Crypt.DeCifra(INI.ReadString('ConnDB_Remoto','PwdRemoto',''));
Host_Remoto := INI.ReadString('ConnDB_Remoto','HostRemoto','');
DBFile_Remoto := INI.ReadString('ConnDB_Remoto','DBFileRemoto','');
Ini.Free; // After we used ini file, we must call the Free method of object
Il problema è che non trova nessuna stringa nel file, eppure il file esiste e i dati ci sono, qualcuno sa perchè?!
-
ogni volta che ho problemi con 7 alla fine c'entrano i permessi sui file.
sicuramente l'avrai già controllato ma, per scrupolo, la domanda è d'obbligo: ci sono i permessi per "everyone"?
una volta certi dei permessi fai un test con FileExists prima di istanziare con TINIFile.Create (stesso parametro ovviamente).
se anche qua c'è il via libera ma ancora non funziona... passa a linux :D
Edit:
prova anche a leggere una stringa senza usare Crypt
-
Questa sera provo per i permessi e ti dico