掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンポーネントを使わずにメール送信するには？ (ID：3509)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
イベントをトラップするクラスを作れば良いと思います。 例えばTSMTPのOnConnectの処理を定義するとして。 TEventTrap = class private procedure OnTrapConnect(Sender: TObject); //トラップしたいイベントと同じ型のメソッドを定義 end; procedure TEventTrap.OnTrapConnect(Sender: TObject); begin //処理を書く end; そして、SMTPオブジェクトにメソッドポインタを割り当てる var SmtpRef :TNMSMTP; EventRef :TEventTrap; begin SmtpRef := TNMSMTP.Create(nil); EventRef := TEventTrap.Create; SmtpRef.OnConnect := EventRef.OnTrapConnect; これで該当の処理が実行されます、こういう意味で良いでしょうか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.