摘要： 首先从TidMessage中获得邮件的头信息： strHeader:=aIdMessage.Headers.text; 然后，用正则表达式取出Received: vReceiveIP:=GetNeedStrByPerlReg(strHeader,'(Received:)(.+)(])'); 再取出X-Originating-IP： vOriIP:=GetNeedStrByPerlReg(strHe... 阅读全文