62,051
社区成员
发帖
与我相关
我的任务
分享
using System;
using System.Collections.Generic;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Drawing;
using System.IO;
public partial class _Default : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
}
protected void Button1_Click(object sender, EventArgs e)
{
Bitmap bmp = HtmlToImg.GetHtmlToImg("http://www.baidu.com", 600, 500, 600, 500);
MemoryStream stream = new MemoryStream();
bmp.Save(stream, System.Drawing.Imaging.ImageFormat.Jpeg);
byte[] buff = stream.ToArray();
FileStream fs = new FileStream(Server.MapPath(DateTime.Now.ToString("yyyyMMddHHmmss") + ".jpg"), FileMode.Create);
stream.WriteTo(fs);
stream.Close();
fs.Close();
}
}
using System;
using System.Drawing;
using System.Threading;
using System.Windows.Forms;
/// <summary>
/// 生成网页快照
/// </summary>
public class HtmlToImg
{
Bitmap m_Bitmap;
string m_Url;
int m_BrowserWidth, m_BrowserHeight, m_ThumbnailWidth, m_ThumbnailHeight;
public HtmlToImg(string Url, int BrowserWidth, int BrowserHeight, int ThumbnailWidth, int ThumbnailHeight)
{
m_Url = Url;
m_BrowserHeight = BrowserHeight;
m_BrowserWidth = BrowserWidth;
m_ThumbnailWidth = ThumbnailWidth;
m_ThumbnailHeight = ThumbnailHeight;
}
public static Bitmap GetHtmlToImg(string Url, int BrowserWidth, int BrowserHeight, int ThumbnailWidth, int ThumbnailHeight)
{
HtmlToImg thumbnailGenerator = new HtmlToImg(Url, BrowserWidth, BrowserHeight, ThumbnailWidth, ThumbnailHeight);
return thumbnailGenerator.GenerateHtmlToImgImage();
}
public Bitmap GenerateHtmlToImgImage()
{
Thread m_thread = new Thread(new ThreadStart(_GenerateHtmlToImgImage));
m_thread.SetApartmentState(ApartmentState.STA);
m_thread.Start();
m_thread.Join();
return m_Bitmap;
}
private void _GenerateHtmlToImgImage()
{
WebBrowser m_WebBrowser = new WebBrowser();
m_WebBrowser.ScrollBarsEnabled = false;
m_WebBrowser.Navigate(m_Url);
m_WebBrowser.DocumentCompleted += new WebBrowserDocumentCompletedEventHandler(WebBrowser_DocumentCompleted);
while (m_WebBrowser.ReadyState != WebBrowserReadyState.Complete)
Application.DoEvents();
m_WebBrowser.Dispose();
}
private void WebBrowser_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
{
WebBrowser m_WebBrowser = (WebBrowser)sender;
m_WebBrowser.ClientSize = new Size(this.m_BrowserWidth, this.m_BrowserHeight);
m_WebBrowser.ScrollBarsEnabled = false;
m_Bitmap = new Bitmap(m_WebBrowser.Bounds.Width, m_WebBrowser.Bounds.Height);
m_WebBrowser.BringToFront();
m_WebBrowser.DrawToBitmap(m_Bitmap, m_WebBrowser.Bounds);
m_Bitmap = (Bitmap)m_Bitmap.GetThumbnailImage(m_ThumbnailWidth, m_ThumbnailHeight, null, IntPtr.Zero);
}
}
Imports System.Collections
Imports System.Configuration
Imports System.Data
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Threading
Public Class Form1
Private _webBrowser As System.Windows.Forms.WebBrowser
Public pic As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tb As New Data.DataTable
tb = code.Data_DataTable("select a_url,ID from a_domain order by id").Tables(0)
ProgressBar1.Maximum = tb.Rows.Count
ProgressBar1.Minimum = 0
Dim i As Integer
For i = 0 To tb.Rows.Count - 1
Dim url As String = tb.Rows(i).Item("a_url")
Dim id As Integer = tb.Rows(i).Item("id")
pic = "b_" & id & "_" & DateTime.Now.ToString("yyyyMMdd") & ".jpg"
_webBrowser = New System.Windows.Forms.WebBrowser()
_webBrowser.ScrollBarsEnabled = False '不显示滚动条
_webBrowser.Navigate(url)
AddHandler _webBrowser.DocumentCompleted, New System.Windows.Forms.WebBrowserDocumentCompletedEventHandler(AddressOf Completed)
While _webBrowser.ReadyState <> System.Windows.Forms.WebBrowserReadyState.Complete
'避免假死,若去掉则可能无法触发 DocumentCompleted 事件。
System.Windows.Forms.Application.DoEvents()
End While
code.Data_update("insert into a_domain_pic(a_id,a_img)values('" & id & "','" & pic & "')")
ProgressBar1.Value += 1
Next
End Sub
Public Sub Completed(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
'设置浏览器宽度、高度为文档宽度、高度,以便截取整个网页。
Dim fileName As String = "C:\img\" & pic
'_webBrowser.Width = _webBrowser.Document.Body.ScrollRectangle.Width
'_webBrowser.Height = _webBrowser.Document.Body.ScrollRectangle.Height
_webBrowser.Width = 1000
_webBrowser.Height = 1000
Using bmp As New Bitmap(_webBrowser.Width, _webBrowser.Height)
_webBrowser.DrawToBitmap(bmp, New Rectangle(0, 0, bmp.Width, bmp.Height))
bmp.Save(fileName, ImageFormat.Jpeg)
Dim originalFilename As String = fileName
Dim strGoodFile As String = fileName.Replace("b_", "s_")
'从文件取得图片对象
Dim image As System.Drawing.Image = System.Drawing.Image.FromFile(originalFilename)
'取得图片大小
'Dim size As System.Drawing.Size = New Drawing.Size(image.Width \ iScale, image.Height \ iScale)
Dim w As Integer = 150
Dim h As Integer = 150
'新建一个bmp图片
'Dim bitmap As System.Drawing.Image = New System.Drawing.Bitmap(size.Width, size.Height)
Dim bitmap As System.Drawing.Image = New System.Drawing.Bitmap(w, h)
'新建一个画板
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(bitmap)
'设置高质量插值法
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.High
'设置高质量,低速度呈现平滑程度
g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
'清空一下画布
g.Clear(Drawing.Color.Transparent)
'在指定位置画图
g.DrawImage(image, New System.Drawing.Rectangle(0, 0, bitmap.Width, bitmap.Height), New System.Drawing.Rectangle(0, 0, image.Width, image.Height), System.Drawing.GraphicsUnit.Pixel)
'保存高清晰度的缩略图
bitmap.Save(strGoodFile, System.Drawing.Imaging.ImageFormat.Jpeg)
g.Dispose()
End Using
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class