Jeg har et lille eksempel her. Siden kaldes med to koordinater (jeg tester ikke for om parametrene er gyldige, så den crasher uden, men det må du rode med :-)
Ex:
http://localhost/showimage.aspx?p1=12,23&p2=300,200
------showimage.aspx------------
<%@ Page Language="vb" %>
<%@ import namespace="system.drawing" %>
<%@ import namespace="system.drawing.imaging" %>
<%@ import namespace="system.drawing.drawing2d" %>
<script language="vb" runat="server">
Public height as Integer = 300
Public width as Integer = 400
public b as New system.drawing.bitmap(width, height, pixelformat.Format16bppRgb555)
Sub Page_load(obj as Object, E as EventArgs)
' Sæt content type
response.contenttype="image/Png"
dim g as graphics = graphics.fromimage(b)
Dim p1X As Integer = cInt(Split(Request.QueryString("p1"),",")(0))
Dim p1Y As Integer = cInt(Split(Request.QueryString("p1"),",")(1))
Dim p2X As Integer = cInt(Split(Request.QueryString("p2"),",")(0))
Dim p2Y As Integer = cInt(Split(Request.QueryString("p2"),",")(1))
DrawImage(p1X,p1Y,p2X,p2Y,g)
Dim MS as System.IO.MemoryStream = new System.IO.MemoryStream()
b.save(MS, imageformat.Png)
b.dispose()
Dim buffer as byte() = MS.ToArray()
Response.OutputStream.Write(buffer,0,buffer.Length)
Response.End()
End Sub
Function DrawImage(p1X As Integer,p1Y As Integer,p2X As Integer,p2Y As Integer, g as Graphics)
Dim pen as New pen(color.black,1)
Dim rec As New Rectangle(0,0,width-1,height-1) 'billede-område
Dim lb as new LinearGradientBrush(rec, Color.SteelBlue,Color.White,LinearGradientMode.Vertical)
g.clear(color.white) ' blank the image
g.smoothingMode = smoothingMode.antiAlias ' antialias objects
g.drawRectangle(pen,0,0,width-1,height-1)
g.FillRectangle(lb,rec)
g.drawRectangle(pen,rec)
g.DrawLine(pen,p1X,p1Y,p2X,p2Y)
End Function
</script>