Bendito Persits.jpeg!

[marciotheory 0]

Olá pessoal, preciso escrever em uma imagem(já havia até postado um tópico antes) e achei o seguinte script no site do componente ASP JPEG:

Path = Server.MapPath("image_files/")
	Set Jpeg = Server.CreateObject("Persits.Jpeg")
	
	' Font path
	FontPath = "image_files/"
	
	Jpeg.Open Path & "\conv_apresenta_comercial.jpg"
	
	' Text to draw
	Txt = "Marcio Antonio Rocha da Cruz"
	
	Jpeg.Canvas.Font.Color = &HFFFFFF00
	Jpeg.Canvas.Font.Size = 60
	
	' Draw letters in a round-about manner
	Angle = -275
	For i = 1 To Len(Txt)
	  x = 280 * cos( Angle * 3.141592 / 180 ) + Jpeg.Width / 2
	  y = 280 * sin( Angle * 3.141592 / 180 ) + Jpeg.Height / 2
	  Jpeg.Canvas.Font.Rotation = 270 - Angle
	  w = Jpeg.Canvas.PrintTextEx(Mid(txt, i, 1), x, y, FontPath)
	  Angle = Angle + w / 3.85
	Next
	
	Jpeg.Save Server.MapPath("conv_comercial_teste.jpg")

Porém ele apresenta o seguinte erro na linha onde se encontra a nvariável 'w':

 

"Microsoft VBScript runtime error '800a01b6'

 

Object doesn't support this property or method: 'Jpeg.Canvas' "

 

Será que alguém pode me ajudar???

Marcio

[hargon 64]

Você deve está utilizando uma versão antiga do ASPJPEG que não da suporte a Canvas.

[marciotheory 0]

Então esse script estaria correto?

[hargon 64]

Parece que está tudo ok. Mas esse código deve ser da versão 1.8 pra cima, pois antes dessa versão não existia o método PrintTextEx.

[marciotheory 0]

hum... então qual é o método, para "escrever" na imagem?

[hargon 64]

Dá uma olhada nesse link.

http://forum.imasters.com.br/index.php?showtopic=232231

 

Ele escreve em cima de uma imagem.

 

Utilizei ASPJPEG 1.5.

[marciotheory 0]

Valeu muito obrigado, consegui resolver meu problema!