delphi - 在 Delphi/FreePascal 中解析电子邮件时间戳

Question

使用 FreePascal (FPC) 2.6.2 我想将电子邮件中的一些时间戳字符串转换为 DateTime 值(使用 Synapse IMAPsend 从 IMAP 服务器检索) :

Date: Thu, 1 Aug 2013 20:07:43 -0400

从我读到的 StrToDateTime() 和 TFormatSettings 来看，我没有找到直接执行此操作的方法。他们通常期望像 1/8/2013 20:07:47 这样的字符串，其格式如 dd/mm/yyyy 和 hh:mm:ss并且无法处理 UTC 偏移量。

我是否有必要先切碎并重新排列字符串，然后自己转换短月份名称和偏移量？

Answer 1

如果您使用 Synapse；在synautil.pas文件中你可以找到DecodeRfcDateTime函数。通过此功能，您可以执行您要求的操作。