Click here to Skip to main content
Click here to Skip to main content

Convert any URL to a MHTML archive using native .NET code

By , 3 Apr 2005
 

Sample Image - MhtBuilder.gif

Introduction

If you've ever used the File | Save As... menu in Internet Explorer, you might have noticed a few interesting options IE provides under the Save As Type drop-down box:

Screenshot - Internet Explorer Save As menu

The options provided are:

  • Web Page, complete
  • Web Archive, single file
  • Web Page, HTML only
  • Text File

Most of these are self-explanatory, with the exception of the Web Archive (MHTML) format. What's neat about this format is that it bundles the web page and all of its references, into a single compact .MHT file. It's a lot easier to distribute a single self-contained file than it is to distribute a HTML file with a subfolder full of image/CSS/Flash/XML files referenced by that HTML file. In our case, we were generating HTML reports and we needed to check these reports into a document management system which expects a single file. The MHTML (*.mht) format solves this problem beautifully!

This project contains the MhtBuilder class, a 100% .NET managed code solution which can auto-generate a MHT file from a target URL, in one line of code. As a bonus, it will also generate all the other formats listed above, too. And it's completely free, unlike some commercial solutions you might find out there.

Background

I know people assume the worst of Microsoft, but the MHTML format is actually based on RFC standard 2557, compliant Multipart MIME Message (MHTML web archive). So it's an actual Internet standard! Web Archive, a.k.a. MHTML, is a remarkably simple plain text format which looks a lot like (and is in fact almost exactly identical to) an email. Here's the header of the MHT file you are viewing at the top of the page:

Screenshot - Mht file header

To generate a MHTML file, we simply merge together all of the files referenced in the HTML. The red line marks the first content block; there will be one content block for each file. We need to follow a few rules, though:

  • Use Quoted-Printable encoding for the text formats.
  • Use Base64 encoding for the binary formats.
  • Make sure the Content-Location has the correct absolute URL for each reference.

Not all websites will tolerate being packaged into a MHTML file. This version of Mht.Builder supports frames and IFrame, but watch out for pages that include lots of complicated JavaScript. You'll want to use the .StripScripts option on sites like that.

Using Mht.Builder

MhtBuilder comes with a complete demo app:

Screenshot - Mht demo application

Try it out on your favorite website. The files will be generated by default in the \bin folder of the solution. Just click the View button to launch them. Bear in mind that for the Web Archive and complete tabs, all the content from the target web page must be downloaded to the /bin folder, so it might take a little while! Although I don't provide any feedback events yet, I do emit a lot of progress feedback via the Debug.Write, so switch to the debug output tab to see what's happening in real time.

There are four tabs here, just like the four options IE provides in its Save As Type options. In MhtBuilder, these are the four methods being called, in the order they appear on the tabs:

Public Sub SavePageComplete(ByVal outputFilePath As String, Optional url As String)
Public Sub SavePageArchive(ByVal outputFilePath As String, Optional url As String)
Public Sub SavePage(ByVal outputFilePath As String, Optional url As String)
Public Sub SavePageText(ByVal outputFilePath As String, Optional url As String)

As of Windows XP Service Pack 2, HTML files opened from disk result in security blocks. In order to avoid this, we need to add the "Mark of the Web" to the file so IE knows what URL it came from, and can thus assign an appropriate security zone to the HTML. That's what the blnAddMark parameter is for; it causes the HTML file to be tagged with this single line at the top:

<!-- saved from url=(0027)http://www.codeproject.com/ -->

The other thing we need to do when saving these files is fix up the URLs. Any relative URLs such as:

<img src="/images/standard/logo225x72.gif">

must be converted to absolute URLs like so:

<img src="http://www.codeproject.com/images/standard/logo225x72.gif">

We do this using regular expressions, which gets us a NameValueCollection of all the references we need to fix. We loop through each reference and perform the fixup on the HTML string.

Private Function ExternalHtmlFiles() As Specialized.NameValueCollection
  If Not _ExternalFileCollection Is Nothing Then
    Return _ExternalFileCollection
  End If
  
  _ExternalFileCollection = New Specialized.NameValueCollection
  Dim r As Regex
  Dim html As String = Me.ToString
  
  Debug.WriteLine("Resolving all external HTML references from URL:")
  Debug.WriteLine("    " & Me.Url)
  
  '-- src='filename.ext' ; background="filename.ext"
  '-- note that we have to test 3 times to catch all quote styles: '', "", and none
  r = New Regex( _
    "(\ssrc|\sbackground)\s*=\s*((?<Key>'(?<Value>[^']+)')|" & _
    "(?<Key>""(?<Value>[^""]+)"")|(?<Key>(?<Value>[^ \n\r\f]+)))", _
    RegexOptions.IgnoreCase Or RegexOptions.Multiline)
    AddMatchesToCollection(html, r, _ExternalFileCollection)
  
  '-- @import "style.css" or @import url(style.css)
  r = New Regex( _
    "(@import\s|\S+-image:|background:)\s*?(url)*\s*?(?<Key>" & _
    "[""'(]{1,2}(?<Value>[^""')]+)[""')]{1,2})", _
    RegexOptions.IgnoreCase Or RegexOptions.Multiline)
    AddMatchesToCollection(html, r, _ExternalFileCollection)
  
  '-- <link rel=stylesheet href="style.css">
  r = New Regex( _
    "<link[^>]+?href\s*=\s*(?<Key>" & _
    "('|"")*(?<Value>[^'"">]+)('|"")*)", _
    RegexOptions.IgnoreCase Or RegexOptions.Multiline)
    AddMatchesToCollection(html, r, _ExternalFileCollection)
  
  '-- <iframe src="mypage.htm"> or <frame src="mypage.aspx">
  r = New Regex( _
    "<i*frame[^>]+?src\s*=\s*(?<Key>" & _
    "['""]{0,1}(?<Value>[^'""\\>]+)['""]{0,1})", _
    RegexOptions.IgnoreCase Or RegexOptions.Multiline)
    AddMatchesToCollection(html, r, _ExternalFileCollection)
  
  Return _ExternalFileCollection
End Function

We use a similar technique to get a list of all the files we need to download, which are then downloaded via my WebClientEx class. Why use that instead of the built in Net.WebClient? Good question! Because it doesn't support HTTP compression. My class, on the other hand, does:

Private Function Decompress(ByVal b() As Byte, _
      ByVal CompressionType As HttpContentEncoding) As Byte()

  Dim s As Stream
  Select Case CompressionType
    Case HttpContentEncoding.Deflate
      s = New Zip.Compression.Streams.InflaterInputStream(New MemoryStream(b), _
          New Zip.Compression.Inflater(True))
    Case HttpContentEncoding.Gzip
      s = New GZip.GZipInputStream(New MemoryStream(b))
    Case Else
      Return b
  End Select
  
  Dim ms As New MemoryStream
  Const chunkSize As Integer = 2048
  
  Dim sizeRead As Integer
  Dim unzipBytes(chunkSize) As Byte
  While True
    sizeRead = s.Read(unzipBytes, 0, chunkSize)
    If sizeRead > 0 Then
      ms.Write(unzipBytes, 0, sizeRead)
    Else
      Exit While
    End If
  End While
  s.Close()
  
  Return ms.ToArray
End Function

HTTP compression is a no-brainer: it increases your effective bandwidth by 75 percent by using standard GZIP compression-- courtesy of the SharpZipLib library.

Conclusion

Creating MHTML files isn't hard, but there are lots of little gotchas when dealing with HTML, regular expressions, and HTTP downloads. I tried to document all the difficult bits in the source code. I've also tested MhtBuilder on dozens of different websites so far with excellent results.

There are many more details and comments in the source code provided at the top of the article, so check it out. Please don't hesitate to provide feedback, good or bad! I hope you enjoyed this article. If you did, you may also like my other articles as well.

History

  • Sunday, September 12, 2004 - Published.
  • Monday, March 28, 2005 - Version 2.0
    • Completely rewritten!
    • Autodetection of content encoding (e.g., international web pages), tested against multi-language websites.
    • Now correctly decompresses both types of HTTP compression.
    • Supports completely in-memory operation for server-side use, or on-disk storage for client use.
    • Now works on web pages with frames and IFrames, using recursive retrieval.
    • HTTP authentication and HTTP Proxy support.
    • Allows configuration of browser ID string to retrieve browser-specific content.
    • Basic cookie support (needs enhancement and testing).
    • Much improved regular expressions used for parsing HTTP.
    • Extensive use of VB.NET 2005 style XML comments throughout.

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

About the Author

wumpus1
Web Developer
United States United States
Member
My name is Jeff Atwood. I live in Berkeley, CA with my wife, two cats, and far more computers than I care to mention. My first computer was the Texas Instruments TI-99/4a. I've been a Microsoft Windows developer since 1992; primarily in VB. I am particularly interested in best practices and human factors in software development, as represented in my recommended developer reading list. I also have a coding and human factors related blog at www.codinghorror.com.

Sign Up to vote   Poor Excellent
Add a reason or comment to your vote: x
Votes of 3 or less require a comment

Comments and Discussions

 
You must Sign In to use this message board.
Search this forum  
    Spacing  Noise  Layout  Per page   
QuestionFile download in httpsmemberGargi K3 Apr '09 - 1:02 
Hi.. firstly, thanks for the code. Its exactly what we wanted. However we have one problem. Our dev and QA environments work under http and the code works fine for that but when the site runs under HTTPS(in UAT/LIVE environment), it throws following error:
 
The underlying connection was closed: Could not establish trust relationship for the SSL/TLS secure channel
 
What I am doing is providing an HTML url for a file which gets created dynamically in the application folder (e.g. 'https://servername/Forms/PrintFiles/HTMLPage.html where 'servername' is the server where the site is hosted)
 
I will be thankful for any suggestions provided.
QuestionRe: File download in httpsmemberGreg Hauptmann6 Oct '09 - 9:58 
did you get a reply or work out a solution for this issue?
QuestionRe: File download in httpsmemberm.daveiga3 May '10 - 3:49 
Actually, i'm having the same problem. Anyone has a clue?
GeneralGood articlememberDonsw15 Mar '09 - 16:34 
I was looking for something like this. All I found was the commercial ones. I am currently saving the html only. although it works it will be nice to add the graphics.
 
cheers,
Donsw
My Recent Article : Organizational Structure within a Company for PMPs

GeneralIEmemberBenAA2 Sep '08 - 6:20 
In IE, when I save as MHTML, relative files are not embedded. If I have an HTML page with relative files, I save it as an mhtml, then remove the local files, I see no images in the mhtml. Am I doing something wrong. Is this how this code behaves? (Since it is supposed to mimic IE).
QuestionMS Word Open the mht errormemberyanglz999 Jun '08 - 16:39 
open the mht generate by this code with ms word, it shows error not a correct mht file, what's the problem?
AnswerRe: MS Word Open the mht error [modified]membergg6731 May '10 - 17:37 
The closing "--" seems to be missing after the last boundary
 
the last line :
------=_NextPart_000_00
 

should be :
------=_NextPart_000_00--
 

Then Word is happy Wink | ;)
 

Edit: ups, just saw that this problem has already been fixed 5 years ago : Fixed it....well, to be honest, Kyle fixed it

modified on Monday, May 31, 2010 11:43 PM

GeneralGoing the other waymemberurbane.tiger23 May '08 - 15:37 
Anyone know of something that will transform MHTML into HTML - I downloaded something from Softpedia that claimed to do it - but it doesn't produce any output!
 
TUT
 
If you up your bandwidth from slow DSL to fast DSL, make sure your shields are robust, you'll probably be visiting places you've not been before.

QuestionAnyone providing this code as an extension for Firefox 2?memberalternety3 Jan '08 - 8:43 
Anyone providing this code as an extension for Firefox 2?
 
I have been searching at length for a way to get this function into Firefox. Anyone know of a reliable add on for Firefox?
QuestionMSIE7.0, VS2005, Vista Home Premium Not WorkingmemberJustALark6 Dec '07 - 7:17 
Can anyone help me get this working with Internet Explorer 7.0?
 
It doesn't throw an exceeption and saves the *.mht file.
The MHT file will not open in IE7.
 
If I go to the same website and "Save As" from Internet Explorer the MHT file opens OK.
 
I even tried the program against "http://www.codinghorror.com/blog/" and it again it save a MHT file that will not open in IE7.
 
Probably something simple but I can't figure it out... Confused | :confused:
QuestionImages and CSS files are being referenced to the website and not being encoded in the single filememberBaladitya Ganty20 Jul '07 - 5:42 
we are using this piece of code for converting a lot of our reports which are in ASP to MHTML files which represents as an image of that week.
The problem we are facing is the MHTML file being generated is just adding a reference of all the images and CSS to our production site after archiving also. suppose the main site is down or we are offline then these webpage archived reports are not showing up properly, So any of you can you tell us some tweaking of this code to make it working.
 
Baladitya Ganty
QuestionTrying to get html files on my hard drive to be converted...memberitskyb16 Jul '07 - 9:04 
This app works wonderfully with http:// based requests. However, if I try to use file:///... based requests, I get an invalid cast exception with with the WebClientEx.vb class on line 343:
 
Dim wreq As HttpWebRequest = DirectCast(WebRequest.Create(Url), HttpWebRequest)
 
Anyone have a work around? I'm not a guru with the HttpWebRequest.
 
I'm basically writing an application that dumps some information with charts to a html file and I would like to have it converted to .mht format for easy distribution.
GeneralInteresting problemmemberp10005 Jul '07 - 6:48 
Hi,
 
This is sort of an aside, but I figure that people who look at this page probably have a great familiarity with MHTML, and I need it to solve my problem. I have a webpage which contains a base64 string encoding a .png file. I also know the dimensions of the file etc. But the page will not know the image's URL.
 
I want to use this image as the background for one of the elements in my page. In Firefox/Safari/Opera, I can just use the "data: URI", i.e.
 
element.style.background-image = "url(data:image/png;base64," + base64String + ")";
 
Unfortunately, Internet Explorer does not support the data: URI. But I figure that IE must have this functionality, because it would be ridiculous if it didn't. And it looks to me like MHTML is the most likely way that one can get this done with IE.
 
Does anyone know if this is possible, and if so, could you please provide a short code snippet explaining how?
 
Thanks.
 
P1000
GeneralRe: Interesting problemmembergordon byers10 Jun '09 - 4:05 
Its possible, as i've just had to write it Smile | :)
QuestionHas anyone got this workng on vista / vs2005 / ie7 ?memberMootah21 Jun '07 - 9:43 
Confused | :confused:
 
The mht generated looks fine (it's not all mungled up), but it won't load into ie7.
 
Any thoughts? When you load the page, it's blank.
the source in the browser is:
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1252"></HEAD>
<BODY></BODY></HTML>
AnswerFixed it....well, to be honest, Kyle fixed itmemberMootah21 Jun '07 - 10:34 
...Looking at you blog Jeff I found this post from Kyle who was talking about a fix to open the mht in word.
I applied the fix, and hey presto. Smile | :)
cheers
Moose
---------------------
Here's what Kyle said to do:
 
I've made two code changes to allow for the file to be opened in Word 2003. This made it work for me anyway.
 
Kyle
 
In builder.vb starting on line 474 change the procedure to the following:
 

Private Sub AppendMhtBoundary(Optional ByVal bEndOfFile As Boolean = False)
AppendMhtLine()
If bEndOfFile = False Then
AppendMhtLine("--" & _MimeBoundaryTag)
Else
AppendMhtLine("--" & _MimeBoundaryTag & "--")
End If
End Sub

In builder.vb on line 438, change procedure call to: AppendMhtBoundary(True)
 
Kyle on August 15, 2005 05:30 PM
GeneralRe: Fixed it....well, to be honest, Kyle fixed itmemberrobalexclark5 Nov '08 - 6:00 
Nice one Kyle!
QuestionJava appletsmembervitorg20 Jun '07 - 1:41 
Greetings,
 
Is it possible to embed java applets in mhtml files?
I tried adding to your code the applet tag and make it process the '.class' files but it doesn't seem to work. It only displays a blank page Sigh | :sigh:
 
Thanks.
GeneralIIS6.0 Windows 2003memberRajeshCR4 Jun '07 - 20:25 
Application is not working with 11S and Windows 2003 with localhost application. working fine with external websites and IIS 5.0
 
For example www.google.com is fine and localhost:8080\websitetest\test.aspx is not giving the correct result
QuestionHow to make it to Batch Process?memberElven Wong28 Mar '07 - 22:32 
I have a list of URL. How to make this going to be batched?
 
Seems that the whole process won't raise a "Finish" event..
GeneralAwesome! Just what I've been looking for.membersaab340b27 Mar '07 - 5:39 
It's like the genie granted me one wish and this was the result. It does exactly what I wanted and it's already in .Net format.
Superb!
Questionwhy the .Mht files are showing as text files?membergovindaraj.perumal15 Mar '07 - 20:46 
Hi,
 
I am using your code to generate .Mht files. but at some sites, the generated .Mht files are opening in IE as text file. Can you please tell me why does it happen? is there any browser settings?
 
please help me out?
 
Thanks
 
Govind
AnswerRe: why the .Mht files are showing as text files?memberChristianW7 Jan '08 - 23:01 
I've got the same problem.
 
Wheras http://www.codinghorror.com/blog/ was saved successfully to mht
http://www.codeplex.com does not work correctly.
 
As Govind already said, only text/html-code will be displayed.
 
Any ideas?
 
Thx,
Christian
GeneralRe: why the .Mht files are showing as text files?memberChristianW7 Jan '08 - 23:21 
OK, problem solved!
 
It occurs when the subject of the mht archive is too long or includes linebreaks.
 
To solve the problem, only one line of code is affected to change:
 
Builder.VB 449
AppendMhtLine("Subject: " & ef.HtmlTitle)
 
Greetings
Christian
GeneralDownload progressmemberudvranto3 Feb '07 - 11:15 
Hi,
Thank you very much for providing this well crafted code. I need to save html as "Web page complete", "Web page archive", "Web page as PDF" for an application to backup blogs. Currently I am doing it using your code . What I am interested in is to show the download progress as the web page is being saved. So I was thinking of combining the functions provided in MHT builder into the extended web browser control found at http://www.codeproject.com/csharp/ExtendedWebBrowser.asp.
 
I would request your help/guidance/indication/criticism on it.

 
S M Mahbub Murshed
QuestionTrouble saving long url (but not so long! Less than 260 characters, I mean) [modified]memberLa raza22 Dec '06 - 5:07 
Hello,
great job!! I've tried your library and I found it very usefull: my best compliments.
But I've found an error saving a particular web page: the url is "http://www.flcgil.it/notizie/news/2006/dicembre/firmato_il_contratto_di_lavoro_dell_enea_si_inizia_a_parlare_seriamente_dei_precari".
 
When I save the page, it gives me an exception: "System.IO.PathTooLongException: The path is too long after being fully qualified. Make sure path is less than 260 characters." But the url is 131 characters!
The exception is thrown saving the page in mht (with the method SavePageArchive, setting the file storage on disk as temporary or permanent) and in Web page complete (with SavePageComplete).
I suppose that during the saving, the library saves temporary html files where the name of the file, added to the url, exceeds 260 characters. If I'm right, the only solution is to give new shorter name to this temporary files.
 
Has anybody noticed this bug?
 
Thanks for your help!
 
Renato
AnswerRe: Trouble saving long url (but not so long! Less than 260 characters, I mean)memberLa raza28 Dec '06 - 5:00 
I think I've fixed this bug.
I've noticed two reason for the failure in saving my page (http://www.flcgil.it/notizie/news/2006/dicembre/firmato_il_contratto_di_lavoro_dell_enea_si_inizia_a_parlare_seriamente_dei_precari):
 
1) this page probably references itself, so the recursively download of the externally referenced files never ends. Yes, there is a property AllowRecursiveFileRetrieval that I can set to false to avoid this, but I want to be sure to download all necessary files.
My idea is to permit the recursion only to a certain level of depth; reaching that limit, I suppose that the file is autoreferencing and I stop the recursive download. I've made the following changes in ExternalFile.vb:
 
Public Sub DownloadExternalFiles(ByVal st As Builder.FileStorage, ByVal level As Integer, Optional ByVal recursive As Boolean = False)
'test to avoid infinite recursion
level += 1
If level > 4 Then
recursive = False
End If

DownloadExternalFiles(st, Me.ExternalFilesFolder, level, recursive)
End Sub
 
Private Sub DownloadExternalFiles(ByVal st As Builder.FileStorage, ByVal targetFolder As String, ByVal level As Integer, ByVal recursive As Boolean)
Dim FileCollection As Specialized.NameValueCollection = ExternalHtmlFiles()
If Not FileCollection.HasKeys Then Return
Debug.WriteLine("Downloading all external files collected from URL:")
Debug.WriteLine(" " & Url)
For Each Key As String In FileCollection.AllKeys
DownloadExternalFile(FileCollection.Item(Key), st, targetFolder, level, recursive)
Next
End Sub
 
Private Sub DownloadExternalFile(ByVal url As String, ByVal st As Builder.FileStorage, _
ByVal targetFolder As String, ByVal level As Integer, Optional ByVal recursive As Boolean = False)
'... not changed
If isNew Then
'-- add this (possibly) downloaded file to our shared collection
_Builder.WebFiles.Add(wf.UrlUnmodified, wf)
 
'-- if this is an HTML file, it has dependencies of its own;
'-- download them into a subfolder
If (wf.IsHtml Or wf.IsCss) And recursive Then
wf.DownloadExternalFiles(st, level, recursive)
End If
End If
End Sub
 
In the file Builder.vb, in the functions SavePageComplete, GetPageArchive and SavePageArchive, when I call the method DownloadExternalFiles I initialize the depth of the recursion to zero:
_HtmlFile.DownloadExternalFiles(st, 0, _AllowRecursion)
 
2) When creating a new file name, it shouldn't be too long. This can happen expecially if the title of html page is used as file name. So I've modified the function MakeValidFilename in ExternalFile.vb:
Private Function MakeValidFilename(ByVal s As String, Optional ByVal enforceLength As Boolean = False) As String
If enforceLength Then
End If
'-- replace any invalid filesystem chars, plus leading/trailing/doublespaces
Dim name As String
name =
Regex.Replace(Regex.Replace(s, "[\/\\\:\*\?\""""\<\>\|]|^\s+|\s+$", ""), "\s{2,}", " ")
'enforce the maximum length to 25 characters
If name.Length > 25 Then
Dim extension As String
extension = Path.GetExtension(name)
name = name.Substring(0, 25 - extension.Length) & extension
End If
Return name

End Function
 
(Maybe the optional parameter enforceLength was added to do something similar).
There is also a function MakeValidFilename in the file Builder.vb, but I can't see when it is called, so I haven't modified it.
 

With this changes, I can save my web page. Has anybody done something similar? Is there something I've missed?
 
Renato
QuestionBrowser reads www.century21.com but this program doesn't , why ?memberdlwells10 Dec '06 - 14:55 
Why ?
QuestionHow i can save the htm output from MS PowerPoint to mhtml formatmemberMohammad Hammad28 Nov '06 - 8:42 
Thanks dear for this cute artical and good class library , but my question now is if i publish my created presentation ( 3 slides for example ) to htm format from Microsoft PowerPoint and i tried to save it using your library , each time i clicked in any link in the htm presentation, the mht.dll saves only first slide
 
i think the problem results that the URL of the browser not changed even if i click in any link in the htm presentation, and the first file ( called fram.htm ) and this page contains first slide only URL , so the mht.dll detects only this slide page.
 
and i expect that the solution will be if i can save mht files from brwser cache ( like file save as in the browser)
 
i hope to help me in this problem
 
Thanks and Regards
 
Hammad

QuestionWebFile.Download() code questionmemberhev8 Nov '06 - 2:32 
Not fully clear reason for next code:

If Me.IsCss Then
_DownloadedBytes = _TextEncoding.GetBytes(ProcessHtml(Me.ToString))
End If

 
Seems it is misswritingSigh | :sigh:
Maybe it should be

If Me.IsCss Then
_DownloadedBytes = _TextEncoding.GetBytes(ProcessCss(Me.ToString))
End If

Confused | :confused:
GeneralawesomememberTim Kohler18 Aug '06 - 9:27 
This is truly great work. Thanks a lot!
QuestionProxy Server help [modified]memberSyed Javed22 Jul '06 - 13:35 
First of all thank you for the wonderful article and project. My question is not directly related to this project but I am posting it here in hope for getting some help. I am trying to write a proxy server to share internet connection. I know there are several small utilities available for this purpose but I wanted to do it my self so I can enhance it as I need. There is nice project (SSLProxy) at GotDotNet with source code but it is all in C# and I feel much comfortable using VB.NET. Also that project is pretty big to be converted to VB.NET. I wrote a small class using SOCKETS but it is not stable and sometimes it misses chunk of stream; especially when more then 2 connections are active.
Any help or suggestion is much appreciated.
 
syedhashmi@gmail.com

 
 
-- modified at 19:37 Saturday 22nd July, 2006
GeneralA contributionmemberYehuda A15 Jul '06 - 10:39 
Before my contribution, I should state I enjoyed very much reading through the code !!!
 
I think I have found and fix two small bugs in the WebFile class.
 
Bug #1
The code wrongly assumes that the URL and <Base HREF=..> are identical. To fix it, I made three changes:
1) I added a private member to the class:
Private _BaseUrlFolder As String
 
2) _BaseUrlFolder is set in the ProcessHtml() method:

If BaseUrlFolder <> "" Then
If BaseUrlFolder.EndsWith("/") Then
_BaseUrlFolder = BaseUrlFolder.Substring(0, BaseUrlFolder.Length - 1)
Else
_BaseUrlFolder = BaseUrlFolder
End If
End If

3) _BaseUrlFolder is used in the ConvertRelativeToAbsoluteRefs() method

'-- href="/anything" to href="http://www.web.com/anything"
r = New Regex(urlPattern, _
RegexOptions.IgnoreCase Or RegexOptions.Multiline)
html = r.Replace(html, "${attrib}=${delim1}" & _BaseUrlFolder & "/${url}${delim2}")
 
'-- href="anything" to href="http://www.web.com/folder/anything"
r = New Regex(urlPattern.Replace("/", ""), _
RegexOptions.IgnoreCase Or RegexOptions.Multiline)
html = r.Replace(html, "${attrib}=${delim1}" & _BaseUrlFolder & "/${url}${delim2}")
 
'-- @import(/anything) to @import url(http://www.web.com/anything)
r = New Regex(cssPattern, _
RegexOptions.IgnoreCase Or RegexOptions.Multiline)
html = r.Replace(html, "${attrib} url(" & _BaseUrlFolder & "/${url})")
 
'-- @import(anything) to @import url(http://www.web.com/folder/anything)
r = New Regex(cssPattern.Replace("/", ""), _
RegexOptions.IgnoreCase Or RegexOptions.Multiline)
html = r.Replace(html, "${attrib} url(" & _BaseUrlFolder & "/${url})")

Bug #2
In the ProcessHtml method, removal of <base href=... > tag should be case insensitive and multiline. Code follows:

'-- remove the <base href=''> tag if present; causes problems when viewing locally.
Dim r As New Regex("<base[^>]*?>", RegexOptions.IgnoreCase Or RegexOptions.Multiline)
html = r.Replace(html, "")
r = Nothing

GeneralRe: A contributionmemberhev8 Nov '06 - 6:15 
Generally correct but...
 

'-- href="/anything" to href="http://www.web.com/anything"
r = New Regex(urlPattern, _
RegexOptions.IgnoreCase Or RegexOptions.Multiline)
html = r.Replace(html, "${attrib}=${delim1}" & _BaseUrlFolder & "/${url}${delim2}")

 

'-- @import(/anything) to @import url(http://www.web.com/anything)
r = New Regex(cssPattern, _
RegexOptions.IgnoreCase Or RegexOptions.Multiline)
html = r.Replace(html, "${attrib} url(" & _BaseUrlFolder & "/${url})")

 
This is replacement of root-based relative url. So here should be used something like _BaseUrlRoot (getted same as you describe) instead of _BaseUrlFolder.

QuestionHow can I Convert MHTML to HTMLmemberxfary3 Jul '06 - 15:56 
How can I Convert MHTML to HTML using c# or orther language?
Questionhow can i do multiple html files at oncemembercnrock27 Jun '06 - 17:07 
I really want to know how to take multiple html files at once. is Me.url a array??
I Iuput "http://www.codeproject.com (ENTER) http://www.google.com" into the Target URL,but it show "unable to download 'http://www.codeproject.com/%0D%0Ahttp:/www.google.com': The remote server returned an error: (400) Bad Request."
 
How can I do??
 

Sorry,I know little about VB.NET and my English is terriable.
please help me~~
GeneralIs this able to do multiple html files at oncemembersdejager27 Jun '06 - 13:56 
I was hoping to point this fantastic program at a URL and it will make each and every html file on that site into mht. It seems to take the index page only and then stops. It also saves the name as the title, rather than the actual file name...
 
I really like how this works but if this is able to do an entire site, and names the files using the actual file name rather than the title, could you let me know.
 
Perfect!
 
Sean of the Naki
GeneralLocal HTML/Image files support (continued)memberrsegijn16 Jun '06 - 0:20 
This works for me (please post any improvements):
 
1. In WebClient.ex I added 2 functions ContentTypeFromExtension and IsBinaryFromExtension:
 
Private Function ContentTypeFromExtension(ByVal UrlExt As String) As String
Select Case UrlExt.ToLower
Case ".htm", ".html"
Return "text/html"
Case ".css"
Return "text/css"
Case ".gif"
Return "image/gif"
Case ".jpg", ".jpeg", ".jpe"
Return "image/jpeg"
Case ".bmp"
Return "image/bmp"
Case ".tif", ".tiff"
Return "image/tiff"
Case ".png"
Return "image/x-png"
Case ".xbm"
Return "image/x-xbitmap"
Case ".xpm"
Return "image/x-xpixmap"
Case ".xwd"
Return "image/x-xwindowdump"
Case ".djv", ".djvu"
Return "image/vnd.djvu"
Case ".js"
Return "text/javascript"
Case ".xml", ".xsl"
Return "text/xml"
Case ".xht", ".xhtml"
Return "application/xhtml+xml"
Case ".txt", ".asc"
Return "text/plain"
Case ".rtf"
Return "text/rtf"
Case ".rtx"
Return "text/richtext"
Case ".sgm", ".sgml"
Return "text/sgml"
Case ".avi"
Return "video/ms-video"
Case ".mpe", ".mpeg", ".mpg"
Return "video/mpeg"
Case ".wmv"
Return "video/x-ms-wmv"
Case ".mov", ".qt"
Return "video/quicktime"
Case ".movie"
Return "video/x-sgi-movie"
Case ".mxu"
Return "video/vnd.mpegurl"
Case ".ram", ".rm"
Return "audio/x-pn-realaudio"
Case ".ra"
Return "audio/x-realaudio"
Case ".mp2", ".mp3", ".mpga"
Return "audio/mpeg"
Case ".mid", ".midi"
Return "audio/midi"
Case ".wav"
Return "audio/x-wav"
Case ".aif", ".aifc", ".aiff"
Return "audio/x-aiff"
Case ".doc"
Return "application/msword"
Case ".xls"
Return "application/vnd.ms-excel"
Case ".ppt"
Return "application/vnd.ms-powerpoint"
Case ".flash", ".swf"
Return "application/x-shockwave-flash"
Case ".ipx"
Return "application/x-ipix"
Case ".pdf"
Return "application/pdf"
Case ".zip"
Return "application/zip"
Case ".bin", ".class", ".dll", ".dms", ".exe", ".lha", ".lzh", ".so"
Return "application/octet-stream"
Case ".dcr", ".dir", ".dxr"
Return "application/x-director"
Case Else
Return "text/html"
End Select
End Function
Private Function IsBinaryFromExtension(ByVal UrlExt As String) As Boolean
Select Case UrlExt.ToLower
Case ".htm", ".html", ".css", ".js", ".xml", ".xsl", ".xht", ".xhtml", ".txt", ".asc", ".rtf", ".rtx", ".sgm", ".sgml"
Return False
Case Else
Return True
End Select
End Function
 
2. Changed Sub GetUrlData:
 
'''
''' returns a collection of bytes from a Url
'''

''' URL to retrieve
Public Sub GetUrlData(ByVal Url As String, ByVal ifModifiedSince As DateTime)
Dim UrlExt As String
Dim wreq As WebRequest = DirectCast(WebRequest.Create(Url), WebRequest)
 

UrlExt = Path.GetExtension(Url)
'-- do we need to use a proxy to get to the web?
If _ProxyUrl <> "" Then
Dim wp As New WebProxy(_ProxyUrl)
If _ProxyAuthenticationRequired Then
If _ProxyUser <> "" And _ProxyPassword <> "" Then
wp.Credentials = New NetworkCredential(_ProxyUser, _ProxyPassword)
Else
wp.Credentials = CredentialCache.DefaultCredentials
End If
wreq.Proxy = wp
End If
End If
 
'-- does the target website require credentials?
If _AuthenticationRequired Then
If _AuthenticationUser <> "" And _AuthenticationPassword <> "" Then
wreq.Credentials = New NetworkCredential(_AuthenticationUser, _AuthenticationPassword)
Else
wreq.Credentials = CredentialCache.DefaultCredentials
End If
End If
 
wreq.Method = "GET"
wreq.Timeout = _RequestTimeoutMilliseconds
wreq.Headers.Add("Accept-Encoding", _AcceptedEncodings)
 
'-- sometimes we need to transfer cookies to another URL;
'-- this keeps them around in the object
If KeepCookies Then
If _PersistedCookies Is Nothing Then
_PersistedCookies = New CookieContainer
End If
End If
 
'-- download the target URL into a byte array
Dim wresp As WebResponse = DirectCast(wreq.GetResponse, WebResponse)
 
'-- convert response stream to byte array
Dim ebr As New ExtendedBinaryReader(wresp.GetResponseStream)
_ResponseBytes = ebr.ReadToEnd()
 
'-- determine if body bytes are compressed, and if so,
'-- decompress the bytes
Dim ContentEncoding As HttpContentEncoding
If wresp.Headers.Item("Content-Encoding") Is Nothing Then
ContentEncoding = HttpContentEncoding.None
Else
Select Case wresp.Headers.Item("Content-Encoding").ToLower
Case "gzip"
ContentEncoding = HttpContentEncoding.Gzip
Case "deflate"
ContentEncoding = HttpContentEncoding.Deflate
Case Else
ContentEncoding = HttpContentEncoding.Unknown
End Select
_ResponseBytes = Decompress(_ResponseBytes, ContentEncoding)
End If
 
'-- sometimes URL is indeterminate, eg, "http://website.com/myfolder"
'-- in that case the folder and file resolution MUST be done on
'-- the server, and returned to the client as ContentLocation
_ContentLocation = wresp.Headers("Content-Location")
If _ContentLocation Is Nothing Then
_ContentLocation = ""
End If
 
'-- if we have string content, determine encoding type
'-- (must cast to prevent Nothing)
_DetectedContentType = wresp.Headers("Content-Type")
If _DetectedContentType Is Nothing Then
_DetectedContentType = ""
Else
_DetectedContentType = ContentTypeFromExtension(UrlExt)
End If
If IsBinaryFromExtension(UrlExt) Then
_DetectedEncoding = Nothing
Else
If _ForcedEncoding Is Nothing Then
_DetectedEncoding = DetectEncoding(_DetectedContentType, _ResponseBytes)
End If
End If
 
End Sub
 
3. Maybe not necessary, because I added it before creating the functions in 1)
In External.vb:
 
3a. After Private _ContentType As String I added:
Private _ContentTypeBefore As String
 
3b. In Public Property URL() I added:
_ContentTypeBefore = ""
after
_ContentType = ""
 
3c. I changed the line:
_ContentType = _Builder.WebClient.ResponseContentType
into
_ContentTypeBefore = _Builder.WebClient.ResponseContentType
If _ContentTypeBefore = "application/octet-stream" Then
_ContentTypeBefore = "text/html"
End If
_ContentType = _ContentTypeBefore
 
3d. Because I don't know sh*t about regex constructions I changed Private Sub SetUrl into:
Private Sub SetUrl(ByVal url As String, ByVal validate As Boolean)
If validate Then
_Url = ResolveUrl(url)
Else
_Url = url
End If
'-- http://mywebsite
_UrlRoot = Regex.Match(url, "http://[^/'""]+", RegexOptions.IgnoreCase).ToString
If _UrlRoot = "" Then
_UrlRoot = Regex.Match(url, "file:///[^/'""]+", RegexOptions.IgnoreCase).ToString
End If
If _UrlRoot = "" Then
_UrlRoot = Regex.Match(url, "file:///[^\\'""]+", RegexOptions.IgnoreCase).ToString
End If
'-- http://mywebsite/myfolder
If _Url.LastIndexOf("/") > 8 Then
_UrlFolder = _Url.Substring(0, _Url.LastIndexOf("/"))
Else
_UrlFolder = _UrlRoot
End If
End Sub
 
3e. In Private Sub AddMatchesToCollection I added:
Dim urlRegex2 As New Regex("^files*:///\w+", RegexOptions.IgnoreCase)
and changed:
If Not urlRegex.IsMatch(value) Then
into:
If Not urlRegex.IsMatch(value) And Not urlRegex2.IsMatch(value) Then
 

Note:
I don't know what problems will arise by changing Sub GetUrlData.
- WebRequest/WebResponse instead of HttpWebRequest/HttpWebResponse
- Left out:
wreq.UserAgent = _HttpUserAgent
wreq.IfModifiedSince = ifModifiedSince
wreq.CookieContainer = _PersistedCookies
 
Hope the above works for you too.
 
Bye,
 
Ron
GeneralRe: Local HTML/Image files support (continued)memberalhambra-eidos13 Aug '09 - 10:28 
`please, any solution ?? any sample entire , please ??
 
thanks...
 
AE

Generallocal html files supportmemberrsegijn15 Jun '06 - 1:33 
We have an application for real-estate brokers, who receive every day new data concerning new real estate properties on the market.
Every day, they send this information to their prospects.
For this, they generate a HTML file and mail this as an attachment.
(I have created a HTML template file and the data is automatically merged, based on this template which results in a HTML file).
 
The problem was and still is, that they also want to show photos of the real estate properties.
I used to explain them that HTML is just plain text and if they want their recipients to see the photos, I would have to place hard references to the location of these photos (on their local server or after upload on their webserver).
 
For the real estate brokers, that use Outlook/Exchange I created a solution using the same generated HTML file mentioned above based on these articles (http://www.outlookcode.com/d/code/htmlimg.htm or http://www.dimastr.com/redemption/objects.htm).
 
For the other real estate brokers I was looking for a MHT(ML) solution using the same generated HTML file.
 
The name of this HTML file to be converted could have the following format:
file:///C:/Documents%20and%20Settings/ron.OMAWEB/Local%20Settings/Temp/PeriodiekAanbod/Obj_1506.html
 
The name of the photos could have the following format:
<img class="imgfoto" src="file:///C:\Documents%20and%20Settings\ron.OMAWEB\Local%20Settings\Temp\PeriodiekAanbod\Thumbnails\121313001211000w000649400000001000.jpg" alt="Cornelia van Arkeldijk 58" />
 
and also:
<img border="0" src="http://www.devilee.nl/images/devilee3.jpg" width="254" height="73" alt="Th. Devilee Makelaars">
 
You can see an example of the local HTML save in IE as a webarchive on:
http://home.wanadoo.nl/rsegijn/example.mht
 
You mentioned that at first you also supported local HTML files.
Could you please help me on my way?
I think I have to set some property UriScheme.File or UriScheme.Http
And based on this property use FileWebRequest and FileWebResponse or HttpWebRequest and HttpWebResponse.
And in case of a FileWebResponse set the Content-Type to "text/html", because FileWebResponse always returns "application/octet-stream".
And in Sub SetUrl match to "file:///[^/'""]+" and _Url.LastIndexOf("/") > 8 in case of UriScheme.File
And a lot of regex handling have to be adjusted (very interesting stuff, but I have NO idea what it does, even after reading a regex tutorial on the web Smile | :) .
etc.
etc.
 
Please help me on my way.
I have to find a solution this month.
 
Thanks in advance,
 
Ron Segijn
 

GeneralRe: local html files supportmemberrsegijn15 Jun '06 - 2:19 
I forgot to mention 2 things:
1. I use a HTML template so that my customers can modify the html in their "office-style".
For example, the line in my previous message:
 
<img border="0" src="http://www.devilee.nl/images/devilee3.jpg" width="254" height="73" alt="Th. Devilee Makelaars">
 
is not in the original template, but added by one of my customers.
 
2. If you want to give me some hints or help me on my way, please also send it to me by email
ron@omaweb.nl and reply2me@wanadoo.nl
 
TIA,
 
Ron
QuestionDisplay MHT from inside ASP.NET app?memberJTW23 Jun '06 - 0:50 
Integrated your code into our application so that we could send MHT- formatted data to Interfax.Net for faxing -- it works great; thanks!! Next question is that we retain the MHT data in a database and would like to view it from inside the app -- with HTML, we simply write the text into the response object using Response.Write. For MHT data, this displays the MHT headers, etc. -- any idea what we're doing wrong? We think it might be as simple as setting the Response.ContentType or adding some headers, but we've not been able to find the magic combination that works... TIA -- john
QuestionCan MHT library be integrate in visual basicmemberJennifer88823 Apr '06 - 4:50 
Hi,
Can anyone advise whether it is possible to compile the MHT library to a dll for integrate in visual basic source code?
 
Thank you.
 
Jennifer Leongh
GeneralPerfect!memberlewist5731 Mar '06 - 9:38 
Appreciate your article, just what I was looking for.
 
Glad to see that someone else will claim to have the TI994A in their computer background. Taught myself assembly language for it, and even went as far as self publishing a technical manual for expanding it via the PEB, as well as demonstrating the only TI994A with a Motorola math coprocessor. But that is all in the basement now.
 
Anyway, great article and code!
Questionhow to save local Html's into mht filesmemberbouha30 Mar '06 - 3:01 
hi
thx for that great code !
i need to save local html's generated by code into .mht files and i don't know how to proceed ..., even with CDO i didn't knwo how to do it, it seems like it takes only url's like ur code, i had a look at ur code didn't understand all but u r using regular expressions for that aim and i'm not good in regex Frown | :(
 
help please
thx in advance

 
C# is the future
QuestionLicense terms ?memberpblse28 Mar '06 - 3:52 
This is great, just what I was looking for but I'm wondering what the license terms for this project ?
 
I notice that it says "© 2005, Atwood Heavy Industries, All Rights Reserved" when compiled and then there are not references to any kind of license terms, not in the code or in this article.
 
Would you consider releasing it under the LGPL ?
 
Thank you.

GeneralBig helpmemberM3Fan18 Jan '06 - 14:48 
How is code this granular supposed to help anyone trying to do this? With how little help there is on converting to mHTML you'd think you'd give a more straightforward example, rather than a multi-class application that is tough to follow. Thanks for the help.......This isn't supposed to be a coding contest.
GeneralRe: Big helpmemberpblse28 Mar '06 - 5:22 
I had no problem using it. Poke tongue | ;-P
GeneralMS Word &amp; Content IDsmemberOliver Haskell7 Nov '05 - 3:02 
Congratulations on a well written article and accessible code.
 
I needed to be able to load the MHT into MS Word, so added a AppendFinalMhtBoundary routine to add the boundary with the trailing "--" as explained in another post.
 
I also wanted the original URL of included graphics to be removed from the MHT, so I added a conversion to the <img src="cid:xyz"> format as is created by IE when doing Save As.
 
I'm happy to share this if anyone is interested.
 
Thanks for publishing!
GeneralThis is a very cool program.memberAshaman15 Sep '05 - 1:55 
Here's my situation, though. At my company, we send lots of HTML emails from different applications, processes, workflows, etc. Some of these emails include img tags, linking to our intranet. Since the Intranet server requires windows authentication, Windows XP SP2 pops up a login dialog whenever people open the email. Obviously, this is bad and people hate it... but they want the images and I don't want to have to collect all the generic and application specific images together in one folder just so I can turn on anonymous access for that folder to avoid the authentication prompt.
 
Another solution is to send the HTML emails as MHTML emails so that the pics are embedded. I've tried to pull your app apart, but it's VERY clear that you have put a mammoth amount of work in there and, to be honest, I'm not sure if it would be easier for me to try and write it myself.
 
Since you have done so much work and since you are the expert on your awesome app, can you enhance it so that I can pass in a string containing the full HTML and maybe a base URL path and receive the encoded MHTML as a response?
 
I certainly understand that you likely have more important things to do than solve my problems, but it'd be awfully great.
 

 
-Kevin Buchan

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Permalink | Advertise | Privacy | Mobile
Web01 | 2.6.130516.1 | Last Updated 4 Apr 2005
Article Copyright 2004 by wumpus1
Everything else Copyright © CodeProject, 1999-2013
Terms of Use
Layout: fixed | fluid