Imap4 客户端命令 LSUB

Question

我对 function TIdIMAP4.ListSubscribedMailBoxes(AMailBoxList: TStrings): Boolean; 的这个实现有疑问：

function TIdIMAP4.ListSubscribedMailBoxes(AMailBoxList: TStrings): Boolean;
begin
  {CC2: This is one of the few cases where the server can return only "OK     completed"
  meaning that the user has no subscribed mailboxes.}   
    Result := False;
    CheckConnectionState([csAuthenticated, csSelected]);
    SendCmd(NewCmdCounter, IMAP4Commands[cmdLSub] + ' "" *',
      [IMAP4Commands[cmdList], IMAP4Commands[cmdLSub]]);   {Do not Localize}
    if LastCmdResult.Code = IMAP_OK then begin
      // ds - fixed bug # 506026
      ParseLSubResult(AMailBoxList, LastCmdResult.Text);
      Result := True;
    end;
end;

当我调试时，我看到LastCmdResult.Text 字符串列表为空，但LastCmdResult.FormattedReply 字符串列表包含我的电子邮件服务器上的所有文件夹（收件箱、已发送、垃圾箱……）。当我尝试使用LastCmdResult.FormattedReply 计数或文本时，它立即丢失了数据并给出了LastCmdResult.FormattedReply.Count=0 和LastCmdResult.FormattedReply.Text=''。所以我想知道是否有办法在LastCmdResult.FormattedReply 中输入数据并获取我的电子邮件服务器文件夹，或者还有其他方法可以解决我的问题吗？

Answer 1

我对这个实现的函数TIdIMAP4.ListSubscribedMailBoxes(AMailBoxList: TStrings): Boolean; 有疑问：

当我使用最新的 SVN 版本的 Indy 进行尝试时，对我来说效果很好。

当我调试时，我看到LastCmdResult.Text 字符串列表为空，但LastCmdResult.FormattedReply 字符串列表包含我的电子邮件服务器上的所有文件夹（收件箱、已发送、垃圾箱...）。

当我运行它时，会发生相反的情况。 LastCmdResult.Text 包含预期的文本，LastCmdResult.FFormattedReply 为空（注意我直接提到了 FFormattedReply 数据成员，见下文）。

当我尝试使用LastCmdResult.FormattedReply 计数或文本时，它立即丢失了数据并给出了LastCmdResult.FormattedReply.Count=0 和LastCmdResult.FormattedReply.Text=''。

这是设计使然。 FormattedReply 属性旨在供客户端用于解析服务器回复，以便它可以填充 TIdReply 的属性值，并由服务器使用 TIdReply 的属性值生成新回复。因此，您无法读取客户端的 FormattedReply 属性。

所以我想知道是否有办法在LastCmdResult.FormattedReply 中输入数据并获取我的电子邮件服务器文件夹，还是有其他方法可以解决我的问题？

ListSubscribedMailBoxes() 的全部目的是返回 AMailBoxList 参数中的文件夹名称。如果这不适合你，那么要么

1. 您使用的是旧版/有缺陷的 Indy。

2. 您的服务器正在以 TIdIMAP4 无法解析的格式发送数据。

如果不知道您实际使用的是哪个版本的 Indy，或者服务器的回复数据实际上是什么样的，则无法以一种或另一种方式诊断您的问题。