1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
function OuvrirCpt(IniCompte:String):TCpt;
var IniCompteOpen : TIniFile; ??
begin
Result:= ??
if fileExists(IniCompte) then
begin
try
IniCompteOpen := TIniFile.Create(IniCompte);
With Result,IniCpt do
begin
name:=ReadString('Compte', 'NomPrenom', 'Erreur');
email:=ReadString('Compte', 'Adresse', 'Erreur');
username:=ReadString('Compte', 'NomUtil', 'Erreur');
password:=ReadString('Compte', 'Passe', 'Erreur');
srvtype:=ReadString('Compte', 'Type', 'Erreur');
popserv:=ReadString('Serveur', 'Pop3', 'Erreur');
smtpserv:=ReadString('Serveur', 'SMTP', 'Erreur');
//IniCpt.ReadString('Serveur', 'IMAP', '');
smtpautent:=ReadInteger('Conf', 'SMTPAut', 0);
end;
end
else ShowMessage('On est dans le exit');
Finally
IniCompteOpen.Free;
end;
end; |
Partager