view-textgraphic.asmx
<%@ WebService Language="vb" Class="TextGraphic" %>  
2  
3 Imports System  
4 Imports System.Web.Services  
5 Imports System.IO  
6 Imports System.Drawing  
7 Imports System.Drawing.Imaging  
8 Imports System.Drawing.Drawing2D  
9  
10  
11 <WebService(Namespace:="http://www.aspalliance.com/chrisg/services")> _  
12 Public Class TextGraphic  
13  
14  
15 <WebMethod> Public Function DrawText( _  
16 text as String, _  
17 fontName as String, _  
18 fontSize as Integer, _  
19 fontColor as String, _  
20 alignment as String, _  
21 backcolor as String, _  
22 width as Integer, _  
23 height as Integer _  
24 ) as Byte()  
25  
26 ' create output stream  
27 dim outStream as System.IO.MemoryStream  
28 outStream = New System.IO.MemoryStream()  
29  
30  
31 ' create a New bitmap image  
32 dim b as Bitmap = New Bitmap(width, height, pixelformat.format24bpprgb)  
33 dim g as Graphics  
34 g = Graphics.FromImage(b)  
35 dim fBrush as SolidBrush  
36 fBrush = New SolidBrush(ColorTranslator.FromHTML(fontColor))  
37  
38 dim salign as New StringFormat  
39 dim coords as pointF  
40  
41 if alignment.ToUpper = "LEFT" then  
42 salign.alignment = stringalignment.near  
43 coords = New pointF(0,0)  
44 elseif alignment.ToUpper = "RIGHT" then  
45 salign.alignment = stringalignment.far  
46 coords = New pointF(0,0)  
47 else  
48 salign.alignment = stringalignment.center  
49 coords = New pointF(width/2,0)  
50 end if  
51  
52 ' blank the bitmap  
53 g.Clear(ColorTranslator.FromHTML(backcolor))  
54  
55 ' antialias  
56 g.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAlias  
57 g.smoothingMode = smoothingMode.antiAlias  
58  
59 g.drawString(text, New font(fontName,fontSize),fBrush,coords,salign)  
60  
61  
62 ' serve the image to the client  
63 b.Save(outStream, ImageFormat.Gif)  
64  
65 return outStream.ToArray()  
66  
67 ' clear up  
68 b.Dispose()  
69 g.Dispose()  
70  
71  
72  
73 End Function  
74  
75 End Class  
testtextgraphic.aspx
<%@ Page Language="vb" Debug="True" %>  
2 <%@ import namespace="System.Drawing" %>  
3 <%@ import namespace="System.IO" %>  
4 <%  
5  
6 ' initialise objects  
7 dim gText as New TextGraphic  
8 dim b as Bitmap  
9 dim bytes as Byte()  
10 dim inStream as System.IO.MemoryStream  
11  
12 ' get image data  
13 bytes = gText.DrawText("test2","tahoma",36, "#0000ff", "center", "#ffffff", 100,100)  
14 inStream = New System.IO.MemoryStream(bytes)  
15  
16 ' create a New image from stream  
17 b = New Bitmap(inStream)  
18  
19 ' Set the content type  
20 response.contenttype="image/gif"  
21  
22 ' send the image to the viewer  
23 b.save(response.outputstream, b.rawformat)  
24  
25 ' tidy up  
26 b.dispose()  
27  
28 %>