下载网页后保存为mht格式的文件

原文http://www.eggheadcafe.com/articles/20040527.asp

引入com组件
Microsoft Activex Data Object 2.x library
和
Microsoft CDO For Exchange 2000 libarary
具体程序如下.

using System;
using System.Web;
using CDO;
using ADODB;
using System.Text;
namespace PAB.Web.Utils
{
public class MIMEConverter
{
//private ctor as our methods are all static here
private MIMEConverter()
{
}
public static bool SaveWebPageToMHTFile( string url, string filePath)
{
bool result=false;
CDO.Message  msg = new CDO.MessageClass();
ADODB.Stream  stm=null ;
try
{
msg.MimeFormatted =true;
msg.CreateMHTMLBody(url,CDO.CdoMHTMLFlags.cdoSuppressNone, "" ,"" );
    stm = msg.GetStream();
stm.SaveToFile(filePath,ADODB.SaveOptionsEnum.adSaveCreateOverWrite);
msg=null;
stm.Close();
result=true;
}
catch
{throw;}
finally
{
//cleanup here  
}
return result;
}
public static string ConvertWebPageToMHTString( string url  )
{
string data = String.Empty;
CDO.Message  msg = new CDO.MessageClass();
ADODB.Stream  stm=null;
try
{
msg.MimeFormatted =true;
msg.CreateMHTMLBody(url,CDO.CdoMHTMLFlags.cdoSuppressNone, "", "" );     
 stm = msg.GetStream();
data= stm.ReadText(stm.Size);
}
catch
{
throw;
}
finally
{
//cleanup here
}
return  data;
}
}
}