View Code Snippet

Author: Dario B.
Date Submitted: 5/29/2006
Category: Graphics
Compatibility: .NET
This code has been accessed 15952 times.

Task: This snippet converts a JPG or PNG image into a pure html file. The resulting html image looks exactly as the original one. It's possible to apply a zoom. Tested for VB.Express.

Declarations

Code

'Converts a jpg or png image into an html file. 'Parameters: ' imageFile: jpg or png image to convert ' htmlFile: output html file containing the converted image ' [optional] zoomFactor: ex. 2 doubles then original dimentions ' Usage example: imageToHtml("c:\logo.png", "C:\out.htm", 0.4) Sub imageToHtml(ByVal imageFile As String, ByVal htmlFile As String, Optional ByVal zoomFactor As Double = 1) Dim img As Bitmap = Image.FromFile(imageFile) Dim SW As StreamWriter = New StreamWriter(htmlFile, False) SW.WriteLine("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'><html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'></head><body>") SW.WriteLine("<table width='" & (CInt((img.Width * zoomFactor))).ToString & "' height='" & (CInt((img.Height * zoomFactor))).ToString & "' border='0' cellpadding='0' cellspacing='0'>") For y As Double = 0 To img.Height - 1 Step 1 / zoomFactor SW.WriteLine("<tr>") For x As Double = 0 To img.Width - 1 Step 1 / zoomFactor SW.WriteLine("<td bgcolor='#" & img.GetPixel(x, y).Name.Substring(2) & "'></td>") Next SW.WriteLine("</tr>") Next SW.WriteLine("</table></body></html>") SW.Close() SW = Nothing End Sub