掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
受信したデータをファイル化するには？ (ID：1834)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
家に帰ってから考えていたのですがやっぱり上のソース以降 進めなくて困っています(追加した部分は現在コメントにしてあります。) こんな感じでよいのでしょうか？ // メール読み込み NMailPop3GetMail(S, Count, Subject, Date, From, Header, Body, nil, nil); DataName := 'NML' + Copy(date, 1, 4) // yyyy + Copy(date, 6, 2) // mm + Copy(date, 9, 2) // dd + Copy(date, 12, 2) // hh + Copy(date, 15, 2) // mm + Copy(Date, 18, 2); // ss Seq := 0; while FileExists(DataName + '_' + IntToStr(Seq) + '.nml') do Inc(Seq); try Fs: = TFileStream.Create(DataName, fmCreate); Fs.WriteBuffer(header^, StrLen(header)); // メールヘッダを保存 Fs.WriteBuffer(body^, StrLen(body)); // メール本文を保存 finally Fs.Free; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.