Connect Problem abfangen

**moelski**

Moin !

Ich verwende einen TIdIMAP4 Client um Mails von einem Exchange abzuholen. Soweit klappt das auch, aber von zeit zu Zeit funktioniert der Connect nicht - meist weil der Exchange nicht erreichbar ist.

Nun habe ich in meinem Code folgende Stelle:

zusammenfalten · markieren

Delphi-Quellcode:

			            MailReader.Connect(true);

            if MailReader.TheImap.Connected then begin

              SiMain.LogColored(clGreen, 'IMAP : Server connected successfully!');

              SiMain.LogMessage('IMAP : CheckState : '        + MailReader.CheckState);

              SiMain.LogMessage('IMAP : Folder in Mailbox : ' + MailReader.UsersFolders.CommaText);

              SiMain.LogMessage('IMAP : GreetingBanner    : ' + MailReader.TheImap.GreetingBanner);

              ProcessStep := PS_MAIL_GET;

            end else begin

              SiMain.LogFatal('IMAP : Couldn´t connect to Server !');

              ProcessStep := PS_END;      // Beenden bei Server No Connect

            end;

Im Normalfall klappt das, aber wenn der Connect eben nicht klappt macht meine Anwendung eine Bauchlandung.

Nun stellt sich mir die Frage was die beste Methode wäre das abzufangen. Reicht es das in eine Try Except zu kapseln?
Also in etwa so:

markieren

Delphi-Quellcode:

			  try

    TheImap.Connect(True);

  except

    // Exception behandeln 

  end;

Oder muss / sollte man da noch mehr Aufwand betreiben?

Connect Problem abfangen

Connect Problem abfangen

Forumregeln