Turbo ExplorerコミュのIndy１０でメール読み込み時に文字化け

Turbo Delphi Explorer for Win32でメール（EMLファイル）の本文をMEMOコンポーネントにコピーするアプリを作りたいのですが、付属のIndy10のTIdMessageを使用すると文字化けしてしまいます。

コードはこんな感じです↓

UsesにIdMessageを追加

var mail: TIdMessage;

mail := TIdMessage.Create;
mail.LoadFromFile('EMLファイル');
memo1.Lines := mail.Body.Lines;

memo1 は本文をコピーしようとしてるTMemoコンポーネントです。
コード自体は他のPC内にあるのをうろ覚えで書いたのでチョッと間違ってるかもしれません。

英語のメールは問題なく本文がコピーされます。

どうすれば文字化けを回避できますか？

コメント(5)

最初
全て
最新の40件

[1] mixiユーザー 02月08日 12:39

まったく試していないのですが、TIdMessageのプロパティの中に、エンコーディングに関わるものがありませんでしょうか?

[3] mixiユーザー 02月08日 23:54

メールヘッダのエンコーディングは色々試してみたのですが、解決は出来ませんでした。

jconvert.pas を使用して↓のコードで解決できました。

Memo1.Lines.add(jconvert.ConvertJCode(mail.Body.text, SJIS_OUT));

どうもありがとうございました。

[4] mixiユーザー 02月09日 16:11

「jconvert.pas」とは考えも付きませんでした。
とても参考になりました。
が、その「jconvert.pas」は何処で入手できるものなのでしょうか?

[5] mixiユーザー 02月12日 14:48

僕は　http://tmz.skr.jp/programs/jconvert.lzh　から下ろしました。

このサイト↓はとてもためになりました。
http://oto.chu.jp/kujira/text/delphi/mail/sendmail.htm

ログインすると、みんなのコメントがもっと見れるよ