Escrevendo texto na largura da imagem com Persits.Jpeg

[Zenner 0]

Olá turma.. Belezura/ Estou aqui com mais uma dúvida escabrosa..

 

Tenho uma imagem de 400 X 100

 

Tenho um form e um campo texto...

 

Preciso fazer com que o meu arq asp gere uma imagem contendo o texto digitado no campo texto sem quebras de linha e sem passar da largura da imagem.

Serão textos curtos, quer dizer, com poucas palavras...

 

tipo:

 

"hoje é terça"

'Será que hoje vai fazer só ou chuva"

 

Como fazer para que esses 2 textos ocupem a mesma largura sendo escritos dentro de uma imagem.

 

Como encontro essa largura do texto que vai ser inserido?? Já procurei e não encontro

[xanburzum 169]

Adicionar texto a uma imagem

 

<%
' Cria uma instância do controle
Set AspJpeg = Server.CreateObject("Persits.Jpeg")
' Abre a imagem original
AspJpeg.Open Server.MapPath("imagem.jpg")
' Escreve o texto
AspJpeg.Canvas.Font.Color = &HFF0000
AspJpeg.Canvas.Font.Family = "Courier New"
AspJpeg.Canvas.Font.Bold = True
AspJpeg.Canvas.Font.Quality = 4
AspJpeg.Canvas.Font.BkMode = "Opaque"
AspJpeg.Canvas.Print 10, 572, "Escreva seu texto aqui."
' Salva a imagem com o texto
AspJpeg.Save Server.MapPath("imagem_texto.jpg")
' Tira o objeto da memória
Set AspJpeg = Nothing
' Exibe a imagem na tela
Response.Write "<img src=""imagem_texto.jpg"" />"
%>