ASPCanvas2

ASPCanvas2

ASPCanvas es un medio para generar imágenes GIF en un servidor basado en IIS/ASP sin instalar objetos COM del lado del servidor ni jugar con Java del lado del cliente. Es una clase puramente VBScript que genera imágenes GIF de cualquier tamaño en el servidor y las pasa al cliente del navegador web.

Uso rápido

Dibujando un círculo.

<% Dim objCanvas Set objCanvas = New Canvas objCanvas.GlobalColourTable(0) = RGB(255,255,255) objCanvas.GlobalColourTable(1) = RGB(0,0,0) objCanvas.BackgroundColourIndex = 0 objCanvas.ForegroundColourIndex = 1 objCanvas.Resize 320,240,False objCanvas.Circle 160,120,110 objCanvas.Write %>">

 

<%
Dim objCanvas
Set objCanvas = New Canvas
objCanvas.GlobalColourTable(0) = RGB(255,255,255)
objCanvas.GlobalColourTable(1) = RGB(0,0,0)
objCanvas.BackgroundColourIndex = 0
objCanvas.ForegroundColourIndex = 1
objCanvas.Resize 320,240,False
objCanvas.Circle 160,120,110
objCanvas.Write
%>

Requisitos

Los requisitos han cambiado ligeramente desde la versión 1.0.x a esta versión del script, así que preste mucha atención antes de sobrescribir la versión anterior.

• IIS 5.0 o superior
• VBScript 5.6 o superior
• MDAC 2.6 o superior

Todos estos son importantes ya que las partes internas de ASPCanvas han cambiado para utilizar ADO Streams.

Tenga en cuenta que esta clase NO funcionará con el paquete ASP de ChiliSoft.

¿Por qué está esto aquí? ¿Hay cosas nuevas y brillantes?

No, nada nuevo. Esto está aquí porque recibo al menos 1 solicitud por semana sobre esto. La última vez que agregué algo a esta clase fue en 2002, cuando los desarrolladores de ASP clásico comenzaron a hacer su transición a ASP.NET. Pensé que esto moriría con el uso, pero resulta que las infraestructuras de TI de algunas instituciones caen en la categoría "No está roto, así que no lo arregles". Este script no contiene un algoritmo de compresión LZW real, simplemente aumenta la tabla de códigos, por dos razones:

1. Es VBScript. En 2002 fue lento. Generar un GIF comprimido adecuado de cualquier proporción estaba más allá de las capacidades de un servidor en ese momento.
2. Unisys mantuvo la patente LZW hasta 2003 en EE. UU. En todo el mundo expiró en 2004. Mi solicitud de pago de regalías de Unisys enmarcada permanece en mi pared.

Ambos puntos son cosa del pasado. ¡Divertirse!