Re: can one convert drawable XmlSerializer xmlns file into GIF or PNG?



"Joe" <joe1977@xxxxxxx> wrote in message news:f41e938f-e46f-4433-8ab7-6c44f12bad9f@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
this file is drawn in VB.NET and input output goes by XmlSerializer.
Therefore, simple output file looks like:

<?xml version="1.0" encoding="utf-8"?>
<DrawablePicture xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance";
xmlns:xsd="http://www.w3.org/2001/XMLSchema"; BackColor="-1250856">
<DrawableRectangle LineWidth="2" X1="377" Y1="88" X2="323" Y2="130"
ForeColor="-16777216" BackColor="-1" />
</DrawablePicture>


I would like to show it through webpage, but before I need to convert
it into GIF, PNG or any web-image readable file.

Can somebody please put some light on this issue? How would you
achieve that?


Thank you so much!

If you can create an image you don't have to create a file to display the info on a webpage.

What you want to do is the following:

1. Create a new aspx page in your website
2. For the URL on any page which needs your image set it to the newly create aspx page. Using the QueryString you can then pass info to the page which it will use to create an image. You will then write to the Response object the image. This will allow you to dynamically create images on the page without actually creating image files.

I have an example of this. I have a button which I use as a Jukebox button. Rather than creating different ones for each "track number" I simple create a bitmap using the background of the button and then impose the track number as text.

Example:

Option Strict On
Option Explicit On

Imports System
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO
Imports MusicSiteControls

Partial Class DynamicImage
Inherits System.Web.UI.Page

Public Const imText As String = "ImageText"
Public Const imFolder As String = "ImageFolder"

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim imageFolder As String
Dim imageText As String
Dim bm As Bitmap
Dim ms As MemoryStream

imageFolder = Request.QueryString(imFolder)
imageText = Request.QueryString(imText)

If imageFolder Is Nothing Then
bm = makeImage(imageText)
Else
bm = makeImage(imageFolder, imageText)
End If

If bm Is Nothing Then
bm = New Bitmap(Server.MapPath("~/Images/no-file-32x32.png"))
End If

ms = New MemoryStream
bm.Save(ms, ImageFormat.Jpeg)
Response.ContentType = "image/jgp"
Response.BinaryWrite(ms.ToArray())
End Sub

Private Function makeImage(ByVal imagetext As String) As Bitmap
Dim bm As Bitmap
Dim g As Graphics
Dim bfont As Font

Dim tsize As SizeF
'Dim imageHeight As Integer
'Dim imageWidth As Integer

bfont = New Font("Trebuchet MS", 14)

bm = New Bitmap(Server.MapPath("~/Images/TrackBackground.png"))

g = Graphics.FromImage(bm)
tsize = g.MeasureString(imagetext, bfont)

Dim tx As Single
Dim ty As Single

tx = (bm.Width - tsize.Width) / 2
ty = (bm.Height - tsize.Height) / 2

g.DrawString(imagetext, bfont, New SolidBrush(Color.Black), tx, ty)
g.Dispose()

Return bm

End Function

Private Function makeImage(ByVal imageFolder As String, ByVal imagetext As String) As Bitmap
Dim bm As Bitmap
'Dim g As Graphics
Dim bfont As Font

'Dim tsize As SizeF
'Dim imageHeight As Integer
'Dim imageWidth As Integer

bfont = New Font("Trebuchet MS", 10)
Dim d As New DAL
Dim folderName As String = d.GetImageFile(CInt(imageFolder))

Dim fn() As String = Directory.GetFiles(folderName, "*.jpg")
If fn.Length = 0 Then
bm = Nothing
Return bm
End If

bm = New Bitmap(fn(0))

'Dim myImg As Bitmap
'Dim myCallback As System.Drawing.Image.GetThumbnailImageAbort
'Dim myPtr As IntPtr
'myImg = DirectCast(bm.GetThumbnailImage(32, 32, myCallback, myPtr), Bitmap)
'g = Graphics.FromImage(bm)
'g.DrawString(imagetext, bfont, New SolidBrush(Color.Black), 2, 2)
'g.Dispose()

Return bm
End Function
End Class


Hope this helps
Lloyd Sheen

.