掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
NMPOP3の例外発生を処理するには？ (ID:34201)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
NMPOP3は不可解。 失敗するとアプリを終了できなくなることがある。 var FailedNo: Integer; procedure TForm1.Button1Click(Sender: TObject); var C: TClass; begin ........... NMPOP31.TimeOut := 3000; C := ExceptionClass; ExceptionClass := EAbort; FailedNo := 0; try try NMPOP31.Connect; except on E:Exception do begin case FailedNo of 0: ShowMessage('エラー(HostLookupFailed)： ホスト接続に失敗'); 1: ShowMessage('エラー(AuthenticationFailed)： ユーザー認証に失敗'); end; end; end; finally ExceptionClass := C; end; end; procedure TForm1.NMPOP31AuthenticationFailed(var Handled: Boolean); begin FailedNo := 1; NMPOP31.Abort; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.