Ciao a tutti,

non riesco a capire se è un bug della classe TiniFile oppure mi sono
bevuto il cervello ( cosa probabile ).

Il punto è questo, leggo il seguente file ini :

[DB]
Server_Name=Server_Name
User_DB=User_Name
Password_DB=Password

[REPORT_DISPONIBILI]
; 1° Parametro = Descrizione del report a video
; 2° Parametro = Parametro da passare alla SP di estrazione
; 3° Parametro = Nome file del report
; 4° Parametro = Regole da attivare/disattivare separate da virgola
R1 = 1 # R1 # 20,21,22,23
R2 = 2 # R2 # 24,25,31
R3 = 3 # R3 # 26
R4 = 4 # R4 # 30
R5 = 5 # R5 # 28
R6 = 6 # R6 # 29
R7 = 7 # R7 # 27
R8 = 8 # R8 # 11,13,14,15
R9 = 9 # R9 # 16,17,18
R10 =10 # R10 # 2,3,4,5,19
R11 =11 # R11 # 9,10,40
R12 =12 # R12 # 8,12,33,42,43
R13 =13 # R13 # 34,35,36,39
R14 =14 # R14 # 38,41
R15 =15 # R15 # 44

[FTP_HOST]
Host=Host
User_Host=User_Host
Password_Host=Password_Host
Cartella_File_Host=/cartella/uno

[FTP_USER]
Host_User=User
User_User=User_User
Password_User=Password_User
Cartella_File_User=/cartella/uno
Cartella_File_Storici_User=/cartella/uno/storici

[DIRCTORY_TEMP]
WorkDir = c:\temp

[SCHEDULAZIONE]
; LUN-MAR-MER-GIO-VEN-SAB-DOM
WeekDay = GIO
TimeWeekDay = 12:00

[RIEPILOGO_SCARTI]
FileRiepilogo = Situazione_Scarti_AL_

[LOG]
; Il nome del file deve essere indicato senza estensione
FileLog = Report_Scarti

[MAIL]
pippo.pluto@paperino.it
topolino.papera@paperino.it
;ciccio.pasticcio@ppaperino.it

con il seguente codice :

Memo1.Lines.Clear;
oIniFile := TIniFile.Create('C:\temp\App.Ini');
Memo1.Lines.Add(oIniFile.ReadString('DB_ARCO', 'Server_Name', ''));
Memo1.Lines.Add(oIniFile.ReadString('DB_ARCO', 'User_DB', ''));
Memo1.Lines.Add(oIniFile.ReadString('DB_ARCO', 'Password_DB',''));
//
oIniFile.ReadSectionValues('REPORT_DISPONIBILI', ListBox1.Items);
//
Memo1.Lines.Add(oIniFile.ReadString('FTP_HOST', 'Host', ''));
Memo1.Lines.Add(oIniFile.ReadString('FTP_HOST', 'User_Host', ''));
Memo1.Lines.Add(oIniFile.ReadString('FTP_HOST', 'Password_Host', ''));
Memo1.Lines.Add(oIniFile.ReadString('FTP_HOST', 'Cartella_File_Host', ''));
//
Memo1.Lines.Add(oIniFile.ReadString('FTP_USER', 'Host_User', ''));
Memo1.Lines.Add(oIniFile.ReadString('FTP_USER', 'User_User', ''));
Memo1.Lines.Add(oIniFile.ReadString('FTP_USER', 'Password_User', ''));
Memo1.Lines.Add(oIniFile.ReadString('FTP_USER', 'Cartella_File_User', ''));
Memo1.Lines.Add(oIniFile.ReadString('FTP_USER',
'Cartella_File_Storici_User', ''));
//
Memo1.Lines.Add(oIniFile.ReadString('DIRCTORY_TEMP', 'WorkDir', ''));
//
Memo1.Lines.Add(oIniFile.ReadString('SCHEDULAZIONE', 'WeekDay', ''));
Memo1.Lines.Add(oIniFile.ReadString('SCHEDULAZIONE', 'TimeWeekDay', ''));
//
Memo1.Lines.Add(oIniFile.ReadString('RIEPILOGO_SCARTI', 'FileRiepilogo',
''));
//
Memo1.Lines.Add(oIniFile.ReadString('LOG', 'FileLog', ''));
//
oIniFile.ReadSectionValues('MAIL', ListBox2.Items);
//
oIniFile.Free;

Il problema è che ( mistero ) non mi visualizza nulla nella sezione
"MAIL", le ho provate di tutte ma niente da fare.

Qualcuno può gentilemente dirmi se sbaglio qualcosa oppure no ?

Ciao e grazie a tutti.

Giudici Enrico c/o Icograf

--- posted by geoForum on http://www.delphiedintorni.it