need component for asp page that genereates custom lettering in a jpg

[Scott Emick]

similar to: http://overtons.com/lettering/lettering.html

I was thinking of writing it myself in either vb6 as an activex dll server
component, or vb.net - it does seem more feasable to me in vb .net, but it
would also be great if this was already done.

Any information appreciated.

Scott Emick
se****@ham.phoenix-sys.com

to send me an email, remove the 'ham' if its not spam.

[Cor]

Hi Scott,

A short time ago I did make this, I still want to make that clock a little
bit nicer but that is not much work I think.
(Form is a webform)

\\\Form 1 Needs a imagebox on the page
Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.Image1.Height = New Unit(32)
Me.Image1.Width = New Unit(200)
Image1.Visible = True
Dim scriptString As String = "<script language=JavaScript>" & _
"setclock(); function setclock(){document.images.Image1.src = " & _

"'http://localhost/WebClock/WebForm2.aspx';setTimeout('setclock()',1000)}</s
cript>"
Page.RegisterStartupScript("setclock", scriptString)
End Sub
///
\\\Form2 needs nothing
Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim myForeBrush As Brush = Brushes.Black
Dim myFont As New Font("Times New Roman", 8, FontStyle.Regular)
Dim textHeight As Single
Dim bm As New Bitmap(120, 20)
Dim g As Graphics = Graphics.FromImage(bm)
g.Clear(Color.White)
Dim textSize As SizeF = g.MeasureString("now.tostring", myFont)
g.DrawString(Now.ToString, myFont, myForeBrush, _
New RectangleF(0, 0, 120, 20))
Dim ms As New IO.MemoryStream
Dim arrImage() As Byte
bm.Save(ms, Imaging.ImageFormat.Bmp)
arrImage = ms.GetBuffer
Response.BinaryWrite(arrImage)
End Sub
///

[Herfried K. Wagner [MVP]]

* "Scott Emick" <se****@ham.phoenix-sys.com> scripsit:

similar to: http://overtons.com/lettering/lettering.html

Are you sure this URL works?

--
Herfried K. Wagner [MVP]
<http://dotnet.mvps.org/>

[Cor]

> Are you sure this URL works?

For me it does Herfried, something in Austria maybe,

I forgot the Hungarians yesterday, I asume they speak mostly also German?

Cor

[Herfried K. Wagner [MVP]]

* "Cor" <no*@non.com> scripsit:

Are you sure this URL works?
For me it does Herfried, something in Austria maybe,

I tried several times and it didn't work. In the meantime, the URL
works. Thank you for testing.
I forgot the Hungarians yesterday, I asume they speak mostly also German?

Many Hungarians are able to speak German.

--
Herfried K. Wagner [MVP]
<http://dotnet.mvps.org/>

[Scott Emick]

Thanks I will try it out.

You can also go to the homepage http://www.overtons.com/
and select BOAT LETTERING from the left-side menu.

It allows you to select font type/colors, and drop shadow, which may be the
most difficult for me to replicate. It then displays what your custom boat
lettering would look like.

Scott

"Cor" <no*@non.com> wrote in message
news:%2****************@TK2MSFTNGP12.phx.gbl...

Hi Scott,

A short time ago I did make this, I still want to make that clock a little
bit nicer but that is not much work I think.
(Form is a webform)

\\\Form 1 Needs a imagebox on the page
Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.Image1.Height = New Unit(32)
Me.Image1.Width = New Unit(200)
Image1.Visible = True
Dim scriptString As String = "<script language=JavaScript>" & _
"setclock(); function setclock(){document.images.Image1.src = " & _
"'http://localhost/WebClock/WebForm2.aspx';setTimeout('setclock()',1000)}</s cript>"
Page.RegisterStartupScript("setclock", scriptString)
End Sub
///
\\\Form2 needs nothing
Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim myForeBrush As Brush = Brushes.Black
Dim myFont As New Font("Times New Roman", 8, FontStyle.Regular)
Dim textHeight As Single
Dim bm As New Bitmap(120, 20)
Dim g As Graphics = Graphics.FromImage(bm)
g.Clear(Color.White)
Dim textSize As SizeF = g.MeasureString("now.tostring", myFont)
g.DrawString(Now.ToString, myFont, myForeBrush, _
New RectangleF(0, 0, 120, 20))
Dim ms As New IO.MemoryStream
Dim arrImage() As Byte
bm.Save(ms, Imaging.ImageFormat.Bmp)
arrImage = ms.GetBuffer
Response.BinaryWrite(arrImage)
End Sub
///

[Scott Emick]

Cor,

Thanks once again - I was able to adapt the code to my own needs
AND get the dropshadowing to work as well!

Now I need to decide if I want to keep it as an aspx page (the 2nd
page), or try to put it into a component for the developers here to
use. The site they are working on is only asp, not dotnet - I could
still have an asp page call the aspx to generate the image, or try to
make a component and use the utility that comes with .net to convert a
dll so it can be used with vb6/asp.

Scott Emick