Kamyar.Kimiyabeigi
شنبه 20 مهر 1387, 09:18 صبح
procedure TForm1.Button1Click(Sender: TObject);
var
iMsgCount, I, intIndex, j: Integer;
begin
POP3.Connect;
iMsgCount := POP3.CheckMessages;
Memo1.Lines.Add('CheckMessages: ' + IntToSTr(iMsgCount));
for I := 1 to iMsgCount do
begin
Msg.Clear;
POP3.Retrieve(I, Msg);
// POP3.RetrieveHeader(I, Msg);
if Msg.IsEncoded then
Memo1.Lines.Add('IsEncode: True')
else
Memo1.Lines.Add('IsEncode: False');
Memo1.Lines.Add('ContentTranfer : ' + Msg.ContentTransferEncoding);
Memo1.Lines.Add('ContentType : ' + Msg.ContentType);
Memo1.Lines.Add('Subject: ' + Msg.Subject);
Memo1.Lines.Add('IsEncode: ' + IntTostr((Ord(Msg.IsEncoded))));
Memo1.Lines.Add('Date: ' + DateToStr(Msg.Date));
{if Msg.MessageParts.Count > 0 then
begin
for j := 0 to Msg.MessageParts.Count-1 do
begin
if Msg.MessageParts[j] is TIdText then
Memo1.Lines.Add('Body: ' + TIdText(Msg.MessageParts[j]).Body.Text);
end;
end;
else}
Memo1.Lines.Add('Body: ' + Msg.Body.Text);
Memo1.Lines.Add('*****************************');
end;
Memo1.Lines.Add('End');
end;
من يك ميل زدم و نتيجه رو به صورت زير گرفتم با توجه به كدي كه در بالا براتون گذاشتم
CheckMessages: 1
IsEncode: False
ContentTranfer :
ContentType : text/plain
Subject:
IsEncode: 0
Date: 1899/12/30
Body:
Content-Type: text/plain; charset=us-ascii
body is not empty
Kamyar Kimiyabeigi
--0-2117900021-1223704697=:27726
Content-Type: text/html; charset=us-ascii
<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman,new york,times,serif;font-size:14pt">body is not empty<br><div> </div>Kamyar Kimiyabeigi<div><br></div></div><br>
</body></html>
--0-2117900021-1223704697=:27726--
*****************************
End
حالا من چه جوري اين متن رو كه body is not empty هست از body.text بگيرم ؟