delphi - Indy POP3 将标题放入 TMemo

Question

我想将 POP3 消息中的标题文本检索到 TMemo 中。我不知道该怎么做。这是我到目前为止所得到的:

try
IdPOP31.Connect();
MsgCount := IdPOP31.CheckMessages;
for i:= 1 to MsgCount do
begin
try
 FMailMessage := TIdMessage.Create(nil);
 IdPOP31.Retrieve(i,FMailMessage);
 Memo1.Lines.Add('Mesage #: ' + IntToStr(i);
 Memo1.Lines.Add('From name: ' + FMailMessage.From.Name);
 Memo1.Lines.Add('From address: ' + FMailMessage.Sender.Address);
 Memo1.Lines.Add('Subject: ' + FMailMessage.Subject);
 Memo1.Lines.Add('From:' + FMailMessage.From.Address);
 Memo1.Lines.Add('Recipients: ' + FMailMessage.Recipients.EMailAddresses);
// HOW DO I GET THE HEADER ???????
 Memo1.Lines.Add(FMailMessage.Body.Text);
 Memo1.Lines.Add('=================================================');
finally
 FMailMessage.Free;
end;
IdPOP31.Disconnect;
end;

Answer 1

您可以使用Headers消息的属性，即 TStringList后裔。因此，要将消息的 header 值添加到备忘录中，您可以使用以下语句之一:

// either you can use AddStrings method
Memo1.Lines.AddStrings(IdMessage1.Headers);
// or add it as string list's text e.g.
Memo1.Lines.Add(FMailMessage.Headers.Text);