掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TIdMessageのOnInitializeISOイベント割り当て (ID：148293)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
プログラム自体に問題は無さそうですがプログラムの記述にいくつか疑問が残ります。 smtp := nil; try smtp := TIdSMTP.Create(nil); finally if smtp <> nil then begin smtp.Disconnect; smtp.Free; end; end; となっていますが クラスの生成と try の関係は smtp := TIdSMTP.Create(nil); try finally smtp.Free; end; このように記述すべきで そのように書いていないので代入文やifが増えていってますね。 元の書き方だとクラス生成前にエラーになると finallyに飛んで freeでエラーになるので free前にわざわざ生成されたか判断しているかと Connectで接続先が見つからなくてもそのまま処理が進むのが不安です。 あとエラーにはなりませんが、 Connectされる前にエラーでfinallyに飛ぶとDisconnectされるみたいですね。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.