验证图片生成

fan0217

1. 
   
2. 
   
3. <%@ WebHandler Language="VB" Class="GetValidateImage" %>
   
4. Imports System
   
5. Imports System.Web
   
6. Imports System.Data
   
7. Imports System.Configuration
   
8. Imports System.Collections
   
9. Imports System.Web.Security
   
10. Imports System.Web.UI
    
11. Imports System.Web.UI.WebControls
    
12. Imports System.Web.UI.WebControls.WebParts
    
13. Imports System.Web.UI.HtmlControls
    
14. Imports System.Drawing
    
15. Imports System.Drawing.Imaging
    
16. Imports System.IO
    
17. Public Class GetValidateImage : Implements IHttpHandler
    
18.    
    
19.     Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
    
20.         Dim number As String = Trim(context.Request.QueryString("number"))
    
21.         Dim gheight As Integer = Int(Len(number) * 11.5)
    
22.         'gheight为图片宽度,根据字符长度自动更改图片宽度
    
23.         Dim img As New Bitmap(gheight, 20)
    
24.         Dim g As Graphics = Graphics.FromImage(img)
    
25.         g.DrawString(number, (New Font("Arial", 10)), (New SolidBrush(Color.Blue)), 3, 3) '在矩形内绘制字串（字串，字体，画笔颜色，左上x.左上y）
    
26.         Dim ms As New MemoryStream()
    
27.         Img.Save(ms, ImageFormat.Png)
    
28.         context.Response.ClearContent() '需要输出图象信息 要修改HTTP头
    
29.         context.Response.ContentType = "image/Png"
    
30.         context.Response.BinaryWrite(ms.ToArray())
    
31.         g.Dispose()
    
32.         Img.Dispose()
    
33.         context.Response.End()
    
34.     End Sub
    
35.      
    
36.     Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
    
37.         Get
    
38.             Return False
    
39.         End Get
    
40.     End Property
    
41. End Class
    
42. 
    

复制代码

andymark

先收藏  

不知在ACCESS能不能实现这样的效果

fan0217

原帖由 andymark 于 2008-3-9 14:33 发表
先收藏  

不知在ACCESS能不能实现这样的效果

我想应该可以的，不过需要安装.NET架构，并且使用VS创建Access兼容的COM类，并在Access中引用。处理方法可能不一样，在Access中处理的话需要使用临时文件，然后用图像控件予以显示。

zftxiao

不错，谢谢了

zftxiao

不错，谢谢了

seanfree

仔细学习, 谢谢