imageservice.asmx

asp.net技术内幕的书配源码

<%@ WebService Class="ImageService" %>

Imports System
Imports System.Web.Services
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO

<WebService( Namespace:="http://yourdomain.com/webservices" )> _
Public Class ImageService : Inherits WebService

<WebMethod()> Public Function GetTextImage( strText As String ) As Byte()
  Dim objBitmap As Bitmap
  Dim objGraphics As Graphics
  Dim objFont As Font
  Dim strmBuffer As MemoryStream

  objBitmap = New Bitmap( 300, 50 )
  objGraphics = Graphics.FromImage( objBitmap )
  objFont = New Font( "Impact", 24 )
  objGraphics.DrawString( strText, objFont, Brushes.Red, 1, 1 )

  strmBuffer = New MemoryStream()
  objBitmap.Save( strmBuffer, ImageFormat.Gif )
  Return strmBuffer.ToArray()
End Function

End Class