Listing 22.13 ImageService.asmx
<%@ WebService Class="ImageService" %>
Imports System
Imports System.Web.Services
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO
<WebService( Namespace:="[URL unfurl="true"]http://yourdomain.com/webservices"[/URL] )> _
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