POP3 problemer
Jeg bruger fastnet\'s TNMPOP3 komponent og har følgende kode:procedure TForm1.FormCreate(Sender: TObject);
var Ini : TInifile;
IniName, MailServer, UserName, Password : string;
begin
IniName := ExtractFilePath(Application.ExeName) + \'Shell.ini\';
Ini := TIniFile.Create(IniName);
MailServer := Ini.ReadString(\'Mail\', \'MailServer\', \'10.0.0.10\');
UserName := Ini.ReadString(\'Mail\', \'Username\' ,\'ShellGeoDK\');
Password := Ini.ReadString(\'Mail\', \'Password\', \'shell\');
Ini.Free;
Pop3.UserID := UserName;
Pop3.Password := Password;
Pop3.Host := MailServer;
try
Pop3.Connect;
finally
Pop3.Disconnect;
end;
end;
procedure TForm1.POP3AuthenticationFailed(var Handled: Boolean);
begin
Form1.Caption := \'Authentication failed\';
Handled := false;
end;
Hvis brugernavn eller password ikke er korrekt eller findes, får jeg en exception.
Hvordan kan jeg handle den, så jeg ikke får den standard meddelelse?
Hvis brugernavn og password er OK virker det godt nok.
Er der noget der har en god ide?
