pop3のメール受信でメモリーリークの原因がわからない？ (ID:35748)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 みなさんよろしくお願いいたします。 環境はwindows xp Delphi6 Personal にIndy９をDLしインストールしました。 http://www.wwlnk.com/boheme/delphi/tips/tec1610.htm の「IdPOP3でメールを受信する」でメール受信の勉強をしております。 サンプルをコピペして動かしているのですが どうしても、メモリーリークの原因がつかめません。 原因、対処法を教えていただきたいのですが。 よろしくお願いいたします。 jconvert.pasは http://www.geocities.jp/janeiyayo/files.html さんのものを使わせていただきました。 ボタンと、tmemoとTpop3を使用しました。 uses jconvert ; procedure TForm1.Button1Click(Sender: TObject); var Msg : TIdMessage; i, x : integer; s : string; begin IdPOP31.Host := '***.***.yahoo.co.jp'; IdPOP31.Port := 110; IdPOP31.UserName := 'xxxxxxx'; IdPOP31.Password:= 'yyyyyyyyy'; IdPOP31.Connect; for i := 1 to IdPOP31.CheckMessages do begin Msg := TIdMessage.Create(Self); IdPOP31.Retrieve(i, Msg); Memo1.Lines.Add(Msg.Subject); for x := 0 to Pred(Msg.MessageParts.Count) do begin if Msg.MessageParts.Items[x] is TIdText then begin s := TIdText(Msg.MessageParts.Items[x]).Body.Text; Memo1.Lines.Add(jconvert.ConvertJCode(s, SJIS_OUT)); end; end; end; IdPOP31.Disconnect; end;